6在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm，该程序是不完整的，请在有"?"的地方填入正确内容，然后删除"?"及代码前的所有注释符(即'号)，但不能修改其他部分。存盘时不得改变文件名和文件夹，相应的dat文件也保存到考生文件夹下，否则没有成绩。

　　本题描述如下：

　　在名称为Form1的窗体上有一Label控件和两个命令按钮，数据文件in5.dat存放了一些成绩。按 "开始"按钮后，从考生文件夹下的in5.dat中读出数据并求出它们的总分和平均分，将结果写入考生文件夹下的out5.dat文件中;程序运行界面如图46-5所示。执行完毕，"开始"按钮变成"完成"，且无效(变灰)。

　　图46-5

　　参考解析：

　　命令按钮的标题由Caption属性来设置，单击命令按钮触发Click事件;执行完毕，“开始”按钮变成“完成”，且无效(变灰) ;Open "in5.dat" For Input As #1以只读方式打开文件，读出数据;程序中用到的Input读文件的格式为：Input #文件号，变量列表，在将数据写入文件时，要使用Write # 语句而不是使用Print #语句，因为Write #语句能够将各个数据项正确的区分开。

　　根据题意，将一个标签和两个命令按钮添加到窗体中，标签的Caption属性为“从考生文件夹下的in5.dat中读出数据并求出它们的总分和平均分，将结果写入考生文件夹下的out5.dat文件中”，命令按钮的名称分别为Command1和Command2、Caption属性分别为“开始”和”关闭”。双击Command1进入代码编写窗口，利用EOF来判断是否读完数据，利用计数记录读取数据的个数，补充后的具体代码如下：

　　Private Sub Command1_Click() '开始命令

　　Dim total As Long

　　Dim temp As Integer

　　Dim str As String

　　Dim num As Integer

　　total = 0

　　num = 0

　　Open App.Path&"\in5.dat" For Input As #1 '打开文件进行读取

　　While EOF(1) = False '如果没读到文件尾继续读取

　　Input #1, str

　　temp = Val(str) '将读到的字符串转换成数值

　　total = total + temp '进行累加

　　num = num + 1 '计数加1

　　Wend

　　Close #1

　　Open App.Path&"\out5.dat" For Output As #2 '打开文件，进行写入

　　Writ e #2, "总和是"

　　Write #2, total '写入总和

　　Write #2, "平均值是"

　　Write #2, total \ num '写入平均值

　　Command1.Enabled = False '计算完成后Command1不可用

　　Command1.Caption = "完成" 'Command1的名称变为完成

　　End Sub

　　Private Sub Command2_Click() '关闭命令

　　Unload Me

　　End Sub

　　单击按钮运行程序，并按要求保存。

　　相关推荐：

　　2015年9月计算机等级考试考场拿高分技巧

　　2015年计算机二级考试《VB》考前练习题汇总

　　2015年计算机二级考试《VB》考前预测试卷汇总

　　2015年9月计算机等级考试各科目考前必做试题