vb

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
第二个