问题
单项选择题
有如下程序： Option Base 1 Private Sub Form_Click()Dim arr，SumSum=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 ThenSum=Sum+alt(I) End IfNext iPrint Sum End Sub 程序运行后，单击窗体，输出结果为（）。
A．25
B．26
C．27
D．28
答案
参考答案：C
解析：
[评析] OptionBasel表示数组的下标是从l开始的。本题中先定义arr=Array(1，3，5，7，9，11，13，15，17，19)，即a(1)=1，a(2)=3，a(3)=5，a(4)=7，a(5)=9，a(6)=11，a(7)=13，a(8)=15，a(9)=17，a(10)=19，而在循环语句中就是要求把能被3整除的数加起来，即a(2)+a(5)+a(8)=3+9+15=27。