vb编程！！请高手帮帮忙~~

Question

4、用随机函数产生50个10~100之间的互不相同的整数，存于一数组中，并 以升序每行10个数显示在窗体上。

Answer 1

Option Base 1

Private Sub Form_Click()
Dim a(50) As Integer, i As Integer, j As Integer, temp As Integer
For i = 1 To 50 '产生50个10~100之间的互不相同的整数
Randomize
a(i) = Int(Rnd * 91 + 10)
For j = 1 To i - 1
If a(i) = a(j) Then i = i - 1
Next j
Next i

For i = 1 To 50 '以升序排列
For j = i + 1 To 50
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 50 '每行10个数显示
If i Mod 10 = 0 Then
Print
Else
Print a(i);
End If
Next i

End Sub

Answer 2

怎么现在都是一个问题n个人问，哈
看看这里
http://zhidao.baidu.com/question/50207025.html