我想把产生的一组随机数写入text文本,可是我这么写只能写入最后一个数,如果要写入一组数应该怎么写啊(每写一个数就转下一行再写)
Private Sub Command1_Click()
Command1.Visible = False
Randomize Timer
While j < 10
q = Int(Rnd(1) * 369 + 1)
Label1.Caption = q: DoEvents
If n(q) = 0 And bStop = True Then
Open "c:\vb.txt" For Output As #1
Print #1, q
Close #1
n(q) = 1
j = j + 1
bStop = False
End If
Wend
End Sub
Private Sub Command1_Click()
Command1.Visible = False
Randomize Timer
While j < 10
q = Int(Rnd(1) * 369 + 1)
Label1.Caption = q: DoEvents
If n(q) = 0 And bStop = True Then
Open "c:\vb.txt" For Output As #1
Print #1, q
Close #1
n(q) = 1
j = j + 1
bStop = False
End If
Wend
End Sub
Private Sub Command1_Click()
Command1.Visible = False
Randomize Timer
Open "c:\vb.txt" For Output As #1
While j < 10
q = Int(Rnd(1) * 369 + 1)
Label1.Caption = q: DoEvents
If n(q) = 0 And bStop = True Then
Print #1, q
n(q) = 1
j = j + 1
bStop = False
End If
Wend
Close #1
End Sub
Dim str As String
Command1.Visible = False
Randomize Timer
str = ""
Open "c:\vb.txt" For Output As #1
While j < 10
q = Int(Rnd(1) * 369 + 1)
Label1.Caption = q: DoEvents
If n(q) = 0 And bStop = True Then
str = str & q & Chr(13) & Chr(10)
n(q) = 1
j = j + 1
bStop = False
End If
Wend
If str <> "" Then
Print #1, str
End If
Close #1
End Sub