vb2010中，将一个一维数组存入一个txt文件，以；为分隔。

vb2010中，将一个一维数组存入一个txt文件，以；为分隔。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a() As Integer = {1, 0, 1}, s As String = ""
For i As Integer = 0 To a.Length - 1
s = s & CStr(a(i)) & ""
Next
FileOpen(1, "c:1234.txt", OpenMode.Output)
Print(1, s)
FileClose(1)
MsgBox("ok")

End Sub