vb程序设计中插入排序

发布网友发布时间：2022-05-12 02:37

共1个回答

热心网友时间：2023-11-04 09:19

Private Sub form_click()
Randomize
Dim tmp As Integer
Dim a(1 To 10) As Integer

'开始随机生成10个数
For i = 1 To 10
a(i) = Int(Rnd * 99)
Next i

'开始插入排序
For i = 2 To 10
If a(i) > a(i - 1) Then
tmp = a(i)
For j = i - 1 To 1 Step -1
If tmp < a(j) Then Exit For
a(j + 1) = a(j)
Next j
a(j + 1) = tmp
End If
Next i

Print "排序结果："
For i = 1 To 10
Print a(i);
Next i
Print
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com