vb中保存列表框的内容为一个txt文件

Private Sub Command1_Click()
Dim i%, a$
For i = 0 To List1.ListCount - 1
a = a & List1.List(i) & vbCrLf
Next

Open "c:\list.txt" For Output As #1
Print #1, a
Close #1
End Sub

Private Sub Command1_Click()
Dim I As Integer

Open "c:\1.txt" For Output As #1
For I = 1 To List1.ListCount
Print #1, List1.List(I)
Next I
Close #1
End Sub

正确