搜题请搜索小程序“爱下问搜题”
问题 单项选择题 A1/A2型题

缺铁性贫血的预后取决于（）.

A.铁剂应用时间的长短

B.影响铁剂吸收因素的有无

C.铁剂应用途径

D.原发病是否能够治疗彻底

E.铁剂用量大小

答案

参考答案：D

解析：积极治疗原发病是缺铁性贫血治疗的关键，影响其预后。

多项选择题

下列属于本轮规划保留的品种的是（）

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
查看答案