首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上建立三个菜单(名称分别为Read、Cale和Save,标题分别为“读人数据”、“计算并输出”和“存盘”),然后添加一个文本框(名称为Text1,可显示多行,ScrollBars属性设置为2)(如图所示)。程序运行后,如果执行“读入数据”命令,则读入
在窗体上建立三个菜单(名称分别为Read、Cale和Save,标题分别为“读人数据”、“计算并输出”和“存盘”),然后添加一个文本框(名称为Text1,可显示多行,ScrollBars属性设置为2)(如图所示)。程序运行后,如果执行“读入数据”命令,则读入
admin
2020-07-22
23
问题
在窗体上建立三个菜单(名称分别为Read、Cale和Save,标题分别为“读人数据”、“计算并输出”和“存盘”),然后添加一个文本框(名称为Text1,可显示多行,ScrollBars属性设置为2)(如图所示)。程序运行后,如果执行“读入数据”命令,则读入datainl.txt文件中的100个整数,放入一个数组中,数组的下界为1;如果单击“计算并输出”按钮,则把该数组中小于50的元素显示在文本框中,求出它们的和,并把所求得的和显示在窗体上;如果单击“存盘”按钮,则将所求得的和存入考生文件夹下的dataout.txt文件中。
在考生文件夹下有一个工程文件sjt5.vbp。窗体文件中的ReadData过程可以把datain1.txt文件中的100个整数读入Arr数组中;而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得,文件名为dataout.txt)。
注意:考生不得修改窗体文件中已经存在的程序。存盘时,工程文件名仍保存为sjt5.vbp,窗体文件名仍保存为sjt5.frm。
选项
答案
步骤1:打开本题工程文件,利用菜单设计器,按表3.108中的设置建立菜单项,在窗体Form1中绘制一个文本框,其相关属性值见表1和表2。 [*] 步骤2:分析并编写程序代码。 程序提供代码 Option Base 1 Dim Arr(100)As Integer Sub ReadData() Open ApP.Path&“\”&”datainl.txt”For Input As#1 For i=1 To 100 Input#1,Arr(i) Next i Close#1 End Sub Sub WriteData(Filename As String,Num As Integer) Open App.Path&”\”&Fihname For Output As#1 Print#1,Num Close#1 End Sub 程序结束 Private Sub Caic_Crick() Text1.Text=”” For i=1 To 100 If Arr(i)<50 Then Text1.Text=Text1.Text&Arr(i)&Space(5) sum=sum+Arr(i) End If Next i Print sum End Sub Private Sub Read_Click() ReMData End Sub Private Sub Save_Click() WriteData”dataout.txt”.sum End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
在“读数”命令的Click事件过程中,通过调用ReadData过程将数据从inS.txt文件读人数组Arr(窗体变量)中;在“计算”命令的Click事件过程中,在For循环语句(循环变量i的初值为1,终值为100)中依次将数组Arr中小于50的元素的值显示在文本框中,并将其值累加到变量sum;在“保序”命令的Click事件过程中,通过调用WriteData过程将Sum的值写入数据文件out5.txt。
转载请注明原文地址:https://kaotiyun.com/show/BxHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有1个名称为Commandl的命令按钮,事件过程如下:PrivateSubCommandl_Click()Dimarr_x(5,5)AsIntegerFori=1To3Fori=2To
设有下面程序代码:OptionBase1PrivateSubCommanmd1_Click()Dimx(6)a=Array(4,2,5,1,6,3)b=Array(64,24,98,27,58,41)Fork=1To6x(a(
某系统结构图如下图所示该系统结构图的深度是
窗体上有一个名称为Command1的命令按钮,单击该按钮时所实现的功能是产生10个随机整数,然后从键盘输入一个整数,查找该数在数组中的位置。若找到,输出该数的位置:若没有找到,给出相应的提示。该命令按钮的单击事件过程如下:PrivateSubComm
关于文件操作,以下叙述中正确的是
以下关于过程及过程参数的描述中,错误的是()。
窗体上有一个名称为Command1的命令按钮,一个名称为Text1的文本框,其Text属性值为“VBProgramming”。运行程序后,选中其中的“VB”,并执行如下事件过程:PrivateSubCommand1_Click()Text1.Se
在结构化程序设计中,模块划分的原则是
数据库设计的四个阶段是:需求分析、概念设计、逻辑设计和
有三个关系R、S和T如下:其中关系T由关系R和S通过某种操作得到,该操作为
随机试题
某市环保局应当地居民的举报对排放烟尘超过国家规定指标的某化工厂作出了罚款4万元的行政处罚,并责令其限期改正。化工厂对环保局的行政处罚决定不服,于2008年3月向法院提起行政诉讼。诉讼期间,原告找到被告要求协商解决,被告同意,遂变更了原行政处罚决定,对原告只
证明ax=1(a>0,a≠1).
手工钨极氩弧焊电弧电压的大小,主要是由弧长决定的。
Haveyoueverheardofonlinelearning?Ifyouareunfamiliarwithit,pleasereadthefollowing【B1】______introduction.Onlinec
一头成年奶牛,乏情,直肠检查子宫大小与妊娠2个月相似,子宫壁薄,波动极其明显,两侧子宫角容积大小可变动。与本病无关的是()
临床中可将缺氧分为5种类型,下列哪项不正确()
将现金送存银行,会计人员应填制的记账凭证是()。
在中国传统观念中,雕塑一直未被看作是与绘画同等的艺术形式;在中国传统学术中,也只有“画学”而没有“雕塑学”。历史上的这种不重视,造成19世纪末20世纪初,大量具有极高史料研究价值的石雕作品流失海外。而今天,新兴收藏家们的目光也只停留在艺术品的财富表象上,因
商业广告是指商品经营者或者服务提供者承担费用,通过一定的媒介和形式直接或间接地介绍自己所推销的商品或者所提供的服务。下列属于商业广告的是()。
关于B-ISDN说法中不正确的是______。
最新回复
(
0
)