![[填空题] 以下程序的功能是：先将随机产生的10个不同的整数放入数组a中，再将这10个数按升序方式输出。请填空。 Private Sub Form_Click() Dim a(10)As Inte](http://www.mshxw.com/aiimages/31/253229.png "[填空题] 以下程序的功能是：先将随机产生的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
参考答案：
(10)num (11)i+1 (12)a(j)=temp问题解析:
本题中第一个Do循环的作用是为数组a进行赋初值操作，找到一个合适的num就将其赋值给a(i)，因此第10空为num；第二个二重循环用于将数组a排序，其中使用的是冒泡排序，外循环从1到9，然后在每一次外循环中依次比较后面的元素与当前元素的大小，若比当前的元素值小则二者交换，因此内循环的范围为i+1到10；两数可以使用中间变量t进行交换。
