有如下程序:OptionBase1PrivateSubFormClick()Dim arr SumSum=0arr=Array(1 3 5 7 9 11 13 15 17

有如下程序： Option Base 1 Private 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 Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为

A．25

B．26

C．27

D．28

请帮忙给出正确答案和分析，谢谢！