首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: 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
21
问题
编写如下程序:
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全国计算机二级
相关试题推荐
编写如下程序:PrivateSubCommand1_Click() DimxAsInteger,yAsInteger x=InputBox("输入第一个数") y=InputBox("输入第二个数") Callf(x,
有如下语句序列:Dima,bAsIntegerPrintaPrintb执行以上语句序列,下列叙述中错误的是( )。
下列叙述中正确的是( )。
在编辑VB应用程序时,如果不小心关闭了属性窗口,则可以单击主窗口标准工具栏上的一个按钮直接打开属性窗口,这个按钮的图标是
在窗体上画1个文本框,名称为Text1,然后编写如下程序:PrivateSubFormLoad()Open"C:\dat.txt"ForOutputAs#1Text1.Text=""EndSub
下列数据结构中,能够按照“先进后出”原则存取数据的是( )。
下列关于类、对象、属性和方法的叙述中,错误的是()。
下面关于单选按钮的叙述中正确的是
下面不属于软件设计阶段任务的是
随机试题
在教育功能中,()被称为教育的本体功能或教育的固有功能。
下列关于WAV文件和MIDI文件的叙述,错误的是_______。
缓解患者不适的首要护理措施为()。
下列不属于遗忘表现的是
患者,女,15岁。月经周期紊乱,经期长短不一,月经量增多5个月余。肛门检查:子宫正常大小,双侧附件(一),最可能的诊断为
NK细胞主要杀伤
治疗慢性粒细胞性白血病之阴血亏虚证应首选
A.足大趾B.足大趾端C.足中指端D.足第四趾端E.足小指端
驱动调度算法中,()算法可能会随时改变移动臂的运动方向。
WholesalepricesinJulyrosemoresharplythanexpectedandatafasterratethanconsumerprices,【1】thatbusinesseswerestill
最新回复
(
0
)