首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生20个0—1000之间的整数,将其放入一个数组中,然后输出这20个整数的平均值。程序运行后,单击命令按钮(名称为Command1,标题为“输出平均值”),
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生20个0—1000之间的整数,将其放入一个数组中,然后输出这20个整数的平均值。程序运行后,单击命令按钮(名称为Command1,标题为“输出平均值”),
admin
2018-05-08
43
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生20个0—1000之间的整数,将其放入一个数组中,然后输出这20个整数的平均值。程序运行后,单击命令按钮(名称为Command1,标题为“输出平均值”),即可求出其平均值,并显示在窗体上(如图所示)。这个程序不完整,请把它补充完整,并能正确运行。
要求:去掉程序中的注释符,把程序中的“?”改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0—200范围内能被3整除的所有整数的和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计算能被3整除的整数的和的操作在通用过程Fun中实现,请编写该过程的代码。
要求:请勿改动程序中的任何内容,只在Function Fun()和End Function之间填入你编写的若干语句。最后将修改后的文件按原文件名存盘。
选项
答案
(1)【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Option Base 1 Private Sub Command1_Click() Dim arrN(20) As Integer Dim Aver As Single Dim Sum As Integer, i Randomize For i = 1 To 20 ’ arrN(i) = Int(Rnd * ?) Next i ’ Sum =? For i = 1 To 20 ’ Sum = ? Next i ’ Aver = ? Print Aver End Sub 程序结束 参考答案 第1个?处填入:1000 第2个?处填入: 0 第3个?处填入:Sum + arrN(i) 第4个?处填入:Sum / 20 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Sub SaveData() Open App.Path & "\" & "outtxt.txt" For Output As #1 Print #1, Text1.Text Close #1 End Sub Function Fun() End Function Private Sub Command1_Click() d = Fun() Text1.Text = d SaveData End Sub 程序结束 参考答案 Function Fun() Dim s As Integer, i As Integer For i = 0 To 200 If i Mod 3 = 0 Then s = s + i End If Next i Fun = s End Function 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/qlGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设窗体上有2个文本框Textl和Text2,并有下面的事件过程:DimnPrivateSubTextl_KeyPress(KeyAsciiAsInteger)If“A”<=Chr(KeyAscii)An
设有下面程序代码:OptionBase1PrivateSubCommandl_Click()Dimx(6)a=Array(4,2,5,1,6,3)b=Array(6
在窗体上画1个命令按钮,并编写如下事件过程:PrivateSubCommandl_Click()Dima(3,3)Form=1T03Forn=1To3
已知:x=-6y=39则表达式“y\x*Sgn(x)”的值为
有下面程序代码:PrivateSubCommandl_Click()DimsignAsIntegersign=1a=1:b=2Fork=1To5
要想使列表框只允许单选列表项,应设置的属性为
若已把一个命令按钮的Default属性设置为True,则下面可导致按钮的Click事件过程被调用的操作是
若要把窗体上命令按钮Commandl的状态设置为不可用,应该执行的命令是
(1)在名称为Forml的窗体上添加一个名称为Shapel的形状控件,要求在属性窗口中将其形状设置为椭圆,其短轴(垂直方向)、长轴(水平方向)的长度分别为800、1600。把窗体的标题改为“Shape控件”,窗体上无最大化、最小化按钮。程序运行后的窗体如图
如果在列表框List1中没有选中项目,则List1.ListIndex的值为
随机试题
行政机关受理或者不予受理行政许可申请,应当出具加盖本行政机关专用印章和注明日期的书面凭证()
民族问题表现的范围包括()。
流行性出血热病毒是
在对高程测量,用水平面代替水准面的限度是()。
在证券承销业务中,应注意依据历史上不同的文件规定,对于已设立的股份有限公司的资产评估历史进行( )。
根据《票据法》的规定,支票的下列记载事项中,出票人可以授权补记的是()。
由于冰河期消失、气候转暖,中石器时代的绘画由洞窟转移到露天岩壁。随着人们狩猎工具的进步,对大自然征服力的增强,动物形象在绘画中逐渐减少并失去原始的野性,而人类活动开始成为绘画描绘的主要对象。岩画主要分布在北欧和西班牙的拉文特地区。它们以人类狩猎为主要情节,
明成祖姓名朱棣,其子明仁宗姓名朱高炽,仁宗之子明宣宗姓名朱瞻基,宣宗之子明英宗姓名朱祁镇。从这几位皇帝的名字来看,体现了明朝皇室命名的思想是:
A、 B、 C、 D、 D
设有如下过程:X=1Dox=x+2LoopUntil()运行程序,要求循环体执行3次后结束循环,空白处应填入的语句是()。
最新回复
(
0
)