首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件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
27
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。命令按钮的单击事件过程如下:PrivateSubCommand1_Click()Dimx1AsInteger,x2AsInteger,x3AsInteger
窗体上有1个名称为Text1的文本框;1个名称为Timerl的计时器控件,其Interval属性值为5000,Enabled属性值是True。Timer1的事件过程如下:PrivateSubTimerl_Timer()StaticflagAs
设有如下声明语句OptionBase1Dimarr(2,-1To5)AsInteger则数组arr中数组元素的个数是
设窗体上有一个列表框控件List1,含有若干列表项。以下能表示当前被选中的列表项内容的是()。
窗体上有名称为Commandl的命令按钮和名称为Textl的文本框PrivateSubCommand1_Click()Textl.Text=”程序设计”Text1.SetFocus
在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1),程序运行后,在文本框中每输入一个字符,都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是
设在一个工程的窗体中有如下代码:PublicxAsIntegerPrivateSubForm_Load()DimYAsIntegerEndSub在该工程的标准模块的声明部分有代码:PublicaAsInteger:P
窗体上有1个名称为Text1、内容为空的文本框。编写如下事件过程:PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)PrintText1.Text;EndSub运行程序,并在
在VB中,函数过程与子程序过程的区别之一是
阅读程序:OptionBase1PrivateSubFormClick()DimArr(3,3)AsIntegerFori=1To3Fori=1To3Ifj=iOrj=3一i+1ThenArr(i,j)=
随机试题
时间即是生命。我们的生命是一分秒地在消耗着,我们平常不大觉得,细想起来实在值得警惕。我们每天有许多的零碎时间于不知不觉中浪费掉了。我们若能养成一种利用闲暇的习惯,一遇空闲,无论其为多么短暂,都利用之做一点有益身心之事,则积少成多终必有成。常听人讲起“消遣”
经济学分析中所说的短期是指
语音震颤减弱或消失主要见于【】
A.丙酮酸激酶B.丙酮酸羧化酶C.苹果酸酶D.磷酸烯醇式丙酮酸羧激酶催化反应的底物或产物中都没有CO2的是
采血室、成分分离室空气细菌菌落总数检查,检查频次和标准是
A.肺动脉栓塞B.肺部感染C.肺部肿瘤D.肺水肿E.肺气肿肺通气/灌注显像不“匹配”,即局部通气正常,灌注缺损,考虑可能为
高考过后,同学们都在思考以后的发展,比如报考什么大学,选择什么专业等,而璐璐则看上去很轻松,他说这些父母都替他规划好了,只要听父母的就没错,璐璐的情况属于()。
设总体x的概率分布如下从总体中抽取n个简单随机样本,N1表示n个样本中取到-1的个数,N2表示n个样本中取到0的个数,N3表示n个样本中取到1的个数,则N1与N2的相关系数为()
若有以下定义:structlink{intdata;strnctlink*next;}a,b,c,*p,*q;且变量a和b之间已有如下图所示的链表结构:指针p指向变量a,q指向变量c。则能够
Whatwillthemandointhemorning?
最新回复
(
0
)