有如下程序：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

参考答案

您可能感兴趣的试题

在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：Option Base 1Private Sub Commandl_

答案解析
（9 ）在窗体上画一个名称为 Command1 的命令按钮。然后编写如下程序：Option Base 1Private Sub Co

答案解析
运行下列程序：Option Base 1Private Sub Form_Click（)y = 43x = Array（21, 4, 50, 18, 23, 44

答案解析
现有如下一段程序：Option base 1Private Sub Command1_Click（) Dim a a=Array（3,5,7,9) X=1 For

答案解析
（35）有下列程序段，单击命令按钮执行程序后，输出结果是。Option Base 1Private Sub Commandl_Clic

答案解析
在窗体上放置一个命令按钮Command1 并编写下列单击事件的程序:Option Base 1Private Sub Command

答案解析