首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Forml的窗体画两个Label控件,名称分别为Labell和Label2,其中Labell中显示“总人数”,Label2中显示“平均分”,两个名称分别为Textl和Text2的文本框,再画两个命令按钮,名称分别为Commandl与Command2
在名称为Forml的窗体画两个Label控件,名称分别为Labell和Label2,其中Labell中显示“总人数”,Label2中显示“平均分”,两个名称分别为Textl和Text2的文本框,再画两个命令按钮,名称分别为Commandl与Command2
admin
2009-08-26
24
问题
在名称为Forml的窗体画两个Label控件,名称分别为Labell和Label2,其中Labell中显示“总人数”,Label2中显示“平均分”,两个名称分别为Textl和Text2的文本框,再画两个命令按钮,名称分别为Commandl与Command2,标题分别为“读取数据”与“计算平均分”,数据文件in5.txt存放成绩。要求程序运行后:单击“读取数据’’按钮后,从考生文件夹下的in5.txt中读出数据,并在标签Textl中显示人数;单击“计算平均分”则在Text2中显示平均分并将结果写入考生文件夹下out5.txt文件中;执行完毕,“读取数据”按钮变成“读取完成”,且无效(变灰),如图21—5所示。
注意:在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的,请在有“?”号的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件名和文件夹,程序编写完整后执行一次操作,将结果保存到考生文件夹下的out5.txt文件中,否则没有成绩。
选项
答案
本题重点考查顺序文件的打开和读写操作,Do While循环的用法。 打开顺序文件的基本格式为:Open FileName For Mode As#FileNumber。FileNarne表示要打开的文件的路径;Mode为打开模式,OutPut用于输出、Append用于追加写入、Input用于读取;FileNumber为打开文件时指定的句柄。Input#语句用于读取顺序文件中一项(或多项)数据给一个变量(或多个变量)。EOF(文件号)用于判断是否已到文件结尾。 根据题意,将两个标签、两个文本框控件和两个命令按钮添加到窗体中,标签的Caption属性分别为“总人数”和“平均分”,文本框的名称分别为Textl和Text2、Text属性都为空,命令按钮的名称分别为Commandl和Command2、Captions属性分别为“读取数据”和“计数平均分”。双击Commandl进入代码窗口,编写如下代码: Dim num As Integer Dim arr()As Integer Private Sub Commandl_Click() Dim a As Integer num=0 Open"App.Pathl&\in5.txt"For!
Input As #1
’第一次读取个数以便分配数组 While
EOF(1)=False
’在读到文件尾前一直读取 Input#1,a num=num+1 ’计数 Wend Close#1 ’关闭文件 ReDim arr(num)As Integer’重新分配数组控件 Open"App.Path&\in5.txt"For
Input As#1
’打开文件准备读取 For i=1 To hum Input#1,arr(i)’利用For循环读取 Next i Close#1 Textl.
Text
=hum’在Textl中显示个数 Commandl.
Enabled
=False’Commandl变为不可用 Commandl.
Caption
="读取完成" ’Commandl的Caption属性变为"读取完成" End Sub Privat e Sub Command2 Click() Dim total As Long total=0 Dim i As Integer For i=1 To num total=total+arr(i) ’求数组中所有数的和 Next i total=total\
num
’求平均值 Text2.
Text
=total’在Text2中显示平均值 Open"App.Path&\out5.txt"For Output As#1 Print#1,Text2.Text Close#1 End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/ec1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序的输出结果是()。PublicclassTest{Publicstaticvoidmain(String[]args){int[]array=(2,4,6,8,10);intsize=6;intres
下列叙述中正确的是()。
Java中对共享数据操作的并发控制采用传统的【】。
一个复杂的应用系统必然包括多个对象,这些对象间可能存在的关系有三种,它们是:包含、继承和【】。
调试方法中的【】最适合小规模程序的排错。
一个向量第1个元素的存储地址是100,每个元素的长度为2,则第5个元素的地址是()。
阅读下列代码publicclassTest{publicstaticvoidmain(Stringargs[]){Strings="Test";
数据库设计的四个阶段是:需求分析、概念设计、逻辑设计和()。
一个javaapplication源程序文件名为myjavaapplication.java,如果使用SUH公司的java开发工具jdk编译该源程序文件并使用其虚拟机运算这个程序的字节码文件,则应该首先执行的命令是:【】。
已知二叉树后序遍历序列是dabec,中序遍历序列是debac,它的前序遍历序列是()。
随机试题
Sheneedsmorefriendsofherown______.
环宇公司2004年底发行在外的普通股为500万股,当年营业收入15000万元,营业流动资产5000万元,息税前营业利润4000万元,资本支出2000万元,折旧与摊销1000万元。目前债务的市场价值为3000万元,资本结构中负债占20%,可以保持
(2018年)甲公司为一家投资控股型公司,拥有从事各种不同业务的子公司。(1)甲公司的子公司——乙公司是一家建筑承包商,从事办公楼设计和建造业务。2×18年2月1日,乙公司与戊公司签订办公楼建造合同,按照戊公司的特定要求在戊公司的土地上建造一栋办公楼
《福建省中小学教师职业道德考核办法(试行)》规定,中小学教师职业道德考核结果的等次分为()。
俗话说“不出十五就是年”,如今元宵节已过,广大“上班族”又回到了紧张的工作中。其中,很多人表示难以适应,总感觉“压力山大”,有些人为了逃避压力,甚至刚刚放完长假,又请假休短假。对此,有人认为,“与其逃避压力,不如对抗压力”。如果增强身体力量需要锻炼四肢肌肉
德国一家机构在英国债券市场上发行的以美元为面值的债券属于欧洲债券。()
意匠
现代国家的政体形式大多数是()(2010年非法学综合课单选第16题)
Iamverydisappointed()theresultsoftheexperiment.
GeographyTheNorthwestPassageListenagaintopartofthelecture.Thenanswerthequestion.Whatcanbeinferredaboutthe
最新回复
(
0
)