（1）编写程序，利用随机函数产生并输出10个10～99之间的随机整数，再按升序输出这10个数。

已测试通过，看来是我的代码最短，而有效！！

Private Sub Command1_Click()

Cls
Dim a(10) As Integer
Dim b As Integer
For i = 1 To 10
a(i) = Int(Rnd * 90 + 10)
For j = 1 To i
If a(j) > a(i) Then
b = a(j)
a(j) = a(i)
a(i) = b
End If
Next j
Print a(i)
Next i

End Sub

Dim a(10) As Integer
Dim flg As Boolean
Private Sub Command1_Click()
Randomize
For i = 0 To 9
a(i) = Int(90 * Rnd+10)
Next i
Print "产生的10个随机数如下:"
printarray 9
For i = 0 To 8
For j = i + 1 To 9
If a(j) < a(i) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next j
Next i
Print "20个随机数增序排列如下:"
printarray 9
End Sub

Public Sub printarray(ByVal n As Integer)
For i = 0 To n
Print a(i);
Next i
Prin