首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上建立三个菜单(名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后再添加一个文本框,名称为Text1,MultiLine属性设置为True,ScrollBars属性设置为2(如图所示)。程序运行后,如果执
在窗体上建立三个菜单(名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后再添加一个文本框,名称为Text1,MultiLine属性设置为True,ScrollBars属性设置为2(如图所示)。程序运行后,如果执
admin
2017-09-20
112
问题
在窗体上建立三个菜单(名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后再添加一个文本框,名称为Text1,MultiLine属性设置为True,ScrollBars属性设置为2(如图所示)。程序运行后,如果执行“读人数据”命令,则读入考生文件夹下datainl.txt文件中的100个整数,放入一个数组中,数组的下界为1;如果单击“计算并输出”按钮,则把该数组中下标为偶数的元素在文本框中显示出来,求出它们的和,并把所求得的和在窗体上显示出来;如果单击“存盘”按钮,则把所求得的和存入考生文件夹下的dataout.txt文件中。
在考生文件夹下有一个工程文件sjt5.vbp,窗体文件中的ReadData过程可以把datainl.txt文件中的100个整数读入Arr数组中;而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得,文件名为dataout.txt)。
注意:考生不得修改窗体文件中已经存在的程序。存盘时,工程文件名仍保存为sjt5.vbp,窗体文件名仍保存为sjt5.frm。
选项
答案
【操作步骤】 步骤1:打开本题工程文件,利用菜单设计器,按表中的设置建立菜单项,在窗体Form1中绘制一个文本框,其相关属性及其值见表3.19和表3.20。 [*] 步骤2:打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。 ’需要考生编写的内容 Dim sum As integer ’考生编写程序结束 ’需要考生编写的内容 Private Sub Calc_Click() Text1.Text=”” For i=2 To 100 Step 2’从2开始循环,以2为步长的下标都是偶数 Text1.Text=Text1.Text&Arr (i)&Space(5) sum=sum+Arr(i)’对下标为偶数 的值求和 Next i Print sum End Sub Private Sub Read C1ick() ReadData‘调用ReadData子过程 End Sub Private Sub Save Click()’调用SaveCliCk函数 WriteData”dataout.txt”,sum End Sub ’考生编写程序结束 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/hkGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
滚动条控件中,用来设置鼠标单击滚动箭头时滚动条移动的大小的属性是______。
如果A为整数且|A|>=10,则打印“OK”,否则打印“Error”,表示这个条件的单行格式If语句是()。
单击窗体上的命令按钮Command1,程序的输出为【】。PrivateSubCommand1_Click()a="AbC"b="dEF"c=UCase(A)+LCase(B)PrintAsc(C)End
已知有如下语句:s="hello,world"r=Mid(s,7,5)运行上面的语句后,变量r的值为()
各种运算符间的优先顺序从高到低是
在VisualBasic中按文件的访问方式不同,可以将文件分为顺序文件,随机文件和【】。
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下程序:PrivateSubCommand1_Click()Dimx,y,zAsIntegerx=5y=7
为了使图片框的大小可以自动适应图片的尺寸,则应______。
通过文本框()事件过程可以获取文本框中输入字符的ASCII码值。
假定建立了一个工程,该工程包括两个窗体,其名称(Name属性)分别为Forml和Form2,启动窗体为Forml。在Forml上画一个命令按钮Commandl,程序运行后,要求当单击该命令按钮时,Forml窗体消失,显示窗体Form2,请在横线处将程序补充
随机试题
茶叶中浸出物的测定中,浸提完毕后将浸提液放凉至室温后再进行过滤。
证明方程x5一2x2+x+1=0在(一1,1)内至少有一个实根.
Manypeoplewanttoknowhowtoanalyzeproblemstheymeet.Therearesixstagesinanalyzingaproblem.Firstthepersonmu
位于后发际正中直上0.5寸,旁开1.3寸,当斜方肌外缘凹陷中的腧穴是
肺部气体交换方向的主要决定因素是()。
施工现场的办公区、生活区和作业区,不得设在易产生山体滑坡、()或易受()、洪水侵袭及()的区域。
想要了解企业某段时期管理费用的信息,需要查看该企业的()。
“坏账准备”账户期末余额不在资产负债表上列示,它在本质上是“应收账款”的备抵项目。()
依据法律解释的方法不同,法律解释可分为()。
Wearenotconsciousoftheextentto_______workprovidesthepsychologicalsatisfactionthatcanmakethedifferencebetweena
最新回复
(
0
)