首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序代码: Option Base 1 Dim art()As Integer Private Sub Command1_Click() Dim i As Integer,j As Integer ReDim
编写如下程序代码: Option Base 1 Dim art()As Integer Private Sub Command1_Click() Dim i As Integer,j As Integer ReDim
admin
2016-08-24
59
问题
编写如下程序代码:
Option Base 1
Dim art()As Integer
Private Sub Command1_Click()
Dim i As Integer,j As Integer
ReDim arr(3,2)
For i=1 To 3
For i=1 To 2
arr(i,j)=i+j
Next j
Next i
ReDim arr(3,4)
For i=3 To 4
arr(3,j)=j+6
Next j
Print arr(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;arr(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=10。接着使用print方法输出arr(3,2)+alT(3,4)的结果,由于第二次重新分配动态数组,第一次计算出的arr(3,2)的结果被清除,而第二次并未对数组运算arr(3,2)赋值,所以arr(3,2)默认为0,表达式最终的结果为0+10=10,故D选项正确。本题选择D选项。
转载请注明原文地址:https://kaotiyun.com/show/o4Lp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
假设变量intVar是一个整型变量,则执行赋值语句intVar="2"+3之后,变量intVar的值是()。
当变量x=2,y=5时,以下程序的输出结果为()。DoUntily>5 x=x*y y=y+1Loopprintx
如果将文本框的Locked属性设置为True,则以下说法正确的是
表达式Right("Beijing",4)的值是
一个关系中属性个数为l时,称此关系为
下列有关数据库的描述,正确的是()。
对下列二叉树进行前序遍历的结果为()。
同一概念在一处为实体而在另一处为属性或联系的冲突在视图集成中叫()。
数据结构作为计算机的一门学科,主要研究数据的逻辑结构、对各种数据结构进行的运算,以及()
随机试题
颌下腺导管开口于
李女士,25岁,已婚。尿频、尿急、尿痛2天,高热39.2℃,诊断为急性肾盂肾炎。李女士做尿常规检查,结果可能是
下列各项不属于准公共产品的是()。
根据施工生产防火安全的需要,消防通道应保持通畅,宽度不得小于()m。
凯恩斯认为,人们对货币的流动性偏好的动机不包括()。
阿喀琉斯
设函数f(x)在(一∞,+∞)内连续,其导数的图形如右图,则f(x)有().
设函数f(x,y)可微,,求f(x,y).
设α1,α2,α3,β1,β2都是4维列向量,且4阶行列式|α1,α2,α3,β1|=m,|α1,α2,β2,α3|=n,则4阶行列式Iα3,α2,α1,β1+β2等于()
SomeAdvicetoCollegeGraduatesI.AdviceonyourdreamsDon’tworryaboutmakingyourdreams【T1】______【T1】______1)whatcoll
最新回复
(
0
)