有如下程序：Option base 1Private Sub Command1_Click Dim arr（10) Arr=Array（10 35 28 90 54 68
程序,语句,数组
已帮助 人
有如下程序：
Option base 1
Private Sub Command1_Click
Dim arr(10)
Arr=Array(10,35,28,90,54,68,72,90)
For Each a In arr
If a>50 then
Sum=sum+a
End If
Next a
End Sub
运行上述程序时出现错误，错误之处是
A)数组定义语句不对，应改为Dim arr
B)没有指明For 循环的终值
C)应在For语句之前增加sum=0
D)Next a 应改为next
-
参考答案：A【答案】：A【知识点】：动态数组的定义，For Each循环的用法
【解析】：利用Array()函数对数组各元素赋值，声明的数组必须是可变数组或连圆括号都可省的数组，并且其类型只能是Variant。因此dim arr()时，括号中不能有数字。故本题选A。