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)联接后台数据库