文件写入问题

[fighter222]

我想把产生的一组随机数写入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

[jjfwenwenti]

put #1, , q

[白发程序猿]

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

[白发程序猿]

Private Sub Command1_Click()
    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

[白发程序猿]

用3楼那个

[fighter222]

谢谢乐,结贴