首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
某人编写了如下程序,用来求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
2019-03-14
67
问题
某人编写了如下程序,用来求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/sdFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列叙述中错误的是
设窗体的名称为Form1,标题为Win,则窗体的MouseDown事件过程的过程名是( )。
VB中有3个键盘事件:KeyPress、KeyDown、KeyUp,若光标在Text1文本框中,则每输入一个字母( )。
窗体的MouseUp事件过程如下:PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle) ……EndSub关于以上定义,以下
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click() DimI,Num Randomize Do ForI=1To1000 Num=Int(Rnd*
要使两个单选按钮属于同一个框架,下面三种操作方法中正确的是( )。①先画一个框架,再在框架中画两个单选按钮②先画一个框架,再在框架外画两个单选按钮,然后把单选按钮拖到框架中③先画两个单选按钮,再画框架将单选按钮框起来
在窗体模块的声明部分声明变量时,不能使用的关键字是
在编辑VB应用程序时,如果不小心关闭了属性窗口,则可以单击主窗口标准工具栏上的一个按钮直接打开属性窗口,这个按钮的图标是
在深度为7的满二叉树中,叶子结点的个数为
一棵二叉树中共有80个叶子结点与70个度为1的结点,则该二叉树中的总结点数为
随机试题
A、Protecttheeyesightoftheyoungergeneration.B、Takeeffectivemeasurestoraiseproductivity.C、Realizethedisruptiveeffe
清热利湿宜生用,健脾止泻宜炒用的药物是
静脉注射高浓度的葡萄糖溶液后,尿液增多的原因是()。
下列各项行为中,属于代理的是:
有一栋四层公寓,每层建筑面积相等,已知第二层的房地价值为第一层的1.05倍,第三层的房地价值为第四层的1.15倍,第四层的房地价值为第二层的91%。按房地价值分摊法计算得出第三层占有的土地份额约为27%。()
线路的平面控制宜采用()进行布设。
下列单代号网络图中,违反绘图规则的错误地方有()。图1单代号网络图
现在有八个箩筐排成一排,已知每个箩筐里都有不同个数的苹果(大于等于1),从第三个箩筐开始,每个箩筐里面的苹果个数是前边两个箩筐苹果个数之和,已知第五个箩筐里面的苹果个数为7,那么第七个箩筐的苹果个数为()个。
促进个人与社会的和谐,要
设某曲线L的线密度μ=x2+y2+z2,其方程为x=e’cost,y=e’sint,z=,-∞<t≤0.求曲线L的弧长l;
最新回复
(
0
)