Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
Dim max As Integer, min As Integer
a = Val(InputBox("输入第1个整数", "Input"))
b = Val(InputBox("输入第2个整数", "Input"))
c = Val(InputBox("输入第3个整数", "Input"))
max = a
If b > max Then max = b
If c > max Then max = c
min = a
If b < min Then min = b
If c < min Then min = c
Print max, a + b + c - max - min, min
End Sub
温馨提示:答案为网友推荐,仅供参考