某8岁男孩，一年来时有阵发性腹痛，在脐周部位，多在空腹时发作，食后稍减，食欲不振。面色萎黄，有白斑，形体消瘦，唇内有颗粒样大小白点，舌体有红色刺点，舌苔薄腻。如果患儿突然出现胃脘及胁下钻绞样剧痛，呕吐频作，腹部膨胀，痛处拒按，面青肢厥，此时应诊断为（）

A.肠痈

B.食滞腹痛

C.胃脘痛

D.血瘀腹痛

E.蛔厥症

有如下事件过程：
Private Sub Form_Active()
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*i
Next
For Each t In Score
Print t
Next
End Sub
程序运行后窗体上显示的值为______。