注册 登录
编程论坛 VB6论坛

最基本的比较大小,怎会出错,有点不解。

xiaoshi112 发布于 2014-02-22 20:35, 355 次点击
我采用text1与text2两个文本框内的数值比较大小。问题是:当text2.text=230 时,text1.text的值小于100时,怎么会显示YES?text1.text>=100时会是NO。有点不解,请高手指导一下。
Private Sub Command1_Click()
    If Text1.Text > Text2.Text Then
        MsgBox "YES"
    ElseIf Text1.Text < Text2.Text Then
        MsgBox "NO"
    ElseIf Text1.Text = Text2.Text Then
        MsgBox "YESNO"
    End If
End Sub
2 回复
#2
lowxiong2014-02-22 23:11
被当成文本比较了,很显然,字符“90”>“230”,做如下修改即可:
Private Sub Command1_Click()
    If val(Text1) > val(Text2) Then
        MsgBox "YES"
    ElseIf val(Text1)< val(Text2) Then
        MsgBox "NO"
    ElseIf val(Text1)= val(Text2) Then
        MsgBox "YESNO"
    End If
End Sub
#3
xiaoshi1122014-02-23 16:11
谢谢版主,我忽略了这个细节。
1