首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生30个0~1000的整数,将其放入一个数组中,然后输出其中的最大值。程序运行后,单击命令按钮(名称为Commandl,标题为“输出最大值”,如图所示),即可求出
在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生30个0~1000的整数,将其放入一个数组中,然后输出其中的最大值。程序运行后,单击命令按钮(名称为Commandl,标题为“输出最大值”,如图所示),即可求出
admin
2018-12-20
51
问题
在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生30个0~1000的整数,将其放入一个数组中,然后输出其中的最大值。程序运行后,单击命令按钮(名称为Commandl,标题为“输出最大值”,如图所示),即可求出其最大值,并显示在窗体上。这个程序不完整,请把它补充完整,并能正确运行。
要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
选项
答案
步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Option Base 1 Private Sub Commandl_Click() Dim arrN(30)As Integer Dim Max As Integer Randomize For i=1 To 30 ’arrN(i)=Int(Rnd*?) Next i ’?=arrN(1) For i=2 To 30 ’If?Then Max=arrN(i) End If Next i Print Max End Sub 程序结束 第1个?处填入:1000 第2个?处填入:Max 第3个?处填入:arrN(i)>Max或Max<arrN(i) 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
Rnd()函数用于产生一个小于1但大于或等于0的随机数。
本题程序用变量Max记录最大数,最初把数组的第一个元素的值赋给Max,然后通过For循环语句将其后的元素依次与之比较,如果其值大于Max则将其赋值给Max,依次类推,最终Max的值就是数组各元素中的最大值。
转载请注明原文地址:https://kaotiyun.com/show/CwFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程:PrivateSubCommand1_Click() a=InputBox("Enteranintege
确定图片框Picture1在窗体上位置的属性是( )。
VB应用程序不能把一个二维表格中的数据存入文件
在关系模型中,每一个二维表称为一个()。
在VisualBasic中,所有标准控件都具有的属性是( )。
已知:x=-6y=39则表达式"y\x*Sgn(x)"的值为( )。
假定Picture1和Text1分别为图片框和文本框的名称,则下列错误的语句是( )。
为了判断字符串变量ch中是否是一个大写字母,需要编写这样一个表达式:当ch中字符为大写字母时,表达式的值为True,否则为False。下面能正确实现这一目的的表达式是
设二叉树中共有31个结点,其中的结点值互不相同。如果该二叉树的后序序列与中序序列相同,则该二叉树的深度为
对于图片框和图像控件,下列说法错误的是
随机试题
下列脉象可见于平人的是
汇票分为商业汇票和银行汇票,而商业汇票按照承兑人的不同,可以分为商业承兑汇票和银行承兑汇票。( )
施工现场出入口处应采取保证车辆清洁的措施。()
矩阵式组织结构的优点有()。
下列各项中,属于个人资产负债表中流动资产的是()。
决策者对未来的情况不仅不能完全确定,但对未来情况出现的可能性——概率的具体分布是已知的或可以估计的,这种情况下的决策称为()。(2004年单项选择题)
forgrantedaccountsenablesA.itonly【T1】______peopletoproduceB.healsotookit【T2】______C.it【T3】______forthed
Doyouhaveanyknowledgeofthespacestation?Aspacestationisaplace【21】______peoplecanandworkonspace【22】______
WhatisthedecisionoftheEuroMPswhichallowsUSofficialstoaccessEuropeans’bankdata?
Theyoungpeopleofthepresentdayarebeyondmycomprehension.
最新回复
(
0
)