下列选项中，不是急性盆腔炎病因的是A．穿紧身化纤内裤 B．产后或流产后感染 C．宫腔

下图是一个草原生态系统中中草、鼠与狐的数量变化曲线图，有关的食物链为草→鼠→狐。

(1)狐的变化曲线是_________。

(2)如果为了获取皮毛而大量猎狐，则产生的严重后果是鼠的数量迅速_____________，草场中草的数量_____________。(以上两格填“增加”或“减少”)

(3)破坏生态系统稳定性的因素有两类：一类是______________，另一类是______________；此外，______________也会导致生态平衡失去原有的稳定性。

教育活动的出发点和归宿是（）

A.教育内容

B.教育质量

C.教育目的

D.教育方针

一实心金属块在空气中称示数为20N，把它浸没水中后弹簧测力计的示数变为10N，则以下说法不正确的是（　　）

A．金属块所受的浮力为10N

B．金属块的体积为1×10^-3m³

C．金属块的密度为9.8×10³Kg/m³

D．金属块的密度为2×10³Kg/m³

伤心对于（）相当于需求对于（）

A．难过——索取

B．快乐——满足

C．情绪——市场

D．流泪——供应

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