[单项选择题] 有如下程序: Option base 1 Private Sub Form Click()Dim arr,SumSum=0alt=Array(1,3,5,7,9,11,13,15,17,19)For i=1 To 10 If arr(i)/3=arr(i)3 ThenSum=Sum+arr(i) End IfNext iPrint Sum End Sub 程序运行后,单击窗体,输出结果为______。
A.25
B.26
C.27
D.28
参考答案:
C问题解析:
[评析] Option base 1表示数组的下标是从1开始的。本题中先定义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整除的数加起来,即4(2)+a(5)+a(8)=3+9+15=27。

![[单项选择题] 有如下程序: Option Base 1 Private Sub Form Click()Dim arr,SumSum=0alt=Array(1,3,5,7,9,11,13,15, [单项选择题] 有如下程序: Option Base 1 Private Sub Form Click()Dim arr,SumSum=0alt=Array(1,3,5,7,9,11,13,15,](http://www.mshxw.com/aiimages/31/251221.png)
