代码如下:
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
If a > b Then
Label3.Caption = a
Else
Label3.Caption = b
End If
End Sub
心得:学会了把text的数应用到函数中
代码如下:
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
If a > b Then
Label3.Caption = a
Else
Label3.Caption = b
End If
End Sub
心得:学会了把text的数应用到函数中