(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个数中偶数的累加和
相关考题：
新建一个工程，内有两个窗体，窗体Form1上有一个命令按钮Command1，单击该按钮，Form1窗体消失，显示Form2窗体，程序如下：Private Sub Command1_Click（）【6】Form2. 【7】End Sub试补充完整。
在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序： Private Sub Command1_Click() Dim a As Integer, b As String, c As Integer a=1234: b=Str(a)c=Len(b)Print c End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是______。A．0B．5C．6D．7
在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_Click（）Dim s，iFor i=1 To 10s=s+iNext iMsgBox sEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为 。
（23）在窗体上画一个名为 Command1 的命令按钮，然后编写以下程序：Private Sub Command1_Click( )Dim M(10) As IntegerFor k=1 To 10M(k)=12-kNext kx=8Print M(2+M(x))End Sub运行程序，单击命令按钮，在窗体上显示的是（ ）。A）6B）5C）7D）8
在窗体上画一个命令按钮(其名称为Command1)，然后编写如下代码：Private Sub Command 1_Click()Dim aa=Array(1,2，3，4)i=3：i=1Do While i=0s=s+a(i)*ji=i-1j=j*10LoopPrint sEnd Sub运行上面的程序，单击命令按钮，则输出结果是( )。A．4321B．123C．234D．1234
窗体上有一个名为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 2B.3 8 2C.8 8 12D.3 8 12
在窗体上有一个命令按钮Command1，编写事件代码如下：Private Sub Command1_Click()Dim a(10)，P(3) As Integerk=5For i=1 To 10For i=1 To 3For i=1 To 3End Sub打开窗体运行后，单击命令按钮，消息框中输出的结果是( )。
在窗体上添加一个命令按钮(名为Command1)，然后编写如下程序：Private Sub Command1_Click()Dim a As Integer,b As Integerx=10y=20End Sub打开窗体运行后，单击命令按钮，消息框的输出结果为( )。
在窗体中添加一个名称为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．10B．30C．40D．50
窗体上有一个命令按钮，命令按钮的单击事件过程如下： 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．10B．14C．15D．120
在窗体上有一个命令按钮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 32B．12 3C．2 2D．12 32
在窗体上画一个名为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．54321B．123C．12345D．345
在窗体上有一个标签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．4B．5C．10D．40
在窗体上画一个命令按钮，其名称为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．49B．64C．81D．100
在窗体中添加一个名为Command1的命令按钮，然后编写如下程序：Private Sub s(By Val p As Integer)p=p*2End SubPrirate Sub Command1_Click( )Dim i As Integeri=3Call s(i)If i＞4 Then i=i^2MsgBox IEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为______。
在窗体中有一个名为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.2B.3C.4D.5
窗体上有一个名为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的命令按钮，然后编写如下程序： 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．10B．30C．40D．50
在窗体中有一个标签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．4B．5C．10D．40
窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是( )。 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 SubA．10B．14C．15D．120
在窗体中有一个标签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．4B．5C．10D．40
（ 15 ）在窗体上添加一个命令按钮（名为 Command1 ），然后编写如下事件过程：Private Sub Command1_Click （）Dim b,kFor k=1 to 6b=23+kNext kMsgBox b+kEnd Sub打开窗体后，单击命令按钮，消息框的输出结果是 【 15 】 。
窗体Form. 1上有一个名称为Command 1的命令按钮，以下对应窗体单击事件的事件过程是A）Private Sub Form. 1_Click() B）Private Sub Form. _Click()End Sub End SubC）Private Sub Commandl_Click() D）Private Sub Command_ Click()End Sub End Sub
窗体上有一个名为Command 1的命令按钮和一个名为Timer 1的计时器，并有下面的事件过程：Private Sub Command 1_Click()Timerl.Enabled=TrueEnd SubPrivate Sub Form_ Load()Timerl．Interval＝10Timerl．Enabled＝FalseEnd SubPrivate Sub Timerl_Timer()Command l .Left＝Commandl .Left+10End Sub程序运行时，单击命令按钮，则产生的结果是A）命令按钮每10秒向左移动一次B）命令按钮每10秒向右移动一次C）命令按钮每10毫秒向左移动一次D）命令按钮每10毫秒向右移动一次
窗体上有一个名为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
(6）在窗体上有1个名称为Command 1的命令按钮，并有如下事件过程和函数过程：Private Sub Command 1_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＋1Nextm=sEnd Function运行程序，单击命令按钮Command 1的输出结果为【6】。
（ 11 ）在窗体中添加一个命令按钮，名称为 Command1 ，然后编写如下程序：Private Sub Command1_Click()Dim s ， iFor i=1 To 10s=s+iNext iMsgBox sEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为 【 11 】 。