首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Commandl的命令按钮,有程序如下: Option Base 1 Private Sub Commandl_Click() Dim a(10)As Integer‘第1个For For i=1
窗体上有一个名称为Commandl的命令按钮,有程序如下: Option Base 1 Private Sub Commandl_Click() Dim a(10)As Integer‘第1个For For i=1
admin
2018-10-15
61
问题
窗体上有一个名称为Commandl的命令按钮,有程序如下:
Option Base 1
Private Sub Commandl_Click()
Dim a(10)As Integer‘第1个For
For i=1 To 10
a(i)=Int(Rnd*100+100)
Print a(i);
Next
x=a(i):y=x‘第2个For
For i=1 To 10
Ifx
Ify>a(i)Then y=a(i)
s=s+a(i)
Next
Print x,y,S
End Sub
关于上述程序的叙述中,正确的是
选项
A、程序运行出错,第1个For循环之后的x=a(i)赋值语句错
B、程序正常运行,x是10个随机数中的最大值
C、程序正常运行,s是10个随机数的和
D、程序正常运行,10个随机数的范围是100-200
答案
A
解析
随机数函数Rnd的功能是用于产生一个小于1但大于或等于0的随机数,本题中产生的整数的范围是100-199;在第一个循环结束后,循环变量i的值为不满足循环条件的值11,在紧随其后的x=a(i)语句将会执行出错,因为出现了数组越界。
转载请注明原文地址:https://www.kaotiyun.com/show/eGFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1),然后编写如下事件过程:PrivateSubCommand1_Click() x=0 DoWhilex
在窗体上画一个文本框,其名称为Text1,为了在程序运行后隐藏该文本框,应使用的语句为( )。
下面不属于对象主要特征的是
为把变量a、b、c中的最大值赋值给变量x,下面语句中正确的是
在窗体模块的声明部分声明变量时,不能使用的关键字是()。
在标准模块中用Public关键字定义的变量,其作用域为()。
设在工程文件中有一个标准模块,其中定义了如下记录类型:TypeBooks NameAsString*10 TelNumAsString*20EndType在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Co
在窗体上画一个通用对话框,程序运行中用ShowOpen方法显示"打开"对话框时,希望在该对话框的"文件类型"栏中只显示扩展名为DOC的文件,则在设计阶段应把通用对话框的Filter属性设置为( )。
设窗体文件中有下面的事件过程:PrivateSubCommand1_Click() Dims a%=100 PrintaEndSub其中变量a和s的数据类型分别是( )。
设有如下程序:OptionBase1Dima(3,4)AsInteger,b(4,3)AsIntegerPrivateSubCommand1_Click() ’循环1 Fori=1To3 Forj=1To4
随机试题
当我给他打电话时,他出去了。
A.急性化脓性胆囊炎B.急性化脓性胆管炎C.急性坏死性胰腺炎D.急性化脓性阑尾炎E.绞窄性肠梗阻Murphy征出现于
暑证特点,下列哪一项是错的( )
末梢血反映骨髓增生程度的最准确指标是
根据《宪法》和《组织法》的规定,下列选项正确的是:(2011—卷一—86,任)
关于甲级中央投资项目招标代理机构的资格中,有关人员和业绩说法正确的有()
反映城市土地开发强度的指标有()。
Manypeopleliketotravel.Theproblemisgettingyourpettothe【C1】______.Inrecentyears,transportingpetsonflightshas
Untilmodemtimes,atripwasoftenalonganddifficult【B1】______.Travelingbyhorseorcameloronfootwasslowandoften【B
A、Sheworksatthemeatcounter.B、Shearrangesproductsinneatpilesontheshelves.C、Shecarriesgroceriesoutofthestore
最新回复
(
0
)