有如下程序：

Private Sub Form_C1ick()

E．=1:F=1

F．or j=1 To 3

E．=E+F:F=F+E

Next

Print E;F

E．nd Sub

该程序的输出结果是

A．6 6

B． 5 8

C． 13 21

D．34 55

[单选题]有如下程序： Private Sub Form_C1ick() Dim CheCk,Counter CheCk=True Counter=0 Do Do While Counter＜20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check=False Ptint Counter,Check End Sub 程序运行后，单击窗体，输出结果为______。A． 15 0B．20 -

[单选题]设有如下程序：Private Sub Form_C1ick()D．im s As Long，f As LongD．im n As Integer，i As Integerf=1n=4F．or i=1 To nf=f*is=s+fNext iPrint sE．nd Sub程序运行后，单击窗体，输出结果是A．32B．33C．34 0)35

[单选题]有如下程序： Private Sub Form_Click() E=1：F=1 For i=1 To 3 E=E+F:F=F+E Next Print E；F End Sub 该程序的输出结果是A．6 6B．5 8C．13 21D．34 55

[单选题]有如下程序:Private Sub Form_Click()E．=1:F=1F．or j=1 To 3E．=E+F:F=F+ENextPrint E;FE．nd Sub该程序的输出结果是A．6 6B．5 8C．13 21D．34 55

[单选题]有如下程序： Private Sub Form_Click() E=1:F=1 For j=1 To 3 E=E+F:F=F+E Next Print E:F End Sub 该程序的输出结果是A． 6 6B． 5 8C．13 21D．34 55

[单选题]设有如下程序： Private Sub Form_Click() A=1 For i＝1 To 3 Select Case i Case 1,3 A＝A+1 Case 2,4 A＝A+2 End Select Next i Print A End Sub 程序运行后，单击窗体，则在窗体上显示的内容是A．6B．5C．4D．3

[主观题]有如下程序：Option Base 1Private Sub Form_Click()D．im arr,SumSum=0F．or i=1 To 10If arr(i)/3=arr(i)/3 ThenE．nd IfNext iE．nd Sub程序运行后，单击窗体，消息框的输出结果为( )。

[单选题]有如下程序： Option Base 1 Private Sub Form. Click() Dim arr,Sum Sum=0 alt=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)/3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为______。A． 25B．26C．27D．28

[单选题]有如下程序： Option Base 1 Private Sub Form_Click() Dim arr，Sum Sum=0 alt=Array(1，3，5，7，9，11，13，15，17，19) For i=1 To 10 If arr(i)/3=arr(i)13 Then Sum=Sum+alt(I) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为______。A．25B．26C．27D．28

[单选题]有如下程序： Option Base 1 Private Sub Form_Click() Dim arr, Sum Sum=0 arr=Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) For i=1 To 10 If arE(i)/3=arr(i)/3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为______。A．25B．26C．27D．28