首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。存盘时不
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。存盘时不
admin
2009-02-25
16
问题
注意:下面出现的“考生文件夹”均为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://kaotiyun.com/show/2Q1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面不属于软件设计原则的是
下面的表达式中正确的是()
Java语言的循环语句包括for语句、do-while语句和do-while语句,先循环后判断,循环至少被执行一次的是 【】 。
下面程序的正确输出是()。publicclassHello{publicstaticvoidmain(Stringargs[]){intcount,xPos=25;
2.【】的任务是诊断和改正程序中的错误。
在下列关系运算中,不改变关系表中的属性个数但能减少元组个数的是
下列选项中,列出用于定义类成员的访问控制权的一组保留字是()
用HTML文件显示APPLET时,下面属于必不可少的属性的是()
随机试题
五色主病中,青色主病为
十二指肠球部溃疡的胃酸表现为
旋转阳极Χ线管与固定阳极Χ线管比较,其优点是
背景资料:某高速公路,路面为沥青混凝土路面,基层为水泥稳定土基层,施工单位在基层施工过程中,出现以下情况:(1)由于本工程的路面属高级路面,所以采用水泥稳定细粒土做该路面的基层。(2)在选择水泥时,施工单位选择了终凝时间较短的水泥。(3)该工程采用
甲社是郑州一家具有出境旅游业务经营权的旅行社,在开封市和洛阳市各设立了一家经营出境旅游业务的分社。甲社应存人的质量保证金总额是()
直观行动思维的工具是()
全心全意为人民服务,是公安机关性质的必然要求的原因有()。
毕淑敏的《精神的三间小屋》中写道:“当我们把自己的精神小屋建筑得美观结实、储物丰富之后,不妨扩大疆域。增修新舍。矗立我们的精神大厦。开拓我们的精神旷野。因为.精神的宇宙,是如此的辽阔啊!”请你以“精神富足”为题做一个演讲。
共和行政
Mr.Stevensonwastheownerofageneralappliancestore.Hehadseenmanynewly-wedscomingintohisstoretoshopfortheirfi
最新回复
(
0
)