填空题

窗体上有一个命令按钮,数据文件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 问:在列表框中第一行、第三行、第四行的内容是 【12】 【13】 【14】 。窗体上打印出的是 【15】

【参考答案】

[12]2001