首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm。在名为Forml的窗体上有5个Label控件和2个命令按钮,数据文件inl3.dat存放学生的编号、姓名、性别和体重,如图13—5所示。 程序运行后,按“Begin”按钮后,能从考生
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm。在名为Forml的窗体上有5个Label控件和2个命令按钮,数据文件inl3.dat存放学生的编号、姓名、性别和体重,如图13—5所示。 程序运行后,按“Begin”按钮后,能从考生
admin
2009-03-26
22
问题
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm。在名为Forml的窗体上有5个Label控件和2个命令按钮,数据文件inl3.dat存放学生的编号、姓名、性别和体重,如图13—5所示。
程序运行后,按“Begin”按钮后,能从考生文件夹下的inl3.dat中读出数据并把体重大于平均体重的学生的所有数据写入考生文件夹下的outl3.dat文件中。执行完毕,“Begin”按钮变成“完成”按钮,且无效。
注意:该程序不完整,请在有问号“?”的地方填入正确内容,然后删除问号“?”及所有注释符“’”,但不能修改其他部分。存盘时不得改变文件名和文件夹,相应的数据文件也保存到考生文件夹下,否则没有成绩。
选项
答案
根据题目 1.打开题目所给工程文件。 2.打开代码窗口输入如下代码: Private Sub Cmdl Click() Dim i As Integer Dim total As Integer Dim aver As Single Dim num(10),namstring(10),sexstring(10),wages(10) MyFile=App.Path&"\"&"inl3.dat" MyFile2=App.Path&"\"&"outl3.dat" Open MyFilel For Input As#1 Open MyFile2 For Output As#2 For i=1 To 10 Input#l,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 Cmdl.Caption="完成" Cmd1.Enabled=False End Sub 3.按要求保存文件即完成本题。
解析
转载请注明原文地址:https://kaotiyun.com/show/nN1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
关系数据库管理系统能实现的专门关系运算包括()。
线程的【】方法只会使具有与当前线程相同优先级的线程有运行的机会。
面向对象程序设计有许多特性,下列选项中用来尽可能隐蔽对象的内部细节的是()。
数据结构中,与所使用的计算机无关的是数据的()
下列程序的运行结果是______。ClassC14implementsRunnable{privateinti;publicC14(intn){this.i=n;
publicThrowable(Stringmessage)构造函数包含getMessage()方法,用来返回带参数构造函数创建异常时的【】,对无参数构造函数而言,用它返回的是空值。
Applet可以做下列哪些操作______。
算法具有五个特性,以下选项中不属于算法特性的是()。
关于变量的作用范围,下列说法错误的是()。
下列哪一个选项是short型数据的取值范围?
随机试题
患者,女,48岁,服用抗菌药物后,检查发现跟腱断裂,请药师确定可能的药物是
2020年1月1日,甲公司以银行存款1100万元(含已到付息期但尚未支付的利息50万元)购入乙公司债券,另支付交易费用5万元。该债券面值为1000万元,票面年利率为5%,每年1月3日付息,实际年利率为3.2%。甲公司根据其管理该债券的业务模式和该债券的合同
某公司利用长期债券、优先股、普通股、留存收益来筹集长期资金1000万元,以上各项筹资额分别为500万元、300万元、150万元、50万元,资金成本率分别为5%、10%、15%、20%。则该项投资组合的综合资金成本率为( )。
个体发展心理学将人的一生划分为如下几个阶段:()。
Thenationaltabletennisteam______hardtowinhonorforChinatheseyears.
SQL语言中,能正确实现级联删除的命令是
如果要在窗体上画一个标签,应在工具箱窗口中选择的图标是( )。
使用VC++2010打开考生文件夹下blank1中的解决方案。此解决方案的项目中包含一个源程序文件blank1.c。在此程序中,函数fun的功能是:将参数给定的字符串、整数、浮点数写到文本文件中,再用字符串方式从此文本文件中逐个读入,并调用库函数atoi和
______everythingmeanstoknownothing.
AlanGreenspan:theMostPowerfulGuyWiththeAmerican’sMidtermElectionsover,andanewCommander-in-Chiefabouttostep
最新回复
(
0
)