在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： Dim SW As Boolean Function func(X As Integer)As Integer If X＜20 Then Y=X Else Y=20+X End If func=Y End FunctiOn Phvate Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) SW=False End Sub Phvate Sub Form_MouseUp(BuRon As Integer,Shin As Integer，X As Single,Y As Single) SW=Tree End Sub Pdvate Sub Commandl-Click() Dim intNum As Integer intNum=InputBox("") If SW Then Print func(intNum) End If End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在输入对话框中输入25，则程序的执行结果为______。

A． 输出0

B．输出25

C．输出45

D．无任何输出

[单选题]在窗体上画一个名称为Coramandl的命令按钮，然后编写如下程序； Dim SW As Boolean Function func(X As Integer)As Integer If X＜20 Then Y=X Else Y=20+X End If func=Y End Function Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim a As Bool

[单选题]在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：D．im SW As BooleanF．unction func(X As Integer) As IntegerIf X＜20 ThenY=XE．lseY=20+XE．nd Iffunc=YE．nd FunctionPrivate Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single)SW=FalseE．nd SubPdvate

[单选题]在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:D．im SW As BooleanF．unction func(X As Integer)As IntegerIf X<20 ThenY=XE．lseY=20+XE．nd Iffunc=YE．nd FunctionPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)SW=FalseE．nd SubP

[单选题]在窗体上画一个名称为Commana1的命令按钮，然后编写如下程序： Dim SW As Boolean Function func(X As Integer)As Integer If X＜20 Then Y=X Else Y=20+X End If func = Y End Function Private Sub Form. MouseDown(Button As Integer,_ Shift As Integer,X As Single, Y As Single) SW = False

[单选题]在窗体上画一个命令按钮,名称为Commandl。然后编写如下程序:Private Sub Commandl_Click()F．or I=1 T0 2F．or J=1 To IPrint String(I,″Hello″);Next JPrintNext IE．nd Sub程序运行后,如果单击命令按钮,则在窗体上显示的内容是A．H HH HHB．H HHHHC．HHHHHD．H HH HHHH

[单选题]在窗体上画一个命令按钮，名称为Commandl。然后编写如下程序： Private Sub Command1_Ctick() For I=1 TO 2 For J=1 TO I Print String(I，"Hello")； Next J Print Next I End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是A． H HH HHB． H HHHHC． HHHHHD．H HH HHHH

[单选题]在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：Private Sub Commandl_Click()D．imi As Integer,j As IntegerD．ima(10,10)As IntegerF．ori=1 To 3F．orj=1 To 3a(i，j)=(i-1)*3+jPrinta(i，j)；NextjPrintNextiE．nd SubA．B．C．D．

[单选题]在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： Option Base 1 Private Sub Commandl_Click() Dim c AS Integer，d As Integer d=0 c=6 x=Array(2,4,6,8,10,12) For i=1 To 6 If x(i)＞c Then d=d+x(i) c=x(i) ElSe d=d-c End If Next Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为A．

[单选题]在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：Private Sub Command1_Click（）Static x As IntegerStati cy As Integery=1y=y+5x=x+5Printx；yEnd Sub程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为（）A . 1516B . 156C . 1515D . 56

[单选题]在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim i As Integer，j As Integer Dim a(10， 10)As Integer For i=1 To 3 For i=1 To 3 a(i，j)=(i-1) *3+j Print a(i，j)； Next i Print Next i End Sub 程序运行后，单击命令按钮，窗体上显示的是A．1 2 3 246 3 69B．2 3 4 3 4