单选题下列程序的执行结果是______。
Private Sub Form_Activate()
Dim score(3) As Integer, total As Integer
Dim aa_score As Variant
score(1)=50:score(2)=14:score(3)=36
total=0:i=0
For Each aa_score In score
i=i+1
total=total+aa_score
Print i, aa_score, total
Next
End Sub

A、 1 0 02 50 503 14 644 36 100
B、 1 50 502 14 643 36 100
C、 0 50 501 14 642 36 1003 36 100
D、 0 0 01 50 502 14 643 36 100

【正确答案】 A

【答案解析】[解析] 本题考查For Each In语句。该语句的使用形式为：For Each成员In数组…Next，适用于不关心数组中的元素个数或者不清楚有多少个元素，使用时要求成员为变体类型变量。当激活窗体时，对score数组中的每个元素进行求和，同时记下当前计算数组元素的个数。默认数组下标从0开始，题中score数组中含有4个元素，输出4行。