2. 计算机
  3. 注意：下面出现的“考生文件夹”均为c：\wexam\25160001。 在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即’号)，但不能修改其他部分。存盘时不

注意：下面出现的“考生文件夹”均为c：\wexam\25160001。 在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即’号)，但不能修改其他部分。存盘时不

admin2009-02-25  27
问题 注意：下面出现的“考生文件夹”均为c：\wexam\25160001。
   在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹，相应的dat文件也保存到考生文件夹下，否则没有成绩。
   本题描述如下：
   在名称为Form1的窗体上有五个Labe1控件和两个命令按钮，数据文件worker.dat，存放工人的编号、姓名、性别和体重。按“开始”按钮后，能从考生文件夹下的worker.dat中读出数据并把体重大于平均体重的工人的所有数据写入考生文件夹下的worker1.dat文件中；执行完毕，“开始”按钮变成“完成”，且无效。程序运行界面如图14-5所示。本题主要是考查对文件的读写，对文件进行操作之前必须打开文件，使用Open语句，其格式为：
   Open文件名[For 方式][Access 存取类型][锁定]As[#]文件号[Len=记录长度]
   Close语句关闭Open语句所打开的输入/输出文件。其格式为：
   Close[filenumberlist]
   filenumberlist是可选参数，为一个或多个文件号。
   对文件操作完之后，必须关闭文件，使用Close语句关闭文件。
选项
答案解题步骤： 第一步：编写程序代码。 程序提供的代码： Private Sub COMEXIT_Click() End End Sub Private Sub COMSTART_Click() Dim i As Integer Dim total As Integer Dim aver As Single Dim num(10) , namstring(10) , sexstring(10) , wages(10) ’MyFile1=App.Path & "\" & ’MyFile2=App.Path & "\" & Open MyFile1 For Input As #1 Open MyFile2 For Output As #2 For i=1 To 10 ’Input ?, num(i) , namstring(i) , sexstring(i) , wages(i) total=total+wages(i) Next i ’aver=?/10 For i=1 To 10 ’If ? Then Write #2, num(i) , namstring(i) , sexstring(i) , wages(i) Next i ’COMSTART.Caption=? ’COMSTART.Enabled=? End Sub 参考代码： Private Sub COMEXIT_Click() End End Sub Private Sub COMSTART_Click() Dim i As Integer Dim total As Integer Dim aver As Single Dim num(10) , namstring(10) , sexstring(10) , wages(10) MyFilel=App.Path & "\" & "worker.dat" MyFile2=App.Path & "\" & "worker1.dat" Open MyFilel For Input As #1 Open MyFile2 For Output As #2 For i=1 To 10 Input #1, num(i) , namstring(i) , sexstring(i) , wages(i) total=total+wages(i) Next i aver=total / 10 For i=1 To 10 If wages(i)＞aver Then Write #2, num(i) , namstring(i) , sexstring(i) , wages(i) Next i COMSTART.Caption="完成" COMSTART.Enabled=False End Sub 第二步：调试并运行程序。 第三步：按题目要求存盘。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/2Q1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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