实现三个数大小的比较

Private Sub Command1_Click()

 

Dim A As Integer

Dim B As Integer

Dim C As Integer

 

A = Text1.Text

B = Text2.Text

C = Text3.Text

 

If A > B Then

Max = A

Else: Max = B

End If

  IfC > Max Then

 Print C

 Else: Print Max

 EndIf