病历摘要：患者女性，28岁。7天前开始发热，腹泻，经用“黄连素”等药，5天后治愈。1

患者男，40岁，因“咳嗽、胸痛1个月，发热、腹部不适2周，体重下降1周”来诊。1个月前感冒后咳嗽、胸痛，胸痛常与呼吸、咳嗽、变换体位有关。2周前发热，体温37.4～37.8℃，伴乏力，上腹部闷胀。近1周体重下降、消瘦。查体：T37.4℃，P80次/min，R24次/min，BP105/60mmHg；胸骨左缘第3、4肋间闻及心包摩擦音。

为进行治疗需要查明病因，应该进行的检查包括（）。（提示该患者诊断为心包炎。）

A.红细胞沉降率

B.血常规

C.尿常规

D.抗链球菌溶血素O试验（ASO试验）

E.心电图

F.胸部X线片

G.超声心动图

H.结核菌素试验

1角=（    ）分                     24分=（    ）角（    ）分                 4.60元=（    ）元（    ）角

下列有关招标公告的表述中，不正确的是（）。

A．招标人采用公开招标方式的，应当发布招标公告

B．依法必须进行招标的项目的招标公告，应当通过国务院发展改革部门指定的报刊、信息网络或者其他媒介发布

C．招标公告内容应当真实、准确和完整

D．招标公告一经发出即构成招标活动的要约，招标人不得随意更改

“备案号”栏应填（）。

A．B22021345228

B．B22021345778

C．TIM191938

D．8GUF290

阅读下面程序：
Private Function a(load As Integer) As Single
If load ＜20 then
money = load/2
else
money =20 + load
end if
a = money
End Function
Private Sub Form_Click( )
Dim load As Integer, fee As Single
Load = InputBox("请输入一个数:")
fee= a(loaD)
Print fee
End Sub
输入20，运行后的输出结果是 【6】 。