Visual Basic程序设计期末综合练习题一一、单项选择题1．Visual Basic是一种面向对象的可视化编程语言，采取了（）的编程机制。
A．从主程序开始执行B．按过程顺序执行C．事件驱动D．按模块顺序执行2．在Visual Basic中，窗体文件的扩展名为（）。
A．.vbp B．.frmC．.cls D．.bas3．Visual Basic6.0集成开发环境有三种工作模式，下列不属于三种工作模式之一的是（）。
A．设计模式B．编写代码模式C．中断模式D．执行模式4．如果对象的名称为Mytext，而且对象有一个属性Text，那么在代码中引用该属性的正确格式是（）。
A．Text.Mytext B．Mytext*TextC．Mytext.(Text) D．Mytext.Text5．下列关于变量的说法不正确的是（）。
A．局部变量在声明它的过程执行完毕后就被释放了B．局部变量的作用域仅限于声明它的过程C．静态局部变量是在过程中用Static语句声明的D．局部变量是指那些在过程中用Dim语句或Static语句声明的变量6．关于对象的属性不正确的是（）。
A．对象的属性一般有属性名和属性值B．可通过属性窗口设置属性的值C．可通过程序代码设置属性的值D．对象的所有属性值均可在设计时设计7．在设计阶段，双击窗体上的某个控件时，打开的窗体是（）。
A．工程资源管理器窗口B．工具箱窗口C．代码编辑器窗口D．属性窗口8．要在窗体的标题内显示“myfrm”,使用的语句是（）。
A．Form.caption="myfrm" B．Form1.caption="myfrm"C．Form1.Print"myfrm" D．Form.Print"myfrm"9．在VB中，下列变量名不合法的是（）。
A．file_1 B．file C．file-1 D．file_1_210．在设计动画时，用时钟控件来控制动画速度的属性是（）。
A．Enabled B．MoveC．Interval D．Timer11．要从For…Next循环中退出循环，应使用（）语句。
A．Exit B．Exit For C．Continue D．Stop Loop12．文本框ScrollBars属性设置了非零值，却没有效果，原因是（）。
A．文本框中没有内容B．文本框的Locked属性为TrueC．文本框的MultiLine属性为True D．文本框的MultiLine属性为False13．要利用公用对话框控件来显示“打开文件”对话框，需要调用控件的（）方法。
A．ShowPrinter B．ShowOpen C．ShowSave D．ShowColor14．下列赋值语句正确的是（）。
A．x = y +z B．y + z = xC．-y= x D．4 = x +y15．确定一个控件在窗体上位置的属性是（）。
A．Width和Height B．Width或HeightC．Top和Left D．Top或Left16．VB程序中设置断点的按键是（）。
A．F5键B．F6键C．F9键D．F10键17．如果希望以模态方式显示窗体Form1，下列正确的语句是（）。
A．Form1.Show 0 B．Form1.ShowC．Form1.Show 1 D．以下都不正确18．用语句Dim A(-2To 3)As Integer所定义的数组的元素的个数是（）。
A．3 B．4 C．5 D．619．如果创建了命令按钮的控件数组，那么Click事件的参数是（）。
A．Caption B．TagC．Index D．没有参数20．要向图片框Picture1中加载“d:\hainan\zhiwu.bmp”图像文件，应使用语句（）。
A．P1.Picture=LoadPicture(d:\hainan\zhiwu.bmp)B．P1.Picture=LoadPicture("d:\hainan\zhiwu.bmp ")C．Picture1.Picture=" d:\hainan\zhiwu.bmp "D．Picture1.Picture=LoadPicture("d:\hainan\zhiwu.bmp ")21．如果要在窗体代码编辑器的”通用”部分定义私有Sub过程，则正确的语句是（）。
A．Public Sub B．Private SubC．Public Function D．Private Function22．在代码编辑器中，如果一条语句太长，无法在一行内写下（不包括注释），要折行书写，可以在行末使用续行字符（），表示下一行是当前行的继续。
A．直接回车B．一个下划字符”_”C．一个空格加一个下划字符”_” D．一个空格加一个连字符(-)23.下列叙述不正确的是（）。
A.注释语句是非执行语句，仅对程序的有关内容起注释作用，客观存在不被解释和编译B.注释语句可以放在代码中的任何位置C.注释语句不能放在代码中的任何位置D.代码中加入注释语句的目的是提高程序的可读性24．VB程序中通常不会产生错误提示的是（）。
A．编译错误B．实时错误C．运行时错误D．逻辑错误25．ADO对象模型含有七种对象，其中代表数据库表中的一整套记录或执行一条命令而得到的结果的对象是（）。
mandB.ConnectionC.RecordsetD.Field26．使用ADO模型时，建立Recordset和Connection对象的连接的属性是（）。
A．Execute B．CommandTypeC．Open D．ActiveConnection27．要发送数据，通常使用Winsock控件的（）。
A．SendData方法B．Listen方法C．Accept方法D．GetDate方法28．下列只能用程序代码设置，不能通过属性窗口设置的属性是（）。
A．Drive属性B．Pattern属性C．Visible属性D．Index属性二、填空题1．每个应用程序必须有一个惟一的文件。
2.欲设置定时器的时间间隔为1秒，则属性Interval的值为。
3．表达式5 + 21 \ 2 * 3 Mod 2的值是。
4．表达式5 + 9 Mod 2 ^ 3 + 2的值是。
5．列表框中项目的序号是从开始的。
6．计时器控件响应的事件是。
7．为了在运行时把当前路径下的图形文件pictureflower.jpg装入图片框Picture1，所使用的语句为。
8．执行赋值语句a = "abc" + "def"，变量a的值是。
9. VB中的程序错误类型主要有编译错误、等三种。
10．在VB中，将Foxpro称为外部数据库，Access称为，SQL Server称为。
11．数据库应用程序属于一种非常典型的前后台软件结构，而前后台之间进行通信的主要机制称为。
12．若窗体Form1左上角坐标为（0，600），右下角的坐标为（800，-200）。
则X轴的正向向，Y轴的正向向。
13．用Dim A(3,3)语句声明二维数组后，数组A的元素共有个。
14．设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从1到3，第二维下标从0到3，则相应的数组声明语句为。
15.果不适先确定变量的数据类型，则可以把它声明为变量。
16.tretch属性设置为时，图像框可自动改变大小以适应其中的图形。
17.insock1.Listen语句的含义是。
三、阅读程序题阅读下列程序并写出程序运行结果1．Private Sub Form_Click()Static a As StringDim b As Stringa = a + "A"b = b + "B"Text1 = aText2 = bEnd Sub写出程序运行时连续单击三次窗体后，文本框Text1和Text2显示结果。
2．Private Sub Form_Click()Static Sum As IntegerFor i = 1 To 4Sum = Sum + iNext iPrint SumEnd Sub写出程序运行时点击窗体两次后，变量Sum的值。
3．Private Sub Command1_Click()Dim A(1 To 5) As IntegerDim x As IntegerFor i = 1 To 5A(i) = iNext ii = 1Do While x < 7A(i) = A(i) + xx = x + 3i = i + 1LoopText1.Text = A(1)Text2.Text = A(3)End Sub写出程序运行时单击窗体后，Form1上的输出结果。
4．Private Sub Form_Click()Dim c As Integer, j As Integer, k As Integerk = 2c = 3For j = 1 To 5If j > 3 Thenc = c + 5Exit ForElsek = k + 5End IfNext jPrint c, kEnd Sub写出程序运行时单击窗体后，Form1上的输出结果。
5.Private Sub Command1_Click()Dim X As Integer, Y As IntegerX = 1 : Y = 1For i = 1 To 4For j = 1 To iY = Y + jNext jX = X + YNext iPrint XEnd Sub写出程序运行时单击命令按钮后，窗体Form1上的输出结果。
6.Private Sub Command1_Click()Dim A(1 To 5) As IntegerDim b As IntegerFor b = 1 To 5A(b) = bNext bText1.Text = A(b - 2)End Sub写出程序运行时单击Command1后，文件框Text1中的输出结果。
7.Function F(a As Integer, b As Integer) As IntegerF = a + bEnd FunctionPrivate Sub Form_Click()Dim a As Integer, b As Integer, z As Integera = 4:b =5z = F(a, b)Print zEnd Sub写出程序运行时单击窗体后，Form1上的输出结果。
8.Function F(a As Integer)Dim b As IntegerStatic c As Integerb = b + 2c = c + 2F = a + b + cEnd FunctionPrivate Sub Command1_Click()Dim a As Integera = 4For i = 1 To 3Print F(a)Next iEnd Sub写出程序运行时，单击命令按钮在窗体上的输出结果。