Basic程序设计期末综合练习题二

1、1 / 11Visual Basic程序设计期末综合练习题二一、单项选择题1在下列有关 Visual Basic 的叙述中，错误的是（）。A 采用了事件驱动的编程机制 B 是面向对象的编程语言C.是可视化的程序设计语言D 是面向过程的程序设计语言2应用程序打包后，其包文件的后缀为（）。A .exeB .txtC .cabD .ocx3.在新建一个“标准EXE”工程后，不在工具箱中出现的控件是（）。A 列表框 B 通用对话框C.驱动器列表框D 图片框Forml,则在程序运行过程中，单击窗体时，被执行的事件过程的名称是（ ）。5对于定时器（Timer）控件，设置其定时是否开启的属性是（）。A.In

2、dex B . Tag C. Enabled D. Interval6.在 Visual Basic 中，工程文件的扩展名为( )。A . .frmB . .vbpC. .clsD . .bas7. 有程序代码如下：Text1.Text = 欢迎走进 VB 世界！ 则 Text1 ， Text ，和 欢迎走进 VB 世界！ 分别代表（ ）。A 对象，值，属性B 对象，属性，值C.对象，方法，属性 D.属性，对象，值8.以下叙述中正确的是（）。A 窗体的 Name 属性指定窗体的名称，用来标识一个窗体B.窗体的 Name 属性的值是显示在窗体标题栏中的文本C.可以在运行期间改变对象的Name 属

3、性的值D .对象的 Name 属性值可以为空9. VB 提供了结构化程序设计的三种基本结构是（）。A .选择结构、过程结构、顺序结构B .选择结构、循环结构、顺序结构C.过程结构、转向结构、递归结构D .递归结构、选择结构、循环结构10 .在 VB 中，下列变量名不合法的是（）。A. take_1 B . takeC . take_1_2D . take-111.下列说法中正确的是（ ）。为了保存一个 Visua Basic 应用程序，应当A .只保存窗体文件4.设窗体的名称为A. Form1_Click() B.Form1_DbClick()C. Form_Click() DForm_DbC

4、lick()2 / 11B .只保存工程文件C.分别保存工程文件和标准模块文件D .分别保存工程文件、窗体文件和标准模块文件12.确定一个控件在窗体上的位置的属性是（）。A. Width 或 Height B . Width 和 HeightC. Top 和 LeftD. Top 或 Left13.确定一个窗体或控件的大小的属性是（）A. Width 或 HeightB . Width 和 HeightC. Top 或 LeftD . Top 和 Left14当一个工程含有多个窗体时，其中的启动窗体是（）。A 第一个添加的窗体B 最后一个添加的窗体C.包含控件最多的窗体D 在“工程属性”对话框

5、中指定的窗体15在一个语句行内写多条语句时，语句之间应该用（）分隔。A 逗号 B.冒号C.顿号 D.分号 16要设置命令按钮的背景图形，必须设置的两个属性是（）。A Style 和 PictureB Style 和 IconC Caption 和 PictureD Value 和 Icon17.目录列表框的 Path 属性的作用是（）。A 显示当前驱动器或指定驱动器上的某目录下的文件名B.只显示当前路径下的文件C.显示根目录下的文件名D .显示当前驱动器或指定驱动器上的路径1 8 将数据 China 项添加到列表框 （ List1 ） 中成为第一项应使用的语句是 （ ） 。A List1.Ad

6、dItem0, ChinaB List1.AddItem 1, China CList1 .AddItem China,0D List1.AddItem China,119.要绘制多种形状的图形，需要设置Shape 控件的（）属性。A 、 Style B、 BorderstyleC、 FillStyleD 、 Shape20下列可以把当前目录下的图形文件pic1.jpg 装入图片框 Picture1 中的语句为）。A Picture1= pic1.jpg B Picture1 =LoadPicture（pic1.jpg）C Picture 1.Picture=LoadPicture（pic1.

7、jpg）D Picture 1.Picture=LoadPicture（pic1 ）21 如果要在窗体代码编辑器的 ”通用 ”部分定义私有 Sub 过程，则正确的语句是 ）。A Public Sub B Private SubC Public FunctionD Private Function22. 不属于 VB 数据库引擎的是（ ）。A. ODBC B . BDEC . Jet 引擎 D . OLEDB23. 在 VB 应用程序中，进行断点设置的按键是（）。3 / 11A Ctrl+F9 键B F9 键C Ctrl+F8 键 D F8 键24. 如果准备读文件，打开顺序文件 ” text.

8、da 的正确语句是（）。Aopentext.datFor wrire As # 1B.opentext.datFor Binary As # 1C.opentext.datFor Input As # 1D.opentext.datFor Random As # 125. 使用 ADO 对象模型时，使 Recordset 和 Connection 对象建立连接的属性是 （ ）。A . Open B . ExecuteC. CommandTypeD . ActiveConnection26. 使用 ADO 对象模型时，使 Recordset 和 Connection 对象建立连接的属性是 （ ）

9、。A . Open B . ExecuteC. CommandTypeD . ActiveConnection27.在 VB 中，一旦数据到达，将首先触发Winsock 控件的（ ）。A. DataArrival 事件B . ConnectionRequest 事件C. DataSend 事件D . GetGet 事件28. Winsock 控件的 LocalPort 属性的作用是（ ）A .仅返回所用断口 B .仅设置所用端口C.返回或设置所用端口D.返回或设置 IP 地址二、填空题1.每个应用程序必须有一个惟一的文件。2.窗体文件和类模块文件的扩展名分别是和。3.表达式 6 + 15 2

10、* 2 Mod 2 的值是。4.表达式 172-2A3*5MOD6 的值是。5.计时器控件响应的事件是 。6.在 Visual Basic 中，变量的默认类型是。7.为了在运行时把当前路径下的图形文件show.jpg 装入图片框 P1，所使用的语句 为。&设某个程序中要用到一个二维数组，要求数组名为A，类型为整型，第一维下标从0 到 2，第二维下标从 1 到 3，则相应数组声明语句为。9.用 Dim A（-2 to 3） 语句声明二维数组后，数组 A 的元素共有个。10. VB 中参数传递的机制有两种，一种是参数，另一种是 参数。11. 控件数组的名字由属性指定，而数组中的每个元素由属

11、性决定。12.若窗体的左上角坐标为（ -200， 250），右下角坐标为（ 300，-150），则 X 轴的 正向向， Y 轴的正向向。1 3 .窗体、图片框或图像框中的图形通过对象属性。14. 在 VB 中，将 Foxpro 称为外部数据库， Access 称为，SQL Server 称为。15. vb 应用程序与数据库进行通信的主要机制称为。16.全局变量必须在模块中定义，所使用的关键字为。17. 全局变量是指那些在中有效的变量，一般在模块代码编辑器的顶部使用声明。18. Winsock 控件主要用来编制或协议的网络应用程序。三、阅读程序题(共 25 分) 阅读下列程序并写出程序运行结果

12、14 / 11Private Sub Command1_Click()Dim x As IntegerStatic s As Integerx = Val(InputBox( 请输入一个正整数 =)If x 5 Thens = s * xElses = s + xEnd IfText1.Text = s= & Str(s)End Sub程序运行时连续 3 次单击 Command1，且设输入的数据为 6、5、4 时，分别写出文本 框 Text1的值。2.Private Sub Form_Click()Static a As IntegerDim b As Integera = a + 3

13、b = b + 4Text1 = aText2 = bEnd Sub写出程序运行时连续单击三次窗体后，文本框 Text1 和 Text2 显示结果。3.Private Sub Form_Click()Dim A(1 To 3) As StringDim c As Integer, j As IntegerA(1) = 2A(2) = 4A(3) = 6c = 2For j = 1 To 3c = c + Val(A(j)Next jPrint cEnd Sub 写出程序运行时单击窗体后， Form1 上的输出结果。4.Private Sub Form_Click() n = 0 For i =

14、 1 To 2For j = 2 To 4If j Mod 2 0 Thenn = n + 1End If n = n + 2Next j5 / 11Next iPrint nEnd Sub 写出程序运行时单击窗体后，窗体Form1 上的输出结果。5.Private Sub Command1_Click()Dim a As Integer, b As Integer a = 2: b = 3For i = 1 To 3For j = 1 To i b = b + j Next j a = a + bNext iPrint a End Sub 写出程序运行时单击命令按钮后，窗体Form1 上的输

15、出结果。6.Private Sub Form_Click()Dim A(1 To 4) As StringDim c As IntegerDim j As IntegerA(1) = 4A(2) = 6A(3) = 8A(4) = 10c = 1For j = 1 To 4c = c + Val(A(j)Next jPrint cEnd Sub 写出程序运行时单击窗体后，窗体Form1 上的结果。7.Sub Change(ByVal x As Integer, ByVal y As Integer)Dim t As Integert = xx = yy = tPrint x, yEnd Sub

16、Private Sub Form_Click()Dim a As Integer, b As Integera = 10: b = 20Change a, bPrint a, bEnd Sub写出程序运行时单击窗体后， Form1 上的输出结果。6 / 118.Function F(n As Integer) As LongDim i As Integer, Temp As LongTemp = 1For i = 1 To nTemp = Temp * iNext iF = TempEnd FunctionPrivate Sub Form_Click()Dim k As Integer, nj

17、 As Integerk = 5 nj = F(k)Print k 。 ！ = 。 njEnd Sub 写出程序运行时，单击窗体 Form1 上的输出结果。四、完善程序题(共 10 分)1.已知存在一名为学生”的SQL Server 数据库，其中的students”数据表用来存储学生的基本情况信息，包括学号、姓名、籍贯、性别。请编写一个简单的应用程序，向7 / 11SQL Server students表中图 1程序如下，请补充完整。声明对象变量 ADOcn，用于创建与数据库的连接Private ADOc n As Conn ectionPrivate Sub Form_Load()连接 SQ

18、L Server 数据库Dim strDB As Stri ngstrDB = Provider=SQLOLEDB 。LSF。User ID=sa。Password=。Database = 1If ADOcn Is Nothing Then2_3LEnd IfEnd SubPrivate Sub Comma nd1_Click()增加学生记录Dim strSQL As Stri ngDim ADOrs As 45_ADOc nADOrs.Ope n “ Select 号 From Students Where 学号=” +” “ +Text1+ ” “6The nMsgBox 你输入的学号已存

19、在，不能新增加！”ElseStrSQL= ” Insert Into students 学号，姓名”籍贯，性别)StrSQL=strSQL+Values( ” +text1+ ”，+text2+ ，+text3+ ，“ +text4+)”ADOrs.Execute 7students 表中添加学生记录。 程序的基本逻辑是： 当窗体被加载时， 程序联接 数据库；当点击“增加”按钮时，首先查询学号是否重复，如果不重复则向 添加学生记录。其运行界面如图1 所示。8 / 11MsgBox 添加成功，请继续！”End If9 / 11Private Sub Comma nd2_Click()Un loa

20、d MeEnd Sub2.在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求 程序运行后，驱动器列表框 Drive1 的默认驱动器设置为E 盘，选择 File1 中所列的图片文件（*.bmp,*.gif 和*.jpg ），则相应的图片显示在图片框Picture1 中，文件的路径显示在文本框中。程序运行结果如图2 所示。图 2程序如下，请补充完整。Private Sub Form_Load()Drive1.Drive = 12 = *.bmp。*.gif。*.jpgEnd SubPrivate Sub Drive1_cha nge()3 _ =Drive1.DriveTe

21、xtl.Text = Drivel.DriveEnd SubPrivate Sub Dir1_Cha nge()44-Textl.Text = Dir1 .P athEnd SubPrivate Sub File1_click()Picturel. _5_= LoadPicture(File1 .P ath + + Filel.FileName)FileName = Filel.Path + + Filel.FileNameTextl.Text = _6_10 / 11End Sub五、编写程序题答案一、单项选择题1.D 2.C3.B4.C5.C6.B7.B8.A9.B10.D11.D 12.C 13.B 14.D15.B17.D18.C 19.D 20.C 21 . B 22 . B23. B24. C25.D 26.D 27.A28.C、填空题(每小题 2 分，共 20 分)1.vbp2.frm .cis3.74.45.Timer6.Variant 或变体型7.P1. Picture=LoadPrcture(show.jpg)& Dim A(0 To 2,1To 3) As Integer9.610.引用参数传递(或按址传递)按值传递11. Name Index12. 右上13Picture14. 本地数据库、