[单项选择题] 有如下程序： Option Base 1 Pfivate Sub Form_Click() 　Dim arr,Sum 　Sum=0 　arr=Array(1,3,5,7,9,

[单项选择题] 有如下程序：

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