男性，55岁。3年来经常反复咯血和咳黏稠痰，低热，较前消瘦，活动后感气短，乏力，胸片

如图是小红同学用来电解水的简易装置图．请你参与探究并回答下列问题：

（1）电源的A为______．

（2）C试管中收集到的气体是______，可以用______检验，C、D中两种气体的体积比为______，发生该反应的文字 表达式为______，该反应属于______反应．

（3）你认为水发生的上述变化是______变化．

（4）小红在做电解水实验之前还对天然水中的杂质进行了探究，他发现天然水中有可溶性和不溶性两种杂质．你认为除去不溶性杂质的方法是______．

采场扩(大)延(深)过程？

已知一个名为“学生”的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

营销代表的社保公积金原则上由后勤保障部负责办理。

患者男性，69岁，酗酒20余年。近来自觉上腹痛，伴腹泻，进油腻食物加重。便常规：大量脂肪球。下列哪项表现有助于诊断为慢性胰腺炎

A．病程超过1年

B．胰腺萎缩、钙化或胰管狭窄

C．血淀粉酶正常

D．CA19-9正常

E．血糖升高