首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生20个0—1000的整数,将其放入一个数组中,然后输出这20个整数的平均值。程序运行后,单击命令按钮(名称为Commandl,标题为“输出平均值”),即可
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生20个0—1000的整数,将其放入一个数组中,然后输出这20个整数的平均值。程序运行后,单击命令按钮(名称为Commandl,标题为“输出平均值”),即可
admin
2017-12-14
27
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生20个0—1000的整数,将其放入一个数组中,然后输出这20个整数的平均值。程序运行后,单击命令按钮(名称为Commandl,标题为“输出平均值”),即可求出其平均值,并显示在窗体上(如图所示)。这个程序不完整,请把它补充完整,并能正确运行。
要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0一200范围内能被3整除的所有整数的和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计算能被3整除的整数的和的操作在通用过程Fun中实现,请编写该过程的代码。
要求:请勿改动程序中的任何内容,只在Function Fun()和End Function之间填入你编写的若干语句。
最后将修改后的文件按原文件名存盘。
选项
答案
(1)表达式Int(Rnd*1000)可生成0—1000范围内随机整数。根据题意求出20个随机整数的平均值,须用For循环语句逐一将数组中的各元素累加到变量Sum,然后求出平均值。 【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Option Base 1 Private Sub Commandl—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)判断0~200范围内的数能不能被3整除,须使用求余运算符Mod,如果余数不为0,则表示该数不能被整除。并需要设置一个变量,以累计不能被3整除的数的和。 【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Sub SaveData() Open App.Path&”\”&”outtxt.txt”For Output As#1 Print#1,Textl.Text Close#1 End Sub Function Fun() End Function Private Sub Commandl—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/HgGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Text1的文本框.然后画一个名称为HScroll1的滚动条,其Min和Max属性分别为0和100。程序运行后,如果移动滚动框,则在文本框中显示滚动条的当前值,如图16-6所示。以下能实现上述操作的程序段是______。
在软件生命周期中,能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是______。
VisualBasic中的控件分为3类,它们是标准控件、【】和可插入对象。
窗体上有一个名称为Listl的列表框,列表框中有若干数据项,列表框Style属性为l;有一个名称为Label2的标签:还有一个名称为Commandl,Caption属性为“计算”的命令按钮(见图)。运行程序,在列表框中选中某些数据项后,单击命令按钮,则可以
用Write和Print语句向文件中写入多个数据的差别在于______。
下面程序代码实现单击命令按钮Command1时输出如下结果:1-1-111-1111该程序不完整,请填空。PrivateSubCommand1_Click()
表达式Fix(-465)+Int(-515)的值是【】。
设有表示学生选课的三张表,学生S(学号,姓名,性别,年龄,身份证号),课程C(课号,课名),选课SC(学号,课号,成绩),则表SC的关键字(键或码)为
数据流图中带有箭头的线段表示的是
三角形的构成条件是:任意2边之和大于第3边。设变量a、b、c是3条直线的长度,要求判断这3条直线能否构成一个三角形。下面有3个程序段可以正确判断,另一个不能正确判断的是
随机试题
“一步法”防腐主要机具有上管机构、传动系统、除锈机、加热装置、挤出机、供料系统、冷却装置、()等。
阅读《门槛》中的一段文字,回答下列小题:姑娘跨进了门槛。——厚厚的门帘立刻放下来遮住了她。“傻瓜!”有人在后面咬牙切齿地咒骂。“一位圣人。”不知从什么地方传来这一声回答。“姑娘跨进了门槛”象征着什么?
新生儿假月经多发生于出生后
治疗慢性Ⅱ型呼吸衰竭患者,给氧的原则是
一次事故中死亡职工10人以上(含10人)的事故属于( )。
下列各项中.按税法规定可以不征或者免征土地增值税的有()。
谈谈对扩大公民知情权意义的理解。
行政组织具有鲜明的政治性,是为统治阶级的利益服务的。()
单位要举办“绿色环保宣传周”的活动。但是缺少专项经费,并且在活动的宣传中还不允许耗费纸张,要求“无纸化”办公,领导将这项工作交给你负责,你该如何开展此次宣传教育工作?
SupposeadepartmentstoreisrecruitingEnglish-speakingassistantstoworkduringthewinter.Writeanapplicationletterto
最新回复
(
0
)