VB比较三个数的大小

来源:互联网 发布:mac怎么更改用户头像 编辑:程序博客网 时间:2024/04/30 15:15

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