首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生20个0~1000的整数,放入一个数组中,然后输出这20个整数中小于500的所有整数之和。程序运行后,单击命令按钮(名称为Command1,标题为“输出小于50
在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生20个0~1000的整数,放入一个数组中,然后输出这20个整数中小于500的所有整数之和。程序运行后,单击命令按钮(名称为Command1,标题为“输出小于50
admin
2020-08-10
28
问题
在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生20个0~1000的整数,放入一个数组中,然后输出这20个整数中小于500的所有整数之和。程序运行后,单击命令按钮(名称为Command1,标题为“输出小于500的整数之和”),即可求出这些整数的和,并显示在窗体上(如图所示)。这个程序不完整,请把它补充完整,并能正确运行。
要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
选项
答案
本题要产生随机整数,须使用Rnd函数和Int函数。 Int函数是将参数转换成整数。 Rnd函数返回小于1,但大于或等于0的值,为了生成某个范围内的随机整数,可使用以下公式: Int( ( upperbound_lowerbound+1) * Rnd+lowerbound ) 这里,upperbound是随机数范围的上限,lowerbound月握随机数范围的下限。 步骤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(j) 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/ySHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设窗体上有1个名称为HScroll1的水平滚动条,其Max、Min属性分别设置为100、1;有2个名称分别为Option1、Option2的单选按钮,其标题分别为“30”、“50”;还有下面程序代码:PrivateSubOption1_Click()
在窗体上画一个命令按钮和一个标签,其名称分别为Commandl和Labell,然后编写如下事件过程:PrivateSubCommandl_Click()Dimarr(10)Fori=6To10arr(i)=i一5NextiLa
窗体上有名称为Commandl的命令按钮和名称为Textl的文本框PrivateSubCommand1_Click()Textl.Text=”程序设计”Text1.SetFocus
在窗体上画一个名称为List1的列表框,然后编写如下程序:PrivateSubForm_Click0Fori=1To10Item=”Item”&i:Listl.Addltem
在VB中,函数过程与子程序过程的区别之一是
在窗体上画一个通用对话框,程序运行中用ShowOpen方法显示“打开"对话框时,希望在该对话框的“文件类型”栏中只显示扩展名为DOC的文件,则在设计阶段应把通用对话框的Filter属性设置为
设工程中有2个窗体:Form1和Form2,每个窗体上都有一个名称为Text1的文本框。若希望把Form1上文本框中的内容复制到Form2上的文本框中,应进行的操作是
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据:PrivmeSubCommand1_Click()DimslAsString,s2AsString
设有如下程序:PrivateSUbFormClick().num=InputBox(“请输入一个实数”):P:InStr(num,“.”)Ifp>0ThenPrintMid(num,P+1)Prim“END”EndIf运行程序单击窗
随机试题
材料1在11月1日召开的民营企业座谈会上,习近平总书记发表重要讲话,高度评价改革开放40年来民营经济为我国发展作出的重大贡献,充分肯定民营经济的重要地位和作用,深入分析当前民营经济发展遇到的困难和问题,明确提出了大力支持民营企业发展壮大6个方面的政策举
对于“瘦狗”型的经营单位,企业应该采取的战略是()
A.小剂量胰岛素及大量输液B.大剂量胰岛素及大量输液C.单纯饮食控制D.服降血糖药E.饮食治疗+胰岛素初诊2型糖尿病轻症患者治疗可选用
正常成人安静状态下的每分心输出量约为
备案制项目文件的具体内容和格式,由()根据本地实际情况确定。
某公司从日本进口一批菠菜种子,从美国进口一批生皮牛,( )不是办理这两批商品的报检时都要提供的单据。
下列租赁业务相关的交易或事项应直接计入当期损益的有()。
道德教育的认知模式是由美国的柯尔伯格提出来的。()
派出所民警小李应同学小张求助,利用公安信息系统查询到失联债务人王二的信息,小张因此得以向王二讨回欠款2万元。关于小李的查询行为,下列说法正确的是:
有一个号码是六位数,前四位是2857,后两位记不清,即2857??。但是我记得,它能被11和13整除,那么这个号码是:
最新回复
(
0
)