[填空題] 以下程序的功能是：先將隨機(jī)產(chǎn)生的10個(gè)不同的整數(shù)放入數(shù)組a中，再將這10個(gè)數(shù)按升序方式輸出。請?zhí)羁铡?/p>

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 ’檢查新產(chǎn)生的隨機(jī)數(shù)是否與以前的相同，相同的無效

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

本題中第一個(gè)Do循環(huán)的作用是為數(shù)組a進(jìn)行賦初值操作，找到一個(gè)合適的num就將其賦值給a(i)，因此第10空為num；第二個(gè)二重循環(huán)用于將數(shù)組a排序，其中使用的是冒泡排序，外循環(huán)從1到9，然后在每一次外循環(huán)中依次比較后面的元素與當(dāng)前元素的大小，若比當(dāng)前的元素值小則二者交換，因此內(nèi)循環(huán)的范圍為i+1到10；兩數(shù)可以使用中間變量t進(jìn)行交換。