首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Form1的窗体上画一个文本框,名称为Text1,MultiLine属性为True,ScrollBars属性为2;两个命令按钮,名称分别为Cmd1和Cmd2,标题分别为“读人数据”和“计算保存”,如图3—6所示。要求程序运行后,如果单击“读人数据”
在名称为Form1的窗体上画一个文本框,名称为Text1,MultiLine属性为True,ScrollBars属性为2;两个命令按钮,名称分别为Cmd1和Cmd2,标题分别为“读人数据”和“计算保存”,如图3—6所示。要求程序运行后,如果单击“读人数据”
admin
2010-07-13
80
问题
在名称为Form1的窗体上画一个文本框,名称为Text1,MultiLine属性为True,ScrollBars属性为2;两个命令按钮,名称分别为Cmd1和Cmd2,标题分别为“读人数据”和“计算保存”,如图3—6所示。要求程序运行后,如果单击“读人数据”按钮.则读人in.txt文件中的100个整数,放人一个数组中(数组下界为1),同时在文本框中显示出来;如果单击“计算保存”按钮,则计算数组中大于或等于400并且小于800的所有数之和,并将结果在文本框Text1中显示出来,同时把结果存入考生文件夹的result.txt文件中(在prog.bas中的putdata过程可以把结果存人result.txt文件)。
注意:文件必须存放在考生文件夹下,窗体文件名为sj5.frm,工程文件名为sj5.vbp,计算结果存入result.txt文件中,否则没有成绩。
选项
答案
文本框显示的内容通过Text属性设置;按钮的标题通过Caption属性设置,单击命令按钮触发Click事件。本题涉及到文件的操作,读入顺序文件以顺序的方式打开,用”Input#”语句读取数据。另外需要注意的是,对文件操作结束后,一定要关闭文件。 ①建立界面并设置控件属性。程序中用到的控件及其属性如下表所示: [*] ②打开工程资源管理器,在其空白处右键添加模块prog.bas(此文件已在考生文件夹里),模块代码如下: Option Explicit Sub putdata(ByVal a As Long) Dim sFile As String sFile="\resuh.txt" Open App.Path&sFile For Output As#1 Print#1,a; Close#1 End Sub ③打开工程资源管理器,右击窗体,选择查看代码项,在弹出的代码窗口输入代码如下: Dim i(1 To 100)As Integer Private Sub Cmdl Click() Dim j As Integer j=0 Open App.Path&"\in.txt"For Input As#1 For i=1 To 100 Input#1,i(j) Next j Close#1 For i=i To 100 Textl.Text=Textl.Text&i(j)&Space(5) Next j End Sub Private Sub Cmd2 Click() Dim sum AS Long Dim j As Integer sum=0 Textl.Text="" For j=1 To 100 If i(j)>=400 And i(j)<800 Then sum=sum+i(j) End If Next j Textl.Text=Textl.Text&sum&Space(5) putdata sum End Sub 标准模块代码 Option Explicit Sub putdata(ByVal a As Long) Dim sFile As String sFile="\result.txt" Open App.Path&sFile For Output As#l Print#1,a; Close#1 End Sub
解析
转载请注明原文地址:https://kaotiyun.com/show/tLmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
执行下面的程序段,输出结果为______。publicclassQ{publicstaticvoidmain(Stringargv[]){intanar[]=newint[5];System.out.println
定义一个表示10个值为null的字符串数组,下面选项正确的是()。
关于内存变量的调用,下列说法中正确的是()。
用于构造弹出式菜单的Java类是【】。
数据字典是各类数据描述的集合,它通常包括5个部分,即数据项、数据结构、数据流、【】和处理过程。
下面程序片段的执行中,说法正确的是( )。publicclassTest{publicstaticvoidmain(Stringargs[]){bytey=20;
用HTML文件显示APPLET时,下面属于必不可少的属性的是
下列关系运算中,能使经运算后得到的新关系中属性个数多于原来关系中属性个数的是
随机试题
下列哪些可见于肺炎链球菌肺炎患者
男性40岁,1周前干咳左胸痛,近2日来,畏寒发热38.8℃,气急乏力。体检:心率94次/分,律齐,左胸廓饱满,呼吸运动减弱,左下叩之浊音至实音,语颤减低,呼吸音明显减低。经检查诊断明确后,所给予的下列治疗中哪一项是错误的
患者,女,26岁。产后18小时,突然发生阴道大量出血,色鲜红,头晕目花,心悸怔忡,肢冷汗出,面色苍白;舌淡,脉虚数。下列有关该病的西医治法,说法错误的是
丁公司欠甲公司100万元。2005年10月,甲公司与丙公司签订协议,约定甲公司对丁公司的100万元债权由丙公司享有,但未通知丁公司。同年12月,丙公司向法院起诉丁公司要求归还欠款,有关该案的表达正确的是:()
项目风险的分解途径不包括()。
民用住宅楼梯的坡度范围,宜在()之间。
在临时用地指标中,要求平面布置合理、紧凑,在满足环境、职业健康与安全及文明施工要求的前提下尽可能减少废弃地和死角,临时设施占地面积有效利用率大于()。
简述蒙古统一与元朝建立的经过。
(),对公安工作和队伍建设提出了新的挑战,公安工作和公安队伍建设存在的突出问题迫切需要抓紧解决,这是当前加强正规化建设、明确现阶段新的管理标准的出发点和立足点。
Standingupstraightandkeepingyourbodycenteredmayseemlikesecondnaturetomostofus.Butforpeoplewithbalancedisor
最新回复
(
0
)