首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
某人编写了如下程序,用来求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
24
问题
某人编写了如下程序,用来求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全国计算机二级
相关试题推荐
执行以下程序后,在窗体上输出的是()。PrivateSubCommandlClick()Dima(20)Fori=1To20Step2a0)=jNextiPrinta(1)+a(2)+a(3)EndSub
设形状控件的Width与Height属性的值相等。下面叙述中正确的是()。
设有如下程序:PrivateSubForm_Click()ClsForn=1To100IfNot(n/3=Int(n/3)OrnMod8=0)Then
窗体上有1个名称为Textl的文本框,1个名称为Timerl的计时器,且已在属性窗口将Timerl的Interval属性设置为2000、Enabled属性设置为False。以下程序的功能是,单击窗体,则每隔2秒钟在Textl中显示一次当前时间。Priva
设a="visualBasic",下面语句中可使b="Basic"的是()。
面向对象方法中,继承是指( )。
下列选项中不属于结构化程序设计原则的是( )。
下面关于直线控件的叙述中正确的是
数据库系统的三级模式不包括( )。
下列循环能正常结束的是()。
随机试题
交流调压调速方法调速范围不大,调速引起的损耗()。
下列哪项不符合分泌性腹泻的特点?()
运输机器的货轮在运输途中遭遇强热带风暴,导致机器严重受损,该损失应由( )承担。英国某公司与中国远洋运输公司签订了将机器从英国多佛运往中国上海的海上货物运输合同,英方要求将机器直接运抵上海,中途不能转船,中国远洋运输公司同意了英国某公司的要求,为此,
关于色彩的说法,错误的是:
施工许可证由()申请领取。
某城市道路工程,基层采用石灰稳定土,面层采用水泥混凝土。在施工过程中的部分质量控制要点如下:1.对基层施工的控制要点(1)基层土颗粒最大粒径不超过40mm。(2)基层细粒土最大粒径不大于10mm。(3)用12t以上压路
某单位下列行为中违反现金管理条例规定的有()。
A股份有限公司(以下简称A公司)为增值税一般纳税人,适用的增值税税率为17%,所得税税率为33%。假定不考虑其他相关税费。A公司主要生产和销售甲产品。原材料按实际成本核算。在销售时逐笔结转销售成本。2012年度,A公司相关经济业务和事项如下:(1
一2,3,一5,8,一12,()
设L是一条平面曲线,其上任意一点m(x,y)(x>0)到坐标原点的距离恒等于该点处的切线在y轴上的截距,且L经过点求L位于第一象限部分的一条切线,使该切线与L以及两坐标轴所围图形面积最小。
最新回复
(
0
)