VB之比较三个数的大小

``

代码实现

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

`