三显示自动闭塞作用良好，车站控制台监督器确认运行前方只有一个闭塞分区空闲，禁止发出（

引起心源性休克最常见的病因是（）

A.急性肺动脉栓塞

B.急性心肌梗死

C.扩张型心肌病

D.急性肺水肿

E.急性心脏压塞

天津到北京的距离约为120km，乘坐“动车组”列车从天津到北京仅需30min，列车在这段路程中的平均速度约为______km/h．由于车速比较快，若人离铁道太近很可能被吸进铁道，这是由于车与人之间的空气流速快，压强______造成的．

下列哪项不须预防性应用抗生素.

A．大面积烧伤

B．迷走神经切断术

C．急性结肠梗阻行结肠切除术

D．严重复合外伤

E．胰十二指肠切除术

行政机关在调查或者进行检查时，执法人员一般应为（）。

A.1人至2人

B.2人以上

C.3人以上单数

D.5人以上单数

已知一个名为“学生”的Access数据库，库中的表“stud”存储学生的基本信息，包括学号、姓名、性别和籍贯。下面程序的功能是：通过下图所示的窗体向“stud”表中添加学生记录，对应“学号”、“姓名”、“性别”和“籍贯”的四个文本框的名称分别为tNo、tName、tSex、tRes。当单击窗体中的“增加”命令按钮(名为Command1) 时，首先判断学号是否重复，如果不重复则向“stud”表中添加学生记录；如果学号重复，则给出提示信息。

请依据所要求的功能，将如下程序补充完整。 Dim ADOcn As New ADODB.Connection Private Sub Form Load( ) ’打开窗口时，连接Access数据库 Set ADOcn＝CurrentProiect.Connection End Sub Private Sub Command1 Click( ) ’增加学生记录Dim strSQL As String Dim ADOrs As New ADODB.Recordset Set ADOrs.ActiveConnectipn＝ADOcn ADOrs.Open"Select学号From Stud Where学号＝’’+tNo+’’ If Not ADOrs0 [14] Then’如果该学号的学生记录已经存在，则显示提示信息 MsgBox’’你输入的学号已存在，不能增加!’’ Else ’增加新学生的记录 strSQL＝"Insert Into stud(学号，姓名，性别，籍贯) strSQL＝strSQL+"Values("+tNo+","+tName+","+tSex+","+fires+") " ADOcn.Execute [15] MsgBox"添加成功，请继续!" End If ADOrs.Close Set APOrs＝Nothing End Sub