在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的。在名称为Forml的窗体上有一Label控件和两个命令按钮,数据文件in5.dat存放了一些成绩。按“开始”按钮后,从考生文件夹下的in5.dat中读出数据并求出它们的总分和

admin2009-03-26  31

问题 在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的。在名称为Forml的窗体上有一Label控件和两个命令按钮,数据文件in5.dat存放了一些成绩。按“开始”按钮后,从考生文件夹下的in5.dat中读出数据并求出它们的总分和平均分,将结果写入考生文件夹下的out5.dat文件中;执行完毕,“开始”按钮变成“完成”,且无效(变灰)。如图10—5所示。

    注意:请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件名和文件夹,相应的dat文件也保存到考生文件夹下,否则没有成绩。

选项

答案 命令按钮的标题由Caption属性来设置,单击命令按钮触发Click事件;执行完毕。“开始”按钮变成“完成”,且无效(变灰);Open“in5.dat”For Input As#1以只读方式打开文件,读出数据;程序中用到的Input读文件的格式为:Input#文件号,变量列表,在将数据写入文件时,要使用Write#语句而不是使用Print#语句,因为Write#语句能够将各个数据项正确地区分开。 根据题意,将一个标签和两个命令按钮添加到窗体中,标签的Caption属性为“从考生文件夹下的in5.dat中读出数据并求出它们的总分和平均分,将结果写入考生文件夹下的out5.dat文件中”,命令按钮的名称分别为Commandl和Command2、Caption属性分别为“开始”和“关闭”。双击Commandl进入代码编写窗口,利用EOF来判断是否读完数据,利用计数记录读取数据的个数,补充后的具体代码如下: Private Sub Commandl_Click()’开始命令 Dim total AS Long Dim temp AS Integer Dim str As String Dim num As Integer tota1=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’打开文件,进行写入 Write#2,"总和是" Write#2,total’写入总和 Write#2,"平均值是" Write#2,total\num’写入平均值 Commandl.Enabled=False’计算完成后Commandl不可用 Commandl.Caption="完成" ’Commandl的名称变为完成 End Sub Private Sub Command2_Click() ’关闭命令 Unload Me End Sub 单击[*]按钮运行程序,并按要求保存。

解析
转载请注明原文地址:https://jikaoti.com/ti/DLq0FFFM
0

最新回复(0)