首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Command1的命令按钮,并编写如下程序 Option Base 1 Private Sub Command1_Click() Dim a(4,4) For i=1 To 4
在窗体上画一个名称为Command1的命令按钮,并编写如下程序 Option Base 1 Private Sub Command1_Click() Dim a(4,4) For i=1 To 4
admin
2015-08-13
31
问题
在窗体上画一个名称为Command1的命令按钮,并编写如下程序
Option Base 1
Private Sub Command1_Click()
Dim a(4,4)
For i=1 To 4
For i=1 To 4
a(i,j)=(i-1)*3+j
Next j
Next i
For i=3 To 4
For i=3 To 4
Print a(j,i);
Next j
Print
Next i
End Sub
运行程序,单击命令按钮,则输出结果为( )。
选项
A、6 9
7 10
B、7 10
8 11
C、8 11
9 12
D、9 12
10 13
答案
D
解析
程序中数组元素赋值如下:
第1行,a(1,1)=1,a(1,2)=2,a(1,3)=3,a(1,4)=4;
第2行,a(2,1)=4,a(2,2)=5,a(2,3)=6,a(2,4)=7;
第3行,a(3,1)=7,a(3,2)=8,a(3,3)=9,a(3,4)=10;
第4行,a(4,1)=10,a(4,2)=11,a(4,3)=12,a(4,4)=13。
要输出的元素为:a(3,3)、a(4,3)、a(3,4)、a(4,4),即为9、12、10、13。因此答案为D。
转载请注明原文地址:https://kaotiyun.com/show/zvQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设已打开5个文件,文件号为1,2,3,4,5。要关闭所有文件,以下语句正确的是
下列程序的功能是:将数据1,2,..,8写入顺序文件Num.txt中请补充完整。PrivateSubForm_Click()DimiAsIntegerOpen"Num.txt"ForOut
对用MsgBox显示的消息框,下面______是错的。
设窗体文件中有下面的事件过程:PrivateSubCommandl_Click()DimSa%=100PrintaEndSub其中变量a和s的数据类型分别是
(1)在名称为Forml的窗体上绘制一个名称为Conmmandl、标题为“输出”的命令按钮以及一个名为Textl的文本框,编写适当的事件过程。程序运行后,如果单击“输出”按钮,则在文本框中显示“模拟考试”,如图70—1所示。程序中不能使用任何变量,直接显示
(1)在名称为Forml的窗体上画两个文本框,名称分别为Textl和Text2,初始情况下都没有内容。请编写适当的事件过程,使程序运行时,在Textl中输入字符的同时,Text2也立即显示出Textl中的字符,如图51—1所示。程序中不得使用任何变量。
考生文件夹下的工程文件sjt5.vbp中的窗体如图1-215所示。考生文件夹下的随机文件in5.dat中有20条记录,每条记录含姓名和三个分数(均为100以内的正整数)。在程序中已经定义了类型Recordtype,此类型变量可以存放一条记录。要求如下:①
符号%是声明______类型变量的类型定义符。
在最坏情况下,冒泡排序的时间复杂度为【】。
信息隐蔽的概念与下述哪一种概念直接相关______。
随机试题
直接出口有()形式。
汉译英:“装货港:到达日期”,正确的翻译为:( )。
在破产程序中,债权申报的法定期限最长的是()。
(93+91+88+87+92+89+90+94+88+89+92+87+93+90+87)÷(1+2+3+4+5)=?()
()是第三方物流的明显特征,也是同业者之间差别化的武器。
下面4个矩阵中,不是正交矩阵的是()。
设A,B为n阶矩阵,且r(A)+r(B)<n.证明:A,B有公共的特征向量.
请统计津贴分配表中的津贴分配情况中每部门每种职称的津贴总数。
请为图2-27拓扑结构中,(1)~(5)空缺处选择对应的设备名称。备选设备为:CMTS、以太网交换机、光收发器、光电转换节点、CableModem。在图2-27拓扑结构中,PC访问Internet资源时,是否会影响电视机(或电话机)的正常使用
Parker&HobbesPOBox4399Brisbane,AustraliaOctober11,2010LynetteGallagherActonIndustryLevel12,FraserPlaceCairns,
最新回复
(
0
)