比较三个数的大小

来源:互联网 发布:怎样查看淘宝店铺等级 编辑:程序博客网 时间:2024/04/29 22:19

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

原创粉丝点击