首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是产生20 个0~1000的随机整数,放入一个数组中,然后输出这20 个整数的平均值。程序运行后,单击命令按钮(名称为Command1,标题为“输出平均值”),即可
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是产生20 个0~1000的随机整数,放入一个数组中,然后输出这20 个整数的平均值。程序运行后,单击命令按钮(名称为Command1,标题为“输出平均值”),即可
admin
2018-10-29
54
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是产生20 个0~1000的随机整数,放入一个数组中,然后输出这20 个整数的平均值。程序运行后,单击命令按钮(名称为Command1,标题为“输出平均值”),即可求出其平均值,并在窗体上显示出来(如图1-114所示)。这个程序不完整,请把它补充完整,并能正确运行。
要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个命令按钮和一个文本框。程序运行后,单击命令按钮,即可计算出0~200范围内能被3整除的所有整数的和,并在文本框中显示出来。在窗体的代码窗口中,已给出了部分程序,其中计算能被3整除的整数的和的操作在通用过程Fun 中实现,请编写该过程的代码。
要求:请勿改动程序中的任何内容,只在Function Fun()和 End Function 之间填入编写的若干语句。最后把修改后的文件按原文件名存盘。
选项
答案
第1小题 【操作步骤】 步骤1:打开考生文件中的本题工程文件sjt3.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?” 改为正确的内容。 参考代码: arrN(i) = Int(Rnd * 1000) Sum = 0 Sum = Sum + arrN(i) Aver = Sum /20 步骤2:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:打开考生文件下的本题工程文件sjt4.vbp,在代码编辑窗口,编辑Fun函数的内容。 参考代码: Sum = 0 For i = 0 To 200 If i Mod 3 = 0 Then Sum = Sum + i End If Next i Fun = Sum 步骤2:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/H3Fp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有窗体的Form_MouseMove事件过程如下:PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle) If(Button
下列关于控件数组的叙述中,正确的是
对长度为10的线性表进行冒泡排序,最坏情况下需要比较的次数为
设有如下事件过程:PrivateSubForm_Click() Sum=0 Fork=1To3 Ifk
设窗体上有一个文本框Text1和一个命令按钮Command1,并有以下事件过程:PrivateSubCommand1_Click() DimsAsString,chAsString s="" Fork=1ToLen(Te
阅读程序:OptionBase1SubP(b()AsInteger)Fori=1To4b(i)=2*iNextiEndSubPrivateSubForm_Click()
如果在窗体模块中所有程序代码的前面有语句:Dimx,则x是( )。
下面不是键盘事件的是( )。
如果把命令按钮的Cancel属性设置为True,则程序运行后( )。
能够产生1到50之间(含1和50)随机整数的表达式是( )。
随机试题
老年性阴道炎的基本病因是
患者,男,21岁。患急性淋巴细胞白血病,壮热口渴,头痛面赤,咽喉肿痛,时有鼻衄,便秘,舌红绛,苔黄,脉洪大,其证型是()
下列关于五脏所藏的叙述,错误的是
甲公司向乙公司购买机器设备一套,甲公司向乙公司签发了一张银行承兑汇票,银行拒绝承兑,乙公司要求甲公司向自己支付汇票金额及利息,甲公司发现汇票上自己的签章不符合法律规定,甲公司仍然向乙公司支付了汇票金额及其利息,以下说法不正确的是:
某工程项目施工采用《水利水电工程标准施工招标文件》(2009年版),招标文件工期为15个月。承包方投标所报工期为13个月。合同总价确定为8000万元。合同约定:实际完成工程量超过估计工程量25%以上时允许调整单价;拖延工期每天赔偿金为合同总价的1‰,最高拖
下列车船中,可享受免征车船税政策的有()。(2008年考题改编)
下列在自觉控制下实现的有()。
商品等价交换是指()
论述陈鹤琴的“活教育"思想。
在考生文件夹下打开Excel.xlsx文件:选取“季度”行(A2:E2)和“同比增长”行(A5:E5)数据区域的内容建立“簇状柱形图”,图表标题在图表上方,图表标题为“销售同比增长统计图”,清除图例;将图表移动到工作表A7:F17单元格区域,将工作表命
最新回复
(
0
)