男性，25岁，持续发热10d，开始为38℃左右，5d后持续高热39～40℃，伴腹胀和轻度腹泻。体检：体温40℃，呼吸26／min，脉搏86／min，神志淡漠。两肺无异常。心率86／min，律齐，第一心音偏低。腹胀、无压痛，肝右肋下2cm，软，脾左肋下1cm。血白细胞3.0×10⁹／L，中性粒细胞75%，嗜酸性粒细胞0%，单核细胞5%，淋巴细胞20%。最可能的诊断是（）。

A.细菌性痢疾

B.伤寒、副伤寒

C.结缔组织病

D.结核病

E.风湿热

在窗体上画一个命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(1，2，3，4)
j=1
For i=4 To 1 Step-1
s=s+a (i)*j
j=j * 10
Next i
Print s
End Sub
运行一面的程序，单击命令按钮，其输出结果是 【15】 。