窗体上有一个名为Commandl的命令按钮，并有如下程序：

Private Sub Command 1_Click()

D．im a As Integer, b As Integer

a=8

b=12

Print Fun(a, b);a; b

E．nd Sub

Private Function Fun(ByVal a As Integer, b As Integer)As Integer

a=a Mod 5

b=b、5

F．un＝a

E．nd Function

程序运行时，单击命令按钮，则输出结果是

A．）3 3 2

B．）3 8 2

C．）8 8 12

D．）3 8 12

[单选题]窗体上有一个名为Commandl的命令按钮，并有如下程序：Private Sub Commandl_Click()D．im a(1 0)，x％a(k)=Int(Rnd*90+10)x=x+a(k)Mod 2Print xE．nd Sub程序运行后．单击命令按钮，输出结果是A．10个数中奇数的个数B．l0个数中偶数的个教C．10个数中奇数的累加和D．10个数中偶数的累加和

[单选题]窗体上有一个名为Commandl的命令按钮，并有如下程序：Private Sub Command_Click()D．im a As Integer，b As Integera=8b=12Print Fun(a，b)；a；bE．nd SubPrivate Function Fun(ByVal a As Integer，b As Integer)As Integera=a Mod 5b=b＼5F．un=aE．nd Function程序运行时，单击命令按钮，则输出结果是A．3 3 2B．3 8 2C．

[单选题]窗体上有一个名为Commandl的命令按钮，并有下面的程序：Private Sub Command1_Click()D．im art(5)As IntegerF．or k=1 TO 5arr(k)=kNext kprog art()F．or k=1 To 5Print alT(k)；Next kE．nd subSub prog(a()As Integer)n=UBound(a)F．or i=n To 2 step-1F．or j=1 To n-1if a(j)<a(j+1)Thent=a(

[单选题]在窗体上有一个命令按钮Commandl，编写事件代码如下：Private SuB cormmandl_Click()D．im y As Integery=0D．oy=Input Box(“y=”)IF(y Mod 10)+Int(y/10)=10 Then DeBug.print y;Loop Until y=0E．nd SuB打开窗体运行后，单击命令按钮，依次输入10、37、50、55、64、20、28、19、－19、0，立即窗口上输出的结果是A．37 55 64 28 19 19B．10 5

[单选题]在窗体上有一个命令按钮Commandl，编写事件代码如下：Private SuB commandl_Click()D．im d1 As DateD．im d2 As Dated1=#12/25/2009#d2=#1/5/2010#MsgBox DateDiFF(“WW”,d1,d2)E．nd SuB打开窗体运行后，单击命令按钮，消息框中输出的结果是A．1B．2C．10D．11

[单选题]在窗体上有一个命令按钮Commandl，编写事件代码如下：Private SuB commandl_Click()D．im x As Integer,y As Integerx=12:y=32C．all Proc(x,y)OeBug.Print x;yE．nd SuBPuBlic SuB Proc(n As Integer,Byval m As Integer)n=n Mod 10m=m Mod 10E．nd SuB打开窗体运行后，单击命令按钮，立即窗口上输出的结果是A．2 32B．12 3C．

[单选题](30）窗体上有一个名为Command 1的命令按钮，并有如下程序：Private Sub Command 1_Click()D．im a(10)，x%F．or k＝1To10a(k)=lnt(Rnd*90＋10)x＝x +a(k) Mod 2Next kPrint xE．nd Sub程序运行后，单击命令按钮，输出结果是A．）10个数中奇数的个数B．）10个数中偶数的个数C．）10个数中奇数的累加和D．）10个数中偶数的累加和

[单选题]在窗体中有一个命令按钮Commandl，编写事件代码如下：Private Sub Command1_CliCk()D．im s As Integers=P(1)+P(2)+e(3)+P(4)debug．Print SE．nd SUbPublic Function P(N AS Integer)D．im Sum As IntegerSum=0F．or i=1 To NSum=Sum+iNext iP=SumE．nd Function打开窗体运行后，单击命令按钮，输出结果是A．15B．20C．25D

[单选题]窗体上有一个命令按钮，命令按钮的单击事件过程如下： 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 Command1_Click() Print pp1(3, 7) End Sub Public Function pp1(x As Single, n As Integer) As Single If n = 0 Then pp1= 1 Else If n Mod 2 = 1 Then pp1 =x*x+n Else pp1 =x*x-n End If End If End Function 程序运行后，单击该命令按