VB编程，帮忙

来源：百度知道 编辑：UC知道 时间：2024/05/21 17:12:57
从键盘输入3个数然后按从小到大的顺序输出。试编写完成此项功能的程序段。
要求：单击标题为“输入”的按钮，利用inputbox函数输入，结果显示在窗体上
怎么编写代码

Dim num(1 To 3) As Integer
Dim change As Integer

For i = 1 To 3
num(i) = InputBox("请输入第" & i + 1 & "个数", "数据输入：")
Next
For i = 2 To 0 Step -1

For j = 1 To i
If num(j) > num(j + 1) Then
change = num(j)
num(j) = num(j + 1)
num(j + 1) = change
End If
Next j
Next i

Print "按照从小到大的顺序输出为："
For k = 1 To 3
Print num(k)
Next

比较大小，然后输出…… 冒泡排序法。。

呵呵