首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,已给出了所有控件和部分程序。程序运行时,请按以下顺序操作: 1)单击“读入数据”按钮,可把考生目录下的文件in3.dat中的100个整数读到数组a中; 2)从名称为List1的列表框中选中
(1)在考生文件夹下有一个工程文件sjt3.vbp,已给出了所有控件和部分程序。程序运行时,请按以下顺序操作: 1)单击“读入数据”按钮,可把考生目录下的文件in3.dat中的100个整数读到数组a中; 2)从名称为List1的列表框中选中
admin
2017-10-27
33
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,已给出了所有控件和部分程序。程序运行时,请按以下顺序操作:
1)单击“读入数据”按钮,可把考生目录下的文件in3.dat中的100个整数读到数组a中;
2)从名称为List1的列表框中选中一项(如图3—139所示)。
3)单击“计算”按钮,则可按该选项的要求计算出结果并放到文本框中。
4)单击窗体右上角的关闭按钮结束程序。
“读入数据”按钮的Click事件过程已经给出,请为“计算”按钮编写适当的事件过程实现上述功能。
注意:不得修改已经存在的程序,在结束程序运行之前,必须进行一次计算,且必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp。窗体中横线(横坐标)的名称为IAne1,竖线(纵坐标)的名称为Line2;五个不同颜色的矩形是一个形状控件数组,名称为Shapel,它们的Visible属性都为False;从左到右的两个按钮的名称分别为Command1、Command2;另有一个有五个元素的标签数组,名称为Labe11,其所有元素的Visible属性都为:False。如图3—140(a)所示。程序运行时,单击“输入5个数据”按钮,可输入五个整数(最好在100~2000之间),并作为刻度值显示在纵坐标的左面;单击“画直方图”按钮,则按五个数的输入顺序显示直方图。例如若输入的五个数是1200、500、800、1900、1500,则结果如图3—140(b)所示。
文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。注意:不能修改程序的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。
选项
答案
(1)【操作步骤】 步骤1:打开考生文件夹中的本题工程文件sjt3.vbp,双击窗体中的“计算”命令按钮,在打开的代码编辑窗口中编写其单击事件过程。参考代码: Private Sub Command2_Click() Dim k As Integerf i1,i2 As Integer i1=a(1):i2=a(1) For k=2 To 100 If a(k)>i1 Then i1=a(k) End If If a(k)<5.2 Then i2=a(k) End If Next k If List1.Selected(0)=True Then Text1.Text=i1-i2 End If If List1.Select:ed(1)=True Then Text1.Text=i1+i2 End If If List1.Selected(2)=True Then Text1.Text=i1*i2 End Tf 步骤2:按
键运行程序,单击“读入数据”按钮,然后在列表框中选择一项,并单击“计算”按钮,统计出结果。 步骤3:单击窗体右上角的关闭按钮以结束程序。 步骤4:按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤1:打开考生文件夹中的本题工程文件sjr4.vbp,在代码编辑窗口,去掉程序中的注释符“’”将问号“?”改为正确的内容。参考代码: For k=1 To 5 Labe11(k-1).Visible=True Shape1(k-1).Height=s(k) a=Line1.Y1 步骤2:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/uVGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面程序运行时,若输入395,则输出结果是Priratesubcommandl_Click()Dimx%x=InputBox(“请输入一个3位整数”)PrintxMod10,x\100,(xMod100)\10EndSub
18,有如下语句,执行后该段语句的循环次数是()。Dims,i,jasintegerFori=1to3Forj=3to1Step-1s=i*jNextjN
下列程序实现的功能是:当在窗体上单击时,将输出a1.txt文件中的数字字符的个数。PrivateSubform_Click()DimChAsString*1DimnAsIntegerOpen"c:\a1.txt"for
第一范式是满足关系模式所要遵循的最基本的条件的范式,即关系中的每个属性必须是【】的简单项。
用InputBox函数设计的对话框,其功能是
设A="12345678",则表达式Val(Left(A,4)+Mid(A,4,2))的值为()。
多分支选择结构的SelectCase<测试表达式>语句中,<测试表达式>可以是______。
设有程序段:sum=0ForI=11to-1step-2Sum=sum+INextIPrintI语句Sum=Sum+I执行的次数和最后的I值分别为()。
下列有关数据库的描述,正确的是_________。
表达式Str(Len("12345"))+Str(88.8)的值为______。
随机试题
直接金融市场包括()。
不可抗力
关于进境快件适用的报关单证,下列说法正确的是()。
A:Excuseme.__________①B:Yes.Youdon’tknowme,ofcourse.Idon’tteachhere.Ijustgiveoralexaminationsherenowandthen.Do
M大学有男同学参加了反华示威。除了M大学有同学参加了反华示威,否则任何同学都能申请文都奖学金。M大学女同学不能申请文都奖学金。如果上述断定都真,则以下哪项据此不能断定真假?(1)M大学男同学都没有参加反华示威。(2)M大学所有男同学不能申
2014年10月15日,习近平在北京主持召开文艺工作座谈会并发表重要讲话。时隔一年2015年10月14日,新华社刊发了讲话全文。从唯物史观的角度分析,文艺工作之所以重要是因为
PowerBuilder中的PowerScript语言包括下述哪些语句?Ⅰ.变量定义语句Ⅱ.赋值语句Ⅲ.流控制语句Ⅳ.操纵数据库语句
Youareadvisedtospend20minutesonQuestions1-14.First,readthetextbelowandanswerQuestions1-8.
A、ArabicterroristswillnotattacktheUSAanymore.B、itisessentialtomaintainanactivetradingenvironment.C、thereisno
Womenaregettingunhappier,ItoldmyfriendCarl. "Howcanyoutell?"hedeadpanned."It’salwaysbeenwhine-whine-whine."
最新回复
(
0
)