关于VB的问题，谢谢各位达人哈 Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As
关于VB的问题，谢谢各位达人哈 Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As
日期：2012-05-20 09:02:01 人气：2
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim u As Single
Dim l As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
u! = 32.2
l! = 7.2
If a > u & b > u Then
c = u - l
ElseIf l >