首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
某人编写了如下程序,用来求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
81
问题
某人编写了如下程序,用来求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/lsUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮和一个文本框(名称分别为Commandl和Text1),并把窗体的KeyPreview属性设置为True,然后编写如下代码:Dimd-SaveAllAsStringPrivateSubForm_KeyPress(KeyAs
编写如下程序:OptionBase1PrivateSubCommand1Click()Dimaa=Array(1,2,3,4):s=0:j=1Fori=4To1Step—1s=s+a(i)*j:j=j*10NextiP
要求当鼠标在图片框P1中移动时,立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是
设窗体上有1个水平滚动条,已经通过属性窗口把它的Max属性设置为1,Min属性设置为100。下面叙述中正确的是
在E-R图中,用来表示实体联系的图形是
数据独立性是数据库技术的重要特点之一,所谓数据独立性是指
用户在组合框中输入或选择的数据可以通过一个属性获得,这个属性是()。
对下列二叉树进行前序遍历的结果为()。
一个工作人员可使用多台计算机,而一台计算机被多个人使用,则实体工作人员与实体计算机之间的联系是
下列二叉树描述中,正确的是()。
随机试题
重力式码头棱体抛填断面的平均轮廓线不得小于设计断面,顶面和坡面的表层应铺0.3~0.5m享度的(),其上再铺倒滤层。
纤溶系统的成分有
成年男性,于急性胰腺炎恢复期做超声检查,于胰腺体尾部探及11cm×8cm边界清晰、包膜完整、较薄的囊性病变,最可能的诊断是
男性,29岁。咳大量脓痰并反复咯血10年,多次住院治疗。查体:左下肺湿啰音,心率86次/分,律齐。如胸部X线检查检查见左下肺不规则透亮阴影,下列哪项可进一步确诊
腰椎滑脱、腰椎椎弓狭部骨不连、脊柱裂分别首选的摄影体位是
在保证膨润土拌合土层满足抗渗设计要求的前提下,节约成本的最佳做法有()。
质量事故的处理过程包括事故调查及事故原因分析和()。
在保本点上,()。
公安执法监督的基本特征有()。
法西斯党“进军罗马后,墨索里尼对新闻界采取了什么措施?
最新回复
(
0
)