Question

用单行结构条件语句实现用inputbox输入三个数,选出其中的最大值和最小值,用消息框msgbox显示最大值和最小值

Answer 1

Private Sub Command1_Click()

a = CInt(InputBox("请输入第 1 个数："))

b = CInt(InputBox("请输入第 2 个数："))

c = CInt(InputBox("请输入第 3 个数："))

If a > b Then t = a:a = b:b = t

If a > c Then t = a:a = c:c = t

If b > c Then t = c:c = b:b = t

MsgBox "最大的数是：" & c & ",最小的数是：" & a

End Su