VB编程:从键盘输入三个数,求其中最大数和最小数

Private Sub Form_Load()
Dim a As Integer, b As Integer, c As Integer, Max As Integer, Min As Integer
a = InputBox("请输入a值")
b = InputBox("请输入b值")
c = InputBox("请输入c值")

If a > b Then
Max = a
Min = b
Else
Max = b
Min = a
End If

If Max > c Then '确定最大值
Max = Max
Else
Max = c
End If

If Min < c Then '确定最小值
Min = Min
Else
Min = c
End If

Print "Max=" & Max
Print "Min=" & Min

End Sub

’算法比较愚蠢 等待更好的
’要求用IF then else,inputbox 语句 这个限制比较狠
Private Sub Command1_Click()
On Error Resume Next
Dim A As Integer, B As Integer, C As Integer
Dim Min As Integer, Max As Integer
A = Int(InputBox(1, "请输入第一个数字"))
B = Int(InputBox(1, "请输入第二个数字"))
C = Int(InputBox(1, "请输入第三个数字"))
If A - B >= 0 Then '假设A>B