求助，在vb的Text中随机输出1000行3个数

来源：百度知道 编辑：UC知道 时间：2024/05/24 08:53:36
在vb的Text中随机输出1000行3个数，这3个数是1-12的随机数，每行可以重复
例如：1 4 3
5 7 9
12 8 4
6 3 7
3 7 7
。。。
感谢各位指教

dim i as integer,R as string,k as integer,j as integer
for i =1 to 1000
for j=1 to 3
randomize
k=int(rnd()*12+1)
r=r+str(k)
next j
r=r+chr(13)+chr(10)
next i
text1.text=r

Private Sub Form_Click()
Dim I as Integer,J as Integer ,S as String
Randomize
For i = 1 To 1000
For j = 1 To 3
s = s & Int(Rnd * 12) + 1 & IIf(j < 3, " ", vbCrLf)
Next
Next
Text1.Text = s
End Sub