首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生20个0~1000的整数,将其放入一个数组中,然后输出这20个整数的平均值。程序运行后,单击命令按钮(名称为Command1,标题为“输出平均值”),即可求出其
在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生20个0~1000的整数,将其放入一个数组中,然后输出这20个整数的平均值。程序运行后,单击命令按钮(名称为Command1,标题为“输出平均值”),即可求出其
admin
2018-06-20
23
问题
在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生20个0~1000的整数,将其放入一个数组中,然后输出这20个整数的平均值。程序运行后,单击命令按钮(名称为Command1,标题为“输出平均值”),即可求出其平均值,并显示在窗体上(如图所示)。这个程序不完整,请把它补充完整,并能正确运行。
要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vhp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0~200范围内能被3整除的所有整数的和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计算能被3整除的整数的和的操作在通用过程Fun中实现,请编写该过程的代码。
要求:请勿改动程序中的任何内容,只在Function Fun()和End Function之间填入你编写的若干语句。最后将修改后的文件按原文件名存盘。
选项
答案
(1)【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Option Base1 Private Sub Command1_Click() Dim arrN(20)As Integer Dim Aver As Single Dim Sum As Integer,i Randomize For i=1To20 ’arrN(i)=Int(Rnd*?) Next i ’Sum=? For i=1To20 ’Sum=? Next i ’Aver=? Pdnt 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 Funetion Private Sub Command1_Click() d=Fun() Text1.Text=d SaveData End Sub 程序结束 Function Fun() Dim s As Integer,i As Integer For i=0To200 If i Mod3=0Then s=s+i End If Next i Fun=s End Funetion 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://jikaoti.com/ti/Jpy0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下程序:PrivateSubCommandl_Click()Dima(3,3)AsInteger,b(3,3)AsIntegerFori=1To3For
假定有以下程序段Fori=1To3Fori=5To1Step-1Printi*jNextjNexti则语句Printi*j的执行次数是
以下不可以作为“容器”的控件是
设有以下过程:PrivateSubproc(xAsInteger,OptionalyAsInteger)Printx,yEndSub针对此过程,下面正确的过程调用语句是
以下程序的功能是随机产生10个两位的整数:OptionBase1PrivateSubCommandl_Click()Dima(10)AsInteger,iAsIntegerR
需求分析阶段的任务是()。
在窗体上画一个通用对话框,程序运行中用ShowOpen方法显示“打开”对话框时,希望在该对话框的“文件类型”栏中只显示扩展名为DOC的文件,则在设计阶段应把通用对话框的Filter属性设置为
若实体A和B是一对一的联系,实体B和C是多对一的联系,则实体A和C的联系是
公司中有多个部门和多名职员,每个职员只能属于一个部门,一个部门可以有多名职员。则实体部门和职员间的联系是
已知在4行3列的全局数组score(4,3)中存放了4个学生3门课程的考试成绩(均为整数)。现需要计算每个学生的总分,某人编写程序如下:OptionBase1PrivateSubCommand1_Click() DimsumAsInt
随机试题
下列不是企业技术开发对象的是
(2005年)图4.3—1为某环节的对数幅值随频率变化渐近线(图中dec表示10倍频程),在下列频率特性中哪个和图4.3—1相符合?()
背景材料:某施工单位承接了一座7×30m后张法预应力混凝土简支T梁桥,施工单位严格按照设计文件和相关施工技术规范的要求进行施工,并作了以下主要检验内容:混凝土强度、T梁的宽度和高度、梁长、支座表面平整度以及横系梁及预埋件位置。在质量控制方面,开展了主梁预
甲公司为增值税一般纳税人,适用的增值税税率为16%,2018年12月发生如下相关交易或事项:(1)3日,甲公司采用托收承付方式向乙公司销售商品一批,增值税专用发票上注明售价200万元,增值税税额32万元,该批商品成本为120万元,双方签订合同时,甲公司得
“猜想与假设”是科学探究的基本要素之一,以“声现象”一章的实验内容为例,说明教师如何提出问题引导学生进行猜想。
下列有关国家与本国货币名称不匹配的是()。
小红同学在学完素描后,很快就掌握了油画的绘画技巧。这一现象称为()。
2017年全国举办马拉松赛事达1102场,其中,中国田径协会举办的A类赛事223场,B类赛事33场。2017年马拉松赛事的参与人次达到了498万人次,2016年、2015年马拉松赛事的参与人次分别为280万人次、150万人次。2017
设,又P1=,P2=,则().
ReadthearticlebelowaboutCrashingCarstoTextforHelp.Choosethecorrectwordtofilleachgap,fromA,BorC.
最新回复
(
0
)