女性，21岁，无明确诱因，出现新鲜血便。查体：皮肤与黏膜可见成簇的细小的呈鲜红色的毛细血管扩张，肝脾未触及，最可能的诊断是（）。

A.过敏性紫癜

B.白血病

C.流行性出血热

D.血小板减少性紫癜

E.遗传性毛细血管扩张症

以下程序用于求s=1+(1+2)+(1+2+3)+……(1+2+……100)的和，请补充完该程序。
Dim n As Integer
Dim i As Integer
Dim j As Long
Dim s As Long
n=100
j=0
s=0
For i=1 To 【12】
J= 【13】
s= 【14】
Next i
Print s