首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值: Private Sub Command1 Click() Dim a(10)As Integer,max As Integer For k=1 To 10
某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值: Private Sub Command1 Click() Dim a(10)As Integer,max As Integer For k=1 To 10
admin
2017-07-28
37
问题
某人编写了如下程序,用来求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 Thcn
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/KRGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列事件过程的功能是:建立一个名为Datal的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,...,90。请在空白处填入适当的内容,将程序补充完整。PrivateTypeAngKAsIn
在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程:PrivateSubCommand1_Click()a$="softwareandhardware"b$=Right(a$,8)
在窗体中添加名称为Command1和名称为Command2的命令按钮以及文本框Text1,然后编写如下代码:PrivateSubCommand1_Click()Text1.Text="AB"EndS
在窗体中添加一个命令按钮,编写如下程序:PrivateSubTest(p,m,n)p=p+1:m=m+1:n=n+1Print"Sub:";p;m;nEndSubPrivateSubCo
编写如下事件过程:PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfShift=
若在窗体模块的声明部分声明了如下自定义类型和数组PrivateTypeTemScoreAsIntegerStrNameAsStringEndTypeDimStuden
设有如下记录类型:TypestudentNumberAsString*10NameAsString*8EndType窗体中有若干控件,单击其中的一个按钮Command1时,执行如下事件过程,该过程的功能是把数据输出到指定的文件中。根据
随机试题
按照中图法,《马克思主义大辞典》的大类标记符号是()。
急性血源性骨髓炎大块死骨形成的主要原因是
新生儿生理性黄疸出现的原因不是由于
“十九畏”中,人参“畏”的是()
A.异烟肼B.链霉素C.利福平D.乙胺丁醇E.对氨水杨酸用药期间需定期检查视力、视野的药物?()
自动喷水系统周期性检查、年度检测时,对于检查发现的系统故障,要及时分析故障原因,消除故障,确保系统完好有效。湿式报警阀组漏水的原因主要包括()。
公证书都具有证明民事法律行为、有法律意义的事实和文书的真实性、合法性的作用。( )
一国货币制度的选择主要受经济方面的影响,这些影响因素包括()。
对于进口货物的成交价格不符合规定条件的,或者成交价格不能确定的,在客观上无法采用货物的实际成交价格时,海关经了解有关情况,并与纳税义务人进行价格磋商后,依次以下列()估定该货物的完税价格。
A、Ithasapersonalstyle.B、Itsoundsveryfamiliartoourears.C、Itisonewhosestyleyoucannotrecognize.D、Itdoesnotbe
最新回复
(
0
)