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

1、Visual Basic程序设计期末综合练习三2008年12月10日一、单项选择题1在Visual Basic中，窗体文件的扩展名为（ ）。A.vbp B.frm C.cls D.bas2在下列有关Visual Basic的叙述中，错误的是（ ）。A采用了事件驱动的编程机制 B是面向对象的编程语言 C是面向过程的程序设计语言 D是可视化的程序设计语言3如果对象的名称为Mytext，而且对象有一个属性Text，那么在代码中引用该属性的正确格式是（ ）AText.Mytext BMytext.Text CMytext.(Text) DMytext*Text4在新建一个“标准EXE”工程后，不在工具

2、箱中出现的控件是（ ）。A列表框 B通用对话框C驱动器列表框 D图片框5关于对象的属性不正确的是（ ）。A对象的属性一般有属性名和属性值 B可通过属性窗口设置属性的值C可通过程序代码设置属性的值 D对象的所有属性值均可在设计时设计6对于定时器（Timer）控件,设置其定时是否开启的属性是（ ）。AIndex BTag CEnabled DInterval7在设计阶段，双击窗体上的某个控件时，打开的窗体是（ ）。A工程资源管理器窗口 B工具箱窗口 C代码编辑器窗口 D属性窗口8有程序代码如下： Text1.Text = 欢迎走进VB世界！则Text1，Text ，和欢迎走进VB世界！分别代表（

3、）。A对象，值，属性 B属性，对象，值C对象，方法，属性 D对象，属性，值 9下列符号不能作为VB中变量名的是（ ）。 AABCD BX00000 C60XYZ Dxyz10. VB提供了结构化程序设计的三种基本结构是（ ）。A选择结构、循环结构、顺序结构 B选择结构、过程结构、顺序结构C过程结构、转向结构、递归结构 D递归结构、选择结构、循环结构11在设计动画时，用时钟控件来控制动画速度的属性是（ ）。 AEnabled BMove CTimer DInterval 12下列说法中正确的是（ ）。 为了保存一个Visua Basic应用程序，应当A只保存窗体文件 B只保存工程文件 C分别保存

4、工程文件和标准模块文件 D分别保存工程文件、窗体文件和标准模块文件13文本框ScrollBars属性设置了非零值，却没有效果，原因是（ ）。 A文本框中没有内容 B文本框的Locked属性为TrueC文本框的MultiLine属性为True D文本框的MultiLine属性为False14当一个工程含有多个窗体时，其中的启动窗体是（ ）。A第一个添加的窗体 B最后一个添加的窗体 C包含控件最多的窗体 D在“工程属性”对话框中指定的窗体15下列赋值语句正确的是（ ）。Ax = y +z By + z = x C-y= x D4 = x +y16要设置命令按钮的背景图形，必须设置的两个属性是（ ）

5、。AStyle和Picture BStyle和IconCCaption和Picture DValue和Icon 17VB程序中设置断点的按键是（）。AF5键BF6键CF9键DF10键18将数据 China项添加到列表框（List1）中成为第一项应使用的语句是（ ）。AList1.AddItem 0, China BList1.AddItem 1, China CList1.AddItem China ,0 DList1.AddItem China ,1 19用语句Dim A(-2To 3)As Integer所定义的数组的元素的个数是（ ）。 A3 B4 C5 D620确定一个窗体或控件的大小

6、的属性是（）AWidth或Height BWidth和Height CTop或Left DTop和Left21要向图片框Picture1中加载“d:hainanzhiwu.bmp”图像文件，应使用语句（ ）。APicture1.Picture= d:hainanzhiwu.bmp BPicture1.Picture=LoadPicture(d:hainanzhiwu.bmp ) CP1.Picture=LoadPicture(d:hainanzhiwu.bmp) DP1.Picture=LoadPicture(d:hainanzhiwu.bmp ) 22下列可以把当前目录下的图形文件pic1.

7、jpg装入图片框Picture1中的语句为（ ）。APicture1= pic1.jpg BPicture1 =LoadPicture(pic1.jpg) CPicture 1.Picture=LoadPicture(pic1.jpg) DPicture 1.Picture=LoadPicture(pic1 ) 23在代码编辑器中，如果一条语句太长，无法在一行内写下（不包括注释），要折行书写，可以在行末使用续行字符（ ），表示下一行是当前行的继续。A一个空格加一个下划字符”_” B一个下划字符”_” C直接回车 D一个空格加一个连字符(-) 24不属于VB数据库引擎的是（ ）。AODBC BB

8、DE CJet引擎 DOLEDB25VB程序中通常不会产生错误提示的是（）。A编译错误B实时错误C运行时错误D逻辑错误 26如果准备读文件，打开顺序文件”text.dat”的正确语句是（ ）。Aopentext.datFor wrire As # 1 Bopentext.datFor Binary As # 1 Copentext.datFor Input As # 1Dopentext.datFor Random As # 127使用ADO模型时，建立Recordset和Connection对象的连接的属性是（）。AExecute BCommandTypeCOpen DActiveConne

9、ction28.使用ADO对象模型时，使Recordset和Connection对象建立连接的属性是（ ）。 AOpen BExecuteCCommandType DActiveConnection 29下列只能用程序代码设置，不能通过属性窗口设置的属性是（ ）。ADrive属性 BPattern属性 CVisible属性 DIndex属性 30Winsock控件的LocalPort属性的作用是（）A 仅返回所用断口 B仅设置所用端口C返回或设置所用端口 D返回或设置IP地址 二、填空题1. 欲设置定时器的时间间隔为2秒，则属性Interval的值为 。2窗体文件和工程文件的扩展名分别是 和

10、。3列表框中项目的序号是从 开始的。4表达式172-23*5MOD6的值是 。5表达式3+ 10 Mod 23 + 2的值是 。6在Visual Basic中，变量的默认类型是 。7执行赋值语句a = 123 + 456，变量a的值是 。8设某个程序中要用到一个二维数组，要求数组名为A，类型为整型，第一维下标从-1到2，第二维下标从1到4，则相应数组声明语句为 。9在VB中，将Foxpro称为外部数据库，Access称为 ，SQL Server称为 。10. 控件数组的名字由 属性指定，而数组中的每个元素由 属性决定。11若窗体的左上角坐标为（-200，250），右下角坐标为（300，-150

11、），则X轴的正向向 ，Y轴的正向向 。12窗体、图片框或图像框中的图形通过对象 属性。13如果不适先确定变量的数据类型，则可以把它声明为 变量。 14Stretch属性设置为 时，图像框可自动改变大小以适应其中的图形。15全局变量必须在 模块中定义，所使用的关键字为 。16Winsock1.Listen语句的含义是 。 17Winsock控件主要用来编制 或 协议的网络应用程序。三、阅读程序题 阅读下列程序并写出程序运行结果1(6分)Private Sub Form_Click() Static Sum As Integer For i = 1 To 3 Sum = Sum + i Next

12、i Print SumEnd Sub写出程序运行时点击窗体两次后，变量Sum的值。2(6分)Private Sub Form_Click() Static a As Integer Dim b As Integer a = a + 3 b = b + 4 Text1 = a Text2 = bEnd Sub写出程序运行时连续单击三次窗体后，文本框Text1和Text2显示结果。3(6分)Private Sub Form_Click()Dim c As Integer, j As Integer, k As Integerk = 2c = 3For j = 1 To 5 If j 3 Then

13、c = c + 5 Exit For Else k = k + 5End IfNext jPrint c, kEnd Sub写出程序运行时单击窗体后，Form1上的输出结果。 4(6分)Private Sub Form_Click() n = 0 For i = 1 To 2 For j = 2 To 4 If j Mod 2 0 Then n = n + 1 End If n = n + 2 Next j Next i Print nEnd Sub写出程序运行时单击窗体后，窗体Form1上的输出结果。 5. (6分)Private Sub Command1_Click() Dim A(1 T

14、o 5) As Integer Dim b As Integer For b = 1 To 5 A(b) = b Next b Text1.Text = A(b - 2)End Sub写出程序运行时单击Command1后，文件框Text1中的输出结果。6. (6分)Private Sub Form_Click() Dim A(1 To 4) As String Dim c As Integer Dim j As Integer A(1) = 6 A(2) = 8 A(3) = 10 A(4) = 12 c = 1 For j = 1 To 4 c = c + Val(A(j) Next j P

15、rint cEnd Sub写出程序运行时单击窗体后，窗体Form1上的结果。7. (7分)Function F(a As Integer) Dim b As Integer Static c As Integer b = b + 2 c = c + 2 F = a + b + cEnd FunctionPrivate Sub Command1_Click() Dim a As Integer a = 5 For i = 1 To 3 Print F(a) Next iEnd Sub写出程序运行时，单击命令按钮在窗体上的输出结果。8. (7分)Function F(n As Integer) A

16、s Long Dim i As Integer, Temp As Long Temp = 1 For i = 1 To n Temp = Temp * i Next i F = TempEnd FunctionPrivate Sub Form_Click() Dim k As Integer, nj As Integer k = 5 nj = F(k) Print k; i=; njEnd Sub写出程序运行时，单击窗体Form1上的输出结果。四、完善程序题 1列表框应用程序要求从文本框中输入课程名称，然后按“添加”按钮，将该课程名程添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从

17、列表框中删除该项；当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。程序运行结果如图1所示。List1Command3Command2Command1Text1 图 1程序如下，请补充完整。Private Sub Form_Load() List1.AddItem Visual Basic程序设计 List1.AddItem SQL SERVER数据库应用 List1.AddItem 信息管理系统 List1.AddItem ERP原理

18、与应用 List1.AddItem 网络实用技术基础 List1.AddItem 系统开发规范与文档编写 List1.AddItem 信息系统测试End SubPrivate Sub Command1_Click() If Text1.Text Then 1 Text1.Text 将文本框中的内容加到列表框中 Text1.Text = 2 MsgBox 请在文本框中输入信息！ End IfEnd SubPrivate Sub Command2_Click() 3 List1.ListIndex 删除选定的项目End SubPrivate Sub Command3_Click() If Comm

19、and3.Caption = 4 Then Text1.Text = 5 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 IfEnd Sub2在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程序运行后，驱动器列表框Drive1的默认驱动器设置为E盘，选择File1中所列的图片文件（*.bmp,*.gif和*.jpg）,则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。程序运行结果如图2所示。 图2程序如下，请补充完整。Pri