Visual Basic程序设计期末综合练习(4)

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

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库Visual Basic程序设计期末综合练习(4)在线全文阅读。