首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
某人编写了如下程序,用来求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-06-30
26
问题
某人编写了如下程序,用来求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)
答案
B
解析
程序中把变量max的初始值设置为0,没有考虑到负数的情况。应该把它的初始值设置为数组中的一个元素的值,然后让数组中的各个元素与这个值比较,如果比它大,就替换变量max的值,这样才能得到数组中的最大值。因此要修改max=0这一行。
转载请注明原文地址:https://kaotiyun.com/show/4LHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上有一个名称为Drivel的驱动器列表框,一个名称为Dirl的目录列表框,一个名称为Filel的文件列表框,两个名称分别为Label1、Label2的标签(标题分别为空白和“共有文件”)。要使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。要求编写一个程序,统计文本框中0-9各数字字符的个数。某人编写如下程序:PrivateSubCommand1_Click()Dimcount(10)AsInt
下列程序段的执行结果为()。a=0:b=1Doa=a+b:b=b+1LoopWhilea
下列有语法错误的赋值语句是
如果把文本框的Enabled属性设置为False并运行程序,则以下叙述中正确的是
以下叙述中,错误的是
下列叙述中正确的是()。
数据库技术的根本目标是要解决数据的
在深度为7的满二叉树中,度为2的结点个数为
数据结构中,与所使用的计算机无关的是数据的()。
随机试题
某企业2008年1月银行存款日记账20日至月末的所记经济业务如下:(1)20日开出支票#09478,支付购入材料的贷款1400元。(2)21日存入销货款转账支票2400元。(3)24日开出支票#09479,支付购料运杂费700
肾岩好发年龄为:
A.宜佐健脾和胃、凉肝定惊之品B.忌用有肾毒性的药物C.忌用有肝毒性的药物D.应慎用在母乳中浓度高的中药E.一般应从“最小剂量”开始婴幼儿患者中药的使用应
患者,女性,26岁,患肝硬化伴食管静脉曲张破裂出血。入院第2天,行三腔双囊管压迫止血,护士需要给患者进行护理评估,但应险外
会计核算提供的信息应当符合国家宏观管理的要求,满足各方了解企业财务状况和经营成果的需要,满足会计内部管理的需要,称为会计信息质量要求原则中的()。
正整数x是一个完全平方数。(1)对于每一个质数p,p是x的一个因子,p2也是x的一个因子;(2)是一个整数。
在存在逆向选择的保险市场上,以下哪种情况最有时能发生?()。
下列宏操作中限制表、窗体或报表中显示的信息的是()。
Thetrainclatteredoverpointsandpassedthroughastation.Thenitbegansuddenlytoslowdown,presumablyinobediencetoa
A、Thereisagreatdifferencebetweenreadingandlistening.B、Thereareeffectivewaystopracticetheproofreadingskill.C、Hi
最新回复
(
0
)