杭州交通信息网wps所有的宏都被禁用:SOS！VB，冒泡法！
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/12 00:47:48
从键盘上输入10个整数，用冒泡法给10个数从小到大排序。
写出程序代码
尽快尽快！谢谢！
写出程序代码
尽快尽快！谢谢！
Dim a As String
Dim arr(1 To 10) As Integer
Dim i, j, t As Integer
Private Sub Command1_Click()
For i = 1 To 10
a = InputBox("请输入第" & i & "个值")
arr(i) = Val(a)
Next i
For i = 1 To 9
For j = 1 To 9
If arr(j) > arr(j + 1) Then
t = arr(j + 1): arr(j + 1) = arr(j): arr(j) = t
End If
Next j
Next i
For i = 1 To 10
Print arr(i)
Next i
End Sub