首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Form1的窗体上画一个文本框,名称为Text1,MultiLine属性为True,ScrollBars属性为2;两个命令按钮,名称分别为Cmd1和Cmd2,标题分别为“读人数据”和“计算保存”,如图3—6所示。要求程序运行后,如果单击“读人数据”
在名称为Form1的窗体上画一个文本框,名称为Text1,MultiLine属性为True,ScrollBars属性为2;两个命令按钮,名称分别为Cmd1和Cmd2,标题分别为“读人数据”和“计算保存”,如图3—6所示。要求程序运行后,如果单击“读人数据”
admin
2010-07-13
69
问题
在名称为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全国计算机二级
相关试题推荐
执行如下程序:publicclassTest{publicstaticvoidmain(Stringargs[]){intx=1,a=0,b=0;switch(x
为了避免流程图在描述程序逻辑时的灵活性,提出了用方框图来代替传统的程序流程图,通常也把这种图称为( )。
排序是计算机程序设计中的一种重要操作,常见的排序方法有插入排序、______和选择排序。
下面的()关键字通常用来对对象加锁,从而使得对对象的访问是排他的。
结构化程序设计的3种基本结构是()。
执行下列程序后,输出结果为()。publicclassTest{publicstaticvoidmain(String[]args){StringBuffersb=newStri
假设a是int类型的变量,并初始化为1,则下列选项中合法的条件语句是( )。
在Java新的I/O功能中,通过文件锁定来实现多个线程的【】,避免了可能存在的安全隐患。
算法复杂度主要包括时间复杂度和【】复杂度。
有下面的Applet程序段:import.java.awt.*;import.java.applet.*;publicclassHelloextendsApplet{publicvoidpanin(Graphicsg){gdrawS
随机试题
拥有少量受过高等教育人口的国家注定在经济和政治上疲软。然而,拥有大量受过高等教育人口的国家,他们的政府对公共教育有严肃认真的财政承诺。所以,任何一个拥有能做出这种承诺的政府的国家,都会摆脱经济和政治的疲软。以下哪项论证中的缺陷与上述论证中的最相似?
()是贷前调查中最常用、最重要的一种方法。(2010年上半年)
发展就是变化,不仅包括新事物的产生旧事物的灭亡,也包括事物数量的增长和场所的变更。()
群众赵某的车被限速指示牌砸了,在理赔过程中,保险公司要求赵某提供指示牌产权单位开出的证明,赵某向相关政府部门打了50多个电话都没有问到该指示牌“归谁管”。对此请谈谈你的看法。
下列属于被试间设计的是()
试述七千人大会前后开展的政治关系调整方面的情况。
下列是一台Cisco路由器的部分路由表信息,表中的路由信息完全正确的是()。
Thedeanmadeaproposalthatallstudents(make)______asocialinvestigationonSummerVacation.
Thecommanderorderedthatwe(withdraw)______assoonaspossible.
PleaseObserveTrafficRules1.据统计,13%住院治疗的人是因为车祸2.举例说明不少司机、行人、骑车的人不遵守交通规则3.呼吁为了自身和他人的安全,请自觉遵守交通规则
最新回复
(
0
)