作业帮 > 综合 > 作业

VB排序题.:随即产生10个2位数,按从大到小递减的顺序排列,并显示排序结果.急

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/30 17:26:41
VB排序题.:随即产生10个2位数,按从大到小递减的顺序排列,并显示排序结果.急
我是新生,
Private Sub form_click()
Randomize
Dim tmp As Integer
Dim a(1 To 10) As Integer
Print "排序前为:" '可删除
For i = 1 To 10 '开始随机生成10个数
a(i) = Int(Rnd * 89+10)
Print a(i); ‘可删除
Next i
Print ’可删除
'开始插入排序
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
这个程序将排序前随机的数也显示出来了,比较直观,若不需要删除即可(有可删除标注).