搜题请搜索小程序“爱下问搜题”
问题 单项选择题 共用题干题

患者女，48岁，干部。因“排尿不爽2年”就诊。平素情志抑郁，胸胁胀闷。近2年经常排尿不爽，各种相关检查无异常所见，常能自行缓解。近日因情志不遂出现排尿不爽，点滴而下，两胁胀满，多烦善怒，大便不畅，舌苔薄，脉弦。

该患者的癃闭证型是（）

A.膀胱湿热

B.肝气郁滞

C. * * 阻塞

D.脾气不升

E.肺热壅盛

答案

参考答案：B

单项选择题 B型题

左侧脓胸行胸腔闭式引流术4个月。X线胸片：脓腔明显局限缩小，左肺结核病灶稳定。此时，宜采取的治疗是（）

A.人工气胸疗法

B.胸腔穿刺排液，细菌培养

C.胸腔闭式引流

D.胸腔开放引流

E.胸膜纤维板剥脱术
查看答案
填空题

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


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