为什么我输入XY的乘积是正确的，还是返回错误提示

a1661626747 发布于 2017-04-02 22:40， 921 次点击

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

3 回复

Artless2017-04-02 23:13

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

a16616267472017-04-02 23:36

回复 2楼 Artless

为什么用变体就不行呢

ZHRXJR2017-04-04 14:14

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

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

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