患者，男，7岁，发作性头痛、眩晕、呕吐3个月，于体位改变时出现，近期出现吞咽困难、声

已知向量a,b满足(a+2b)·(a-b)=-6，且|a|=1,|b|=2，则a与b的夹角为              。

十八大通过关于《中 * * * * 程(修正案)》的决议，把科学发展观、生态文明建设等写入了 * * 。这说明

A．真理具有反复性、上升性

B．社会意识具有相对独立性

C．真理和谬误是相对的

D．要在实践中追求和发展真理

当路程s一定时，速度v与时间t之间的函数关系是[ ]

A．正比例函数

B．反比例函数

C．一次函数

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