itgle.com
设有命令按钮Command1的单击事件过程，代码如下，请填空。Private Sub Command1_Click()Dim a(30) As IntegerFor i=1 To 30a(i) =iNextFor Each arrItem______aIf arrItem Mod 7=0 Then Print arrItem；If arrItem＞90 Then Exit ForNextEnd Sub
题目
设有命令按钮Command1的单击事件过程，代码如下，请填空。
Private Sub Command1_Click()
Dim a(30) As Integer
For i=1 To 30
a(i) =i
Next
For Each arrItem______a
If arrItem Mod 7=0 Then Print arrItem；
If arrItem＞90 Then Exit For
Next
End Sub
相似考题
更多“设有命令按钮Command1的单击事件过程,代码如下,请填空。Private Sub Command1_Click()Dim a(30)As ”相关问题
-
第1题：
在窗体中有一个名为(Command1的命令按钮，Click事件的代码如下：
单击命令按钮后，标签显示的结果是( )。
正确答案：25
25 -
第2题：
设有如下通用过程：
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如 下事件过程：
End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是（ ）。A. 30
B. 25
C. 20
D. 15
正确答案：A
A) 【解析】本题考查函数的参数。数组作为参数进行传递时，VB中默认的参数传递方式为地址传递。过程Fun的功能是计算数组中所有元素的积。数组的元素为2 4 6 8 10，因此最后文本框中显示的内容为30。
-
第3题：
设有一个命令按钮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。 -
第4题：
设有命令按钮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。 -
第5题：
设有一个命令按钮Command1的事件过程以及一个函数过程，程序如下：
Private Sub Command1_Click()
Static x as 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为静态变量，初值为0，传给f函数的是5，返回值为5+5，则x的值为10。 第二次单击：x为静态变量，值为10，传给f函数的是15，返回值为15+15，则x的值为30。第三次单击：x为静态变量，值为30，传给f函数的是35，返回值为35+35，则x的值为70。故本题选D。