Question

解释几句VB的语句 Do While Not EOF(1)

Private Sub Form_Load() '读排行榜文件并显示
Dim l As Integer
Dim tt(0 To 2) As Integer

Open App.Path & "\Record.txt" For Input As #1
l = -1
Do While Not EOF(1)
l = l + 1
Input #1, tt(l)
Loop
Close #1

Label3(0).Caption = tt(0)
Label3(1).Caption = tt(1)
Label3(2).Caption = tt(2)
End Sub

Answer 1

循环逐行读取和程序同一个目录下的Record.txt文件，并把每一行的内容依次赋值给tt(0)、tt(1)、tt(2)三个变量。

EOF(1) 指文件结尾，Do While Not EOF(1) 就是【如果不是文件结尾，那么一直循环】

然后把tt(0)、tt(1)、tt(2)依次在Label3(0)、Label3(1)、Label3(2)这三个控件上显示出来。