首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上建立三个菜单(名称分 别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后再添加一个文本框,名称为Textl,MultiLine属性设置为True,ScrolIBars属性设置为2(如图所示)。程序运行后,如果
在窗体上建立三个菜单(名称分 别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后再添加一个文本框,名称为Textl,MultiLine属性设置为True,ScrolIBars属性设置为2(如图所示)。程序运行后,如果
admin
2020-04-08
26
问题
在窗体上建立三个菜单(名称分
别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后再添加一个文本框,名称为Textl,MultiLine属性设置为True,ScrolIBars属性设置为2(如图所示)。程序运行后,如果执行“读入数据”命令,则读入考生文件夹下datainl.txt文件中的100个整数,放入一个数组中,数组的下界为1;如果单击“计算并输出”按钮,则把该数组中下标为偶数的元素在文本框中显示出来,求出它们的和,并把所求得的和在窗体上显示出来;如果单击“存盘”按钮,则把所求得的和存入考生文件夹下的dataout.txl文件中。
在考生文件夹下有一个工程文件sjt5.vbp,窗体文件中的ReadData过程可以把datainl.txt文件中的100个整数读入Arr数组中;而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得,文件名为dataout.tx1)。
注意:考牛不得修改窗体文件中已经存在的程序。存盘时,工程文件名仍保存为sjt5.vbp,窗体文件名仍保存为sjt5.frm。
选项
答案
【操作步骤】 步骤l:打开本题工程文件,利用菜单设计器,按表中的设置建立菜单项,在窗体Forml中绘制一个文本框,其相关属性及其值见表4.19和表4.20。 [*] 步骤2:打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。 参考答案 ′需要考生编写的内容 Dim sum As integer ′考生编写程序结束 ′需要考生编写的内容 Private Sub Calc Click() Textl.Text="" For i=2 To 100 Step 2′从2开始循环.以2为步长的下标都是偶数 Textl.Text=Textl.Text&Arr (i)&Space(5) sum=sum+Arr(i)′对下标为偶数的值求和 Next i Print sum End Sub Private Sub Read Click() ReadData′调用ReadData子过程 End Sub Private Sub Save Click()′调用Save Click函数 WriteData"dataout.txt",sum End Sub ′考生编写程序结束 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 【易错提示】调用writeData过程时需传递参数dataout.txt和sum,变量sum应为窗体变量。
解析
根据题意在“读入数据”命令的Click事件过程中,通过调用ReadData过程将数据从datainl.txt文件读入到数组Art(窗体变量)中;在“计算并输出”命令的Click事件过程中,在For循环语句(循环变量i的初值为2,终值为100,步长为2)中依次将数组Arr中下标为偶数的元素显示在文本框中,并将其值累加到变量sum;在“存盘”命令的Click事件过程中,通过调用WriteData过程将sum的值写入数据文件dataout.txl中。
转载请注明原文地址:https://jikaoti.com/ti/vAx0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为Command1的命令按钮,其单击事件过程如下:PrivateSubCommand1_Click()DimsAsDoubles=0:i=1DoWhilei<6s
某人编写了向随机文件中写一条记录的程序,代码如下:TypeRType NameAsString*10 TelAsString*20EndTypePrivateSubCommand1_Click() DimpA
结构化程序设计中,下面对goto语句使用描述正确的是
设工程中有2个窗体:Form1、Form2,Form1为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后,隐藏Form1,显示Form2。若口令为“XSLNCER
A、选择B、差C、交D、并B关系T是关系R的一部分,并且是关系R去掉R和S相同的元素,符合差操作。
A、选择B、投影C、自然连接D、并A由关系R到关系S为一元运算,排除C和D。关系S是关系R的一部分,是通过选择之后的结果,因此选A。
下列叙述中正确的是
语句DimArr(-2To4)AsInteger所定义的数组的元素个数为()。
下面有关标准模块的叙述中,错误的是()。
一般情况下,当对关系R和S进行自然连接时,要求R和S含有一个或者多个共有的
随机试题
豫菜代表性品种包括()。
甲将自己的房屋租给乙居住,约定租期为30年。则下列说法正确的是:()。
防止污染及其他公害设施的建设,必须与主体工程建设项目实行“三同时”,“三同时”是指:[2001年第25题][2007年第15题]
对个人经营贷款借款人的生产经营收入,应重点调查的内容不包括()。
下列关于黄金理财产品的特点,说法不正确的是()。
IPv6协议数据单元由一个固定头部和若干个扩展头部以及上层协议提供的负载组成,其中用于标识松散源路由功能的扩展头是()。
“子适卫,冉有仆。子日:‘庶矣哉’。冉有曰:‘既庶矣,又何加焉?’曰:‘富之。曰:‘既富矣,又何加焉?’曰:‘教之。’”这段话最主要反映的是
WhyistheNativeLanguageLearntSoWellHowdoesithappenthatchildrenlearntheirmothertonguesowell?Whenwecompare
Minipresentation’about—6minutesInthispartofthetextyouareaskedtogiveashorttalkonabusinesstopic,Youhaveto
A、Adjustinghisbiologicalclock.B、Knowingthedirectionofajet.C、Realizingthetimedifference-duringflight.D、Gettingus
最新回复
(
0
)