作业帮 > 综合 > 作业

输入三个整数a,b,c设计一个算法使得输入的三个整数按从小到大的次序分别存放在变量a,b,c中.

来源:学生作业帮 编辑:灵鹊做题网作业帮 分类:综合作业 时间:2024/04/28 09:02:32
输入三个整数a,b,c设计一个算法使得输入的三个整数按从小到大的次序分别存放在变量a,b,c中.
要求:运行时单击窗体按序弹出三个inputbox输入框,计算后直接在窗体上打印出a,b,c三个变量的值
输入三个整数a,b,c设计一个算法使得输入的三个整数按从小到大的次序分别存放在变量a,b,c中.
Sub test()
Dim arr(1 To 3) As Integer
Dim i As Integer
Dim a As Integer,b As Integer,c As Integer
Dim x As String
For i = 1 To 3
arr(i) = InputBox("请输入第 " & i & " 个值:")
Next i
a = Application.WorksheetFunction.Small(arr,1)
b = Application.WorksheetFunction.Small(arr,2)
c = Application.WorksheetFunction.Small(arr,3)
x = "a=" & a & vbCrLf & "b=" & b & vbCrLf & "c=" & c
MsgBox x
End Su