填空题

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