首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值: Private Sub Command 1_Click() Dim a(10)As Integer,max As Integer For k=1 To 10 a(k)=InputB
某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值: Private Sub Command 1_Click() Dim a(10)As Integer,max As Integer For k=1 To 10 a(k)=InputB
admin
2015-05-29
33
问题
某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值:
Private Sub Command 1_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
运行程序时发现,当输入10个正数时,可以得到正确结果,但输入10个负数时结果是错误的,程序需要修改。下面的修改中可以得到正确运行结果的是
选项
A、把Ifa(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(k)改为max=a(10)
答案
D
解析
本题考查的考点是有关循环和数组的。本题为了实现求取最大值,首先应该假设数组中的某一个数就是最大值,再依次与数组元素比较,一旦某个元素比当前的最大值大,就把它作为新的最大值。max初值没为0是不可以的,它没有考虑到数组元素都小于0的情况。
转载请注明原文地址:https://kaotiyun.com/show/aDQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
测试的目的是暴露错误,评价程序的可靠性;而【】的目的是发现错误的位置井改正错误。
函数过程F1的功能是:如果参数b为奇数,则返回值为1,否则返回值为0。以下能正确实现上述功能的代码是
在菜单编辑器中建立了一个菜单,名为pmenu,用下面的语句可以把它作为弹出式菜单弹出,请填空。Forml.______pmenu
在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Forn=1To20IfnMod3<>0Thenm=
以下叙述中错误的是
假定有以下函数过程:FunctionFun(SAsString)AsStringDims1AsStringFori=1ToLen(S)s1=UCase(Mid(S,i,1)
以下程序代码实现单击命令按钮Command1时生成20个(0,100)之间的随机整数,存于数组中,打印数组中大于50的数,并求这些数的和。Dimarr(1To20)Fori=1To20arr(i)=【】
线性表的顺序存储结构和线性表的链式存储结构分别是
以下语句错误的是
随机试题
行政管理除必须依照宪法、法律、行政法规、行政规章等对国家事务和社会公共事务管理外,还由()授权,管理公务,对公众负责。
会计核算的环节包括()。
Nothing in my life moved me( )this first visit to China.
法定福利包括( )。
某公司高级工程师陈先生2009年3月取得如下收入:(1)工资收入7000元;(2)一次性稿费收入5000元;(3)一次性讲学收入500元;(4)一次性翻译资料收入3000元;(5)到期国债利息收入1286元;
2009年3月,美国汤姆公司与中国天元公司订立合同,约定汤姆公司以现金、机器设备和专有技术作价800万美元出资,天元公司以现金、场地使用权、厂房作价200万美元出资,在中国上海设立一家中外合资经营企业。(1)汤姆公司由合营企业提供担保向银行贷款2
如果石油供应出现波动导致国际油价上涨,在开放市场国家,如美国,国内油价也会上升,不管这些国家的石油是全部进口还是完全不进口。以上论述最能支持以下哪个结论?
设位于第一卦限的曲线y=f(χ)上任一点P(χ,y)的切线在χ轴上的截距等于该点法线在y轴上截距的相反数,且曲线经过点(1,0),求该曲线.
设有关系R(A,B,C)和S(A,D),则自然连接运算结果中的元数应为
AMessontheLadderofSuccessA)ThroughoutAmericanhistorytherehasalmostalwaysbeenatleastonecentraleconomicnarrati
最新回复
(
0
)