Question

vb 求大神解释，代码看不懂

Dim xingming(100) As String
Dim bumen(30) As String
Dim dianhua(30) As String
Dim shouji(120) As String
Private Sub Command1_Click()
Dim fileno As Integer

fileno = FreeFile
Open App.Path & "/a.txt" For Input As #fileno
List1.AddItem "姓名" & " " & "部门" & " " & "部门电话" & " " & "手机"
List1.AddItem "----------------------------------"

i = 2
Do While Not EOF(fileno)
Input #fileno, xingming(i), bumen(i), dianhua(i), shouji(i)
List1.AddItem xingming(i) & " " & bumen(i) & " " & dianhua(i) & " " & shouji(i)

i = i + 1
Loop
Close #fileno

End Sub

Answer 1

数组定义就不多说了
fileno = FreeFile，是得到一个“自由”的文件号，就是没有其他文件用的文件号，避免冲突。
App.Path 表示应用程序的路径。
程序的功能就是从a.txt读取数据。然后放到List1里面。

追问

Do While Not EOF(fileno)

什么意思？

追答

EOF(文件号) 当文件到达文件尾时，返回true，否则返回false
意思就是一直执行循环内的语句，一直到读取文件到文件尾。因为循环语句中回改变当前的记录号，所以会到达文件尾的。一般用这种方式来配合读取文件。

Answer 2

从TXT里把文件用do while 方式读出来显示到list控件中.
So easy