首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值: Private Sub Command1_Click() Dim a(10)As Integer, max As Integer For k=1 To 10 a(k)=In
某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值: Private Sub Command1_Click() Dim a(10)As Integer, max As Integer For k=1 To 10 a(k)=In
admin
2020-02-27
49
问题
某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值:
Private Sub Command1_Click()
Dim a(10)As Integer, max As Integer
For k=1 To 10
a(k)=InputBox("输入一个整数")
Next k
max=0
For k=1 To 10
If a(k)>max Then
max=a(k)
End If
Next k
Print max
End Sub
运行程序时发现,当输入10个正数时,可以得到正确结果,但输入10个负数时结果是错误的,程序需要修改。下面的修改中可以得到正确运行结果的是( )。
选项
A、把If a(k)>max Then改为If a(k)
B、把max=a(k)改为a(k)=max
C、把第2个循环语句For k=1 To 10改为For k=2 To 10
D、把max=0改为max=a(10)
答案
D
解析
程序中把变量max的初始值设置为0,没有考虑到负数的情况。应该把它的初始值设置为数组中的一个元素的值,然后让数组中的各个元素与这个值比较,如果比它大,就替换变量max的值,这样才能得到数组中的最大值。因此要修改max=0这一行。
转载请注明原文地址:https://kaotiyun.com/show/NDTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为Command1的命令按钮,其单击事件过程如下:PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerStaticzAsIntegerx
设有以下过程:PrivateSubproc(xAsInteger,OptionalyAsInteger)Printx,yEndSub针对此过程,下面正确的过程调用语句是
设:a=12,b=5,c=7,表达式x=(a\c+aModb)+Int(13/5)的值是( )。
下列叙述中正确的是
在窗体中添加一个命令按钮、一个标签和一个文本框,并将文本框的Text属性置空,编写命令按钮Commandl的Click事件代码:PrivateFunctionfun(xAsLong)AsBooleanIfxMod2=0Thenfun
在窗体上域一个名称为Command1的命令按钮,并编写如下事件过程:PrirateSubCommand1_Click()x=1s=0Fori=1To5x=x/is=s+xNex
设窗体上有1个名称为HScroll1的水平滚动条,其Max、Min属性分别设置为100、1;有2个名称分别为Option1、Option2的单选按钮,其标题分别为"30"、"50";还有下面程序代码:PrivateSubOption1_Cli
以下关于控件数组的叙述中,错误的是( )。
在程序运行时,下面的叙述中正确的是()。
随机试题
被黄宗羲誉为“明文第一”的作家是()
A.医德修养为医务人员完善医德人格所必需B.医德修养为妥善处理医患关系所必需C.医德修养为妥善处理医护关系所必需D.医德修养为转变不良医风所必需E.医德修养为有效保护自己所必需不宣作为医德修养的意义之根据的表述是
汤姆为美国人,因在中国犯故意伤害罪被检察院起诉到某中级人民法院,该法院哪些做法是错误的?()
上海证券交易所和深圳证券交易所自( )起实行退市风险警示制度。
个人医疗贷款须提供银行认可的合法、有效、可靠的担保。()
简述食物中毒调查的主要内容和方法。
【2014.广西】新课改规定从小学至高中设置综合实践活动并作为选修课程。()
行政决策中枢系统,在行政决策组织体系中属“神经系统”。()
Videorecordersandphotocopiers,eventicketmachinesontherailways,oftenseemunnecessarilydifficulttouse.LastDecember
A、Heisaprofessor.B、Heisajournalist.C、Heisanartist.D、Heisadirector.BW:Howdoyoulikeyournewjob?M:Fine.You
最新回复
(
0
)