首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Text1的文本框,一个名称为Command1的命令按钮,并编写如下事件过程: Private Sub Command1_Click() Dim array1(5,5)As Integer Dim i As In
在窗体上画一个名称为Text1的文本框,一个名称为Command1的命令按钮,并编写如下事件过程: Private Sub Command1_Click() Dim array1(5,5)As Integer Dim i As In
admin
2017-07-28
97
问题
在窗体上画一个名称为Text1的文本框,一个名称为Command1的命令按钮,并编写如下事件过程:
Private Sub Command1_Click()
Dim array1(5,5)As Integer
Dim i As Integer,j As Integer
For i=1 To 4
For j=1 To 4
array1(i,j)=i*10+j
Next j
Next i
Text1.Text=array1(2,1)+array1(3,2)
End Sub
程序运行后,单击命令按钮,在文本框中显示的结果是( )。
选项
A、54
B、53
C、55
D、56
答案
B
解析
程序开始时,定义了一个二维数组array1,大小为6×6。然后使用二重For循环给部分数组元素赋值,其中arryl(2,1)=2*10+1=21,arayl(3,2)=3*10+2=32,最后将两个数组元素的值相加后输出到Text1文本框中,结果为53,B选项正确。本题选择B选项。
转载请注明原文地址:https://kaotiyun.com/show/zRGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮(其名称为Conlmand1),然后编写如下事件过程:PrivateSubCommand1_Click()Fori=1To4Ifi=1Thenx=iIfi<=4Thenx=
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Text1.Text="Visual"Me.Text1=
下列语句正确的是
在窗体上添加一个命令按钮,名为Command1,然后为该命令按钮编写如下事件过程,该过程执行结果为______。OptionBase1PrivateSubCemmand1_Click()DimaAsVarianta=Arr
惟一能区别一个控件的属性是______。
以下叙述错误的是______。
设有如下记录类型:TypestudentNumberAsString*10NameAsString*8EndType窗体中有若干控件,单击其中的一个按钮Command1时,执行如下事件过程,该过程的功能是把数据输出到指定的文件中。根据
下列叙述中,正确的是______。
算法的空间复杂度是指()。
以下关系表达式中,其值为False的是______。
随机试题
急性单纯性胆囊炎一般不采用下列哪种治疗措施
在下述各项中,不符合传染病防制的道德要求是()
对非磺酰脲类胰岛素促泌剂的描述正确的是
2004年2月20日,张某、李某签订为期半年、月租金500万元的租房合同。2004年5月5日,张某在询问李某是否愿以30万元购买该租赁房,被李某拒绝后,即与王某签订卖房合同,并办理房屋过户登记手续,2004年5月10日,王某要求李某在两周内搬出去,李某拒绝
必须经过背书,才能进行转让的提单是()。
按照《中华人民共和国海关法》的规定,中华人民共和国设立海关的地点为()
国务院办公厅印发的《关于推动中央企业结构调整与重组的指导意见》,明确了下一阶段推进中央企业结构调整和重组的重点工作,《意见》最大的亮点是由之前的“三个一批”升级为“四个一批”。下列属于新升级的一个是()。
中国的民主化进程是关系到13亿中国人民切身利益的事。民主,意味着公民在公共事务中有着广泛的参与权、最后的决定权。随着中国经济改革的进行,民主化的潮流也在涌动。中国民主化给人印象深刻的一点是基层民主,特别是中国许多地方的村委会、居委会成员的竞争性直接选举,引
近来西方舆论界存在一种观点认为中国经济高速发展,除污染了地球环境外,还造成了国际上石油等能源价格的暴涨。以下最能反驳西方舆论界的观点的是()。
A、Materialsneededfortheworkshop.B、Tuitionfortheworkshop.C、Mr.Irvine’slivingcost.D、Adinnerbanquetaftertheworksh
最新回复
(
0
)