首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: 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
2015-06-30
26
问题
编写如下程序:
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://jikaoti.com/ti/5L60FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列关于图像框控件和图片框控件的说法错误的是()。
关于结构化程序设计原则和方法的描述错误的是()。
在文本框控件中,将Text的内容全部显示为用户所定义的字符的属性是()。
设有语句Open"c:\Test.Dat"ForOutputAs#1则以下错误的叙述是______。
信息隐蔽的概念与下述哪一种概念直接相关______。
下列关于队列的叙述中正确的是______。
程序的三种基本控制结构的共同特点是______。
对象实现了数据和操作的结合,是指对数据和数据的操作进行
下列关系运算的叙述中,正确的是
有如下的程序段,该程序段的执行完后,共执行循环的次数是PrivateSubCommand1_Click()total=0Counter=lDoPrintCountertota
随机试题
发生MRI失超时,错误的做法是
男性,70岁,不慎摔倒致左股骨转子骨折,伴移位,因全身情况不宜手术治疗,采用骨牵引,对此种病人要重点预防的并发症是
甲状腺功能减退按起病年龄的不同,将起病于儿童者称为呆小病。
男,25岁,因颈部蜂窝织炎入院。病人颈部肿胀明显,应特别注意观察
近期建设规划的规划期限是:
设置会计科目的相关性原则是指所设置的会计科目应当符合国家统一的会计制度的规定。()
下列每组句子中,加下划线的词语的意义相同的一项是()。
阅读下面的文字,完成下列问题。前苏联科学院海洋地质研究所的研究人员,发现地球七大洋底部裂陷扩展从来没有停止过,而且是沿着北极纵绕地壳的山脊状裂陷经常进行的。这种裂陷扩展,在太平洋底部最为迅速,在北冰洋和南极的海底扩展就稍慢一些,地球南北断面呈椭圆
执法为民是社会主义法治的本质要求。下列哪一做法不符合执法为民的理念?
IPTV包括视频点播、直播电视和______3个基本业务。
最新回复
(
0
)