Private Sub Command1_Click()
    Dim x%, y%
    x = InputBox("请输入X的值", "输入数据", 100)
    y = InputBox("请输入y的值", "输入数据", 100)
    z = x * y
    i = InputBox("请输入Xy的乘积", "答案", 100)
    If z = i Then
    Print i
    ElseIf z <> i Then
    MsgBox "输入有误"
    End
    End If
End Sub

为什么用变体就不行呢