问题 单项选择题

有如下程序: Option Base 1 Pfivate 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  Nexti  print Sum End Sub 程序运行后,单击窗体,输出结果为( )。

A.25

B.26

C.27

D.28

答案

参考答案:C

单项选择题
单项选择题