有如下程序： 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． 25

B．26

C．27

D．28

[主观题]有如下程序：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)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

[单选题]运行下列程序：Option Base 1Private Sub Form_Click()y = 43x = Array(21, 4, 50, 18, 23, 44, 87, 32, 67, 70)F．or i = 1 To 10If x(i)< y Thenz = x(i) + 1y = x(i)E．lsez = z + yE．nd IfNext iPrint zE．nd Sub单击窗体后，则在窗体上显示的结果是()。A．43B．21C．37D．44

[单选题]阅读程序： 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 arr(i)/3=arr(i)/3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为A．13B．14C．27D．15

[单选题]设有如下程序：Option Base 0Private Sub Form_Click()Dim aDim i As Integera = Array(1,2,3,4,5,6,7,8,9)For i = 0 To 3Print a(5 – i);Next End Sub程序运行后，单击窗体，则在窗体上显示的是（）A . 4；3；2；1B . 5；4；3；2C . 6；5；4；3D . 7；6；5；4

[单选题]有如下程序：Option base 1Private Sub Command1_ClickD．im arr(10)A．rr=Array(10,35,28,90,54,68,72,90)F．or Each a In arrIf a>50 thenSum=sum+aE．nd IfNext aE．nd Sub运行上述程序时出现错误，错误之处是A．)数组定义语句不对，应改为Dim arrB．)没有指明For 循环的终值C．)应在For语句之前增加sum=0D．)Next a 应改为next

[单选题]设有如下程序： Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer Dim n As Integer n=InputBox("输入数据") If n＜10 Then Call GetArray(a,n) End If End Sub Private Sub GetArray(b()As Integer,n As Integer) Dim c(10)As Integer j=0 For i=1 To n b(i)=Cl

[单选题]阅读程序： 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 arr(i)/3=arr(i)/3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub程序运行后，单击窗体，输出结果为A．13B．14C．27D．15

[单选题]有如下程序，运行后输出的是( )。 Option Base 1 Private Sub Commandl_click() Dim aj(1 To 10) Forj=6 To 10 aj(j)=j*2 Nextj Printaj(1)+aj(j) End SubA．5B．20C．22D．显示出错信息