问题 单项选择题

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

解答题
问答题 简答题