以下程序的功能是：先将随机产生的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=1 To i 检查新产生的随机数是否与以前的相同，相同的无效

If num=a(j)Then

Exit For

End If

Nextj

Ifj>i Then

i=i+1

a(i)=

End If

Loop Whilei<10

For i=1 To 9

For j= To 10

If a(i)>a(j)Then temp=a(i)：a(i)一a(j)：

Nextj

Next i

For i=1 To 10

Print a(i)

Next i

End Sub