首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Form_Click() Dim i As Integer, j As Integer Dim num As Integer Dim arr(3, 3) As Integer num = 1
编写如下程序: Private Sub Form_Click() Dim i As Integer, j As Integer Dim num As Integer Dim arr(3, 3) As Integer num = 1
admin
2020-07-22
43
问题
编写如下程序:
Private Sub Form_Click()
Dim i As Integer, j As Integer
Dim num As Integer
Dim arr(3, 3) As Integer
num = 1
For i = 1 To 3
For j = 1 To 3
arr(i, j) = num
num = num + 1
Next
Next
For i = 1 To 3
For j = 1 To i
Call change(arr, i)
Next
Next
For i = 1 To 3
For j = 1 To 3
Print arr(i, j);
Next
Print
Next
End Sub
Sub change(a() As Integer, i As Integer)
m = UBound(a, 2)
temp = a(i, m)
For k = m - 1 To 1 Step -1
a(i, k + 1) = a(i, k)
Next
a(i, 1) = temp
End Sub
程序运行后,单击窗体,输出结果为
选项
A、3 1 2 5 6 4 7 8 9
B、3 1 2 6 4 5 9 7 8
C、3 2 1 6 5 4 9 8 7
D、2 1 3 4 6 5 9 8 7
答案
A
解析
利用For循环,对数组arr赋值。 arr(3, 3)=[0,0,0,0;0,1,4,7;0,2,5,8;0,3,6,9]。在过程chang中,UBound函数返回为指定的数组维可用的最大下标,这里返回arr的第二维的最大下界。在过程change中,首先 temp被赋值为数组arr的第i行的最后一列的值。过程change下面的语句就是利用For循环将前一列值赋值给后一列。最后将最后一列的值赋值给第一列。利用For i = 1 To 3 For j = 1 To i语句,i次调用 change(arr, i),当i=1时,调用change(arr, 1)一次,当i=2时,调用change(arr, 2)二次;当i=3时,调用change(arr, 3)三次。故得arr(3, 3)=[0,0,0,0;0,3,5,7;0,2,6,8;0,1,4,9],故A项正确。
转载请注明原文地址:https://kaotiyun.com/show/0yHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有如下语句序列:Dima,bAsIntegerPrintaPrintb执行以上语句序列,下列叙述中错误的是( )。
设有如下事件过程:PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfBumon=2ThenPop
如果在VisualBasic集成环境中没有打开属性窗口,下列可以打开属性窗口的操作是( )。
下列叙述中正确的是
编写如下程序:PrivateSubCommand1_Click()DimnAsLong,sAsStringn=InputBox("输入一个数")DoWhilen0Printn\10
设变量x中的值是395,则下面语句的输出是Printx\100+((xMod100)\10)*10+(xMod10)*100
将数据项“Student”添加到名称为List1的列表框中,并使其成为列表框第一项的语句为()。
下列关于通用对话框CommonDialog1的叙述中,错误的是( )。
下面关于菜单的叙述中正确的是
随机试题
A.高分化腺癌B.中分化腺癌C.黏液腺癌D.印成细胞(2010年)黏液潴留在癌细胞内的肿瘤是
女性,26岁。突眼,甲状腺肿大,心率100次/min,甲状腺摄131I率增高,T3抑制试验抑制率<50%。若该患者为妊娠3个月合并甲亢,治疗选择
A.枳实B.枳壳C.山茱萸D.白果E.郁李仁按照净制要求,需要去核的是()
根据病情,病人目前最主要的护理诊断是
在现场抢救急性中毒患者时,首先应采用的排出毒物的方法是
某旧机动车交易公司(增值税一般纳税人)2012年3月销售旧机动车60辆,取得含税销售收入483万元。根据增值税法律制度的规定,该公司此项业务应缴纳增值税()万元。
南宋诗人陆游在《示儿》中写道:“王师北定中原日,家祭无忘告乃翁”,临终依然不忘国家的统一。标志着北宋灭亡的历史事件是:
行政决策的步骤排列正确的是()。①设计活动阶段②抉择活动阶段③情报活动阶段④审查活动阶段
冯.诺依曼型体系结构的计算机硬件系统的5大部件是
SmallincreasesintemperaturefoundtoaddpowertostormsintheAtlantic.HurricanesthatformintheAtlanticOceanare
最新回复
(
0
)