阅读下列程序： 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 End Sub Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single， Y As Single) SW=True End Sub Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox(" ") If SW Then Print func(intNum) End If End Sub 程序运行后，单击一次窗体，再单击命令按钮，将显示一个输入对话框，如果在对话框中输入20，则程序的输出结果为

A．0

B．20

C．40

D．无任何输出

[单选题]阅读下列程序：PrivateSubCommand1_Click()D．im i As Integer，k As Integerk=2F．or i=1 To 3Print Fun(k)；NextE．nd SubF．unction Fun(j As Integer)Static ba=0a=a+1b=b+1F．un=a*b+jE．nd Function 程序运行后，单击命令按钮输出结果是A．234B．345C．567D．356

[单选题]阅读下列程序。Private Sub Command1_Click()D．im i As Integer, k As Integerk=2F．or i=1 To 3Print Fun(k) ;NextE．nd SubF．unction Fun(j As Integer)Static ba=0a=a + 1b=b + 1F．un=a  b + jE．nd Function程序运行后,单击命令按钮输出结果是A．2 3 4B．3 4 5C．5 6 7D．3 5 6

[单选题]阅读下列程序：Private Sub Command1_Click()D．im i As Integer,k As Integerk=2F．or i=1 To 3Print H(k);Next iE．nd SubF．unction H(j As Integer)Static ba=0a=a+1b=b+1H．=a*b+jE．nd Funmion单击命令按钮，执行程序，输出结果是( )。A．2 3 4B．3 4 5C．5 6 7D．3 5 6

[单选题]阅读下列程序： Private Sub Command1_Click() Dim i As Integer，k As Integer k=2 For i=1 To 3 Print Fun(k)； Next End Sub Function Fun(j As Integer) Static b a=0 a=a+1 b=b+1 Fun=a*b+j End Function 程序运行后，单击命令按钮输出结果是A．234B．345C．567D．356

[单选题]阅读下列程序： Private Sub Commad1_Click() Dim i As Integer,k As Integer k＝2 For i＝1 To 3 Print H(k) Next i End Sub Function H(j As Integer) a＝0 Static b a＝a+1 b＝b+1 H＝a*b+j End Function 程序运行后，单击命令按钮输出结果是A．234B．345C．567D．356

[单选题]阅读下列程序。 Private Sub Command1_Click() Dim i As Integer，k As Integer k=2 For i=1 To 3 Print Fun(k)； Next End Sub Function Fun(j As Integer) Static b a=0 a=a + 1 b=b + 1 Fun=a*b+j End Function 程序运行后，单击命令按钮输出结果是A．234B．345C．567D．356

[单选题]阅读下列程序： Private Sub Command1_Click() Dim i As Integer, k As Integer k=2 For i=1 To 3 Print H(k); Next i End Sub Function H(j As Integer) Static b a=0 a=a+1 b=b+1 H=a*b+jEnd Function单击命令按钮，执行程序，输出结果是( )。A．2 3 4B．3 4 5C．5 6 7D．3 5 6

[单选题]阅读程序Option Base 1Private Sub Form_Click（）D．im arr,SumSum = 0arr = Array（1,3,5,7,9,11,13,15,17,19）F．or i=1 To 10If arr（i）/3 = arr（i）/3 ThenSum = Sum + arr（i）E．nd IfNext iPrint SumE．nd Sub程序运行后，单击窗体，输出结果为（ ）。A．13B．14C．27D．15

[单选题]阅读程序:Option Base 1D．im arr()As IntegerPrivate Sub Form_Click()D．im i As Integer, j As IntegerReDim arr(3,2)F．or i = 1 To 3F．or j = 1 To 2arr(i,j)=i*2+jNextNextReDim Preserve arr(3,4)F．or j=3 To 4arr(3,j)=j+9NextPrint arr(3,2)+arr(3,4)E．nd Sub程序运行后,单击

[单选题]运行下列程序:Private Sub Form_Click( )Dim x As Integer, y As String, z As Stringy = &qu运行下列程序：Private Sub Form_Click( )D．im x As Integer, y As String, z As Stringy = "12345"F．or x = 1 To Len(y)z = Mid(Left(y, x), 1)Next xPrint zE．nd Sub单击窗体后，则在窗体