计算机二级

窗体上有一个名为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个数中偶数的累加和

题目

窗体上有一个名为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个随机数中有多少个奇数。
如果没有搜索结果，请直接 联系老师 获取答案。
相似问题和答案

第1题：

窗体上有一个名为Command1的命令按钮,并有如下程序: Private Command1_Click（) Dim a（10),x% For k=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个数中偶数的累加和


Command1.FontBold＝true Command1.FontBold＝true 解析：本题考查有关字体属性的知识。窗体中控件的字体由一些有关字体的属性控制，比如FontName(字体名)、FontSize(字体大小)、FontBold(加粗)、Fomltalic (倾斜)、FontUnderline(下划线)等。

第2题：

(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个数中偶数的累加和


正确答案：A

第3题：

在窗体上画一个名为Command1的命令按钮，编写如下程序：

程序运行后，单击命令按钮，输出的结果是_________。


正确答案：
4
【解析】本题考查了数组的嵌套使用。程序首先通过一个For循环给数组M的各个数组元素赋值，然后通过数组下标嵌套本身。注意：这样的嵌套时，要保证数组下标不出界，否则程序将出错。

第4题：

窗体上有一个名称为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。

第5题：

窗体上有一个名称为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。

第6题：

在窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并编写有如下事件过程：程序运行后，单击命令按钮，在文本框中显示的是（ ）。

A. 2

B. 3

C. 4

D. 5


正确答案：B
B)    【解析】本题考查循环程序的分析。题中循环变量为i，步长为1，循环体中i每次变化都增加3，因此执行一次循环后，i的值增加4，当i大于10时退出循环，所以每次循环后i的值为：3，7，11。当i为11时退出循环，所以循环共执行了3次。

第7题：

在窗体上有一个名称为Command1的命令按钮，并有如下程序：程序执行时，单击命令按钮Command1三次后，窗体上显示的结果为（ ）。

A. 5 16

B. 5 6

C. 15 15

D. 15 6


正确答案：D
D)    【解析】本题考查静态变量。静态变量的值有继承性，上一次调用的结果在下一次调用时还是有效的。题目中每次调用Y的值都被重新赋值了，因此单击3次以后Y的值仍然是6，而x每次调用的结果都保留，因此调用3次以后，结果为15。

第8题：

在窗体上添加一个命令按钮(名为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。

第9题：

窗体上有一个名为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

相关内容