首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,已给出了所有控件和部分程序。程序运行时,请按以下顺序操作: 1)单击“读入数据”按钮,可把考生目录下的文件in3.dat中的100个整数读到数组a中; 2)从名称为List1的列表框中选中
(1)在考生文件夹下有一个工程文件sjt3.vbp,已给出了所有控件和部分程序。程序运行时,请按以下顺序操作: 1)单击“读入数据”按钮,可把考生目录下的文件in3.dat中的100个整数读到数组a中; 2)从名称为List1的列表框中选中
admin
2018-10-29
94
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,已给出了所有控件和部分程序。程序运行时,请按以下顺序操作:
1)单击“读入数据”按钮,可把考生目录下的文件in3.dat中的100个整数读到数组a中;
2)从名称为List1的列表框中选中一项(如图3-139所示)。
3)单击“计算”按钮,则可按该选项的要求计算出结果并放到文本框中。
4)单击窗体右上角的关闭按钮结束程序。
“读入数据”按钮的Click事件过程已经给出,请为“计算”按钮编写适当的事件过程实现上述功能。
注意:不得修改已经存在的程序,在结束程序运行之前,必须进行一次计算,且必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp。窗体中横线(横坐标)的名称为Line1,竖线(纵坐标)的名称为Line2:五个不同颜色的矩形是一个形状控件数组,名称为Shape1,它们的Visible属性都为False;从左到右的两个按钮的名称分别为Command1、Command2;另有一个有五个元素的标签数组,名称为Label1,其所有元素的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 Integer,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)<i2 Then i2=a(k) End If Next k If List1.Selected(0)=True Then Text1.Text=i1-i2 End If If List1.Selected(1)=True Then Text1.Text=i1+i2 End If If List1.Selected(2)=True Then Text1.Text=i1 * i2 End If 步骤2:按<F5>键运行程序,单击“读入数据”按钮,然后在列表框中选择一项,并单击“计算”按钮,统计出结果。 步骤3:单击窗体右上角的关闭按钮以结束程序。 步骤4:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:打开考生文件夹中的本题工程文件sjt4.vbp,在代码编辑窗口,去掉程序中的注释符“’”将问号“?”改为正确的内容。参考代码: For k=1 To 5 Label1_1(k-1).Visible=True Shapel(k-1).Height=s(k) a=Line1.Y1 步骤2:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/QtFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
求1!+2!+……+10!的程序如下:PrivateFunctions(xAsInteger) f=1 Fori=1Toxf=f*i Next s=fEndFunctionPrivateSubCommand1
某人编写了下面的程序,希望能把Text1文本框中的内容写到out.txt文件中:PrivateSubCommand1_Click() Open"out.txt"ForOutputAs#2 Print"Text1" Close
可以产生30~50(含30和50)之间的随机整数的表达式是( )。
在窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。运行后的窗体外观如图所示。设有如下的类型和变量声明:PrivateTypePerson nameAsString*8 majorAsSt
要使标签中的文本靠右显示,应将其Aligment属性设置为
如果一个顶级菜单项的访问键为D,则以下等同于单击该菜单项的操作为
A、选择B、差C、交D、并B关系T是关系R的一部分,并且是关系R去掉R和S相同的元素,符合差操作。
在窗体上画一个名称为Command1的命令按钮,并编写如下事件过程:PrivateSubCommand1_Click() x=1 s=0 Fori=1To5 x=x/i s=s+x Next Print
VB中有这样一类文件:该文件不属于任何一个窗体,而且仅包含程序代码,这类文件的扩展名是( )。
随机试题
可用于吗啡类成瘾者戒毒的药物是
某新建加油站按照有关规定建立该加油站的生产安全事故应急预案体系,为保证编制工作顺利进行,成立了以站长为组长的应急预案编制组,按照应急预案编制程序要求,编制组在应急预案编制工作前应完成的工作是()。
某资产年金收益额为8500元,剩余使用年限为20年,假定折现率为10%,则其评估值最接近于()元。
证券投资分析一直是证券市场一个非常重要的产业。( )
2011年1月2日,A公司以银行存款600万元对D公司投资,持有D公司股权的50%,具有重大影响。(1)2011年1月2日D公司可辨认净资产公允价值总额与账面价值相等均为1400万元。(2)2011年3月2日,D公司宣告分配2010年现金股利100万元
下列叙述正确的是()。
在新形势下,积极推动社会管理创新已成为人民法院改进工作思路和工作机制的重大举措,成为人民法院顺应时代发展和社会变迁“能动司法”的应有之义。实践证明:在由传统社会向现代社会转型的时期里,在推进社会管理创新的进程中,人民法院不仅_______,而且______
食物链一词是英国动物学家埃尔顿于1927年首次提出的。如果一种有毒物质被食物链的低级部分吸收,如被草吸收,虽然浓度很低,不影响草的生长,但兔子吃草后有毒物质很难排泄,会在它体内积累;鹰吃大量的兔子,有毒物质会在鹰体内进一步积累。美国国鸟白头鹰之所以面临灭绝
ProfessorLee’smostimportant_____wastheintroductionoftheseminarymethodofinstructionforadvancedstudents.
为了帮你更好地理财,教你几个省钱小窍门。一、设定“远大”的目标,促进自己存钱。比如,计划自己在一年之内买一套正装,两年内买辆车或者五年内买套房子。二、节约日常开支。三、养成省钱的习惯,远离费钱的东西。要学着记账,记清楚买了什么东西,花了多少钱。
最新回复
(
0
)