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