Question

VB程序填空题！！！ 说明：请在以下题中的__( 1 )__、…、__( 10 )__处填入适当的内容，将程序补充完整。

1．随机产生30个两位正整数，将其中互不相同的数存入数组a中，按从小到大的顺序排序并在窗体中每行5个输出，最后输出互不相同数的个数。把程序补充完整。
【程序】
Private Sub Form_Click()
Dim a(30) As Integer, i As Integer, j As Integer
Dim x As Integer, count As Integer, temp As Integer
count = 0
For i = 1 To 30
x = ______ ( 1 )______
For j = 1 To count
If a(j) = x Then Exit For
Next j
If j > count Then
______ ( 2 )______
a(count) = x
End If
Next i
For i = 1 To count - 1
For j = ______ ( 3 )______
If a(i) > a(j) Then
______ ( 4 )______
a(i) = a(j)
a(j) = temp
End If
Next j
______ (5 )______
For i = 1 To count
Print a(i);
If ______ (6 )______ Then Print
Next i
______ (7 )______
End Sub

Answer 1

可以用，只是你的无线USB连接器