问题
填空题
有如下事件过程：
Private Sub Form_Adivate()
Dim Score(1 to 3 ) As Integer
Dim i As Integer
Dim t As Variant
For i=3 To 1 step-1
Score(i)=2*1
Next
For Each t In Score
Print t
Next
End Sub
程序运行后窗体上显示的值为 (10)
答案
参考答案：2 4 6
解析： 本题考查数组的定义和For Each…Next语句。题中定义了下标下界为1，下标上界为3的Score数组，通过For循环语句赋值后，再通过For Each…Next语句在窗体上输出数组中的每个成员。