首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有工程文件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
65
问题
在考生文件夹中有工程文件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全国计算机二级
相关试题推荐
请在代码中的画线处填写正确的语句【】,使程序输出helloworld!。//HelloApplet.javaImportjava.awt.*;Importjava.applet.*;PublicclassHel
多线程是Java程序的【】机制,它能同步共享数据、处理不同事件。
在面向对象方法中,类之间共享属性和操作的机制称为【】。
下列哪一项不是J2ME中的OphonalPackages中的内容()。
下面程序段:booleana=false;booleanb=true;booleanc=(a&&B)&&(!B);booleanresult=(a&B)&(!B);执行完后,正确的结果是()。
用来导入已定义好的类或包的语句是()。
执行下面的程序段后,x的值为()。publicclassSun{publicstaticvoidmain(Stringargs[]){intx=5;for(int
下列注释使用原则的叙述,正确的是()
软件开发环境是全面支持软件开发全过程的【】集合。
数组arr经过下面的操作后结果为()。int[]arr={1,2,3};for(inti=0;i<2;i++)arr[i]=0;
随机试题
建筑物有效使用面积与其建筑面积的比例低于正常建筑物有效使用面积与其建筑面积的比例部分所形成的价值损失,属于
关于壶腹癌的声像图特征叙述,正确的是
不能用于治疗室上性心律失常的药物是
安全生产许可证有效期满需要延期的,企业应当于期满前( )个月向原安全生产许可证颁发管理机构办理延期手续。企业在安全生产许可证有效期内,严格遵守有关安全生产法律法规,未发生死亡事故的,安全生产许可证有效期满时,经原安全生产许可证颁发管理机构同意,不再审查,
某单位两座办公楼之间有一条长204米的道路.在道路起点的两侧和终点的两侧已各栽种了一棵树。现在要在这条路的两侧栽种更多的树,使每一侧每两棵树之间的间隔不多于12米。如栽种每棵树需要50元人工费,则为完成栽种工作,在人工费这一项至少需要做()预算。
假定无风险收益率Rf为5%,投资人最优风险资产组合的预期收益率E(Rt)为15%,标准差为25%,试求假设投资人将40%的资产投资于无风险证券,则该投资组合的预期收益率和标准差是多少?
下列犯罪中,属于行为犯的是()
Cache能够有效提高存储体系的速度,它成功的依据是(4)。
对于大型企业的信息系统开发,数据的全局规划是十分重要的。J.Martin认为,在进行自顶向下的信息资源规划的同时,还必须在此基础上进行数据库的【】设计。
Nocompanylikestobetolditiscontributingtothemoraldeclineofanation."Isthiswhatyouintendedtoaccomplishwithy
最新回复
(
0
)