发布网友 发布时间:2022-05-27 09:54
共1个回答
热心网友 时间:2023-10-15 21:46
Private Sub Command1_Click()
a = Val(InputBox("A="))
b = Val(InputBox("B="))
c = Val(InputBox("C="))
Print "A="; a
Print "B="; b
Print "C="; c
d = IIf(a > b, IIf(a > c, a, c), IIf(b > c, b, c))
e = IIf(a < b, IIf(a < c, a, c), IIf(b < c, b, c))
f = a + b + c - d - e
Print "最大值="; d
Print "最小值="; e
Print "从大到小排列:"; d; f; e
End Sub