首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
某人编写了如下程序,用来求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
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 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全国计算机二级
相关试题推荐
以下()操作不能触发滚动条Change事件。
以下关于菜单的叙述中,错误的是( )。
以下叙述中正确的是()。
设工程中有2个窗体:Form1、Form2,Form1为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后,隐藏Form1,显示Form2。若口令为"Teacher
设栈的顺序存储空间为S(0:49),栈底指针bottom=49,栈顶指针top=30(指向栈顶元素)。则栈中的元素个数为
Visual.Basic6.0集成环境的主窗口中不包括()。
支持子程序调用的数据结构是()。
层次型、网状型和关系型数据库划分原则是( )。
设有如下程序:OptionBase1Dima(3,4)AsInteger,b(4,3)AsIntegerPrivateSubCommand1_Click() ’循环1 Fori=1To3 Forj=1To4
在DoUntil…Loop循环中,判断循环结束的方法是
随机试题
设立电子出版物进口单位应当具备的条件有哪些?
A.血管内溶血B.血管外溶血C.原位溶血D.血管内、外溶血E.脾功能亢进阵发性睡眠性血红蛋白尿症是
投资项目财务评价中的不确定性分析有()。
月晕效应和投射作用的结果是一样的,即它们都()。
甲股份有限公司(下称甲公司)于2014年3月上市,董事会成员为7人。2015年甲公司召开的3次董事会分别讨论事项如下:(1)讨论通过了为其子公司一次性提供融资担保4000万元的决议,当时甲公司总资产1亿元。(2)拟提请股东大会聘任乙公司的总经理
可按照承担法律责任要件对劳动争议案例进行分析,其思维结构包括()。
面对新的挑战,以图书为主营产业的传统出版应该将眼界放得更宽一些。传统的出版产业链已经断裂,因此出版商应打通新的产业链,让出版业务与周边产业相结合。传统出版商不妨学习盛大文学等网络运营商的模式,将内容版权扩展到数字出版、影视、动漫、游戏等领域。如果纸质出版只
民事法律行为成立与生效。[浙工大2020年研]
(1)在考生文件夹下的“samp1.mdb”数据库文件中建立表“tCourse”,表结构如下表所示。(2)根据表“tCourse”的结构,判断并设置主键。(3)设置“学时”字段的相关属性,使其输入的数据必须大于0。(4)设置“开课日期”
Let’sassumethatyou,personC,whoaregoingtointerviewortalk【S1】______topersonAorB,andlet’sassumetha
最新回复
(
0
)