病历摘要：患者男性，46岁，一年以来间中出现上腹部疼痛，呈烧灼感，伴口苦，经当地门诊

在生物进化过程中，新旧物种间总是存在着一定的血缘关系。新物种取代旧物种时，不仅不排斥，而且必须保留旧物种的某些特征。这是因为

A．保留的实质是扬弃

B．保留才能维系物种特征的永恒性

C．保留是新物种存在和发展的基础确

D．保留是新物种取代旧物种的根本途径

1880年，日本政府的一项教育指令称：应利用“古今之画像照片”宣传孝忠精神；与其过分关注高深的理论和外语，不如对农商庶民施以适于生存的实际教育。结合所学判断，该指令（）

A.试图阻止西方科技的传播

B.表明忠孝精神已在日本瓦解

C.旨在强化日本社会的等级制度

D.旨在培养掌握现代技能的忠顺臣民

鉴别变形杆菌属、普罗威登菌属、摩根菌属的关键生化反应是（）

A.氧化酶、过氧化氢

B.靛基质、尿素

C.硫化氢、枸橼酸盐、鸟氨酸

D.精氨酸、赖氨酸

E.硝酸盐、苯丙氨酸

短期融资券的主承销商最多可同时承销（）只融资券。

A.2

B.3

C.4

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