Question

使用inputbox函数输入数据a,b和c三个整数,并用msgbox输出这三个数的最小值

Answer 1

Sub test()
Dim s$, a, min&
s = InputBox("请依次输入a,b和c三个整数，空格隔开")
a = Split(s)
min = a(0)
If min > a(1) Then min = a(1)
If min > a(2) Then min = a(2)
MsgBox "a,b和c三个整数" & s & "中，最小值为" & min
End Sub

Answer 2

Private Sub Form_Click() '点击窗体运行程序MsgBox "两个数的和为" & (Val(InputBox("请输入第一个数")) + Val(InputBox("请输入第二个数")))End Sub

Answer 3

Private Sub Command1_Click()

a = CInt(InputBox("请输入一个整数:"))

b = CInt(InputBox("请输入第二个整数:"))

c = CInt(InputBox("请输入第三个整数:"))

If b > a Then a = b

If c > a Then a = c

MsgBox ("最大值=" & a)

End Sub

Answer 4

Private Sub Form_Click()
Dim a As Single, b As Single, c As Single, z As Single
a = InputBox("输入a的值", "")
b = InputBox("输入b的值", "")
c = InputBox("输入c的值", "")
If a < b Then z = a: b = a: b = z '先把这个较小值给z,把a的值给b,然后把较小值z传递给b,保证a最后存储大的数,b存储较小数
If a < c Then z = a: c = a: c = z '同理,先把这个较小值给z,把c的值给b,然后把较小值z传递给c,保证a最后存储大的数,z存储较小数
If b < c Then z = b: b = c: c = z '再处理b和c,保证b存较大数,c存较小数
Print a; b; c '最后a,b,c就是从大到小排列
End Sub