下列程序的执行结果是( )。
Privaae 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 0
2 50 50
3 14 64
4 36 100

B．1 50 50
2 14 64
3 36 100

C．0 50 50
1 14 64
2 36 100
3 36 100

D．0 0 0
1 50 50
2 14 64