首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生20个0—1000范围内的整数,然后放入一个数组中,然后输出这20个整数中大于500的所有整数之和。程序运行后,单击命令按钮(名称为Command1,标题
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生20个0—1000范围内的整数,然后放入一个数组中,然后输出这20个整数中大于500的所有整数之和。程序运行后,单击命令按钮(名称为Command1,标题
admin
2019-06-20
59
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生20个0—1000范围内的整数,然后放入一个数组中,然后输出这20个整数中大于500的所有整数之和。程序运行后,单击命令按钮(名称为Command1,标题为“输出大于500的整数之和”),即可求出这些整数的和,并显示在窗体上(如图所示)。这个程序不完整,请把它补充完整,并能正确运行。
要求:去掉程序中的注释符,把程序中的“?”改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjf4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一一个命令按钮。程序运行后,单击命令按钮,即可计算出0~100范围内不能被7整除的所有整数的和,并显示在文本框中。在窗体的代码窗口中,已给出部分程序,其中在通用过程Fun中实现计算不能被7整除的整数的和的操作,请编写该过程代码。
要求:请勿改动程序中的任何内容,只在Function Fun()和End Function之间填人编写的若干语句。最后将修改后的文件按原文件名存盘。
选项
答案
(1)【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Option Base 1 Private Sub Command1_Click() Dim arrN(20) As Integer Dim Sum As Integer Randomize For i = 1 To 20 ’ arrN(i) = Int(Rnd * ?) Next i ’ Sum = ? For i = 1 To 20 ’ If ? Then ’ Sum = ? End If Next i Print Sum End Sub 程序结束 参考答案 第1个?处填入:1000 第2个?处填入:0 第3个?处填入:arrN(i) > 500 或500
0 Then s = s + i End If Next i Fun = s End Function 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/DrUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列叙述中正确的是
编写如下程序:PrivateSubCommand1_Click()DimmAsInteger,nAsIntegerm=1:n=0DoWhilem<20n=m+n:m=3*m+1LoopPrintm,nEndSub程序
设有以下程序:PrivateSubForm_Click()x=50Fori=1To4y=InputBox("请输入一个整数")y=Val(y)IfyMod5=0Thena=a+yx=yElsea=a+xEndIfNext
假定有以下函数过程:FunctionFun(SAsString)AsStringDims1AsStringFori=1ToLen(S)s1=LCase(Mid(S,i,1))+s1NextiFun=S1EndFuncti
以下自定义数据类型的语句中,正确的是
若在窗体模块的声明部分声明了如下自定义类型和数组PrivateTyperecCodeAsInteger:CaptionAsStringEndTypeDimarr(5)Asrec则下面的输出语句中正确的是
设窗体上有1个水平滚动条,已经通过属性窗口把它的Max属性设置为1,Min属性设置为100。下面叙述中正确的是
以下描述中,不是线性表顺序存储结构特征的是()。
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图3—169所示。运行程序,单击“读数据”按钮,文件中的数据被读入字符串变量中并显示在Label2标签中。单击“排序”按钮时,对读入的数据从小到大排序,并将排序结果显示在窗体的Label4控件中。要求
下列关于线性链表的描述中,正确的是()。I、只含有一个指针域来存放下一个元素地址II、指针域中的指针用于指向该结点的前一个或后一个结点(即前件或后件)III、结点由两部分组成:数据域和指针域。
随机试题
A)InDecemberof1869,CongressappointedacommissiontoselectasiteandprepareplansandcostestimatesforanewStateD
细胞免疫功能的测定不包括
金黄色葡萄球菌肺炎在X线胸片上有哪些特征
29岁女性。原发不孕,自述自幼瘦弱,平时月经欠规律,2~5d/30~60d,最近感觉低热乏力。检查子宫未产型中位,不活动,双附件索条增粗,为确诊生殖器结核,下列检查和分析哪项不正确
设A,B满足A*BA=2BA一8E,其中,求矩阵B。
设f(x)在(-∞,+∞)连续,以T为周期,令F(x)=f(t)dt,求证:(Ⅰ)F(x)一定能表成:F(x)=kx+φ(x),其中k为某常数,φ(x)是以T为周期的周期函数;(Ⅱ)f(x)dx;(Ⅲ)若又有f(x)≥0(x∈(-∞,+∞)),n为自
执行下列语句段后,输出字符“*”的个数是()。for(inti=50;i>1;i-=2)cout
A、Lauradoesn’tunderstandtheproposal.B、Laurawillnotaccepttheproposal.C、Laurawillaccepttheproposal.D、Laura’spropo
A、Aphotographer.B、Aburglar.C、Areporter.D、Aprofessor.B信息明示题。文章最后指出,hewasthemostaccomplishedburglar,由此可知Penury是个夜贼,所
HowPsychologyCanHelpthePlanetStayCool[A]"I’mnotconvincedit’sasbadastheexpertsmakeout...It’severyoneelse
最新回复
(
0
)