首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值: Private Sub Command1_Click() Dim a(10)As Integer,max As Integer For k=1 To 10
某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值: Private Sub Command1_Click() Dim a(10)As Integer,max As Integer For k=1 To 10
admin
2019-04-29
47
问题
某人编写了如下程序,用来求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
Ifa(k)>max Then
max=a(k)
End If
Next k
Print max
End Sub
运行程序时发现,当输入10个正数时,可以得到正确结果,但输入10个负数时结果是错误的,程序需要修改。下面的修改中可以得到正确运行结果的是
选项
A、把Ifa(k)>max Then改为Ifa(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是不可以的,它没有考虑到数组元素都小于0的情况。
转载请注明原文地址:https://kaotiyun.com/show/oFUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在属性窗口中把窗体的KeyPreview属性设置为True,然后编写如下两个事件过程:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为List1的列表框,在属性窗口中为列表框添加三个选项:北京、上海、天津。再建立一个下拉菜单,菜单标题为“文件”,名称为File,此菜
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml标题为“选课”的窗体上画一个复选框数组,名称为CHl,共有四个复选框,按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”,其中“语文”、“计算机
下列关于工程的叙述中错误的是()。
软件设计中模块划分应遵循的准则是
如果在框架中画了2个复选框,且框架的Enabled属性被设置为False,2个复选框的Enabled属性被设置为True,则下面叙述中正确的是
(1)在考生文件夹中有一个工程文件sjt3.vbp。程序的功能是输入用户名和密码。程序运行时,当输入密码到文本框Text2中时,如果“显示密码”复选框没有被选中,则在文本框Text3中同时显示“#”(如图所示);如果“显示密码”复选框被选中,再重新输入密码
设在窗体上有一个名称为Check1的复选框数组,并有以下事件过程:PrivateSubCheck1_Click(IndexAsInteger)EndSub则下面叙述中错误的是
设Label1、Command1、Text1、Check1分别为标签、命令按钮、文本框、复选框的名称,则以下属性设置语句中,运行时不会出错的是
算法的有穷性是指
随机试题
恐则
属于国家二级保护野生药材物种的药材有
甲起诉乙请求离婚,一审判决不准离婚,甲不服提起上诉。二审法院审理后认为应当判决离婚。本案诉讼程序应当如何进行?
()是强化环境管理的核心。
下列关于当事人分立或合并后对合同效力的影响表述,错误的是( )。
下列选项中,属于证券公司经纪业务内部控制的内容有()。
学生从道德上理解道德规范并不很难,但是要真正把这种要求转化为个人的道德需要形成道德信念,就必须经过道德实践的亲身体验,其中转化的“催化剂”是()。
下列选项中,属于魏晋南北朝时期手工业发展成就的是()
A、 B、 C、 B本题图片表示的都是禁止性标记,因此关键是听清句中表示否定的词语和否定性动词等。句中出现的是notdrinkable(不能饮用的),因此选与之对应的[B]。
Whatproblemdoesthemanmention?
最新回复
(
0
)