比较三个数的大小
来源:互联网 发布:怎样查看淘宝店铺等级 编辑:程序博客网 时间: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