三个数比较大小

Private Sub Command1_Click()

Dim a As Integer

Dim b As Integer

Dim max As Integer

Dim c As Integer

 

 a = 45

 b = 78

 c = 123

 

 If a > b Then

 max = a

 Else

 max = b

 End If

 If c > max Then

 max = c

 End If

 Print max

 

End Sub