男性，20岁，喜食毛蚶，1周前突然发病，出现畏寒、发热、全身乏力、食欲不振、厌油腻、肝区疼痛、尿色渐加深至浓茶状。近日体温降低，巩膜和皮肤出现黄疸，最可能的印象诊断是（）

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】 。