首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值: Private Sub Command l_Click() Dim a(1 0)As Integer,max As Integer For
某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值: Private Sub Command l_Click() Dim a(1 0)As Integer,max As Integer For
admin
2020-04-18
92
问题
某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值:
Private Sub Command l_Click()
Dim a(1 0)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改为If a(k)<max Then
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/14Tp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下程序:PrivateSubForm_Click()Print”Welcomel”EndSubPrivateSubForm_MouseDown(ButtonAsInteger,Shi
设有窗体的Form_MouseMove事件过程如下:PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)If(But
为了使每秒钟发生一次计时器事件,可以将其Interval属性设置为
设a=2,b=3,c=4,d=5,表达式Nota
下列说法中,错误的是
以下说法中正确的是
构成计算机软件的是
将E-R图转换为关系模式时,实体和联系都可以表示为
某二叉树有5个度为2的结点,则该二叉树中的叶子结点数是()。
在一个容量为15的循环队列中,若头指针front=6,尾指针rear=9,则循环队列中的元素个数为
随机试题
家里有个小侄女,哥哥很是喜欢,所以常常教小侄女背诵儿歌。可是,很无奈,哥哥每次都是想尽办法,累得满头大汗,小侄女还是不能完全背会儿歌。但是小侄女对电视中有关儿童食品的广告,只看过一两次,就能完整而熟练地背下来,而且惟妙惟肖,真是让人不可理解。根据此案例,
关于早期食管癌X线钡餐造影的描述不正确的是
A.机械性肠梗阻B.痉挛性肠梗阻C.绞窄性肠梗阻D.麻痹性肠梗阻E.闭袢性肠梗阻结肠癌
患者,女,18岁。乏力、疲倦、面色苍白3个月。查:WBC4.5×109/L,Hb72g/L,RBC3.5×1012/L,Plt145×109/L,MCV62fl,MCHC28%,MCH26pg。血清铁降低,血清铁蛋白降低,转铁蛋白饱和度下降,总
监理工程师对工程项目质量的控制属于( )的控制。
电子邮件的特点有()。
导游人员未经旅行社委派,私自承揽或者以其他方式直接承揽导游业务进行导游活动的,由旅游行政管理部门责令改正,处()罚款。
如图23所示,AB为水平地面,O为一水平放置的平面镜M上的一点,平面镜离地面的高度为H,SO为一条沿竖直方向射向O点的很细的激光束。现在使平面镜以O点为轴沿顺时针方向匀速转动,已知转动的角速度ω。试求:当平面镜由图示位置转过30~角的瞬间,反射光束在地面上
Completetheformbelow.WriteNOMORETHANTWOWORDSAND~ORANUMBERforeachanswer.APPLICATIONFORMTypeofI.D.:
Todaymanypeoplearepayingmoreattentionto(reduce)________stressintheirlives.
最新回复
(
0
)