首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
某人编写了如下程序,用来求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/NDTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设在工程文件中有一个标准模块,其中定义了如下记录类型:TypeBooksNameAsString*10TelNumAsString*20EndType在窗体上画一个名为Command1的命令按
窗体Forml上有一个名称为Commandl的命令按钮,以下对应窗体单击事件的事件过程是()。
在考生文件夹下有文件in5.txt,文件中有几行汉字。请在Form1的窗体上画一个文本框,名称为Text1,能显示多行;再画一个命令按钮,名称为C1,标题为“存盘”。编写适当的事件过程,使得在加载窗体时,把in5.txt文件的内容显示在文本框中,然后在文本
下列关于控件焦点的叙述中正确的是()。
在程序运行时,下面的叙述中正确的是( )。
设窗体上有1个名称为HScroll1的水平滚动条,其Max、Min属性分别设置为100、1;有2个名称分别为Option1、Option2的单选按钮,其标题分别为"30"、"50";还有下面程序代码:PrivateSubOption1_Cli
有下面事件过程:PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2Then
下面哪个属性肯定不是框架控件的属性()。
下列关于通用对话框CommonDialog1的叙述中,错误的是()。
以下叙述中错误的是()。
随机试题
男性,55岁,双下肢无力半年,右侧明显,近2个月行走不稳,右手不能扣纽扣,无外伤史,无发热。体格检查:颈背部无明显压痛,两上肢前臂、手及上臂尺侧皮肤感觉减退,右侧尤其明显,四肢肌张力增高,肱二头肌反射亢进,双侧膝踝反射亢进,右髌阵挛阳性,右巴宾斯基征阳性
其病因不属于典型血瘀为病的是
大面积烧伤后2天内,最主要的全身改变是()。
输送能力大、运转费用低、常用来完成大量繁重散状固体及具有磨琢性物料的输送任务的输送设备为()。
石灰的技术性质包括()。
人发制滤布
13,17,21,25,(),33。
某轮船总载重300吨,若一次载重,只能搭载100辆小车,20辆中型车,每减少1辆中型车可增加5辆小车,已知小型车重量为1吨,中型车重量为4吨,且中型车不少于10辆,则该轮船实际载重量最多可达到()吨。
3个点A(1,-1),B(3,3),C(4,5)的位置关系为().
Thedifferencebetween"writer"and"reporter"or"journalist"isn’tthatthejournalistreports—she【C1】______sources,callspeo
最新回复
(
0
)