首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生20个0~1000的整数,放人一个数组中,然后输出这20个整数中小于500的所有整数之和。程序运行后,单击命令按钮(名称为Commandl,标题为“输出小于50
在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生20个0~1000的整数,放人一个数组中,然后输出这20个整数中小于500的所有整数之和。程序运行后,单击命令按钮(名称为Commandl,标题为“输出小于50
admin
2019-08-21
27
问题
在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生20个0~1000的整数,放人一个数组中,然后输出这20个整数中小于500的所有整数之和。程序运行后,单击命令按钮(名称为Commandl,标题为“输出小于500的整数之和”),即可求出这些整数的和,并显示在窗体上(如图所示)。这个程序不完整,请把它补充完整,并能正确运行。
要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
选项
答案
步骤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 第4个?处填入:Sum+arrN(i) 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
本题要产生随机整数,须使用Rnd函数和Int函数。
Int函数是将参数转换成整数。
Rnd函数返回小于1,但大于或等于0的值,为了生成某吟范围内的随机整数,可使用以下公式:
Int((upperbound—lowerbound+1)*Rnd+lowerbound)
这里,upperbound是随机数范围的上限,lowerbound则是随机数范围的下限。
转载请注明原文地址:https://kaotiyun.com/show/DKUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体画一名为CommonDialog1,则下列与CommonDialog1.ShowOpen方法等效的语句是
为使程序运行时通用对话框CD1上显示的标题为“对话框窗口”,若通过程序设置该标题,则应使用的语句是
窗体上有1个名称为Commandl的命令按钮,事件过程及函数过程如下:PrivateSubCommandl_Click()DimmAsStringm=InputBox("请输入字符串")Printpick_str(m)En
编写如下程序:PrivateSubCommandl_Click()DimnAsLong,SAsStringn=InputBox("输入一个数")DoWhilen<>0S=S&nMod10:s=s&n\
编写如下程序:PrivateSubCommandl_Click()DimxAsInteger,yAsIntegerx=1:y=1Doy=x*yIfy>10ThenExitDoElsex=x+3E
在窗体上画一个组合框,其名称为Combol,然后编写如下事件过程:PrivateSubForm_Load()Combol.Text=”1”Fori=1To10Sum=Sum+iNextiCombol.Text=Sum
有如下程序:PrivateSubForm_Click()DimiAsInteger,nAsIntegerFori=1To20i=i+4:n=n+iIfi>10ThenExitForNext
某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值:PrivateSubCommandl_Click()Dima(10)AsInteger,maxAsIntegerFork=1To10a(k)=Inp
随机试题
2008年3月,美国维斯特公司与中国天元公司订立合同,约定维斯特公司以现金、机器设备和专有技术作价800万美元出资,天元公司以现金、场地使用权、厂房作价200万美元出资,在中国上海设立一家中外合资经营企业。其中:(1)维斯特公司由合营企业提供担保向银行贷
Astudyofthephysicalactivityhabitsof4563adultsfoundthatthosewhosaidtheydidthemosthouseworkwerealsothelarg
公共关系部门对内关系的根本目标是()
患者,女性,18岁,上唇红肿疼痛5天,加重伴寒战,高热,头痛2天。查体:表情淡漠,体温39.5℃,脉搏120次/分,上唇隆起,呈紫红色,有多个脓栓,鼻部、眼部及其周围广泛肿胀,发硬,触痛。实验室检查:白细胞25×109/L,中心粒细胞0.90。该病例早
单位在进行资产重组时,一般应进行()。
从红利收益率和市场对优秀增长类公司发出的价格信号来看,红利收益率通常和公司增长能力呈()关系。
2012年12月31日,乙公司预计某生产线在未来4年内每年产生的现金流量净额分别为400万元、600万元、800万元、1200万元。2017年产生的现金流量净额以及该生产线使用寿命结束时处置形成的现金流量净额合计为800万元;假定按照5%的折现率和相应期间
8月25日,甲向乙借款10万元,并用自己所有的一辆汽车抵押,但没有办理抵押登记。同年9月3日、5日,甲分别向丙、丁借款10万元,同样以该汽车抵押,并分别于9月7日、8日办理了抵押登记。同年9月15日,甲向戊借款10万元,也用该汽车抵押,但没有办理抵押登记,
简述现阶段我国体育教学评价的特点。
某公司数据库的两个关系为:部门(部门号,部门名,负责人,电话)和员工(员工号,姓名,住址)。假设每个部门有若干名员工,一名负责人,一部电话;员工号为员工关系的主键。若部门名是唯一的,请将下述SQL语句的空缺部分补充完整。CREATETAB
最新回复
(
0
)