首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有工程文件sj5.vbp及其窗体文件sj5.frm,该程序是不完整的。在名称为Forml的窗体上有一个文本框,名称为Textl、MultiLine属性为True、ScrollBars属性为2;两个命令按钮,名称分别为Commandl和Comm
在考生文件夹中有工程文件sj5.vbp及其窗体文件sj5.frm,该程序是不完整的。在名称为Forml的窗体上有一个文本框,名称为Textl、MultiLine属性为True、ScrollBars属性为2;两个命令按钮,名称分别为Commandl和Comm
admin
2009-03-26
61
问题
在考生文件夹中有工程文件sj5.vbp及其窗体文件sj5.frm,该程序是不完整的。在名称为Forml的窗体上有一个文本框,名称为Textl、MultiLine属性为True、ScrollBars属性为2;两个命令按钮,名称分别为Commandl和Command2、标题分别为“读取”和“计算保存”,程序运行时的窗体界面如图28—5所示。要求程序运行后,如果单击“读取”按钮,则读入in.txt文件中的50个整数放人一个数组中(数组下界为1),同时在文本框中显示出来;如果单击“计算保存”按钮,则计算大于或等于500的所有数的平均数,并把求得的结果在文本框Textl中显示出来,同时把该结果存人考生文件夹中的文件out.txt中。(在考生文件夹下的标准模块mode.bas中的writedata过程可以把结果存入指定的文件。)
注意:请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。文件必须存放在考生文件夹下,窗体文件名为sj5.frm,工程文件名为sj5.vbp,计算结果存入out.txt文件,否则没有成绩。
选项
答案
文本框显示的内容由Text属性设置,Multiline属性设置文本框是否可多行显示;按钮的标题由Caption属性设置,单击命令按钮触发Click事件。题中涉及对文件的操作,读人顺序文件以顺序的方式打开,用Input#语句读取数据,另外需要注意的是对文件操作完后,一定要关闭文件。 根据题意要求将一个文本框控件和两个命令按钮,其中文本框的名称为Namel、MultiLine属性为True、滚动属性为2命令按钮的名称分别为Commandl和Command2、Caption的属性分别为“读取”和“计算保存”。在“工程”窗口中单击右键在弹出的快捷菜单中选择“添加”→“添加模块”,然后在弹出对话框的“现存”选项卡中选择“mode.bas”,单击“确定”按钮即添加成功。模块mode.bas中的代码如下: Function writeData(total As Long) Open App.Path&"\out.txt"For Output As#1 Write#1,total Close#1 End Function 窗体中补充后的代码如下: Dim a(50)As Long’全局变量 Dim str(50)As String’全局变量 Dim total As Long Dim n As Integer Private Sub Commandl Click() total=0 n=0 Textl.Text="" Open App.Path&"\in.txt"For
Input As#1
’打开"in.txt"文件 Dim i As Integer Dim temp As Integer For i=0 To 49 Input#1,temp a(i)=temp’按顺序读人到数组中 Next i For i=0 To 49 If
a(i)>=500
Then
total=total+a(i)
’当符合条件时进行相加 n=n+1 ’当符合条件是则n增l End If str(i)=a(i) Textl.
Text
=Textl.
Text
+str(i)+vbCrLf’将数组中的50个数放人Text中显示 Next i
total=total\n
Close#1 End Sub Private Sub Command2 Click() Textl.Text=total writeData(total)’将结果保存到out.txt End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/HV1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
利用E-R模型进行数据库的概念设计,可以分成3步:首先设计局部E-R模型,然后把各个局部E-R模型综合成一个全局的模型,最后对全局E-R模型进行()。
查找随机文件的记录时,应使用的方法是()。
下列程序创建了一个线程并运行,请填空,使程序完整。publicclassThreadTest{publicstaticvoidmain(Stringargs[]){Helloh=newHello();
下列组件不能添加进Frame主窗口的是
数据结构作为计算机的一门学科,主要研究数据的逻辑结构、对各种数据结构进行的运算,以及()
按作用域分类,变量有局部变量、【】、方法参数和异常处理参数。
在事件处理过程中,涉及的3类对象是事件、事件源和【】。
在面向对象方法中,允许作用于某个对象上的操作称为 【】 。
使得线程放弃当前分得的CPU时间,但不使线程阻塞,即线程仍处于可执行状态,随时可能再次分得CPU时间的方法是【】。
已知:1Stringinput=JoptionPane.showlnputDialog("Whatsyourname?");2Intage=Integer.parseIntln(input);语句2所起的作用是()。
随机试题
被告人,陈某,男,50岁,汉族,湖南省甲县乙乡农民,住甲县乙乡丙组。陈某未取得医生执业资格,多次以自制的“祖传秘方”从事蛇伤诊治活动,并向就诊人收取治疗费。1999年4月5日下午,甲县乙乡村民郭某左手拇指被斑蝰蛇咬伤后,到陈某家中医治。陈某即用“祖传秘方”
下列社会关系中,应由民法调整的是()。
《中华人民共和国行政强制法》规定,“对于违法行为情节显著轻微或者没有明显社会危害的情况,行政机关可以不采取行政强制措施”。该规定体现了行政强制的()。
在政府采购中,经采购人同意,供应商可以依法采取分包方式履行合同。供应商就采购项目和分包项目向采购人负责,分包供应商就分包项目承担责任。()
红色政权存在和发展的根本原因是()
设函数f(x)在0<x≤1时f(x)=xsinx,其他的x满足关系式f(x)+k=2f(x+1),试求常数k使极限存在.
•YouwillhearabusinesspresentationaboutHigh-ImpactViralMarketingStrategies.•Asyoulisten,forquestions1—12,complet
PassageFourWhichparagraphisaboutthevariousfunctionsofcommunicationindustryinourlife?
ManywithNewCollegeDegreeFindtheJobMarketHumblingTheindividualstoriesarefamiliar.Thechemistrymajortendingb
A、Itisthemostfulfillingjobintheworld.B、Itisthetoughestjobintheworld.C、Itisthehappiestjobintheworld.D、It
最新回复
(
0
)