VB里50比459大??
我用的VB6.0比较两个数值的大小,结果发现50大于459,80大于768?!
---------------------------------
其中Label1.Caption和Label.Caption分别为459和768
t1 = Label1.Caption
t2 = Label2.Caption
If Label1.Caption < Text2.Text Then
Label17.Caption = "t1执行 "
End If
If Label2.Caption < Text3.Text Then
Label18.Caption = "t2执行 "
End If
-------------------------------
当Text2和Text3为50/80时,两个都被执行了
当Text2和Text3为20/80时,前者没有执行,后者执行了
这是怎么回事啊??
[解决办法]
t1 = Label1.Caption
楼主比较的是字符串,而不是数值
改:
If clng(Label1.Caption) < clng(Text2.Text) Then
Label17.Caption = "t1执行 "
End If
If clng(Label2.Caption) < clng(Text3.Text) Then
Label18.Caption = "t2执行 "
End If
[解决办法]
楼上说的正确:
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 Sub
Private Sub Form_Load()
Label1.Caption = 459
Label2.Caption = 768
Text2 = 50
Text3 = 80
End Sub