![[单项选择题] 有如下程序： Option Base 1 Private Sub Command1_Click() Dim arr(10) arr+Array(10, 35, 28, 90, 54](http://www.mshxw.com/aiimages/31/255818.png "[单项选择题] 有如下程序： Option Base 1 Private Sub Command1_Click() Dim arr(10) arr+Array(10, 35, 28, 90, 54")
[单项选择题] 有如下程序：
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
参考答案：
A问题解析:
本题中定义的数组长度为10，但是赋值却只有8个，所以赋值与本身数组的长度不匹配，修改方法是将arr设置为arr (8) 或者直接为Dimarr，将arr设置为变体变量。故本题答案选择A。
