第10题: [单项选择]患者，女性，68岁，突发晕厥1次，持续8分钟，醒后感胸前持续闷痛，有糖尿病病史4年，高血压病史2年半。查体：血压80/60mmHg，HR50次／分，双肺闻及湿啰音，心音低钝，心电图示Ⅱ、Ⅲ、aVF、V7~9、V38~58导联ST段抬高>0.1mV。首先考虑的诊断是（） A. 急性心包炎 B. 急性脑栓塞 C. 不稳定型心绞痛 D. 急性心肌梗死 E. 主动脉导管未闭 参考答案:D
第15题: [填空题]下列事件过程的功能是：通过Foma_Load事件给数组赋初值为35、48、15、22、67， Form_Click事件找出可以被3整除的数组元素并打印出来。请在空白处填人适当的内容，将程序补充完整。
Dim Arr（ ）
Private Sub Form_Load（ ）
______
End Sub
Private Sub Form_CUck（ ）
For EaCh x In Arr
If Int(x/3)=x/3 Then
Pdnt X
End If
NeXt X
End Sub 参考答案:Arr=Array(CE,DH,AE,BB,FG)
