以下是其编程:
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim max As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
If a > b Then
max = a
Else
max = b
End If
Print max
End Sub
以下是其编程:
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim max As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
If a > b Then
max = a
Else
max = b
End If
Print max
End Sub