下列程序运行后会出现错误的提示为______。
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应该定义成数组

女性，23岁，孕37周，发生无痛性反复的 * * 流血，近日流血量增加，来诊，妇科检查：子宫大小与停经时间相符，胎先露高浮，可能的诊断是（）

A.胎盘早剥

B.前置胎盘

C.先兆流产

D.难免流产

E.以上均不可能