请教VB编程题,急!!!!!!!!!1

来源：百度知道 编辑：UC知道 时间：2024/07/02 16:30:13
随机产生N个不重复的三位数,存放在数组a中,文本框中输入要随机产生的数据的个数,按回车键后,数据以每行4个的形式输出.

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Cls
Randomize
Dim a(900) As Integer
Dim b As Integer

b = Text1.Text

For i = 0 To b - 1
Dim ps
ps = 1
Do
a(i) = Int(Rnd * 10) + 900
For j = 0 To i
If a(i) = a(j) Then
ps = 0
Exit For
End If
Next j
Loop While ps = 0 And j < i
Next i

Do While k < b
k = k + 1
Print a(k - 1);
If k Mod 4 = 0 Then Print
Loop
End If
End Sub