首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
某人编写了如下程序,用来求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
45
问题
某人编写了如下程序,用来求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/NDTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如果将命令按钮的访问键设置为"D",以下不会触发命令按钮Click事件的操作是
下面程序计算并输出的是( )。PrivateSubCommand1_Click() a=10 s=0 Do s=s+a*a*a a=a-1 LoopUntila<=0 PrintsEndSub
下列程序运行后,单击窗体,在窗体上显示:1,1+2,1+2+3,1+2+3+4,1+2+3+4+5的和。在横线处应填写()。PrivateSubForm_Click()DimiAsInteger,ttAsInteg
在窗体上画一个名称为Text1的文本框,然后画3个单选按钮,并用这3个单选按钮建立一个名为Optionl的控件数组,程序运行后,如果单击某个单选按钮,则文本框中的字体根据所选择的单选按钮切换,如图1所示。请选择适合空白处的语句()。Privat
假定有如下语句:answer$=MsgBox(”Stringl”,,“String2”,“String3”,2)执行该语句后,将显示一个信息框,单击其中的“确定”按钮,则answer$的值为()。
下列程序执行后,变量x的值为()。Dima,b,C,dAsSingleDimxAsSinglea=10:b=30:c=400Ifb>aThend=a:a=b:b=dEndIfIfb>cThenx=bElseIfa
下列关于控件焦点的叙述中正确的是()。
软件按功能可以分为应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是( )。
下列VisualBasic变量名中,正确的是()。
下列运算符中,优先级别最高的是
随机试题
数据传输过程中出错比特数占被传输比特总数的比率称为_______,它是衡量数据通信系统性能的一项重要指标。
女,11岁,左膝外伤1周,高热4天,膝关节疼痛且活动受限,左胫骨上端明显深压痛,为明确诊断,首先应采取的措施是
可导致肺水肿的污染物是
A.外涂敷紫云膏B.樟脑软膏C.依沙吖啶氧化锌糊剂D.高锰酸钾溶液E.赛庚啶冻伤(疮)的药物治疗对未形成溃疡的冻疮()。
“三网融合”的三网指的是()。
项目负责人应具有大专及以上学历或中级及以上技术职称,且具有()年及以上的水利水电工程建设经历。
进口单位在进口那些涉及国家安全、环保、人类健康的旧机电产品以及大型二手成套设备时,必须在对外贸易合同中订明在出口国进行装运前检验、监装等条款。( )
在证券承销结束后,投资银行代表着买卖双方,按照客户提出的价格代理进行交易,这时投资银行扮演的角色是()。
下图是由16根火柴棒组成的6个正方形,请你移动其中的4根火柴棒,变成10个正方形。
求极限
最新回复
(
0
)