(8)以下程序的功能是:先将随机产生的10个不同的整数放入数组a中 再将这10个数按升序方式输出。请

（8）以下程序的功能是：先将随机产生的10个不同的整数放入数组a中，再将这10个数按升序方式输出。请填空。

Private Sub Form_Click()

Dim a(10) As Integer, i As Integer

Randomize

i=0

Do

num＝Int(Rnd*90)＋10

For j=1To i " 检查新产生的随机数是否与以前的相同，相同的无效

If num=a(j)Then

Exit For

End If

Next j

If j＞i Then

i=i＋1

a(i)＝【10】

End If

Loop While i＜10

For i＝1 To 9

For j＝【11】To 10

If a(1)＞a(j）Then temp＝a(i)：a(i) = a(j）：【12】

Next j

Next i

For i＝1To10

Print a(i)

Next i

End Sub