单项选择题

下列程序的执行结果是( )。
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