问题详情

有如下程序：
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
程序运行后，单击窗体，消息框的输出结果为()。