首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值: Private Sub Command1_Click() Dim a(10)As Integer,max As Integer For k=1To10 a(k)=InputBox("输入一
某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值: Private Sub Command1_Click() Dim a(10)As Integer,max As Integer For k=1To10 a(k)=InputBox("输入一
admin
2018-06-20
33
问题
某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值:
Private Sub Command1_Click()
Dim a(10)As Integer,max As Integer
For k=1To10
a(k)=InputBox("输入一个整数")
Next k
max=0
For k=1To10
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)<max Then
B、把max=a(k)改为a(k)=max
C、把第2个循环语句For k=1To10改为For k=2To10
D、把max=0改为max=a(10)
答案
D
解析
程序中把变量max的初始值设置为0,没有考虑到负数的情况。应该把它的初始值设置为数组中的一个元素的值,然后让数组中的各个元素与这个值比较,如果比它大,就替换变量max的值,这样才能得到数组中的最大值。因此要修改max=0这一行。
转载请注明原文地址:https://jikaoti.com/ti/Ipy0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下程序:PrivateSubCommandl_Click()DimaAsInteger,bAsIntegera=3:b=2Ifa*b<10Then
窗体上有一个名称为Text1的文本框,一个名称为Commandl的命令按钮。窗体文件的程序如下:PrivateTypexaAsInteger:bAsIntegerEndTypePrivateSu
用Write和Print语句向文件中写入多个数据的差别在于()。
下列合法的变量名是()。
按条件f对关系R进行选择,其关系代数表达式为()。
将数据项“Student”添加到名称为Listl的列表框中,并使其成为列表框第一项的语句为()。
满足下列条件之一的年份是闰年:1)年份能被4整除但不能被100整除2)年份能被400整除若Y代表年份,下面判断闰年的正确表达式是()。
一名雇员就职于一家公司,一个公司有多个雇员。则实体公司和实体雇员之间的联系是
设数据元素的集合D={1,2,3,4,5},则满足下列关系R的数据结构中为线性结构的是
A、数据流图(DFD图)B、投影C、自然连接D、并A由关系R到关系S为一元运算,排除C和D。关系S是关系R的一部分,是通过选择之后的结果,因此选A。
随机试题
Davidfrankstartedworkingfortipswhenhewas11yearsold,delightingrestaurantdinersinNewYorkwithhismagictricks.A
驾驶机动车遇到这种情况怎样安全通过?
正的外部效应或可称作
A腹部B超B腹部CTC腹部磁共振成像D放射性核素检查EX线照射对鉴别肝外阻塞性黄疸与肝细胞性黄疸有一定帮助的是
拔该牙应麻醉的神经是同侧的在麻醉过程中病人发生晕厥,以下处理措施哪项是不正确的
适用于各类基础设施项目,特别是出于安全考虑的必须由政府直接运营项目的融资方式为()。
俗话说:“行为培养习惯,习惯养成性格,性格决定命运。”请以“学生的学习习惯”为话题写一篇文章,题目自拟,文体不限(诗歌除外),不少于800字。
根据《专利法》的有关规定,下列四种情况中可授予专利权的是()。
Thenewsystemissimilartotheoldone______thereisstillastrongcentralgovernment.
A、Hehaspresentedhisspeechmanytimes.B、Thetopicisquitefamiliartohim.C、Heknowshowtocomposeaspeech.D、Hisclassm
最新回复
(
0
)