首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sit3.vbp,已给出了所有控件和部分程序。程序运行时,请按以下顺序操作: 1)单击“读入数据”按钮,可把考生目录下的文件in3.dat中的100个整数读到数组a中; 2)从名称为List1的列表框中选中一项(如图3-6
(1)在考生文件夹下有一个工程文件sit3.vbp,已给出了所有控件和部分程序。程序运行时,请按以下顺序操作: 1)单击“读入数据”按钮,可把考生目录下的文件in3.dat中的100个整数读到数组a中; 2)从名称为List1的列表框中选中一项(如图3-6
admin
2016-03-22
64
问题
(1)在考生文件夹下有一个工程文件sit3.vbp,已给出了所有控件和部分程序。程序运行时,请按以下顺序操作:
1)单击“读入数据”按钮,可把考生目录下的文件in3.dat中的100个整数读到数组a中;
2)从名称为List1的列表框中选中一项(如图3-60所示)。
3)单击“计算”按钮,则可按该选项的要求计算出结果并放到文本框中。
4)单击窗体右上角的关闭按钮结束程序。
“读入数据”按钮的Click事件过程已经给出,请为“计算”按钮编写适当的事件过程实现上述功能。
注意:不得修改已经存在的程序,在结束程序运行之前,必须进行一次计算,且必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp。窗体中横线(横坐标)的名称为Linel,竖线(纵坐标)的名称为Line2;五个不同颜色的矩形是一个形状控件数组,名称为Shapel,它们的Visible属性都为False;从左到右的两个按钮的名称分别为Command1、Command2;另有一个有五个元素的标签数组,名称为Labell,其所有元素的Visible属性都为False。如图3.61(a)所示。程序运行时,单击“输入5个数据”按钮,可输入五个整数(最好在100~2000之间),并作为刻度值.显示在纵坐标的左面;单击“画直方图”按钮,则按五个数的输入顺序显示直方图。例如若输入的五个数是1200、500、800、1900、1500,则结果如图3-61(b)所示。
文件中已经给出了所有控件和程序,但程序不完整,请去掉程序巾的注释符,把程序中的?改为正确的内容。
注意:不能修改程序的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。
选项
答案
第1小题 【操作步骤】 步骤1:打开考生文件夹中的本题工程文件sit3.vbp,双击窗体中的“计算”命令按钮,在打开的代码编辑窗口中编写其单击事件过程。 参考代码: Private Sub Command2 C1ick() 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)
键运行程序,单击“读入数据”按钮,然后在列表框中选择一项,并单击“计算”按钮,统计出结果。 步骤3:单击窗体右上角的关闭按钮以结束程序。 步骤4:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:打开考生文件夹中的本题工程文件sjr4.vbp,在代码编辑窗口,去掉程序中的注释符“”,将问号“?”改为正确的内容。 参考代码: For k=1 To 5 Labell(k一1).Visible=True Shapel(k一1).Height=s(k) a=Linel.Y1 步骤2:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/fMLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
线性表的顺序存储结构和线性表的链式存储结构分别是______。
代码窗口分为左右两栏,左边一栏称为______,右边一栏称为过程框。
把窗体的KeyPreview属性设置为True,然后编写如下事件过程:PrivateSubForm_KeyPress(KeyAsciiASInteger)DimchAsStringch=Chr(KeyAscii)
文本框的ScrollBars属性设置为非零值,却没有效果,原因是()。
决定控件上文字的字体、字形、字号、效果的属性是()。
无论何种控件,都具有一个共同属性。这个属性是()。
长度为n的顺序存储线性表中,当在任何位置上插入一个元素概率都相等时,插入一个元素所需移动元素的平均个数为【】。
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Fori=1To4x=4Forj=1To2x=x+6NextNextPrintxEndSub程序运
在窗体上有一个命令按钮,然后编写如下事件过程。PrivateSubCommand1_Click()Dima(5)AsStringFORi=1To5a(i)=Chr(Asc("A")+(i-1))
随机试题
在下列保险合同中,保险责任开始就不能解除的合同是:()。
全陪小张带领南京某旅行社的旅游团一行18人前往上海观光旅游,在他们游览完上海的美景之后,游客提出来,晚上去娱乐娱乐,小张为了客人的安全,建议大家不要走得太远,最好在饭店内或饭店周围。游客们理解小张的好意,就决定在宾馆旁边的卡拉OK唱歌,大家为了感谢小张,就
甲、乙两辆清洁车执行东、西城问的公路清扫任务。甲车单独清扫需要6小时,乙车单独清扫需要9小时,两车同时从东、西城相向开出,相遇时甲车比乙车多清扫15千米。问东、西两城相距多少千米?()
[*]
以下叙述中错误的是()。
ThougheverymorningIqueue(排队)atthebusstopveryearly,Iamoften【C1】______forschool.Thereasonisthatthereare【C2】__
[A]key[B]door[C]hospital[D]zoo[E]school[F]hands[G]factoryPeoplemakethingslikecarsortelevisionsthere.
OnAugust31,1997,LadyDianaSpencer,formerwifeofCharles,PrinceofWales,waskilledwithhercompanionDodiFayedinac
Everygrouphasaculture,howeveruncivilizeditmayseemtous.Totheprofessionalanthropologist,thereisnointrinsicsupe
TheCanadianpopulationischieflycharacterizedby
最新回复
(
0
)