VB之比较三个数的大小

Ghost~

已于 2022-02-11 22:41:28 修改

阅读量2.4k

点赞数 1

分类专栏：笔记文章标签： vb6

于 2022-01-09 20:43:07 首次发布

本文链接：https://blog.csdn.net/weixin_45607215/article/details/122395634

版权

笔记专栏收录该内容

9 篇文章 0 订阅

订阅专栏

代码实现

Private Sub Command1_Click()
Dim a, b, c As Integer
a = Val(Text1.Text) '把文本框1的值赋给a
   b = Val(Text2.Text) '把文本框1的值赋给b
   c = Val(Text3.Text) ' 把文本框1的值赋给c
If a < b Then '如果b大于a的话
Max = b    '则把b当做最大值
Else
Max = a  '否则就把a当做最大值
End If
If c > Max Then  '因为a和b比过一次，接下来拿a和c比
Max = c  '如果c比前面的数大，则把c当做最大值赋给max
Print Max  '输出最大数
End If
end sub