itgle.com
设有命令按钮Command1的单击事件过程，代码如下：Private Sub Command1_Click（）Dim a（30）As IntegerFor i=1 To 30a（i）=Int（Rnd*100）NextFor Each arrItem In aIf arrItem Mod 7=0 Then Print arrItem；If arrItem>90 Then Exit ForNextEnd Sub对于该事件过程，以下叙述中错误的是（ ）。A．a数组中的数据是30个100以内的整数B．语句For
题目
设有命令按钮Command1的单击事件过程，代码如下：
Private Sub Command1_Click（）
Dim a（30）As Integer
For i=1 To 30
a（i）=Int（Rnd*100）
Next
For Each arrItem In a
If arrItem Mod 7=0 Then Print arrItem；
If arrItem>90 Then Exit For
Next
End Sub
对于该事件过程，以下叙述中错误的是（ ）。
A．a数组中的数据是30个100以内的整数
B．语句For Each arrItem In a有语法错误
C．If arrItem Mod 7=0……语句的功能是输出数组中能够被7整除的数
D．If arrItem>90……语句的作用是当数组元素的值大于90时退出For循环
相似考题
更多“设有命令按钮Command1的单击事件过程,代码如下: PrivateSubCommand1_Click() Dima(30)As ”相关问题
-
第1题：
在窗体上有一个命令按钮Command1，编写事件代码如下：
Private Sub Command1_Click()
Dim a(10)，P(3) As Integer
k=5
For i=1 To 10
For i=1 To 3
For i=1 To 3
End Sub
打开窗体运行后，单击命令按钮，消息框中输出的结果是( )。
正确答案：201
201 解析： 本题考查的是VBA编程基础。经过第一个for循环，a(i)中a(1)～a(10)存的分别是1～10的平方。第二个循环后，p(i)中的p(1)存的是a(1)的值，p(2)中存的是a(4)的值，p(3)中存的是a(9)的值，经过最后一个循环之后，k的值应该为201。 -
第2题：
设有一个命令按钮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。 -
第3题：
在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim a() a=Array("机床"，"车床"，"钻床"，"轴承")Print a(2) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。
A．机床
B．车床
C．钻床
D．轴承
正确答案：C
解析： 本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，我们通常使用Dim语句来定义数组，其中下标下限缺省为0。本题中的a(2)就是数组的第三个元素即“钻床”。 -
第4题：
设有命令按钮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
正确答案：In
In 解析：题考查了For Each…Next语句。与For…Next类似，但For Each…Next专门用于数组或对象“集合”，其一般格式为：
For Each 成员 In 数组
循环体
[Exit For]
Next[成员]
-
第5题：
在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a()
a＝Array("机床"，"车床"，"钻床"，"轴承")
Print a(2)
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。
A．机床
B．车床
C．钻床
D．轴承
正确答案：C
解析：本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，我们通常使用Dim语句来定义数组，其中下标下限缺省值为0。本题中的a(2)就是数组的第三个元素即“钻床”。