首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值: Private Sub Command1_Click() Dim a(10)As Integer,max As Integer For k=1 To 10
某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值: Private Sub Command1_Click() Dim a(10)As Integer,max As Integer For k=1 To 10
admin
2020-04-18
83
问题
某人编写了如下程序,用来求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
Ifa(k)>max Then
max=a(k)
End If
Next k
Print max
End Sub
运行程序时发现,当输入10个正数时,可以得到正确结果,但输入10个负数时结果是错误的,程序需要修改。下面的修改中可以得到正确运行结果的是
选项
A、把Ifa(k)>max Then改为Ifa(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是不可以的,它没有考虑到数组元素都小于0的情况。
转载请注明原文地址:https://kaotiyun.com/show/OvTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序的执行结果为()。n=0j=1DoUntiln>2n=n+1:j=j+n*(n+1)LoopPrintn:j
下面属于系统软件的是
下面对对象概念描述正确的是
窗体上有一个名称为Command1的命令按钮,单击该按钮时所实现的功能是产生10个随机整数,然后从键盘输入一个整数,查找该数在数组中的位置。若找到,输出该数的位置;若没有找到,给出相应的提示。该命令按钮的单击事件过程如下:PrivateSubCom
软件需求分析阶段的工作,可以分为四个方面:需求获取、编写需求规格说明书、需求评审和()。
下列叙述中有错误的是()。
假定建立了一个名为Command1的命令按钮数组,则以下说法中错误的是()。
在窗体(Name属性为Form1)上画两个文本框(Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1),然后编写如下两个事件过程()。PrivateSubCommand1_Click()
设有以下过程:PrivateSubproc(xAsInteger,OptionalYAsInteger)Printx,yEndSub针对此过程,下面正确的过程调用语句是
窗体上有一个由两个文本框组成的控件数组,名称为Text1,并有如下事件过程:PrivateSubText1_Change(IndexAsInteger)SelectCaseIndexCase0
随机试题
质检机构取得计量认证合格后,经()年要进行复查。
每个评价项目都有其自身的专业特点,因此,评价单位不可能事事依靠内部专家,还必须从社会上聘请一定数目的()来参加调查评价工作。
安全检查的内容不仅查管理、查隐患,还应查()。
发包人和承包人就有关工期、质量、造价等产生的建设工程合同争议,是建设工程领域最常见的()。
下列属于资产负债管理原则的有()。
流动性风险管理水平体现了商业银行的整体经营管理水平。()
旅游主管部门在作出行政处罚决定前,应当以()形式告知当事人作出行政处罚决定的事实、理由、依据和当事人依法享有的陈述、申辩权利。
不考虑价格因素,2011年与2003年相比,江苏金融业增加值增长的倍数是()。
《中华人民共和国物权法》第179条规定:“为担保债务的履行,债务人或者第三人不转移财产的占有,将该财产抵押给债权人的,债务人不履行到期债务或者发生当事人约定的实现抵押权的情形,债权人有权就该财产优先受偿。前款规定的债务人或者第三人为抵押人,债权人
TheplantspeciesthatDr.KinghorndiscoveredinPuertoRicoprovedtobe______tohismedicalresearch.
最新回复
(
0
)