首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生30个0~1000的整数,将其放入一个数组中,然后输出其中的最大值。程序运行后,单击命令按钮(名称为Commandl,标题为“输出最大值”,如图所示),即可求出
在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生30个0~1000的整数,将其放入一个数组中,然后输出其中的最大值。程序运行后,单击命令按钮(名称为Commandl,标题为“输出最大值”,如图所示),即可求出
admin
2018-12-20
50
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
有下面程序代码:PrivateSubCommand1_Click()DimaAsStringa="COMPUTER"n=search(a,"T")PrintIIf(n=0,"未找到",
下面控件中,没有Caption属性的是( )。
执行以下程序段:a$="VisualBasicProgramming"b$="C++"c$=UCase(Left$(a$,7))&b$&Right$(a$,12)后,变量c$的值为( )。
设窗体上有一个名称为List1的列表框,并有若干列表项。下面语句中不能在所有列表项之后追加一个列表项的是
下面属于白盒测试方法的是
假定Picture1和Text1分别为图片框和文本框的名称,则下列错误的语句是( )。
下列控件中,没有Caption属性的是( )。
下列说法中正确的是
设某二叉树的前序序列为ABC,中序序列为CBA,则该二叉树的后序序列为
下列说法中,错误的是
随机试题
宜家家居在市场上出售的产品,其质量要高于市场同类产品的平均质量标准,价格要低于市场平均水平。这种需求导向定价方法属于()
28岁,葡萄胎清宫术后3年,足月经阴分娩一婴后8个月,哺乳期月经不规律,出现咳嗽、咯血2天,伴右胸部隐痛,无阴道流血。胸部X线片显示两肺棉絮样阴影。首先考虑的诊断是()
在滤线栅表面上,平均1cm2中铅的体积(cm3)称
易入血分,可会聚于局部,腐蚀血肉,发为痈肿疮疡的邪气是
不计数额,下列哪一选项构成侵占罪?
体育课密度是指体育课中各项教学活动________与上课的总时间比。
近日,北京三联韬奋书店推出了为期10天的“深夜书房”活动,该活动受到了李克强总理的赞扬。对于“深夜书房”,你怎么看?
Formostofhumanhistoryrichpeoplehadthemostleisure.Ontheotherhand,thepoorhavetypicallyworkedpersistently.Hans
PASSAGETWOAccordingtotheauthor,whatistheWorldBan’srealproblem?
(1)InhisbookInDefenceofFood’.AnEater’sManifesto,MichaelPollanurgedpeopleto"Eatfood.Nottoomuch.Mostlyplants
最新回复
(
0
)