A-A+
有如下程序： Option Base 1 Private Sub Command1 Clic
问题详情
有如下程序： Option Base 1 Private Sub Command1 Click() Dim arr(10) arr=Array(10，35，28，90，54，68，72，90) For Eaeh a In arr If a>50Then Sum=Sum+a End If Next a End Sub 运行上述程序时出现错误，错误之处是()。
A.数组定义语句不对，应改为Dim arr
B.没有指明For循环的终值
C.应在For语句之前增加Sum=0
D.Next a应改为Next请帮忙给出正确答案和分析，谢谢！
参考答案
正确答案：A
A。【解析】本题考查ForEach循环，其中a必须是变体型变量，而在Next后可以跟变量a也可以不跟，For话句是不需要指明终值的，在题中的Sum没有赋值，在VB中可以看成是变体型变量初值为空或者0，arr是一个变体型的变量，不能使用Dimarr(10)进行声明，所以答案为A。
