有如下程序：
Option Base 1
Private Sub Command1_Click()
Dim arr(10)
arr+Array(10, 35, 28, 90, 54, 68, 72,90)
For Each a Inarr
If a＞50 Then
Sum=Sum+a
End If
Next a
End Sub
运行上述程序时出现错误，错误之处是( )。

A) 数组定义语句不对，应改为Dimarr
B) 没有指明For循环的终值
C) 应在For语句之前增加Sum=0
D) Next a应改为Next