（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 Commandl_Click()For i = 1 To 2For j = 1 To iPrint String(i,"Hello")Next jPrintNext iEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是A. H HH HH B. H HHHH C. HHHHH HH HHHH D. H

[单选题]在窗体上画一个命令按钮Commandl,然后编写下列代码： Private Sub Commandl_Click() Dim Arrl(10)As Integer,Arr2(10)As Integer n=3 For i=1 To 5 Arrl(i)=i Arr2(n)=2*n+1 Next i Print Arr2(n)；Arrl(n) End Sub 运行程序后，单击命令按钮，输出结果是A.11 3 B.3 11 C.13 3 D.3 13

[单选题]在窗体上有一个命令按钮Command1，编写下列程序：Private Sub Command1_Click()Print pp1(3,7)E．nd SubPublic Function pp1(x As Single,n As Integer)As SingleIf n=0 Thenpp1=1E．lseIf n Mod 2=1 Thenpp1=x*x+nE．lsepp1=x*x-nE．nd IfE．nd IfE．nd Function程序运行后，单击该命令按钮，屏幕上显示的是( )。A．2B．1

[单选题]在窗体上有一个命令按钮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．

[单选题]在窗体上画一个命令按钮，然后编写下列程序 Private Sub Command3_Click( ) Tcl 2 Tcl 3 Tel 4 End Sub Sub Tcl(a As Integer) Static x As Integer x=x + a Print x； End Sub 程序运行后，单击命令按钮，输出结果为A．2 3 4B．2 5 9C．3 5 4D．2 4 3

[单选题]在窗体上画一个命令按钮，然后编写下列程序： Private Sub Command1 click( ) Dim a As Single，b As Single a=6:b=2 RC a，b Print a，b End Sub Sub RC(x As Single，y As Single) i=x x=i/y y=i Mod y End SubA．4 3B．1 1C．3 0D．2 6

[单选题]在窗体上一个名为Commandl的命令按钮，然后编写以下程序：Private Sub Commandl一Click()D．im a(10)As IntegerF．or k=10 To 1 Step-1a(k)=20—2*kNext kk=k+7Print a(k—a(k))运行程序．单击命令按钮，输出结果是A．1 8B．12C．BD．6

[单选题]在窗体上画一个名为Commandl的命令按钮，然后编写以下程序：Private Sub Commandl—Click()D．im M(10)As IntegerF．or k=1 TO 10M(k)=12一kNext kx=8PrintM(2+M(x))E．nd Sub运行程序，单击命令按钮，在窗体上显示的是A．6B．5C．7D．8