窗体上有一个名为Commandl的命令按钮，并有如下程序：Private Sub Commandl_Click()Dim a(1 0)，x％a(k)=Int(Rnd*90+10)x=x+a(k)Mod 2Print xEnd Sub程序运行后．单击命令按钮，输出结果是A．10个数中奇数的个数B．l0个数中偶数的个教C．10个数中奇数的累加和D．10个数中偶数的累加和
题目
窗体上有一个名为Commandl的命令按钮，并有如下程序：
Private Sub Commandl_Click()
Dim a(1 0)，x％
a(k)=Int(Rnd*90+10)
x=x+a(k)Mod 2
Print x
End Sub
程序运行后．单击命令按钮，输出结果是
A．10个数中奇数的个数
B．l0个数中偶数的个教
C．10个数中奇数的累加和
D．10个数中偶数的累加和
相似考题
更多“窗体上有一个名为Commandl的命令按钮,并有如下程序:Private Sub Commandl_Click()Dim a(1 0),x%a ”相关问题
-
第1题：
在窗体上有1个名称为Commandl的命令按钮，并有如下事件过程和函数过程：
Private Sub Commandl 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+l
Next
m=s
End Function
运行程序，单击命令按钮Commandl后的输出结果为
正确答案：10
10 -
第2题：
窗体上有一个名称为Command1的命令按钮，并有如下程序： Private Sub Command1 Click（ ） x=14 Do While x>0 x=x-3 x=IIf(Int(x／5)=x／5，x+2，x) Loop Print x End Sub 程序运行后，单击命令按钮Command1，输出结果为（ ）。
A.0
B.-l
C.-2
D.-_3
正确答案：B
B。【解析】根据算法，第一次循环，x=14，第二次循环，x=11，第三次，x=8，……以此类推，x=5，2，-1，当<0时，X为-1。 -
第3题：
窗体上有一个名为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
-
第4题：
在窗体上画一个名为Commandl的命令按钮，编写如下程序：
程序运行后，单击命令按钮，输出的结果是（ ）。A. 4
B. 5
C. 6
D. 8
正确答案：A
A) 【解析】本题考查数组中元素的分析。数组中的第k个元素的值为12-k，因此M(6)数据为6，M(8)为4。
-
第5题：
窗体上有一个名称为Command1的命令按钮，并有如下程序：
Private Sub Command1 Click（ ）
x=15
Do While x>0
x=x-3
x=IIf(Int(x／5)=x／5，x+2，x)
Loop
Print x
End Sub
程序运行后，单击命令按钮Command1，输出结果为（ ）。
A.0
B.-l
C.-2
D.-_3
正确答案：B
B。【解析】根据算法，第一次循环，x=14，第二次循环，x=11，第三次，x=8，……以此类推，x=5，2，-1，当<0时，X为-1。