我用的VB6.0比较两个数值的大小,结果发现50大于459,80大于768?!
---------------------------------------------------------------------
其中Label1.Caption和Label.Caption分别为459和768t1 = Label1.Caption
t2 = Label2.CaptionIf Label1.Caption < Text2.Text Then   
  Label17.Caption = "t1执行"
End IfIf Label2.Caption < Text3.Text Then   
   Label18.Caption = "t2执行"
End If
-------------------------------------------------------------------
当Text2和Text3为50/80时,两个都被执行了
当Text2和Text3为20/80时,前者没有执行,后者执行了这是怎么回事啊??

解决方案 »

  1.   

    t1 = Label1.Caption
    楼主比较的是字符串,而不是数值
    改:
    If clng(Label1.Caption) < clng(Text2.Text) Then   
      Label17.Caption = "t1执行"
    End IfIf clng(Label2.Caption) < clng(Text3.Text) Then   
       Label18.Caption = "t2执行"
    End If
      

  2.   

    Caption和Text属性都是文本类型,文本类型比较第一个字符,5当然比4大。
    用VAL函数,专成数值即可以正确比较了
      

  3.   

    楼上说的正确:
    Option Explicit
    Dim t1 As Integer
    Dim t2 As Integer
    Private Sub Command1_Click()
        t1 = Label1.Caption
        t2 = Label2.Caption
        If t1 < Val(Text2.Text) Then
            Label17.Caption = "t1执行"
        End If
        If t2 < Val(Text3.Text) Then
            Label18.Caption = "t2执行"
        End If
    End SubPrivate Sub Form_Load()
        Label1.Caption = 459
        Label2.Caption = 768
        Text2 = 50
        Text3 = 80
    End Sub