程序设计典型例题解析(2) 下载本文

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