问题 单项选择题 案例分析题

患者女性,72岁,发热,咳嗽一周,伴气急加重1天入院。体检:体温39℃,神志欠清,呼吸气急,血压60/37.5mmHg,注射部位皮肤有大片瘀斑,二肺闻及湿啰音,心率120/min,律齐。实验室检查:白细胞12×109/L,Hb98g/L,BPC30×109/L,PT18s(对照13s),3P试验阳性,外周血涂片可见少量破碎红细胞。骨髓穿刺示:增生活跃,巨核细胞易见。

此案例最适合的治疗方案是()

A.肝素+抗生素

B.雄激素

C.卡巴克洛(安络血)

D.环磷酰胺

E.输红细胞悬液

答案

参考答案:A

问答题

[说明]
某文件管理系统的图片浏览器如图3-19所示。运行程序时,用户只要通过驱动器列表框、目录列表框和文件列表框,选择文本文件所在的驱动器、文件夹及相应的文件名后,在图像框中将显示出相应的文件图像。
在开发过程中,假设驱动器列表框名为drvFile,目录列表框名为 dirFile,文件列表框名为filFile,选择文件类型组合框名为cboFile,图像框名为imgShow。


图3-19 图片浏览器
[Visual Basic程序]
Private Sub Form_Load ()
imgShow.Stretch=True
cboFile.Addltem "位图文件(*.bmp)"
cboFile.Addltem "图标文件(*.ico)"
cboFile.Addltem "图元文件(*.wmf)"
cboFile.Addltem "JPEG文件(*.jpg)"
cboFile.Addltem "GIF文件(*.gif)"
cboFile.ListIndex = 0
(1)
End Sub
Private Sub drvFile_Change ()
(2)
End Sub
Private Sub dirFile_Change ()
(3)
End Sub
Private Sub cboFile_Click ()
(4)
Case 0
filFile. Pattern= "*.bmp"
Case 1
filFile. Pattern= "*.ico"
Case 2
filFile. Pattern= "*.wmf"
Case 3
filFile. Pattern= "*.jpg.
Case 4
filFile. Pattern= "*.gif"
End Select
End Sub
Private Sub filFile_Click()
If (5) Then
imgShow. Picture= LoadPieture(filFile. Path+ filFile.FileName)
Else
imgShow. Picture= LoadPicture( (6) + "\" + (7) )
End If
End Sub
1. [问题1]
请根据[说明]和图3-19的显示结果,从以下备选答案中为程序(1)~(7)空缺处选择正确的答案。
[备选答案]
A. filFile.pathB. dirFile.Path=drvFile.Drive
C.Right(filFile.Path,1) = "\" D.filFile.Pattern ="*.bmp"
E.filFile.Path = dirFile.Path F.filFile.FileName
G.Select Case cboFile.ListIndex

选择题