首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,已给出了所有控件和部分程序。程序运行时,请按以下顺序操作: 1)单击“读入数据”按钮,可把考生目录下的文件in3.dat中的100个整数读到数组a中; 2)从名称为List1的列表框中选中
(1)在考生文件夹下有一个工程文件sjt3.vbp,已给出了所有控件和部分程序。程序运行时,请按以下顺序操作: 1)单击“读入数据”按钮,可把考生目录下的文件in3.dat中的100个整数读到数组a中; 2)从名称为List1的列表框中选中
admin
2020-07-22
92
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,已给出了所有控件和部分程序。程序运行时,请按以下顺序操作:
1)单击“读入数据”按钮,可把考生目录下的文件in3.dat中的100个整数读到数组a中;
2)从名称为List1的列表框中选中一项(如图3.139所示)。
3)单击“计算”按钮,则可按该选项的要求计算出结果并放到文本框中。
4)单击窗体右上角的关闭按钮结束程序。
“读入数据”按钮的Click事件过程已经给出,请为“计算”按钮编写适当的事件过程实现上述功能。
注意:不得修改已经存在的程序,在结束程序运行之前,必须进行一次计算,且必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp。窗体中横线(横坐标)的名称为Linel,竖线(纵坐标)的名称为Line2;五个不同颜色的矩形是一个形状控件数组,名称为Shape,它们的Visible属性都为False;从左到右的两个按钮的名称分别为Command1、Command7.;另有一个有五个元素的标签数组,名称为Label1,其所有元素的Visible属性都为False。如图3.140(a)所示。程序运行时,单击“输入5个数据”按钮,可输入五个整数(最好在100~2000之间),并作为刻度值显示在纵坐标的左面;单击“画直方图"按钮,则按五个数的输入顺序显示直方图。例如若输入的五个数是1200、500、800、1900、1500,则结果如图3.140(b)所示。
文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容a注意:不能修改程序的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。
选项
答案
(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)
键运行程序,单击“读入数据”按钮,然后在列表框中选择一项,并单击“计算”按钮,统计出结果。 步骤3:单击窗体右上角的关闭按钮以结束程序。 步骤4:按要求将文件保存至考生文件夹中。 (2)步骤1:打开考生文件夹中的本题工程文件sjt4.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: For k=1 To 5 Label1(k-1).ViSible=True Shape1(k-1).Height=s(k) a=Line1.Y1 步骤2:按要求将文件保存至考生文件夹中。
解析
(1)本题在命令按钮的单击事件中先利用循环统计字符串中大写字母和小写字母的值。首先假设数组中的第一个元素既为最大值也为最小值,然后依次从第二个元素开始向后循环,对每一个数组元素都加以判断,若其比最大值还大,则其成为新的最大值:若其比最小值还小,则其成为新的最小值。这样循环结束后可以得到数组的最大值和最小值。
接下来判断列表框中选中的是哪一项然后执行对应计算,并输出结果。
(2)“输入5个数据”按钮的单击事件过程中,需要连续输入5个数据并且存放到数组s中,因此k应该由1循环到5,在循环中将输入的数据保存到数组s中并且将其赋值给五个标签组成的控件数组,随后将标签的Visible属性设置为True以便显示出来。
“画直方图”按钮的单击事件过程中,源程序用For循环来依次计算每一个形状控件的高度,该高度应该为对应数组元素的值;然后计算该直方图的Top属性值(应为水平直线的Y1或Y2属性值减去直方图的高度),最后显示该直方图(通过设置其Visible实现)。
转载请注明原文地址:https://kaotiyun.com/show/1MHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据:PrivateSubCommand1_Click() Dims1AsString,s2AsString Open"
如果改变驱动器列表框的Drive属性,则将触发的事件是( )。
在软件生产过程中,需求信息的来源是()。
窗体上有一个名称为Text1的文本框,一个名称为Combo1的组合框。将文本框中的内容添加到组合框中所使用的命令是
在窗体上画2个名称分别为Label1和Label2的标签,然后编写如下程序代码:SubS(LAsLabel,ByValaAsInteger)L.Caption="1234"a=a*aEndSubPriv
双精度浮点数的类型说明符为
在窗体上建立三个菜单(名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后添加一个文本框(名称为Text1,可显示多行,ScrollBars属性设置为2)(如图所示)。程序运行后,如果执行“读人数据”命令,则读入
窗体上有一个名称为Command1的命令按钮,一个名称为Text1的文本框。编写如下程序:PrivateSubCommand1_Click() DimxAsInteger x=Val(InputBox("输入数据")) Text1=
以下叙述中错误的是()。
下列数据结构中,能够按照“先进后出”原则存取数据的是()。
随机试题
容器中大量分子碰撞器壁的结果形成了气体对器壁的压力。压力就是单位面积容器壁面上所受的垂直力。()
某警犬队的警犬表现精神沉郁,喜卧厌动,活功时四肢无力,身躯摇晃。发热(40~41℃),持续3~5天后,有5~10天体温正常期,呈不规则间歇热型。渐进性贫血,结膜、黏膜苍白,食欲减少或废绝,营养不良,明显消瘦。触诊脾脏肿大:肾(双侧或单侧)肿大且疼痛,尿呈黄
城市维护建设税的计费基础是()。
甲公司欠张龙工程款人民币20万元,张龙初次做工程,要求甲公司支付20万元现金,甲公司告知张龙按照会计制度规定,无法支付现金,但可以开一张支票。让其自己到银行支取现金。张龙认真地查看了支票,上面记载有如下内容:金额20万元,收款人为张龙,出票日期为2013年
基金管理公司股东会依法可以行使的职权有()。Ⅰ.审议批准公司的年度财务预算方案Ⅱ.制订公司合并、分立、解散或者变更公司形式的方案Ⅲ.选举和更换董事Ⅳ.决定公司的经营方针和投资计划
“陕甘宁边区人民警察”是我国历史上最早的一支比较正规的人民警察队伍。()
王女士去超市购置了一批碗和碟,其中碗每只8元,碟每只5元,结账时这批碗和碟不超过18只,共计107元,则她购置的碗和碟分别有多少只?()
有两只桶,装有同样多的油。第一桶用去1/4,第二桶用去40%以后,再从第一桶取出8千克油倒入第二桶,这时第二桶油与第一桶油的比是13:14。则两桶原来各装有多少千克油?
Choosethecorrectletter,A,B,CorD.Writethecorrectletterinboxonyouranswersheet.Whatisthemainideaofthepass
花一周时间参加这样的会议将会是浪费时间。(awasteof)
最新回复
(
0
)