（ 22 ）命令按钮 Command1 的单击事件过程的代码如下：Private Sub Command1_Click( )Dim a(3 , 3)As IntegerFor i=1 To 3For j=1 To 3a(i , j)=i*j+iNext jNext iSum=0For i=1 To 3Sum=Sum+a(i , 4-i)Next iPrint SumEnd Sub运行程序，单击命令按钮，输出结果是（ ）。A ） 20B ） 7C ） 16D ） 17
题目
（ 22 ）命令按钮 Command1 的单击事件过程的代码如下：
Private Sub Command1_Click( )
Dim a(3 , 3)As Integer
For i=1 To 3
For j=1 To 3
a(i , j)=i*j+i
Next j
Next i
Sum=0
For i=1 To 3
Sum=Sum+a(i , 4-i)
Next i
Print Sum
End Sub
运行程序，单击命令按钮，输出结果是（ ）。
A ） 20
B ） 7
C ） 16
D ） 17
相似考题
参考答案和解析
（ 22 ）【答案】 C ）
【解析 】 经赋值后数组 a 的元素为 (2,3,4,4,6,8,6,9,12) ， 而第三个 For 循环语句的作用是求次对角线上三个元素的和，即 Sum=a(1,3)+a(2,2)+a(3,1)=4+6+6=16 。
更多“( 22 )命令按钮 Command1 的单击事件过程的代码如下:Private Sub Command1_Click( )Dim a(3 , 3) ”相关问题
-
第1题：
在窗体中有一个名为(Command1的命令按钮，Click事件的代码如下：
单击命令按钮后，标签显示的结果是( )。
正确答案：25
25 -
第2题：
设有命令按钮Commandl的单击事件过程，代码如下：
运行程序，单击命令按钮，消息框输出结果是（ ）。A. 7
B. 8
C. 15
D. 22
正确答案：D
本题考查VBA中二维数组和循环的知识。本题中的第一个二重循环为二维数组进行了赋值，第二个循环 完成累加，关键是分析出累加了哪些元素。由循环体可以看出，实 际上3次累加分别累加的是a(1，3)、a(2，2)、a(3、1)，实际上就是二维 数组的对角线，累加和为7+8+7=22。 -
第3题：
(6）在窗体上有1个名称为Command 1的命令按钮，并有如下事件过程和函数过程：
Private Sub Command 1_Click()
Dim p As Integer
p＝m(1）＋m(2)＋m(3）
Print p
End Sub
Private Function m(n As Integer) As Integer
Static s As Integer
For k＝1 To n
s＝s＋1
Next
m=s
End Function
运行程序，单击命令按钮Command 1的输出结果为【6】。
正确答案：
（6）10 -
第4题：
窗体上有一个名称为Command1的命令按钮，其单击事件过程代码如下： Private Sub Command1 Click（ ） Static x As Variant n=0 x=Array(1，2，3，4，5，6，7，8，9，10) While n<=4 x(n)=x(n+5) Print x(n)： n=n+1 Wend End Sub 运行程序，单击命令按钮Command1，窗体上显示的是（ ）。
A.1 2 3 4 5
B.6 7 8 9 10
C.2 3 4 5 6
D.6 2 3 4 5
正确答案：B
B。【解析】X是当作变量来声明，当作数组来使用，n=0，n<=4，因此n是5个值，x(n)=x(n+5)，x(n)是每个值加5，因此，是6，7，8，9，10。 -
第5题：
设有一个命令按钮Command1的事件过程以及一个函数过程。程序如下： Private Sub Command1 Click（ ） Static x A S Integer x=f(x+5) Cls Print X End Sub Private Function f(x As Integer)As Integer f=x+x End Function 连续单击命令按钮3次，第3次单击命令按钮后，窗体显示的计算结果是（ ）。
A.10
B.30
C.60
D.70
正确答案：D
D。【解析】本题考查静态变量，静态变量能将执行后的值储存到变量中。所以当第一次单击按钮时，x=5，x=f(x+5)=5+5=10，所以x=10，第二次单击按钮时，x=f(x+5)=15+15=30，此时x=30，当第三次单击按钮时，x=f(x+5)=35+35=70，所以答案为D。