您的位置:首页 > 其它

实现三个数的大小比较,并输出最大值

2012-04-25 22:38 337 查看
Print   sub   Command1   Click()

Dim   a   As    Integer

Dim   b   As    Integer

Dim   c  As    Integer

Dim   max   As   String

a=22

b=34

c=67

If   a>b   Then

max=   a

Else

max=   b

End   If

If   c>max    Then

max=c

End   If

Print   Str(max)

End   Sub
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签:  command c