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

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

admin2009-03-26  29
问题 在考生文件夹下有工程文件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://kaotiyun.com/show/3V1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)