首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上建立三个菜单(名称分别为Read、Cale和Save,标题分别为“读人数据”、“计算并输出”和“存盘”),然后添加一个文本框(名称为Text1,可显示多行,ScrollBars属性设置为2)(如图所示)。程序运行后,如果执行“读入数据”命令,则读入
在窗体上建立三个菜单(名称分别为Read、Cale和Save,标题分别为“读人数据”、“计算并输出”和“存盘”),然后添加一个文本框(名称为Text1,可显示多行,ScrollBars属性设置为2)(如图所示)。程序运行后,如果执行“读入数据”命令,则读入
admin
2020-07-22
44
问题
在窗体上建立三个菜单(名称分别为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全国计算机二级
相关试题推荐
窗体上有一个名称为Commandl的命令按钮,其单击事件过程如下:PfivateSubCommandlClick()DimxAsInteger,yAsIntegerStaticzAsIntegerx=3:y=5:z=yCa
可以产生30~50(含30和50)之间的随机整数的表达式是
为了实现对象的自动拖放,应该设置该对象的一个属性。下面设置中正确的是()。
在窗体上画一个命令按钮,其名称为Command1,然后编写如下代码:OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4)j=1Fori=4To1Step-1s=s+a(i)
以下关于图片框、图像框的叙述中,正确的是
在软件开发中,需求分析阶段产生的主要文档是
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
设x是整型变量,与函数IIf(x>0,-x,x)有相同结果的代数式是( )。
下列关于菜单项的描述中,错误的是
设已经在菜单编辑器中设计了弹出式菜单mnuStyle,要求程序运行时,当用户在文本框Text1上单击鼠标右键时,能够弹出该菜单,则应使用的事件过程是()。
随机试题
预防术后肺不张最主要的措施是
聚氯乙烯塑料制品的主要毒性来自
肾虚证与肾精不足证共有的临床表现是()
甲施工企业总承包了一个高档酒店装修工程,将其中的大堂装修工程分包给符合资质条件的乙装饰公司,分包合同写明:“大堂装修工程质量应完全由乙方负责。”现大堂出现装修施工质量问题,则()责任。
ABC公司预期以$50的目标价格销售10000件产品。该产品目前全部的成本是每单位$60。如果ABC希望实现20%的经营性毛利,其单位目标成本应为
期货交易所变更名称、注册资本的,应当经中国期货业协会批准。()
上市公司发行股份购买资产,拟购买资产交易价格为9亿元,以下说法正确的是()。
中国历史上,曾经灭佛的封建君主包括()。①唐武宗②北魏太武帝③北周武帝④周世宗
一位普通市民花几百元购票看话剧,记者问他:“花这么多钱值不值得?”他说:“值得。”从行为的动机理论看,可用来解释其行为的理论是()
Itseemsindividualcancercellssendoutthesamedistresssignalsaswounds,trickingimmunecellsintohelpingthemgrowinto
最新回复
(
0
)