填空题 以下程序的功能是：先将随机产生的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
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(i)＞a(j)Then temp=a(i): a(i)=a(j): (12)
Next j
Next i
For i=1 To 10
Print a(i)
Next i
End Sub