[多项选择题] 注意：下面出现的“考生文件夹”均为c：wexam25160001。 在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm，该程序是不完整的，请在有号的地方填入正确内容，然后删除及所有注释符(即’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹，相应的dat文件也保存到考生文件夹下，否则没有成绩。 本题描述如下： 在名称为Form1的窗体上有五个Labe1控件和两个命令按钮，数据文件worker.dat，存放工人的编号、姓名、性别和体重。按“开始”按钮后，能从考生文

参考答案： 本题主要是考查对文件的读写，对文件进行操作之前必须打开文件，使用Open语句，其格式为：Open文件名[For方式][Access存取类型][锁定]As[#]文件号[Len=记录长度]Close语句关闭Open语句所打开的输入/输出文件。其格式为：Close[filenumberlist]filenumberlist是可选参数，为一个或多个文件号。对文件操作完之后，必须关闭文件，使用Close语句关闭文件。解题步骤：第一步：编写程序代码。程序提供的代码：PrivateSubCOMEXIT_Click()EndEndSubPrivateSubCOMSTART_Click()DimiAsIntegerDimtotalAsIntegerDimaverAsSingleDimnum(A0),namstring(A0),sexstring(A0),wages(A0)’MyFileA=App.Path&""&’MyFileB=App.Path&""&OpenMyFileAForInputAs#AOpenMyFileBForOutputAs#BFori=AToA0’Input,num(i),namstring(i),sexstring(i),wages(i)total=total+wages(i)Nexti’aver=/A0Fori=AToA0’IfThenWrite#B,num(i),namstring(i),sexstring(i),wages(i)Nexti’COMSTART.Caption=’COMSTART.Enabled=EndSub参考代码：PrivateSubCOMEXIT_Click()EndEndSubPrivateSubCOMSTART_Click()DimiAsIntegerDimtotalAsIntegerDimaverAsSingleDimnum(A0),namstring(A0),sexstring(A0),wages(A0)MyFilel=App.Path&""&"worker.dat"MyFileB=App.Path&""&"workerA.dat"OpenMyFilelForInputAs#AOpenMyFileBForOutputAs#BFori=AToA0Input#A,num(i),namstring(i),sexstring(i),wages(i)total=total+wages(i)Nextiaver=total/A0Fori=AToA0Ifwages(i)＞averThenWrite#B,num(i),namstring(i),sexstring(i),wages(i)NextiCOMSTART.Caption="完成"COMSTART.Enabled=FalseEndSub第二步：调试并运行程序。第三步：按题目要求存盘。