Tabel中获取所有记录。
结论：答案应为C
14. 要发送数据，通常使用Winsock控件的（ ）
AC
．．
SendDataAccept
方方
法 法
B．Listen方法
D．GetData方法 分析：SendData方法用于发送数据。Listen方法使服务程序处于侦听状态，等待客户访问。Accept方法用于接受一个连接请求，其中RequestID是客户机发来的请求号。GetData方法用来取得接收到的数据。
结论：答案应为A
15. VB程序中通常不会产生错误提示的（ ）。
A．编译错误 B．实时错误 C．运行时错误 D．逻辑错误
分析：编译错误多数是因为不正确的代码产生的。实时错误也称运行时错误，是指应用程序
运行期间，一条语句试图执行一条不可能执行的操作而产生的错误。逻辑错误是指程序的运行结果和程序员的设想有出入时产生的错误。这类错误并不直接导致程序在编译期间和运行期间出现错误，较难发现，逻辑错误不产生错误提示。
结论：答案应为D
三、完善程序题
1．已知存在一名为“学生”的SQL Server
数据库，其中的“students”数据表用来存储学生的基本情况信息，包括学号、姓名、籍贯、性别。请编写一个简单的应用程序，向students表中添加学生记录。程序的基本逻辑是：当窗体被加载时，程序联接SQL Server数据库；当点击“增加”按钮时，首先查询学号是否重复，如果不重复则向students表中添加学生记录。其运行界面如图1所示。
图1
程序如下，请补充完整。
'声明对象变量ADOcn，用于创建与数据库的连接
Private ADOcn As Connection Private Sub Form_Load()
'连接SQL Server数据库 Dim strDB As String strDB
\ID=sa;Password=;Database = [1] \
If ADOcn Is Nothing Then Set ADOcn =[2] ADOcn.Open strDB End If End Sub
Private Sub Command1_Click()
'增加学生记录 Dim strSQL As String
Dim ADOrs As [3] Recordset ADOrs.ActiveConnection=ADOcn
=
ADOrs.Open “Select 学号 From Students Where 学号=”+” ‘ “+Text1+” ‘ “
If Not [4] Then
MsgBox “你输入的学号已存在，不能新增加！”
Else
StrSQL=”Insert Into students (学号,姓名,,籍贯, 性别)
StrSQL=strSQL+Values(”+”
‘ “+text1+” ‘ , ‘ “+text2+” ‘,’ “+text3+” ‘,’ “+text4+” ‘)”
ADOcn.Execute [5] MsgBox “添加成功，请继续！” End If
Private Sub Command2_Click()
Unload Me End Sub
分析：数据库应用程序的大致框架是
(1)联接后台数据库