阅读下列程序： 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．234

B．345

C．567

D．356

[单选题]阅读下列程序：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 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

[单选题]阅读下列程序。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 Commandl一Click()D．im arrD．im i AS Integerarr=Array(0，1, 2，3，4，5，6，7,8，9，10)F．or i=0 To 2Print arr(7-i)；NextE．nd Sub程序运行后，窗体上显示的是：A．8 7 6B．7 6 5C．6 5 4D．5 4 3

[单选题]（28）阅读程序：Private Sub Commandl_Click()D．im arrD．im i As Integerarr＝Array(0，1，2, 3，4, 5，6，7，8，9, 10)F．or i＝0To2Print arr(7-i);NextE．nd Sub程序运行后，窗体上显示的是：A．）8 7 6B．）7 65C．）6 5 4D．）5 4 3

[单选题]若有如下程序： 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+j End Function 单击命令按钮，执行程序，输出结果是( )。A．2 3 4B．3 4 5C．5 6 7D．3 5 6

[单选题]有如下程序：Private Sub Form_Click()D．im i As Integer，Sum As IntegerSum=0F．or i=2 To 10If i Mod 2＜＞0 And i Mod 3=0 ThenSum=Sum+iE．ndIfNextPrint SumE．nd Sub程序运行后，单击窗体，输出结果为A．12B．30C．24D．18

[单选题]有如下程序： Private Sub Form_Click() Dim i As Integer，Sum As Integer Sum=0 For i=2 To 10 If i Mod 2＜＞0 And i Mod 3=0 Then Sum=Sum+i End If Next Print Sum End Sub 程序运行后，单击窗体，输出结果为A．12B．30C．24D．18