首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的。在名称为Forml的窗体上有一Label控件和两个命令按钮,数据文件in5.dat存放了一些成绩。按“开始”按钮后,从考生文件夹下的in5.dat中读出数据并求出它们的总分和
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的。在名称为Forml的窗体上有一Label控件和两个命令按钮,数据文件in5.dat存放了一些成绩。按“开始”按钮后,从考生文件夹下的in5.dat中读出数据并求出它们的总分和
admin
2009-03-26
69
问题
在考生文件夹下有工程文件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全国计算机二级
相关试题推荐
在Applet中,创建一个具有16行40列的多行文本区域对象ta的语句为【】。
设x和y均为int型变量,则执行下面的循环后,y值为()。publicclassSun{publicstaticvoidmain(Stringargs[]){intx,y
在长度为n的有序线性表中进行二分查找,需要的比较次数为【】。
Java语言支持【】协议,从而使得Java程序在分布式环境中能够很方便地访问处于不同地点的对象。
下列关于栈的描述中错误的是()。
Applet的运行过程要经历4个步骤,其中______不是运行步骤。
在AWT包中,创建一个具有10行、45列的多行文本区域对象ta的语句为【】。
线程控制方法中,yield()的作用是()。
下面的程序是列出目录C:\Test中所有的.txt文件,请将程序补充完整。importjava.io.*;//引入java.io包中所有的类publicclassFileFilterTest{publicstati
char类型数据的取值范围是( )。
随机试题
已知4元线性方程组确定a的值,使方程组有解;
在32×32的点阵字库中,存储一个汉字字形码所需的字节数是()。
用九分法计算成人烧伤面积,下列错误的是
基底细胞液化常见于
工程咨询机构承担我国工程咨询行业()。
贷记卡持卡人选择最低还款额方式用卡的,不再享受免息还款期待遇。()(2008年)
国务院事故调查组2012年6月29日公布了2010年造成机上44人死亡、52人受伤的伊春“8.24”特别重大飞机坠毁事故调查报告。2010年8月24日21时38分,河南航空有限公司E190机型B3130号飞机执行哈尔滨至伊春VD8387定期客运航班任务时,
下图中各城市的大气最大降温高度(距地面高度),是连续三年中最强的15次冷空气影响的统计平均值。读图回答问题。形成图示趋势的主要影响因素是()。
StrategiesforPublicSpeakingWhat’sgreataboutpublicspeakingisthatit’salearnableskill.Assuch,wecanusethef
WebChat1.Participantsinchatsessions-Inthepast:【T1】______toAmericaOnline【T1】______-Now:hundredsofwebsitesprov
最新回复
(
0
)