窗体上有一个名为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，通用过程fun和命令按钮的事件过程如下： Private Function fun(By m As Integer) If m Mod 2=0 Then fun=2 Else Fun=1 Else If End Funcion Private Sub Commandl_Click() Dim i Integer,s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，则窗体上输出A.6 B.7 C.8 D.9
（25）在窗体上有一个命令按钮Commandl，编写下列程序： Private Sub Command1_Click() Print ppl(3,7) End Sub Public Funcion ppl(x As Single,n As Integer)As Single If n=0 Then ppl=1 Else If n Mod 2=1 Then ppl=x*x+n Else ppl=x*x-n End If End If End Funcion 程序运行后，单击该命令按钮，屏幕上显示的是 A.2 B.1 C.0 D.16
窗体上有一个名为Commandl的命令按钮，并有如下程序：Private Sub Command_Click()Dim a As Integer，b As Integera=8b=12Print Fun(a，b)；a；bEnd SubPrivate Function Fun(ByVal a As Integer，b As Integer)As Integera=a Mod 5b=b＼5Fun=aEnd Function程序运行时，单击命令按钮，则输出结果是A．3 3 2B．3 8 2C．8 8 12D．3 8 1 2
在窗体上有1个名称为Commandl的命令按钮，并有如下事件过程和函数过程：Private Sub Commandl Click()Dim P As Integerp=m(1)+m(2)+m(3)Print PEnd SubPrivate Function m(n As Integer)As IntegerStatic s As IntegerFor k=1 To ns=s+lNextm=sEnd Function运行程序，单击命令按钮Commandl后的输出结果为
窗体上有一个名称为Command1的命令按钮，并有如下程序： Private Sub Command1 Click（ ） x=14 Do While x0 x=x-3 x=IIf(Int(x／5)=x／5，x+2，x) Loop Print x End Sub 程序运行后，单击命令按钮Command1，输出结果为（ ）。A.0B.-lC.-2D.-_3
窗体上有一个名称为Command1的命令按钮，并有如下程序：Private Sub Command1 Click（ ）x=15Do While x0x=x-3x=IIf(Int(x／5)=x／5，x+2，x)LoopPrint xEnd Sub程序运行后，单击命令按钮Command1，输出结果为（ ）。A.0B.-lC.-2D.-_3
窗体上有一个名为Commandl的命令按钮，并有如下程序：Private Sub Command 1_Click()Dim a As Integer, b As Integera=8b=12Print Fun(a, b);a; bEnd SubPrivate Function Fun(ByVal a As Integer, b As Integer)As Integera=a Mod 5b=b、5Fun＝aEnd Function程序运行时，单击命令按钮，则输出结果是A）3 3 2B）3 8 2C）8 8 12D）3 8 12