单项选择题

下列程序运行后会出现错误的提示为
Private Sub Command1_Click()
Dim i AS Integer
Dim x
x=Array(2,3, 4, 5, 6, 7)
For Each i In x
Print i;
Next i
End Sub

A.数组的下标超界
B.For Each数组的控制变量必须为变体变量
C.关键字Each的位子不对
D.x应该定义成数组