C．Recordset D．Field 25．VB程序中通常不会产生错误提示的是（ ）。
A．编译错误 B．实时错误 C．运行时错误 D．逻辑错误 26．使用ADO对象模型时，使Recordset和Connection对象建立连接的属性是（ ）。 A．Open B．Execute
C．CommandType D．ActiveConnection 27．在VB中，下列合法的变量名是（ ）。
A．2ab B． a-b C．a_2 D． Double 28．下列只能用程序代码设置，不能通过属性窗口设置的属性是（ ）。 A．Drive属性 B．Pattern属性 C．Visible属性 D．Index属性 29．不属于VB数据库引擎的是（ ）。
A．ODBC B．BDE C．Jet引擎 D．OLE DB
30．在VB中，一旦数据到达，将首先触发Winsock控件的（ ）。
A．DataArrival事件 B．ConnectionRequest事件 C．DataSend事件 D．GetGet事件
二、填空题
1. Visual Basic提供了结构化程序设计的3种基本结构，这3种基本结构是顺序结构、 和 。
2．控件数组的名字由 属性指定，而数组中的每个元素由 属性决定。
3．在VB中，要想获得某个相关控件或语句的帮助信息，一般可首先选中该控件或语句，然后按 键。
4．若窗体的左上角坐标为（-300，250），右下角坐标为（300，-250），则X轴的正向向 ，Y轴的正向向 。
5．Visual Basic程序开发有三种模式，即设计模式、 模式和 模式。 6．表达式13\\2-2^3*5 MOD 6的值是 。
7．列表框控件中最后一项的序号等于Listcount属性减 。
8．执行赋值语句a = \后，变量a的值是 。
9．如果要每隔0.5s产生一个Timer事件，则Interval属性应设置为 。 10．程序的运行结果和程序员的设想有出入时产生的错误称为 。 11．在VB中，将Access称为 ，SQL Server称为 。
12．vb应用程序与数据库进行通信的主要机制称为 。
13．使用ADO模型时，可通过 属性建立Recordset和Connection对象的连接。
14．全局变量必须在 模块中定义，所使用的关键字为 。 15．过程级变量是指在过程内部声明的变量，只有在该过程中的代码才能访问这个变量。模块级或窗体级变量的作用域是 ，全局变量在整个应用程序中有效，其作用域是 。
16．Winsock控件主要用来编制TCP/IP或 协议的通话程序。
17. 某个程序中要用到一个二维数组，要求数组名为B，类型为字符串类型，第一维下标从0到3，第二维下标从-2到3，则相应的数组声明语句为 。
16
18．Dim i As Integer，则运行时变量i的初始值是 。
三、阅读程序题
阅读下列程序并写出程序运行结果
1．
Private Sub Form_Click() Dim x As Integer Static y As Integer x = x + 5 y = x + y
Form1.Print \End Sub
写出程序运行时连续单击三次窗体后，Form1上的输出结果。 2.
Private Sub Command1_Click()
Dim n As Integer, y As Integer, x As Integer a = 1
Do While a < 8 n = n + 1 b = b + 2
a = a * (a + 1) Loop
Text1.Text = n Text2.Text = a Text3.Text = b End Sub
写出程序运行时单击Command1后，文件框Text1、 Text2和 Text3的输出结果。 3．
Private Sub Command1_Click() n = 1: x = 1: y = 0 Do While x < 5 n = n + 2 y = x + y
x = x * (x + 1) Loop
Text1.Text = \ Text2.Text = \ Text3.Text = \End Sub
程序运行时单击Command1后，分别写出文本框Text1，Text2和Text3的值。
17
4.
Private Sub Command1_Click()
Dim a As Integer, b As Integer a = 1: b = 2 For i = 1 To 3 For j = 1 To i b = b + j Next j a = a + b Next i Print b End Sub
写出程序运行时单击命令按钮后，窗体Form1上的输出结果。 5．
Private Sub Form_Click()
Dim c As Integer, j As Integer, k As Integer k = 3 c = 4
For j = 1 To 5 If j > 3 Then c = c + 5 Exit For Else
k = k + 1 End If Next j Print c, k End Sub
写出程序运行时单击窗体后，c,k的值分别是： 6.
Function F(a As Integer) Dim b As Integer Static c As Integer b = b + 3 c = c + 3 F = a + b + c End Function
Private Sub Command1_Click() Dim a As Integer a = 5
18
For i = 1 To 3 Print F(a) Next i End Sub
写出程序运行时，单击命令按钮在窗体上的输出结果。
7．
Sub Change(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t = x x = y y = t
Print x, y End Sub
Private Sub Form_Click()
Dim a As Integer, b As Integer a = 4: b = 8 Change a, b Print a, b End Sub
写出程序运行时单击窗体后，c,k的值分别是： 8.
Sub Change(ByVal x As Integer, y As Integer) Dim t As Integer t = x x = y y = t
Print x, y End Sub
Private Sub Form_Click()
Dim a As Integer, b As Integer a = 10: b = 20 Change a, b Print a, b End Sub
写出程序运行时单击窗体后，Form1上的输出结果。
四、完善程序题
19
1．程序运行界面如图1所示。要求从文本框中输入课程名称，然后按“添加”按钮，将其添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。
Text1 Command1 Command2
List1
Command3
图1
程序如下，请补充完整。 Private Sub Form_Load()
List1.AddItem \计算机应用基础\ List1.AddItem \程序设计基础\ List1.AddItem \程序设计\
List1.AddItem \数据库应用\ List1.AddItem \网站设计技术\
List1.AddItem \系统开发规范与文档编写\ List1.AddItem \信息系统测试\End Sub
Private Sub Command1_Click() If Text1.Text <> \
List1. [1] Text1.Text '将文本框中的内容添加到列表框中 Text1.Text = \ Else
MsgBox \请在文本框中输入信息！\ End If End Sub
Private Sub Command2_Click()
List1. [2] List1.ListIndex '删除选定的项目 End Sub
Private Sub Command3_Click()
20