女，22岁，4周前发热、咳嗽、流涕，持续1周自愈。近1周心悸、气短。否认心脏病史。查体：T36.2℃，BP120/75mmHg，心界不大。血清CK-MB水平增高。心电图示窦性心律，心率103次/分。P-R间期0.21秒，余未见异常。最可能的诊断是（）

A.急性心肌梗死

B.急性心包炎

C.扩张型心肌病

D.肥厚型心肌病

E.病毒性心肌炎

在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：
Public x As Integer
Private Sub Command1_Click()
x=3
Call f1
Call f2
MsgBox x
End Sub
Private Sub f1()
x=x*x
End Sub
Private Sub f2()
Dim x As Integer
x=x+4
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为______。