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

admin2011-06-07 108

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