首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序代码: Option Base 1 Dim arr( )As Integer Private Sub Command1_Click( ) Dim i As Integer,j As Integer
编写如下程序代码: Option Base 1 Dim arr( )As Integer Private Sub Command1_Click( ) Dim i As Integer,j As Integer
admin
2020-08-10
32
问题
编写如下程序代码:
Option Base 1
Dim arr( )As Integer
Private Sub Command1_Click( )
Dim i As Integer,j As Integer
ReDim arr(3,2)
For i=1 To 3
For j=1 To 2
arr(i,j)=i+j
Next j
Next i
Re Dim m(3,4)
For j=3 To 4
arr(3,j)=j+6
Next i
Print m(3,2)+arr(3,4)
End Sub
程序运行后,单击命令按钮Command1,输出结果为( )。
选项
A、15
B、12
C、13
D、10
答案
D
解析
题目在过程Command1_Click之前声明了动态数组arr,并使用Option Base 1语句声明数组下标从1开始,在Command1_Click过程中使用ReDim语句对动态数组进行了定义,arr数组是一个3行2列的数组,接着使用二重For循环给数组中的运算进行赋值,arr(1,1)=1+1=2;arr(1,2)=1+2=3:arr(2,1)=2+1=3;air(2,2)=2+2=4;arr(3,1)=3+1=4:arr(3,2)=3+2=5。接着继续使用ReDim语句对动态数组进行定义,arr数组被定义为3行4列的数组,并且当重新分配动态数组时,数组中的内容被清除。接着使用For循环给数组元素赋值,循环共执行2次,数组元素arr(3,3)=3+6=9;arr(3.4)=4+6=100接着使用print方法输出arr(3,2)+arr(3,4)的结果,由于第二次重新分配动态数组,第一次计算出的arr(3.2)的结果被清除,而第二次并未对数组运算arr (3,2)赋值,所以arr(3,2)默认为0,表达式最终的结果为0+10=10,故D选项正确。本题选择D选项。
转载请注明原文地址:https://kaotiyun.com/show/dqHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
鼠标拖放控件要触发两个事件,这两个事件是
在窗体上画一个名为Command1的命令按钮,然后编写以下程序:PrivateSubCommand1_Click()DimM(10)AsIntegerFork=1To10M(k)=12-kNextkx=8PrintM(2+
有两个关系R和S如下:则由关系R得到关系S的操作是
下列关于栈的叙述正确的是
在设计阶段,假定在图片框Picture1中装入了一个图形,为了删除该图片框控件,应采用的正确操作是
软件生存周期中,解决软件“做什么”的阶段是()。
下列关于控件数组的叙述中,正确的是
设计窗体时,双击窗体上没有控件的地方,打开的窗口是
双精度浮点数的类型说明符为
以下数列:1,1,2,3,5,8,13,21…的规律是从第3个数开始,每个数都是其前面两个数之和。在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件:如图所示。请编写适当的事件过程完成如下功能:选中一个单选按钮后,单击“计算”
随机试题
连接件切应力计算的基础是假设()。
如果说计算机是人类大脑的扩展,那么________________就是人类感官的延伸。
下列方剂中为“辛凉甘润”之法的是
患者,女性,15岁。发热、食欲减退1周,神志欠清1天,查体:皮肤、巩膜轻度黄染,躁动不安,手有扑翼样震颤,肝右肋下未扪及。实验室检查:ALT160μ/L,总胆红素90μmol/L,抗HBs阳性,抗HBc阳性,抗-HAVIgM阳性,抗-HEVIgG阴性
患者阳痿,滑精,尿频,腰膝冷痛。治疗宜选用
小儿“生理性贫血”发生的时间为生后
莨菪碱与东莨菪碱的分离用
甲企业拟将一废弃厂房的拆除工程发包给乙企业,根据安全生产法律法规的要求,甲企业无须审查乙企业的()。
有一项年金,前4年无流入,后5年每年年初流入500万元,假设年利率为10%,其现值为()万元。
小偷甲在某商场窃得乙的钱包后逃跑,乙发现后急追。甲逃跑中撞上欲借用商场厕所的丙,因商场地板湿滑,丙摔成重伤。下列说法错误的有
最新回复
(
0
)