1．随机产生30个两位正整数,将其中互不相同的数存入数组a中,按从小到大的顺序排序并在窗体中每行5个输出,最后输出互不相同数的个数.把程序补充完整.PrivateSubFormClick()Dima(30)AsInteger,iA

Question

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

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 = Int((90 * Rnd) + 10):Randomize
For j = 1 To count
If a(j) = x Then Exit For
Next j
If j > count Then
count = count + 1
a(count) = x
End If
Next i
For i = 1 To count - 1
For j = i To count
If a(i) > a(j) Then
temp = a(i)
a(i) = a(j)
a(j) = temp
End If
Next j
Next i
For i = 1 To count
Print a(i);
If i Mod 5 = 0 Then Print
Next i
Print
End Sub