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

    Dim x%, y%,z%,i%
    x =val( InputBox("请输入X的值", "输入数据", 100))
    y = val(InputBox("请输入y的值", "输入数据", 100))
    z = x * y
    i =val( InputBox("请输入Xy的乘积", "答案", 100))

为什么用变体就不行呢

养成提前定义变量数据类型的好习惯，一般不要使用变体数据类型，除非非得需要。
i = InputBox("请输入Xy的乘积", "答案", 100)   修改为：
i = InputBox("请输入y的值", "答案", z)
不然 i 永远不会等于 z

 i = Val(InputBox("请输入y的值", "答案", z))   '测试了一下，z 与 i使用变体，这样就没有问题，因为InputBox输出的是字符串

[此贴子已经被作者于2017-4-4 14:19编辑过]