首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

VB里50比459大?该怎么解决

2012-02-04 
VB里50比459大??我用的VB6.0比较两个数值的大小,结果发现50大于459,80大于768?!-------------------------

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

热点排行