Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = 44
b = 36
c = 9
If a > b Then
Max= a
Else
Max = b
End If
If c > Max Then
Max = c
End If
Print Max
End Sub
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = 44
b = 36
c = 9
If a > b Then
Max= a
Else
Max = b
End If
If c > Max Then
Max = c
End If
Print Max
End Sub