【正确答案】正确答案：本题重点考查顺序文件的打开和读写操作，Do While循环的用法。 打开顺序文件的基本格式为：Open FileName For Mode As#FileNumber。FileNarne表示要打开的文件的路径；Mode为打开模式，OutPut用于输出、Append用于追加写入、Input用于读取；FileNumber为打开文件时指定的句柄。Input#语句用于读取顺序文件中一项(或多项)数据给一个变量(或多个变量)。EOF(文件号)用于判断是否已到文件结尾。 根据题意，将两个标签、两个文本框控件和两个命令按钮添加到窗体中，标签的Caption属性分别为“总人数”和“平均分”，文本框的名称分别为Textl和Text2、Text属性都为空，命令按钮的名称分别为Commandl和Command2、Captions属性分别为“读取数据”和“计数平均分”。双击Commandl进入代码窗口，编写如下代码： Dim num As Integer Dim arr()As Integer Private Sub Commandl_Click() Dim a As Integer num=0 Open"App．Pathl&＼in5．txt"For! Input As #1 '第一次读取个数以便分配数组 While EOF(1)=False '在读到文件尾前一直读取 Input#1，a num=num+1 '计数 Wend Close#1 '关闭文件 ReDim arr(num)As Integer'重新分配数组控件 Open"App．Path&＼in5．txt"For Input As#1 '打开文件准备读取 For i=1 To hum Input#1，arr(i)'利用For循环读取 Next i Close#1 Textl． Text =hum'在Textl中显示个数 Commandl． Enabled =False'Commandl变为不可用 Commandl． Caption ="读取完成" 'Commandl的Caption属性变为"读取完成" End Sub Privat e Sub Command2 Click() Dim total As Long total=0 Dim i As Integer For i=1 To num total=total+arr(i) '求数组中所有数的和 Next i total=total＼ num '求平均值 Text2． Text =total'在Text2中显示平均值 Open"App．Path&＼out5．txt"For Output As#1 Print#1，Text2．Text Close#1 End Sub 单击