Print sub Command1 Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim max As String
a=22
b=34
c=67
If a>b Then
max= a
Else
max= b
End If
If c>max Then
max=c
End If
Print Str(max)
End Sub
Print sub Command1 Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim max As String
a=22
b=34
c=67
If a>b Then
max= a
Else
max= b
End If
If c>max Then
max=c
End If
Print Str(max)
End Sub