首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮(其Name属性为Commandl),然后编写如下代码: Private Sub Command 1 Click() Dim n0 As Integer Dim a,bAs Integer a=InputBox(“Enter the
在窗体上画一个命令按钮(其Name属性为Commandl),然后编写如下代码: Private Sub Command 1 Click() Dim n0 As Integer Dim a,bAs Integer a=InputBox(“Enter the
admin
2015-11-24
51
问题
在窗体上画一个命令按钮(其Name属性为Commandl),然后编写如下代码:
Private Sub Command 1 Click()
Dim n0 As Integer
Dim a,bAs Integer
a=InputBox(“Enter the first number”)
b=InputBox(“Enter the second number”)
ReDim n(a To b)
For k=LBound(n)To UBound(n)
n(k)=k
Print n(k);
Next k
End
选项
A、1 2
B、2 3
C、3 4
D、4 5
答案
B
解析
动态数组以变量作为下标值,在程序运行过程中完成定义,通常分为两步:首先在窗体层、标准模块或过程中用Dim或Public声明一个没有下标的数组(括号不能省略),然后在过程中随时用ReDim语句可以重定义变量作为下标的数组,重定义后原数组的所有元素值被清空。输入2、3之后数组被重新定义成了n(2 To 3),只有两个数组元素,并且n(k)=k,即输出2 3。
转载请注明原文地址:https://www.kaotiyun.com/show/5kLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
控件数组的名字由Name属性指定,而数组中的每个元素由【】属性指定。
随机文件用于读数据的语句是
单击命令按钮时,下列程序的执行结果是PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegera=3∶b=4∶c=5PrintSecProc(c,b,
D设a="a",b="b",c="c",d="d",执行语句x=IIF((ad),"A","B")后,x的值为
如果不指明函数过程参数的类型,则该参数的数据类型为______。
在代码窗口中输入某行代码并按回车键后,如果代码变成红色,表示______。
有如下的一个函数过程:Functionfn(ByValhumASLong)DimkAsLongk=lnum=Abs(nam)DoWhilennmk=k*(nnmM
以下()程序段可以实施X、Y变量值的交换。
在窗体上面有一个列表,然后编写如下两个事件过程:PrivateSubForm_Click()List1.RemoveItem1:List1.RemoveItem2List1.RemoveItem3EndSubPrivateSubForm
表达式2*4^2-2*6/3+3\2的值是【】
随机试题
跨过髂外动脉前方的结构是()
国际公众
缺氯引起代谢性碱中毒的机制
下列症状属于瘀血阻络证的有
电动机反馈对短路冲击电流的影响,仅当短路点附近所接用电动机额定电流之和大于短路电流的2%时,才予以考虑。()
马先生今年40岁,打算60岁退休,预计他可以活到85岁,考虑到通货膨胀的因素,退休后每年生活费大约需要15万元(岁初从退休基金中提取)。马先生拿出15万元储蓄作为退休基金的启动资金(40岁初),并打算以后每年年末投入一笔固定的资金。马先生在退休前采取较为积
根据《仲裁法》的规定,仲裁员有下列情形之一的,必须回避()。
小红从冰箱里拿出一瓶纯果汁,一口气喝了五分之一后又放回了冰箱。第二天妈妈拿出来喝了剩下的五分之一,觉得太浓,于是就加水兑满,摇匀之后打算明天再喝。第三天小红拿出同一瓶果汁,一口气喝得只剩一半。她担心妈妈说她喝得太多,于是就加了些水把果汁兑满,这时果汁的浓度
A.条件(1)充分,但条件(2)不充分.B.条件(2)充分,但条件(1)不充分.C.条件(1)和(2)单独都不充分,但条件(1)和条件(2)联合起来充分.D.条件(1)充分,条件(2)也充分.E.条件(1)和(2)单独都不充分,条件(1)和条件(2
PassiveSmokingisWorkplaceKillerPressuremountedonBritainonMondaytotakeactionon(1)smokingwithnewresearchshowing
最新回复
(
0
)