两个数比较大小，三个数比较大小，十个数比较大小，并输出最大数

两个数的大小
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
 
a = 44
b = 36
 
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 = 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
比较10个数的大小
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim f As Integer
Dim g As Integer
Dim h As Integer
Dim i As Integer
Dim j As Integer
 
 
a = 44
b = 36
c = 9
d = 5
e = 345
f = 1
g = 89
h = 60
i = 53
j = 120
 
If a > b Then
 
Max = a
Else
Max = b
End If
If c > Max Then
Max = c
End If
If d > Max Then
Max = d
End If
If e > Max Then
Max = e
End If
If f > Max Then
Max = f
End If
If g > Max Then
Max = g
End If
If h > Max Then
Max = h
End If
If i > Max Then
Max = i
End If
If j > Max Then
Max = j
End If
Print Max
End Sub