[已解决]请问该比大小的表达式问题在哪？

ccc919

Sub test()
a = 5.2
b = InputBox("")
If a < b Then
MsgBox "B比A大"
ElseIf a > b Then
MsgBox "a比b大"
End If
End Sub

为什么不管填比5.2大还是比5.2小都显示 "B比A大"？问题出在哪？

最佳答案

月排行榜 / 总排行榜

metoo77

2016-7-14 17:35

Sub test()
a = 5.2
b = InputBox("")
If a < 0 + b Then
MsgBox "B比A大"
ElseIf a > 0 + b Then
MsgBox "a比b大"
End If
End Sub

跳转到最佳答案楼层

baksy

Sub test()
Dim a As Date
a = 5.2
b = InputBox("")
If a < b Then
MsgBox "B比A大"
ElseIf a > b Then
MsgBox "a比b大"
End If
End Sub

ccc919

baksy 发表于 2016-7-14 16:56
Sub test()
Dim a As Date
a = 5.2

为什么现在成 a比b大了？ 还是没有用呀

metoo77

Sub test()
a = 5.2
b = InputBox("")
If a < 0 + b Then
MsgBox "B比A大"
ElseIf a > 0 + b Then
MsgBox "a比b大"
End If
End Sub

ccc919

metoo77 发表于 2016-7-14 17:35
Sub test()
a = 5.2
b = InputBox("")

感谢原来还要加个0。。

爱疯

Sub test()
    Dim a As Double
    Dim b As Double
    Dim str As String

    a = 5.2
    b = InputBox("a=5.2，请输入b")

    If a < b Then
        str = "a<b"
    ElseIf a > b Then
       str = "a>b"
    Else
        str = "a=b"
    End If

    MsgBox str
End Sub


不声明数据类型，变量b总是文本，文本总比5.2大。
声明数据类型，更规范些。