有如下程序:Option Base 1 Private Sub Form_Click() Dim arr,Sum Sum=0 For i=1 To 10If a
有如下程序：
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
程序运行后，单击窗体，消息框的输出结果为( )。
正确答案：2727
词条内容仅供参考，如果您需要解决具体问题
（尤其在法律、医学等领域），建议您咨询相关领域专业人士。