填空题 窗体上有一个命令按钮,数据文件data.txt的内容如下: "语文" "2001", 87 "数学" "2002", 75 "英语" "2003", 92 "体育" "2004", 66 Type bs aa As String * 2 bb As String * 4 cc As Integer End Type Private 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 问:在列表框中第一行、第三行、第四行的内容是{{U}} 【12】 {{/U}}、{{U}} 【13】 {{/U}}、{{U}} 【14】 {{/U}}。窗体上打印出的是{{U}} 【15】 {{/U}}。
  • 1、
【正确答案】 1、[12]2001    
【答案解析】[13]87 [14]2002 [15]True [分析] 当文件指针指向文件的结尾,EOF函数返回True。