单选题编写如下事件过程：
Private Sub Form Activate()
Dim score(1 To 3) As Integer
Dim i As Integer,t As Variant
For i=3 To 1 Step-l
score(i)=2*i
Next i
For Each t In score
Print t;
Next
End Sub
程序运行后窗体上显示( )。

A、 6 4 2
B、 2 4 6
C、 2
D、 6

【正确答案】 B

【答案解析】[解析] 本题考查For Each in循环。For Each in循环格式为：For Each 变体变量 in 数组…Next，For Each in循环在本题中的功能是：依次从数组score中取出每一个元素放到变量t中并输出。数组score中的元素从1到3分别为：2 4 6。