判定>.=.< 2010 .9 .15
判定>.=.< 2010 .9 .15
stty0910 周一 9月 13, 2010 9:53 am
Dim IN_A, IN_B As Single
IN_A = Val(TextBox1.Text)
IN_B = Val(TextBox2.Text)
If IN_A > IN_B Then Label3.Text = "A 大於 B"
If IN_A = IN_B Then
Label3.Text = "A 等於 B"
End If
If IN_A < IN_B Then
Label3.Text = "A 小於 B"
End If
IN_A = Val(TextBox1.Text)
IN_B = Val(TextBox2.Text)
If IN_A > IN_B Then Label3.Text = "A 大於 B"
If IN_A = IN_B Then
Label3.Text = "A 等於 B"
End If
If IN_A < IN_B Then
Label3.Text = "A 小於 B"
End If
stty0910- 終極管理員
- 文章數 : 68
注冊日期 : 2010-08-06
年齡 : 30
來自 : 地球某個角落 -
這個論壇的權限：
您 無法 在這個版面回復文章