问题 填空题

窗体上有一个命令按钮,数据文件data.txt的内容如下: "语文" "2001", 87 "数学" "2002", 75 "英语" "2003", 92 "体育" "2004", 66Type bs aa As String * 2 bb As String * 4 cc As IntegerEnd TypePrivate Sub command1_Click( Dim xs As bs Dim fl As Integer fl = FreeFile Open "d:\data.txt" For Input As #fl Do While Not EOF(fl) Input #fl, xs. aa, xs .bb, xs.cc List1.AddItem xs.bb List1.AddItem xs.aa List1.AddItem xs.cc Loop Print EOF(fl) Close End Sub 问:在列表框中第一行、第三行、第四行的内容是 【12】 【13】 【14】 。窗体上打印出的是 【15】

答案

参考答案:[12]2001

解析:[13]87 [14]2002 [15]True

[分析]: 当文件指针指向文件的结尾,EOF函数返回True。

单项选择题 配伍题
问答题 简答题