Private Sub Form_Click()
Randomize
For i = 0 To 11
Temp = Int(Rnd() * 12 + 1)
Flag = False
For j = 0 To i - 1
If Temp = a(j) Then
i = i - 1
Flag = True
Exit For
End If
Next j
If Flag = False Then
a(i) = Temp
If i = 11 Then
Print a(i) & Chr(13) & Chr(10)
Else
Print a(i);
End If
End If
Next i
End SubI

我用的是vb6.0

建立文本框空间数组 for i=0 to 11输出到text(i).text

各位大哥，帮帮忙啊

在窗体上添加文本框text1，把text1的index属性设置为0
复制粘贴得控件数组text1(0)---text1(11)
If i = 11 Then
text1(i).text= cstr(a(i))
Else
text1(i).text=cstr( a(i) )& vbcrlf
End If