有如下程序:Option Base 1 Private Sub Form_Click() Dim arr,Sum Sum=0 For i=1 To 10If arr(i)

有如下程序：

Option Base 1

Private Sub Form_Click()

Dim arr,Sum

Sum=0

For i=1 To 10

If arr(i)/3=arr(i)\3 Then

End If

Next i

End Sub

程序运行后，单击窗体，消息框的输出结果为( )。