有如下程序：Option Base 1Pfivate Sub Form_Click（) Dim arr,Sum Sum=0 arr=Array（1,3,5,7,9,11,

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