单选题编写如下程序代码： Option Explicit Private Sub Form—Click() Dim x As Variant Dim i As Variant x=Array(50，27，69，80，45) For Each i In x If i Mod 2=0 Then Print i End If Next i End Sub以下叙述中正确的是( )。

A、程序的功能是输出数组X中的所有奇数
B、将语句For Each i In x改为For i=0 To 5，程序功能不变
C、变量x和i也可定义为Integer类型，程序功能不变
D、程序的功能是输出数组X中的所有偶数

【正确答案】 D

【答案解析】解析：程序开始时定义了一个默认数组x和一个变体型变量i，接着通过Array函数给数组赋值，程序的功能是通过For Each……Next循环依次遍历数组中的元素，若某个元素的值能被2整除，则输出该元素，故最终会输出50和80两个值，D选项叙述正确，其他3项叙述均错误。本题选择D选项。