[填空题] 以下程序的功能是：先将随机产生的10个不同的整数放入数组a中，再将这10个数按升序方式输出。请填空。 Private Sub Form_Click() Dim a(10)As Inte

[填空题] 以下程序的功能是：先将随机产生的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