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

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