vb 数组排序后插入新数后再排序

来源：百度知道 编辑：UC知道 时间：2024/06/22 00:45:07
自动生成10个1－100之间的随机整数，并将这是个数存放在数组a（1 to 10）中，然后将这10个整数按从小到大的顺序输出 ，然后插入任意一个数后，使其仍然有序。
有两个按钮，单击第一个，生成一个排好序的数列。单击第二个，插入新数还按从小到大排，并生成。

Dim a(1 To 10) As Integer
Private Sub Command1_Click()
Print
For j = 10 To 1 Step -1
For i = 1 To 9
If a(i) < a(i + 1) Then
t = a(i + 1)
a(i + 1) = a(i)
a(i) = t
End If
Next
Print a(j);
Next
End Sub

Private Sub Command2_Click()
Randomize
Print
Dim b(1 To 11) As Integer
b(11) = Int(Rnd * 99 + 1)
For i = 1 To 10
b(i) = a(i)
Next
For i = 11 To 2 Step -1
If b(i) > b(i - 1) Then
t = b(i)
b(i) = b(i - 1)
b(i - 1) = t
Else
Exit For
End If
Next
For i = 11 To 1 Step -1
Print b(i);
Next
End Sub

Private Sub Form_Load()
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 99 + 1)
Print a(i);
Next
End Sub

这个我调试过了 可以用的