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

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

期末综合练习一

一、单项选择题 1．如果要在文本框中键入字符时，只显示某个字符，如星号（*）,应设置文本框的（ ）属性。

A．Caption B．PasswordChar C．Text D．Locked 2．在Visual Basic中，程序执行的顺序是（ ）。

A．从主程序开始执行 B．由代码行的顺序决定 C．由事件驱动 D．按模块顺序执行 3．MsgBox函数的返回值的数据类型是（ ）。 A．字符串 B．日期型 C．逻辑型 D．整型 4．后缀为.bas的文件表示（ ）。

A．类模块文件 B．窗体文件 C．窗体二进制数据文件 D．标准类模块文件

5．要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列（ ）属性设置就有效。

A．MaxButton B．BorderSyle

C．Width D．MinButton 6．多窗体程序是由多个窗体组成。在缺省情况下，VB在应用程序执行时，总是把（ ）指定为启动窗体。

A．不包含任何控件的窗体 B．设计时的第一个窗体 C．最后一个添加的窗体 D．命名为Frm1的窗体 7．VB程序中通常不会产生错误提示的是（ ）。 A．编译错误 B．实时错误 C．运行时错误 D．逻辑错误

8．应用程序打包后，其包文件的后缀为（ ）。

A．.exe B．.cab C．.txt D．.ocx

9．要设置命令按钮的背景图形，必须设置的两个属性是（ ）。 A．Style和Picture B．Style和Icon C．Caption和Picture D．Value和Icon

10．当运行程序时，系统自动执行启动窗体的（ ）事件过程。 A．Load B．Unload

C．Click D．GotFocus 11．下列关于变量的说法不正确的是（ ）。

A．局部变量是指那些在过程中用Dim语句或Static语句声明的变量 B．局部变量在声明它的过程执行完毕后就被释放了

C．静态局部变量是在过程中用Static语句声明的

1

D．局部变量的作用域仅限于声明它的过程

12．设窗体的名称为Form1，则在程序运行过程中，单击窗体时，被执行的事件过程的名称是（ ）。

A．Form1_Click() B. Form1_DbClick() C．Form_Click() D．Form_DbClick()

13．如下数组声明语句，正确的是（ ）。

A．Dim a[3,4] As Integer B．Dim a(3,4) As Integer C．Dim a(n,n) As Integer D．Dim a(3 4) As Integer 14．能够改变标签（Label）控件显示标题的属性是（ ）。

A．Name B．Caption C．Text D．Click

15．若使图像框Image控件自动适应其中的图形大小，应（ ）。

A．将控件的 AutoSize属性设为True B ．将控件的 AutoSize属性设为False C．将控件的 Stretche属性设为True D．将控件的 Stretche属性设为False 16．在VB中，要想快速获得某个相关控件或语句的帮助信息，一般可首先选中该控件或语句，然后按的键是（ ）

A．Help B．F10 C． F1 D．Enter

17．执行Form1.Scale (-14, 14)-(14, -14)语句后，Form1窗体坐标系x轴和y轴的正方向是（ ）。

A．向左和向下 B．向右和向上

C．向左和向上 D．向右和向下

18．Visual Basic6.0集成开发环境有三种工作模式，下列不属于三种工作模式之一的是（ ）。

A．设计模式 B．执行模式 C．中断模式 D．编写代码模式

19．Timer控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件，需要设置的属性是（ ）

A．Interval=0或Enabled=False B．Interval=0或Visible=False C．Interval=0且Enabled=False D．Enabled=False 且Visible=False 20．以下叙述中正确的是（ ）。

A．窗体的Name属性的值是显示在窗体标题栏中的文本 B．对象的Name属性值可以为空

C．可以在运行期间改变对象的Name属性的值

D．窗体的Name属性指定窗体的名称，用来标识一个窗体

21．使用ADO数据模型时，建立Recordset和Connection对象连接的属性是（ ）。 A．Execute B．CommandType C．Open D．ActiveConnection

22．在设计动画时，用时钟控件来控制动画速度的属性是（ ） A．Enabled B．Interval C．Timer D．Move 23．要发送数据，通称使用Winsock控件的（ ）。

2

A．Accept方法 B．Listen方法 C．SendData方法 D．GetDate方法

24．在VB中，下列变量名不合法的是（ ）。

A．take_1 B．take C．take-1 D．take_1_2 25．用来从数据库表中删除记录的SQL命令是（ ）。 A．DELETE B．SELECT C．UPDATE D．WHERE

26．用于设置在文本框中显示字符的属性是（ ）。 A．AutoSizi B．Passwordchar C．MultiLine D．ScrollBars 27．不属于VB数据库引擎的是（ ）。

A．ODBC B．BDE C．Jet引擎 D．OLE DB 28．确定一个控件在窗体上的位置的属性是（ ）。

A．Width或Height B．Width和Height C．Top或Left D．Top和Left 29．如果创建了命令按钮数组控件，那么Click事件的参数是（ ）

A．Tag B．Caption C．Index D．没有参数 30．下列赋值语句正确的是（ ）。

A．a = b + c B．b + c = a C．-b = a D．4 = a + b

二、填空题

1．在VB中想获得帮助，需要按的键是 ；要设置断点需要按 键。 2. Dim s As String，则运行时变量s的初始值是 。 3．窗体文件和工程文件的扩展名分别是 和 。

4．定时器（Timer）控件可识别的事件是 ，发生该事件的时间间隔由定时器的 属性设置。

5．在控件数组中，所有元素的 属性均相同，数组中的每个元素由 属性指定。

6．执行赋值语句a=\，变量a的值是 。

7．假设ADOcn为一个Connection对象，那么在VB程序中声明并创建ADOcn的语句是 。

8．表达式3 + 15 Mod 4 * 2 + 2的值是 。 9．一个VB应用程序可以包含 个vbp文件。 10．要在窗体Form1内显示“欢迎您!”，使用的语句是 。 11．列表框控件中最后一项的序号等于ListCount属性减 。

12．变量的声明方法有隐式和 声明两种。任何变量在声明后均有一个初始值，一般情况下，数值型变量的初始值为 。

13．全局变量是指那些在 中有效的变量，一般在模块代码编辑器的顶部使用 声明

14．设某个程序中要用到一个二维数组，要求数组名为A，类型为整型，第一维下标从

3

-1到2，第二维下标从1到4，则相应数组声明语句为 。

15．Dim i As Integer，则运行时变量i的初始值是 。

16．过程级变量是指在过程内部声明的变量，只有在该过程中的代码才能访问这个变量。模块级或窗体级变量的作用域是 ，全局变量在整个应用程序中有效，其作用域是 。

17．VB中参数传递的方式有两种，一种是 参数，另一种是 参数。

18. Winsock控件主要用来编制 或 协议的通话程序。

三、阅读程序题

阅读下列程序并写出程序运行结果 1.

Private Sub Form_Click()

Dim I As Integer, j As Integer Dim c As Integer c = 1

For I = 1 To 3 For j = 1 To 2 c = c + 3 Next j Next I Print c End Sub

文件框Text1的输出结果是：

2．

Private Sub Command1_Click()

Dim n As Integer,y As Integer,x As Integer X = 1

Do While x < 20 n = n + 1 y = x + y

x = x * (x + 1) Loop

Text1.Text = n Text2.Text = x Text3.Text = y End Sub

写出程序运行时单击Command1后，文件框Text1、 3.

Text2和 Text3的输出结果。

4

Private Sub Command1_Click() Dim s As Double Dim i As Integer s = 5 i = 1

Do While i < 9 i = i + 2 s = s + i Loop

Text1.Text = s End Sub

写出程序运行时，单击命令按钮文本框Text1中的输出结果。

4．

Private Sub Command1_Click() Dim x As Integer Static s As Integer

x = Val(InputBox(\请输入一个正整数=\ If x < 5 Then s = s * x Else

s = s + x End If

Text1.Text = \End Sub

程序运行时连续3次单击Command1，且设输入的数据为6、5、4时，分别写出文本框Text1的值。 5.

Function F(a As Integer) b = 2 Static c b = b + 1 c = c + 1 F = a + b + c End Function

Private Sub Command1_Click() Dim a As Integer a = 2

For i = 1 To 3 Print F(a)

5

Next i End Sub

写出程序运行时，单击命令按钮在窗体上的输出结果。 6．

Private Sub Form_Click()

Dim c As Integer, j As Integer, k As Integer k = 1 c = 2

For j = 1 To 5 If j > 3 Then c = c + 6 Exit For Else

k = k + 3 End If Next j Print c, k End Sub

写出程序运行时单击窗体后，Form1上的输出结果。 7.

Private Sub Command1_Click()

Dim a As Integer: Dim b As Integer a = 10: b = 20 Change1 a, b

Print \ a = 10: b = 20 Change2 a, b

Print \End Sub

Sub Change1(ByVal x As Integer, ByVal y As Integer) t = x: x = y: y = t End Sub

Sub Change2(x As Integer, y As Integer) t = x: x = y: y = t End Sub

写出程序运行时,单击窗体Form1上的输出结果。

8．

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

For i = 1 To 3 Print F(a) Next i End Sub

写出程序运行时，单击命令按钮在窗体上的输出结果。

四、完善程序题 1．假设用Access创建了一个名为“学生.MDB”的数据库，并在其中创建了一张名为“学生基本情况”的数据表，表中存放了学生的基本信息，如图1所示。

现在要求利用VB编写一个数据库查询程序，程序的运行界面如图2所示，基本逻辑是：首先文本框(Text1)中输入希望查询的学生学号，然后点击“查询”按钮(Command1)，如果数据库中存在该学号，则分别在Text2、Text3、Text4中显示学号、姓名、籍贯信息，否则提示用户“记录不存在”并使Text1获得焦点，要求用户重新输入。当点击退出按钮(Command2)时关闭本窗体。

图1用Access创建的学生基本情况数据表

7

图2 查询程序运行界面

程序如下，请补充完整。 Private ADOcn As Connection Private Sub Form_Load() [1] ADOcn.Open \学生.MDB\End Sub

Private Sub Command1_Click() Dim strSQL As String

Dim ADOrs As [2] Recordset ADOrs.ActiveConnection = ADOcn

strSQL = \学生基本情况 Where 学号=\ .[3] If [4] ADOrs.EOF Then

Text2 = ADOrs.Fields(\学号\ Text3 = ADOrs.Fields(\姓名\ Text4 = ADOrs.Fields(\籍贯\ Else

MsgBox \要查询的学号不存在，请重新输入!\信息提示\ Text1 = \

[5] End If End Sub

Private Sub Command2_Click() UnLoad Me End

8

2.在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求

程序运行后，驱动器列表框Drive1的默认驱动器设置为e盘，选择File1中所列的图片文件（*.bmp,*.gif和*.jpg）,则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。程序运行结果如图3所示。

图3

程序如下，请补充完整。 Private Sub Form_Load()

[1] File1.Pattern = \End Sub

Private Sub Drive1_change()

Dir1.Path = [2] Text1.Text = Drive1.Drive

End Sub

Private Sub Dir1_Change()

[3] Text1.Text = [4] End Sub

Private Sub File1_click()

Picture1. [5] = LoadPicture(File1.Path + \ FileName = File1.Path + \ Text1.Text = FileName End Sub

五、编写程序题

9

1.编写一工资调整程序。若基本工资大于等于3000元，增加工资10%，若小于3000元大于2000元，则增加工资15%；若小于2000元则增加工资18%。要求在文本框Text1中输入某职工的基本工资，单击“计算”按钮，在标签框Label1中输出增加后的工资。程序运行界面如图4所示。

图4

2．列表框应用程序。要求从文本框中输入课程名称，然后按“添加”按钮，把课程名称添加到列表框中；当选择列表框中某一项时，按“删除”按钮，从列表框中删除；当选择列表框中某一项时，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。程序运行结果如图5所示。

图5

10

期末综合练习一答案

一、单项选择题

1.B 2.C 3.D 4.D 5.B 6.B 7.D 8.B 9.A 10.A 11.B 12.C 13.B 14.B 15．D 16.C 17．B 18.D 19．A 20.D 21．D 22.B 23.C 24.C 25.A 26.B 27.B 28.D 29.C 30.A

二、填空题

1．F1 F9

2．\或空字符串)，Variant(或变体型) 3．.frm .vbp

4.Timer Interval 5．Name Index 6．123456

7．Dim ADOcn As New Connection 8．12 9. 1

10．Form1.print \欢迎您！\ 11．1

12．显示 0

13. 整个应用程序 Public

14．Dim A(-1 To 2,1To 4) As Integer 15．0

16．整个模块或窗体 整个应用程序（或工程中所有的模块和所有的过程）17．引用参数传递（或按址传递） 按值传递 18．TCP/IP UDP

三、阅读程序题 1． 19

2.

3 42 9 3． 29

4.

s =6 s =11 s =44 5． 6

11

7 8 6.

8 10 7．

A1= 10 B1= 20 A2= 20 B2= 10 8.

11 14 17

四、完善程序题 1．

[1] Set ADOcn = New Connection [2] New

[3] ADOrs.Open strSQL [4] Not

[5]Text1.SetFocus 2．

[1] Drive1.Drive =\[2] Drive1.Drive

[3] File1.Path = Dir1.Path [4] Dir1.Path [5] Picture

五、编写程序题 1.参考答案

Private Sub Command1_Click() Dim x As Integer, y As Single x = Val(Text1.Text) Select Case x

Case Is >= 3000 y = x * 1.1

Case Is >= 2000 y = x * 1.15 Case Else y = x * 1.18

12

End Select

Label3.Caption = y End Sub

Private Sub Command2_Click() Unload Me End Sub

2.参考答案

Private Sub Form_Load()

List1.AddItem \程序设计\ List1.AddItem \数据库基础与应用\ List1.AddItem \信息系统测试\ List1.AddItem \计算机应用基础\ End Sub

Private Sub Command1_Click() If Text1.Text <> \ List1.AddItem Text1.Text Text1.Text = \ Else

MsgBox \请在文本框中输入信息！\ End If End Sub

Private Sub Command2_Click()

List1.RemoveItem List1.ListIndex End Sub

Private Sub Command3_Click()

If Command3.Caption = \修改\ Text1.Text = List1.Text Text1.SetFocus

Command1.Enabled = False Command2.Enabled = False

Command3.Caption = \修改确认\ Else

List1.List(List1.ListIndex) = Text1.Text Command1.Enabled = True Command2.Enabled = True Text1.Text = \

Command3.Caption = \修改\ End If End Sub

Private Sub List1_Click()

If List1.ListIndex <> -1 Then

13

Command2.Enabled = True Command3.Enabled = True End If End Sub

期末综合练习二

一、单项选择题

1．VB工程文件的后缀是（ ）。 A．.frm B．.vbp

C．.cls D．.bas

2．在一个语句行内写多条语句时，语句之间应该用（ ）分隔。 A．逗号 B．分号 C．顿号 D．冒号 3．与传统的设计语言相比，Visual Basic最突出的特点是（ ）。 A．程序开发环境 B．结构化程序设计 C．事件驱动的编程机制 D．程序调试技术 4．在Visual Basic中，变量的默认类型是（ ）。 A．Double B．Integer C．Currency D．Variant

5．当一个工程中含有多个窗体时，其中的启动窗体是（ ）。 A．启动VB时创建的第一个窗体 B．第一个添加的窗体

C．最后一个添加的窗体 D．在“工程属性”对话框中指定的窗体 6．目录列表框的Path属性的作用是（ ）。 A．显示当前驱动器或指定驱动器上的某目录下的文件名 B．显示当前驱动器或指定驱动器上的路径 C．显示根目录下的文件名 D．只显示当前路径下的文件

7．VB集成开发环境中，提供控件的窗口是（ ）。 A．工具栏 B．工具箱 C．属性窗 D．工程管理器

8．要退出Do…Loop循环，可使用的语句是（ ）语句。 A．Exit B．Exit For C．Exit Do D． End Do

9．将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其它机器上不能运行的主要原因是（ ）。

A．缺少.frm窗体文件 B．该可执行文件有病毒 C．运行的机器上无VB系统 D．以上原因都不对 10．有程序代码如下：

Text1.Text = \欢迎参加Visual Basic程序设计课程的学习！\

则Text1，Text ，和\，你好！\分别代表（ ）。

A．对象，值，属性 C．属性，对象，值 C．对象，方法，属性 D．对象，属性，值

14

11．刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（ ）。 A．单选按纽 B．通用对话框

C．框架 D．图片框 12．下列关于变量的说法不正确的是（ ）。

A．局部变量是指那些在过程中用Dim语句或Static语句声明的变量

B．局部变量的作用域仅限于声明它的过程

C．静态局部变量是在过程中用Static语句声明的 D．局部变量在声明它的过程执行完毕后就被释放了 13．为使文本框显示滚动条，必须首先设置的属性是（ ）。

A．AutoSize B．Alignment C．Multiline D．TabStop 14．要绘制多种形状的图形，需要设置Shape控件的（ ）属性。 A．Style B．Borderstyle C．Shape D．FillStyle

15．在VB6.0集成开发环境中有三种工作模式，下列不属于三种工作模式之一的是（ A．设计模式 B．中断模式 C．执行模式 D．编写代码模式

16．为了使图像框中的图形自动适应图像框的大小，则应（ ）。

A．将其AutoSize属性值设置为True B．将其AutoSize属性值设置为False C．将其Stretch属性值设置为True D．将其Stretch属性值设置为False 17．要在窗体Form1内显示“myfrm”，使用的语句是（ ）。 A．Form.caption=\ B．Form1.caption=\C．Form1.print \ D．Form. print \

18．如果要在窗体代码编辑器的”通用”部分定义私有Sub过程，则正确的语句是（ A．Public Sub B．Private Sub C．Public Function D．Private Function

19．要设置命令按钮的背景图形，必须设置的两个属性是（ ）。

A．Value和Icon B．Style和Icon C．Caption和Picture D． Style和Picture 20．不属于VB数据库引擎的是（ ）。

A．ODBC B．OLE DB

C．Jet引擎 D．BDE

21．在设计动画时，用时钟控件来控制动画速度的属性是（ ）。 A．Enabled B．Interval C．Timer D．Move

22. 在VB应用程序中，进行断点设置的按键是（ ）。

A．F9键 B．Ctrl+F9键 C．F8键 D．Ctrl+F8键 23．如果创建了命令按钮数组控件，那么Click事件的参数是（ ）。

A．Caption B． Index C．Tag D．没有参数

24．ADO对象模型含有七种对象，其中用于建立一个和数据源的连接的对象是（ A．Command B．Connection

）。。15

）

）

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

If Command3.Caption = \修改\ Then [3] =List1.Text Text1.SetFocus

Command1.Enabled = False Command2.Enabled = False

Command3.Caption = [4] Else

List1.List(List1.ListIndex) = Text1.Text Command1.Enabled = True Command2.Enabled = True Text1.Text = [5] Command3.Caption = \修改\ End If End Sub

2. 假设在C盘根目录中存在一个名为“学生.MDB”的Access数据库，其中包含一张名

为“学生基本情况”的数据表，表中存放了学生的基本信息，如图2所示。

现在要求利用VB编写一个数据库记录增加程序，程序的运行界面如图3所示，基本逻辑是：分别在Text1、Text2、Text3中输入学号、姓名、籍贯信息，然后点击“保存”按钮(Command1)将该记录添加到数据库中。如果数据库中已经存在相同的学号信息，则程序应提示用户“记录已存在，请重新输入”，并将焦点置于Text1上，等待用户修改或重新输入。当点击退出按钮(Command2)时关闭本窗体。

图2

图3

21

程序如下，请补充完整。

Private Sub Form_Load()

[1] \学生.mdb;Persist Security

Info=False\

End Sub

Private Sub Command1_Click() Dim strSQL As String

[ 2] [3] = ADOcn Dim ADOrs As New Recordset ADOrs.ActiveConnection = ADOcn

strSQL = \学生基本情况 Where 学号= '\ ADOrs.Open [4] If Not ADOrs.EOF Then

MsgBox \学号已经存在，请重新输入!\信息提示\ Text1.SetFocus Else

strSQL = \学生基本情况(学号,姓名,籍贯) \

strSQL = strSQL + \ [5] Execute strSQL MsgBox \添加成功!\信息提示\ End If End Sub

Private Sub Command2_Click() Unload Me End Sub

五、编写程序题

1．编写一程序。要求程序运行后，驱动器列表框Drive1的默认驱动器设置为e盘，选择驱动器的盘符，则在目录列表框中显示该该驱动器下的目录；点击目录列表框中的某一目录，在文件列表框File1中显示该目录下的图片文件（*.jpg）；选择File1中所列的图片文件，则相应的图片显示在图片框Picture1中。程序运行结果如图4所示。

22

图4

2．编制一计算某个学生奖学金等级的应用程序，程序运行界面如图5所示。

要求：只考虑一等奖，以三门功课成绩m1，m2，m3为评奖依据。奖学金一等奖评定标准如下：⑴ 平均分大于95者；⑵ 有两门是100分，且第三门功课不低于80分者。

图5 奖学金评定程序运行界面

期末综合练习二答案

一、单项选择题

1.B 2.D 3.C 4.D 5.D 6.B 7.B 8.C 9.C 10.D 11.B 12.D 13.C 14.C 15.D 16．C 17.C 18．B 19.D 20．D 21.B 22．A 23.B 24.B 25.D 26.D 27.C 28.A 29.B 30.A 二、填空题

1．选择结构 循环结构

23

2．Name Index 3．F1

4. 右 上 5．中断 执行 6．2 7．1

8．123456 9．500

10. 逻辑错误

11．本地数据库 远程数据库 12．数据库引擎

13．ActiveConnection 14. 标准 Public

15．整个模块或窗体 整个应用程序（或工程中所有的模块和所有的过程）16．UDP

17．Dim B(0 To 3,-2 To 3) As String 18．0

三、阅读程序题 1.

x=5 y=5 x=5 y=10 x=5 y=15 2． 3.

n= 5 x= 6 y= 3 4． 5.

9 6 6． 11

24

3 42 6

12

14 17 7.

8 4 4 8 8．

20 10 10 10

四、完善程序题 1．

[1] AddItem [2] RemoveItem [3] Text1.Text [4] \修改确认\[5] \ 2．

[1] ADOcn.Open

[2] Dim ADOrs As New Recordset [3] ADOrs.ActiveConnection [4] strSQL [5] ADOcn.

五、编写程序题 1.参考答案

Private Sub Form_Load() Drive1.Drive = \

File1.Pattern = \End Sub

Private Sub Drive1_change() Dir1.Path = Drive1.Drive Text1.Text = Drive1.Drive End Sub

Private Sub Dir1_Change() File1.Path = Dir1.Path Text1.Text = Dir1.Path End Sub

Private Sub File1_click()

Picture1.Picture = LoadPicture(File1.Path + \ FileName = File1.Path + \ Text1.Text = FileName

25

End Sub

2.参考答案：

Private Sub Command1_Click()

Dim b1 As Boolean, b2 As Boolean, b3 As Boolean, b4 As Boolean Dim m1%, m2%, m3%

m1 = Text1: m2 = Text2: m3 = Text3 b1 = (m1 + m2 + m3) / 3 >= 95

b2 = m1 = 100 And m2 = 100 And m3 >= 80 b3 = m3 = 100 And m2 = 100 And m1 >= 80 b4 = m1 = 100 And m3 = 100 And m2 >= 80 If b1 Or b2 Or b3 Or b4 Then Label4 = \一等奖\Else

Label4 = \无一等奖\End If End Sub

26

End Sub

2.参考答案：

Private Sub Command1_Click()

Dim b1 As Boolean, b2 As Boolean, b3 As Boolean, b4 As Boolean Dim m1%, m2%, m3%

m1 = Text1: m2 = Text2: m3 = Text3 b1 = (m1 + m2 + m3) / 3 >= 95

b2 = m1 = 100 And m2 = 100 And m3 >= 80 b3 = m3 = 100 And m2 = 100 And m1 >= 80 b4 = m1 = 100 And m3 = 100 And m2 >= 80 If b1 Or b2 Or b3 Or b4 Then Label4 = \一等奖\Else

Label4 = \无一等奖\End If End Sub

26

本文来源：https://www.bwwdw.com/article/34q.html