首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写以下程序代码: Option Base 1 Private Sub Command1_Click() Dim arr1(4, 4) As Integer Dim
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写以下程序代码: Option Base 1 Private Sub Command1_Click() Dim arr1(4, 4) As Integer Dim
admin
2020-07-22
102
问题
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写以下程序代码:
Option Base 1
Private Sub Command1_Click()
Dim arr1(4, 4) As Integer
Dim i As Integer, j As Integer
For i = 1 To 2
For j = 2 To 3
arr1(i, j) = i + j * 10
Next j
Next i
Text1.Text = arr1(2, 3) + arr1(3, 4)
End Sub
运行程序,单击Command1,则在文本框Text1中显示的结果为
选项
A、75
B、23
C、57
D、32
答案
D
解析
程序开头定义了Option Base 1这时定义二维数组下标从1开始;arr1(1,2)=1+2*10=21;arr1(1,3)=1+3*10=31;arr1(2,2)=2+2*10=22;arr1(2,3)=2+3*10=32;整型数组中未定义的数组元素值均默认为0。故arr1(2,3)+arr1(3,4)=32+0=32;本题正确答案为D。
转载请注明原文地址:https://www.kaotiyun.com/show/gAHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面属于白盒测试方法的是
数据库设计过程不包括
窗体上有一个名称为Text1的文本框;一个名称为Timer1的计时器控件,其Interval属性值为5000,Enabled属性值是True。Timer1的事件过程如下:PrirateSubTimer1_Jimer()Smilef
设有以下程序:PrivateSubForm_Click() x=50 Fori=1To4 y=InputBox("请输入一个整数") y=Val(y) IfyMod5=0Then a=a+y
对长度为n的线性表作快速排序,在最坏情况下,比较次数为
为了声明一个长度为128个字符的定长字符串变量StrD,以下语句中正确的是( )。
下列关于通用对话框CommonDialog1的叙述中,错误的是( )。
假定有以下循环结构:DoUntil条件表达式循环体Loop则以下正确的描述是()。
公司中有多个部门和多名职员,每个职员只能属于一个部门,一个部门可以有多名职员。则实体部门和职员间的联系是
随机试题
甲17岁时抢劫他人财物,3年后案发,被公安机关立案侦查。同时被立案侦查的还有甲的朋友乙。经查,乙并未参与抢劫,因而乙的案件部分被撤销。关于此案的辩护,下列哪些说法是正确的?()
MosteconomiesintheUSseemcaptivatedbythespellofthefreemarket.Consequently,nothingseemsgoodornormalwhichdoes
下列各项中哪一项不是丸剂的特点
决定可摘局部义齿基托蜡型的伸展范围,与下列哪项无关
患者孙某在某市人民医院就医,与院方发生医疗事故争议。市医学会组织鉴定并出具医疗事故技术鉴定书的时限应当是自接到当事人提交的有关医疗事故技术鉴定的材料、书面陈述及答辩之日起
案情:甲与乙分别出资60万元和240万元共同设立新雨开发有限公司(下称新雨公司题),由乙任执行董事并负责公司经营管理,甲任监事。乙同时为其个人投资的东风有限责任公司(下称东风公司题)的总经理,该公司欠白云公司货款50万元未还。乙与白云公司达成协议约定:若3
有关电信局所的规模说法正确的是()
某机电工程项目,在施工设计图纸尚未完成之时,业主通过招标选择了一家总承包单位承包该工程的施工任务。承包范围内待实施的工程虽性质已明确,但工程量难以确定,双方商定拟采用总价合同形式签订施工合同,以减少双方的风险。施工合同签订前,业主委托了一家监理单位拟协助业
加强传输网络层次的划分有益于日常的维护及管理。()
什么是存款保险制度?简述存款保险制度的功能与存在的问题。[辽宁大学2014研;华中科技大学2014研]
最新回复
(
0
)