[单项选择题] 给出下面程序： Private Sub Command1_Click()Dim x，y，zX=FalseFor Each y In 2 If

[单项选择题] 给出下面程序：

Private Sub Command1_Click()

Dim x，y，z

X=False

For Each y In 2

If y．Text="Hello" Then

x=True

Exit For

End If

Next y

End Sub

下面描述正确的是

A．退出For Each…Next循环的条件是x=True

B．退出For Each…Next循环的条件是x=False

C．程序检查y对象的Text属性，等于“”时退出For Each…Next循环

D．程序逐一查找在z中的对象，不确切并判断其Text属性，文本框中的内容等于“Hello”时退出For Each…Next循环

D解析：[分析]： For Each…Next的语法格式为： For Each element In group [statements] [Exit For] [statements] Next [element] 其中element用来反复装载group对象集合数组中的对象，直到遍历group数组中的所有对象。