求解VB程序设计题随机产生100个完全无序的正整数（范围为1-100），将它们每5个一行整齐地输出在显示器上，然后采用任意一种排序的算法将它们按照从小到大的顺序排序后，再次每5个一行

Question

求解VB程序设计题
随机产生100个完全无序的正整数（范围为1-100），将它们每5个一行整齐地输出在显示器上，然后采用任意一种排序的算法将它们按照从小到大的顺序排序后，再次每5个一行整齐地输出在显示器上。
（1） 写出描述解决这问题的算法步骤。
（2） 画出解决该问题的流程图。
（3） 写出解决该问题的程序代码

Answer 1

Private Sub Form_Click()
Cls
Dim a(100) As Integer
'以下产生100个正整数
Randomize
For i = 1 To 100
a(i) = Int(Rnd() * 100 + 1)
Print a(i) & vbTab;
If i Mod 5 = 0 Then Print
Next
'排序
For i = 1 To 99
For j = i + 1 To 100
If a(i) > a(j) Then tmp = a(i): a(i) = a(j): a(j) = tmp
Next
Next
'输出数据
Print "排序后的结果"
For i = 1 To 100
Print a(i) & vbTab;
If i Mod 5 = 0 Then Print
Next
End Sub