首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
某人编写了如下程序,用来求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
40
问题
某人编写了如下程序,用来求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/GWTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在定义通用过程时,可以通过两种方式传送参数,其中传值方式所使用的关键字是()。
下列关于通用对话框CommonDialog1的叙述中,错误的是( )。
有如下程序:PrivateSubForm_Click() DimiAsInteger,nAsInteger Fori=1To20 i=i+4 n=n+i Ifi>10ThenExitFor
设形状控件的Width与Height属性的值相等。下面叙述中正确的是()。
窗体上有一个名称为Command1的命令按钮,并有如下程序代码:OptionBase1PrivateSubCommand1_Click()Dima(4,4)AsIntegerDimb
层次型、网状型和关系型数据库划分原则是( )。
在结构化方法中,用数据流程图(DFD)作为描述工具的软件开发阶段是()。
在VisualBasic中,所有标准控件都具有的属性是( )。
在关系数据库中,描述全局数据逻辑结构的是()。
在DoUntil…Loop循环中,判断循环结束的方法是
随机试题
Whenevertwoormoreunusualtraitsorsituationsarefoundinthesameplace,itistemptingtolookformorethanacoincident
A1日常用量B3日常用量C5日常用量D7日常用量E15日常用量第二类精神药品一般每张处方不得超过
A.吲哚美辛B.硫酸阿托品C.羧甲司坦D.麻黄碱E.甘露醇非甾类抗炎药包括
X线片显示髓腔消失,界限不清,甚至根管不清,则多是
随着地铁在城市交通中______的角色越来越重要,地铁运营部门和安全主管部门也应升级安全观念,使之能与高使用率的地铁相__________。填入划横线部分最恰当的一项是:
2006年2月,某高速公路X、Y两段进入招标阶段,有甲、乙、丙、丁四家单位竞标。小王认为:“不是甲家中标,就是乙家中标。”小李认为:“甲和丙两家都能中标。”小周说:“不能说如果丁中标则丙中标。”小马认为:“丁不能中标。”如果四人中只有一个说错了,那么,哪两
无过错方作为原告向人民法院提起离婚损害赔偿请求的,必须()
_______的最大好处就是单一网络登录能力,用户只要在其中有一个账户就可以在整个网络中漫游。
在考生目录下已有一个工程文件sjt5.vbp。运行程序后,分别从两个文件中读出数据,放入两个一维数组a、b中。请编写程序,当单击“合并数组”按钮时,将a、b数组中相同下标的数组元素的值求和,并将结果存入数组c。单击“找最大值”按钮时,调用find过程分别找
Inoursocietytherazorofnecessitycutsclose.Youmustmakeabucktosurvivetheday.Youmustworktomakeabuck:Thejob
最新回复
(
0
)