搜题请搜索小程序“爱下问搜题”
问题 选择题

The 586 billion dollars economic stimulus package that China announced Sunday may not be quite as huge as it seemed at first sight, but it showed just how       the authorities in Beijing take the threat of a slowdown following the international financial crisis.

A．sincerely

B．happily

C．precisely

D．seriously

答案

答案：A

单项选择题

每个国有企业法人单位的从业人员数比每个私营企业的约多（）人。

A．1294

B．93

C．1887

D．113
查看答案
填空题

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