Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
a = Text1.Text
b = Text2.Text
If a > b Then
Print a
Else
Print b
End If
End Sub
第一个
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = Int(Val(Text1.Text))
b = Int(Val(Text2.Text))
c = Int(Val(Text3.Text))
If a > b Then
Max = a
Else
Max = b
End If
If c > Max Then
Max = c
End If
Print Max
End Sub
第二个