首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生30个0~1000的整数,将其放入一个数组中,然后输出其中的最大值。程序运行后,单击命令按钮(名称为Commandl,标题为“输出最大值”,如图所示),即可求出
在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生30个0~1000的整数,将其放入一个数组中,然后输出其中的最大值。程序运行后,单击命令按钮(名称为Commandl,标题为“输出最大值”,如图所示),即可求出
admin
2018-12-20
44
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
设工程中有2个窗体:Form1、Form2,Form1为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后,隐藏Form1,显示Form2。若口令为"Teacher
PrivateFunctionf(yAsInteger) f=y*yEndFunction运行上述程序,如下叙述中正确的是( )。
设有如下的程序段:n=0Fori=1To3 Forj=1Toi Fork=jTo3n=n+1 Nextk NextjNexti执行上面的程序段后,n的值为( )。
以下变量名中合法的是( )。
文本框Text1的KeyDown事件过程如下:PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger) ...EndSub其中参数KeyCode的值表示的是发生此事件时(
下列叙述中正确的是
有三个关系R、S和T如下:则关系T是由关系R和S通过某种操作得到,该操作为( )。
下列控件中,没有Caption属性的是( )。
设二叉树如下:则后序序列为
随机试题
《传染病防治法》规定应予以隔离治疗的是
A.Ⅰ期临床评价B.Ⅱ期临床评价C.Ⅲ期临床评价D.Ⅳ期临床评价E.终身评价新药临床试验分为四个阶段,即临床Ⅰ、Ⅱ、Ⅲ、Ⅳ期是治疗作用的初步评价阶段,主要评价药物对目标适应证患者的治疗作用和安全性,为下一阶段临床试验研究的设计和给药剂量方案的
在确定折现率时,通常需要综合参考的投资报酬率有()。
散客旅游的特点有()。
“供给侧改革”的提出,表明我国官方经济学思想已由以前的重需求管理、重短期刺激,转变为供给、需求“两手抓”,甚至是偏向供给管理。()
微分方程y’+ytanx=cosx的通解为y=______________。
下面概念中,不属于面向对象方法的是______。
以下函数把b字符串连接到a字符串的后面,并返回a中新字符串的长度。请填空。strcen(chara[],charb[]){intnum=0,n=0;while(*(a+num)!=【】)num++;while(b[n])
TheOlympicGameshelpedtokeeppeaceamongthepugnaciousstatesoftheGreekworldinthatasacredtrucewasproclaimedduri
【T1】在中国人的心目中(consensus),似乎没有一部小说可以与《红楼梦》比肩。【T2】《红楼梦》既可以拥有亿万的读者(claim),也带有众多的谜团。【T3】这部小说是中国古典小说的巅峰之作,有一般文化的人都可以读懂它(comprehensibl
最新回复
(
0
)