(30）窗体上有一个名为Command 1的命令按钮，并有如下程序：Private Sub Command 1_Click()Dim a(10)，x%For k＝1To10a(k)=lnt(Rnd*90＋10)x＝x +a(k) Mod 2Next kPrint xEnd Sub程序运行后，单击命令按钮，输出结果是A）10个数中奇数的个数B）10个数中偶数的个数C）10个数中奇数的累加和D）10个数中偶数的累加和
题目
(30）窗体上有一个名为Command 1的命令按钮，并有如下程序：
Private Sub Command 1_Click()
Dim a(10)，x%
For k＝1To10
a(k)=lnt(Rnd*90＋10)
x＝x +a(k) Mod 2
Next k
Print x
End Sub
程序运行后，单击命令按钮，输出结果是
A）10个数中奇数的个数
B）10个数中偶数的个数
C）10个数中奇数的累加和
D）10个数中偶数的累加和
相似考题
参考答案和解析
更多“(30)窗体上有一个名为Command 1的命令按钮,并有如下程序:Private Sub Command 1_Click()Dim a(10 ”相关问题
-
第1题：
在窗体上画一个命令按钮(其名称为Command1)，然后编写如下代码：
Private Sub Command 1_Click()
Dim a
a=Array(1,2，3，4)
i=3：i=1
Do While i>=0
s=s+a(i)*j
i=i-1
j=j*10
Loop
Print s
End Sub
运行上面的程序，单击命令按钮，则输出结果是( )。
A．4321
B．123
C．234
D．1234
正确答案：D
解析：此程序的作用是将数组a中a(0)、a(1)、a(2)、a(3)作为千位、百位、十位、个位组成一个新数，i是数组的下标，作用是依次取a(3)、a(2)、a(1)、a(0)，s=s+a(i)*j的作用是将取到的数依次放到个位、百位、十位、千位，这是因为j四次循环的取值分别为1、10、100、1000。所以s四次循环的取值为4、4+30、34+200、324、324+10000。 -
第2题：
在窗体上有一个命令按钮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。 -
第3题：
在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Public x As Integer Private Sub Command1_Click() x=10 Call s1 Call s2 MSgBox x End Sub Private Sub s1() x=x＋20 End Sub Private Sub s2() Dim x As Integer x=X＋20 End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果为______。
A．10
B．30
C．40
D．50
正确答案：B
解析：本题使用Call关键字调用子过程s1，s2。x=10在调用子过程s1后，x=30，但由于在s1中直接使用变量，所以该值的作用范围是局部的，即只限于s1子过程中，没有传回。在调用s2时，由于s2使用Dim...As关键字定义x，所以其值是模块范围的。故在消息框中输出的值，是从子过程s2传回的值。 -
第4题：
在窗体上有一个命令按钮Command1，编写事件代码如下： Private Sub Command 1_Click() Dim x As Integer，y As Integer x=12:y=32 Call Proe(X，Y) Debug.Print x；y End Sub Public Sub Proc(n As Integer，ByVal m As Integer) n=n Mod 10 m=in Mod 10 End Sub 打开窗体运行后，单击命令按钮，立即窗口上输出的结果是( )。
A．2 32
B．12 3
C．2 2
D．12 32
正确答案：A
-
第5题：
在窗体上有一个标签Lb1和一个命令按钮Command1，事件代码如下： Option Compare Database Dim a As String * 10 Private Sub Command1_Click( ) a="1234" b=Len(a) Me. Lb1. Caption=b End Sub 打开窗体后单击命令按钮，窗体中显示的内容是( )。
A．4
B．5
C．10
D．40
正确答案：C
解析：首先定义a为字符串类型，长度为10，当单击命令按钮后将a的长度值赋予b，并且将b的值10通过标签显示出来。 -
第6题：
在窗体中添加一个名为Command1的命令按钮，然后编写如下程序：
Private Sub s(By Val p As Integer)
p=p*2
End Sub
Prirate Sub Command1_Click( )
Dim i As Integer
i=3
Call s(i)
If i＞4 Then i=i^2
MsgBox I
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为______。
正确答案：3
3 解析： 由于VBA中，传值调用(Byval选项)为“单向”作用形式即过程调用只是相应位置实参的值“单向”传送给形参处理，而被调用过程内部对形参的任何操作引起的形参值的变化均不会反馈、影响实参的值。此题中：形参p被说明为ByRef唯值形式的整型量，当运行Command1_Click( )过程，并调用s( )函数，实参i传送其值给形参p，p发生变化P＝p*2＝3*2＝6。但因为使用的是DyVal“单向”传值形式，实参i的值不会发生变化，仍然为3。i＞4条件不成立，不会执行“i＝i^2”语句，所以最后i的值为3。 -
第7题：
窗体上有一个名为Command1的命令按钮，并有如下程序： Private Sub Command1Click（ ） Dim a(10)，x％ Fork=1 To 10 a(k)=Int(Rnd*90+10) x=x+a(k)Mod 2 Next k Print X End Sub 程序运行后，单击命令按钮，输出结果是（ ）。
A.10个数中奇数的个数
B.10个数中偶数的个数
C.10个数中奇数的累加和
D.10个数中偶数的累加和
正确答案：A
A。【解析】Mod运算是求余数的运算．被2除的余数只能是0或者1，X值就表示有多少个1相加，即在10个随机数中有多少个奇数。 -
第8题：
在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下： OPtion Compare Databse Dim a As String * 10 Private Sub COmmand1_Click() a="1234" b=Len(a) Me.Lbl.Caption=b End Sub 打开窗体后单击命令按钮，窗体中显示的内容是
A．4
B．5
C．10
D．40
正确答案：C
-
第9题：
在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下： Option Compare Database Dim a AS String*10 Private Sub Command1_Click() a=“1234” b=Len(a) Me.Lb1．Caption=b End Sub 打开窗体后单击命令按钮，窗体中显示的内容是( )。
A．4
B．5
C．10
D．40
正确答案：C
解析：本题考查VBA中定长字符串的知识。当声明一个变量为String类型时，如果不加长度说明，则为变长字符串；如果加上长度说明，则为定长字符串。定长字符串变量无论给它赋予何值，长度都为初始声明时指定的长度。由于声明a的长度为l0，故 Len(a)=10。 -
第10题：
窗体Form. 1上有一个名称为Command 1的命令按钮，以下对应窗体单击事件的事件过程是
A）Private Sub Form. 1_Click() B）Private Sub Form. _Click()
End Sub End Sub
C）Private Sub Commandl_Click() D）Private Sub Command_ Click()
End Sub End Sub
正确答案：B
-
第11题：
窗体上有一个名为Commandl的命令按钮，并有如下程序：
Private Sub Command 1_Click()
Dim a As Integer, b As Integer
a=8
b=12
Print Fun(a, b);a; b
End Sub
Private Function Fun(ByVal a As Integer, b As Integer)As Integer
a=a Mod 5
b=b、5
Fun＝a
End Function
程序运行时，单击命令按钮，则输出结果是
A）3 3 2
B）3 8 2
C）8 8 12
D）3 8 12
正确答案：B
-
第12题：
（ 11 ）在窗体中添加一个命令按钮，名称为 Command1 ，然后编写如下程序：
Private Sub Command1_Click()
Dim s ， i
For i=1 To 10
s=s+i
Next i
MsgBox s
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为 【 11 】 。
正确答案：
-
第13题：
窗体上有一个名为Command1的命令按钮，并有如下程序： Private Sub Corqmand1_Click（ ） Dim a As Integer，b As Integer a=8 b=12 Print Fun(a，b)；a；b End Sub Private Function Fun(ByVal a As Integer，b AS Integer)As Integer a=a Mod 5 b=b＼5 Fun=a End Function 程序运行时，单击命令按钮，则输出结果是（ ）。
A.3 3 2
B.3 8 2
C.8 8 12
D.3 8 12
正确答案：B
-
第14题：
在窗体上添加一个命令按钮(名为Command1)，然后编写如下程序：
Private Sub Command1_Click()
Dim a As Integer,b As Integer
x=10
y=20
End Sub
打开窗体运行后，单击命令按钮，消息框的输出结果为( )。
正确答案：20
20 解析： 本题考查IIf函数的知识。对于IIf函数可用于执行简单的条件判断操作，当第一个参数为真时返回第二个参数值，否则返回第三个参数值。因为x＞y为假，所以返回y的值也就是返回20。 -
第15题：
窗体上有一个命令按钮，命令按钮的单击事件过程如下： Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For k=1 To 4 s=s+a(k) Next Print S End Sub 运行程序后，单击命令按钮，输出结果是
A．10
B．14
C．15
D．120
正确答案：B
解析：考查考生对数组定义的掌握程度。
[解题要点] Array函数在默认的情况下，数组的下标从O开始，所以s=a(1)+a(2)+a(3)a(4)=2+3+4+5=14
[考点链接] 数组的定义、赋值和应用。 -
第16题：
在窗体上画一个名为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim Arr Arr = Array(1,2,3,4,5) j=1 For i = 5 To 1 Step -1 S = S + Art(i) * j j =j * 10 Next Print S End Sub 程序运行后，单击命令按钮，输出结果为( )。
A．54321
B．123
C．12345
D．345
正确答案：C
解析：本题考查使用Array函数给数组元素赋值的应用。分析程序可知，是通过For循环将数组中的各个元素通过一定的公式进行运算。运算过程为：当i=5时，Arr(5)=5，S=5；当i=4时，Arr(4)=4，S=45；当i=3时，Arr(3)=3，S=345；当i=2时，Arr(2)=2，S=2345；当i=1时，Arr(1)=1，S=12345；当i=0时，条件不满足退出循环，执行循环后面的语句Print S。因此，最后输出的值为“12345”。 -
第17题：
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_ Click() Dim arr (10) For i = 1 To 10 arr (i) = i ^ 2 Next i Print arr(i - 2) End Sub程序运行后，单击命令按钮，在窗体上输出的是______。
A．49
B．64
C．81
D．100
正确答案：C
-
第18题：
在窗体中有一个名为Command1的命令按钮，事件代码如下： Private Sub Command1_Click（ ） Dim m(10) For k=1 T0 10 m(k)=11=k Next k x=6 MsgBox m(2+m(x)) End Sub 打开窗体，单击命令按钮，消息框的输出结果是（ ）。
A.2
B.3
C.4
D.5
正确答案：C
弹出的是m(2+m(6))，m(6)=11—6=5，因此弹出的是m(2+5)=m(7)=11-7=4。 -
第19题：
在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Public x As Integer Private Sub Command1_Click() x=10 Call s1 Call s2 MsgBox x End Sub Private Sub sl() x=x+20 End Sub Private Sub s2() Dim x As Integer x=x+20 End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。
A．10
B．30
C．40
D．50
正确答案：B
解析： 本题考查变量作用域的知识。在整个程序中定义了一个全局变量x，在命令按钮的单击事件中对这个x赋值为10，然后依次调用s1和s2；在s1中对x自加了20；在s2中用Dim定义了一个局部变量x，按照局部覆盖全局的原则，在s2中的操作都是基于局部变量x而不是全局变量x。故此最终的输出结果为30。 -
第20题：
窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是( )。 Private Sub Command1_Click() Dim a a=Array(1, 2, 3, 4, 5) Fork= 1 To 4 s=s+a(k) Next k Print s End Sub
A．10
B．14
C．15
D．120
正确答案：B
解析：使用Array函数为数组变量赋值，数组变量不能是具体的数据类型，只能是变体(Variant)类型，使用Array函数给数组变量赋值的3种形式如下：①显式定义为Variant变量(例如，Dim数组变量名As Variant)：②在定义时不指明类型(例如，Dim数组变量名)；③不定义而直接使用。 -
第21题：
（ 15 ）在窗体上添加一个命令按钮（名为 Command1 ），然后编写如下事件过程：
Private Sub Command1_Click （）
Dim b,k
For k=1 to 6
b=23+k
Next k
MsgBox b+k
End Sub
打开窗体后，单击命令按钮，消息框的输出结果是 【 15 】 。
正确答案：
-
第22题：
窗体上有一个名为Command 1的命令按钮和一个名为Timer 1的计时器，并有下面的
事件过程：
Private Sub Command 1_Click()
Timerl.Enabled=True
End Sub
Private Sub Form_ Load()
Timerl．Interval＝10
Timerl．Enabled＝False
End Sub
Private Sub Timerl_Timer()
Command l .Left＝Commandl .Left+10
End Sub
程序运行时，单击命令按钮，则产生的结果是
A）命令按钮每10秒向左移动一次
B）命令按钮每10秒向右移动一次
C）命令按钮每10毫秒向左移动一次
D）命令按钮每10毫秒向右移动一次
正确答案：D
-
第23题：
(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