首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
某人编写了如下程序,用来求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
60
问题
某人编写了如下程序,用来求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/VGHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas。两个窗体上分别只有一个名称为Command1的命令按钮。Form1的代码如下:PublicxAsIntegerPrivateSubFo
要求在窗体中定义一个变量x,在本窗体所有过程中都可以访问它,而在其他模块中不能访问,则该变量的定义是
如果把命令按钮的Cancel属性设置为True,则程序运行后( )。
在考生目录下有一个工程文件sjt5.vbp,其功能是:单击“读数据”按钮,则把考生目录下的文件in5.dat中的100个整数读到数组a中;单击“计算”按钮,则找出其中与所有数的平均值(平均值截尾取整)最接近的整数,放到文本框中;单击“存盘”按钮则把计算结
用树形结构表示实体之间联系的模型是
若在窗体模块的声明部分声明了如下自定义类型和数组PrivateTyperecCodeAsInteger:CaptionAsStringEndTypeDimart(5)Asrec则下面的输出语句中正确的是
以下叙述中错误的是
以下叙述中,错误的是
下面()不是VB的文件系统控件。
数据库管理系统中负责数据模式定义的语言是
随机试题
Testing:IsittheOnlyWaytoEvaluateStudents?Abouttenpercentof【C1】________(spend)onprimaryandsecondaryeducatio
鉴别慢性淋巴细胞白血病与毛细胞白血病首选的细胞化学染色是
患者,男,62岁。1765、24567,4765、367缺失,可摘屑部义齿初戴后1个月,咀嚼时常咬颊黏膜,下颌舌侧第一磨牙至磨牙后垫区压痛,来院复诊。压痛区检查时应注意
甲将所拥有的房屋出售给乙。该房屋正由丙租用,乙同意丙按原租赁合同继续租用,那么甲、乙双方进行房屋所有权转移登记时,应缴纳的契税由( )承担。
某两环管网如图1—15所示,经计算闭合差不满足精度要求,校正流量为△qⅠ=3.0L/s,△qⅡ=一2.0L/s,则经过校正流量的调整,管段2—5的流量应从20.0L/s调整为()。
向参与网下配售的询价对象配售时,询价对象应当承诺获得本次网下配售的股票持有期限不能少于3个月,持有期是自本次公开发行的股票上市之日起计算。()
早在20世纪20年代,梁启超先生就已意识到国人对“科学”存在失之偏颇的理解。他指出:“那些绝对的鄙厌科学的人且不必责备,就是相对的尊重科学的人,还十个有九个不了解科学的性质。他们只知道科学研究所产生的结果,而不知道科学本身的价值……我们若不拿科学精神去研究
()不属于电子邮件协议。
扩展名为mnx的文件是
Mymothercan’tget__________becauseshehasrheumatism(风湿病).
最新回复
(
0
)