首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
某人编写了如下程序,用来求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
22
问题
某人编写了如下程序,用来求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/GWTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面程序运行时,若输入395,则输出结果是( )。PrivateSubCommand1_Click() Dimx% x=InputBox("请输入一个3位整数") PrintxMod10,x\100,(xMod100)\
下列叙述中正确的是( )。
在Form1窗体上有一个菜单项,名称为Menu,它有自己的子菜单。若希望在鼠标右键单击窗体时能够弹出Menu的子菜单,某人编写了下面的事件过程:PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAs
设工程中有2个窗体:Form1、Form2,Form1为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后,隐藏Form1,显示Form2。若口令为"Teacher
设a="visualBasic",下面语句中可使b="Basic"的是()。
下面有关标准模块的叙述中,错误的是( )。
在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,然后编写如下程序:FunctionFun(xAsInteger,yAsInteger)AsIntegerFun=IIf(x
下列程序执行后,变量x的值为()。Dima,b,C,dAsSingleDimxAsSinglea=10:b=30:c=400Ifb>aThend=a:a=b:b=dEndIfIfb>cThenx=bElseIfa
设有如下程序:OptionBase1Dima(3,4)AsInteger,b(4,3)AsIntegerPrivateSubCommand1_Click()循环1Fori=1To3Forj=1To4b(j,i)=a(i,j)
随机试题
财务与会计人员应当正确处理财务会计工作与业务发展、客户利益保护与所在单位利益之间的关系,对存在潜在冲突的情形()。
必要条件假言判断的命题形式有时也写作:(),读作:p逆蕴涵q。
犬,骨折数月后复诊,X线特点是骨折断端及其周围出现骨痂形成的致密阴影,骨折线模糊和消失。提示该骨折()。
十二经脉的命名主要结合了哪几个方面的内容
下列行为不属于不正当竞争的行为是()。
某浅基础埋深为d,其基底压应力p与基底附加应力p0之间的关系为:
古城保护与新区建设相结合,遗产保护与旅游开发相结合是历史文化名城的()。
下列关于耕地占用税的说法,正确的有()。
以下属于博弈基本类型的有()。
法律:政策:规制
最新回复
(
0
)