首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序代码: Option Base 1 Dim arr()As Integer Private Sub Commandl_Click() Dim i As Inte
在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序代码: Option Base 1 Dim arr()As Integer Private Sub Commandl_Click() Dim i As Inte
admin
2019-06-20
41
问题
在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序代码:
Option Base 1
Dim arr()As Integer
Private Sub Commandl_Click()
Dim i As Integer,j As Integer
Dim S As Integer
ReDim arr(4.2)
S=0
For i=1 To 3
For j=1 To 2
art(i,j)=i+j
Next j
Next i
ReDim Preserve art(4,4)
For j=3 To 4
art(3,j)=j+10
Next j
For i=1 To 4
S=S+arr(i,i)
Next i
Print s
End Sub
程序运行过程中,当单击Command1时,输出结果为( )。
选项
A、0
B、18
C、19
D、程序出错
答案
A
解析
动态数组的定义通常分为两步:首先在窗体层、标准模块或过程中用Dim或Public声明一个没有下标的数组(括号不能省略),然后在过程中用ReDim语句定义带下标的数组。“Option Base 1”语句表示数组下标从1开始,程序开头定义一个数组arr,在Commandl_Click过程中,使用ReDim重新定义数组的大小,双重For循环为数组元素赋值,arr(1,1)=2;arr(1,2)=3;arr(2,1)=3;arr(2,2)=4;arr(3,1)=4;arr(3,2)=5。语句“ReDim Preserve arr(4,4)”表示重新分配数组时,不清除数组中原来的数据。接下来的For语句中,循环变量j从3执行到4,arr(3,3)=3+10=13;arr(3,4)=4+10=14。最后一个For循环,循环变量i从1开始执行到4结束,每次累加数组元素的值,即s=arr(1,1)+arr(2,2)+arr(3,3)+arr(4,4)=2+4+13+0=19。故C选项正确。
转载请注明原文地址:https://kaotiyun.com/show/W5Up777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画两个文本框(Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1),然后编写如下事件过程:PrivateSubCommand1Click()x=0doWhilex
要建立一个随机文件记录学生的信息,如下定义的学生记录类型,由学号、姓名和5门课程成绩(百分制)组成,下列的定义正确的是()。
下列叙述中,不属于软件需求规格说明书的作用的是()。
实现字符的UniCode编码方式与ANSI编码方式相互转换的函数是()。
结构化程序设计的3种结构是()。
构成计算机软件的是
如果把命令按钮的Cancel属性设置为True,则程序运行后
如果在VisualBasic集成环境中没有打开属性窗口,下列可以打开属性窗口的操作是
若在窗体模块的声明部分声明了如下自定义类型和数组PrivateTyperecCodeAsInteger:CaptionAsStringEndTypeDimarr(5)Asrec则下面的输出语句中正确的是
如果要在窗体上画一个标签,应在工具箱窗口中选择的图标是
随机试题
变压器油泄漏会污染土地。()
患者男,60岁。腹部阵发性腹痛伴腹胀,停止排气排便2天。既往有类似发作,但较轻。查体:P100次/分,BP110/70mmHg,腹肌紧张,压痛明显,反跳痛阳性,移动性浊音阳性。最可能的诊断是
适用缓刑的对象必须是被判处拘役或者()年以下有期徒刑的犯罪分子。
简述数罪并罚的原则。
某工程,监理公司承担施工阶段监理任务,建设单位采用公开招标方式选择承包单位。在招标文件中对省内与省外投标人提出了不同的资格要求,并规定2015年10月30日为投标截止时间。甲、乙等多家承包单位参加投标,乙承包单位11月5日方提交投标保证金,11月3日由招标
下列不属于物业资产管理的是()。
登记机关有权注销房屋权属证书的情况有()。
商务应酬是一个合作的过程,每人都在__________说服对方,从而为自己争取最大化的利益。在这场利益的争夺战中,谁能“出奇”,运用__________的应酬方法,谁就能“制胜”,成为笑到最后的王者。填入划横线部分最恰当的一项是:
A、 B、 C、 A
FewofthegoldseekerswhoflockedtoCaliforniawereexperiencedminers,______thattheyhadtobe.
最新回复
(
0
)