Visual Basic程序设计期末综合练习题一
一、单项选择题（每小题2分）
1．在界面设计时，双击窗体中的对象后，VisualBasic将显示的窗口是（ ）。 A．立即窗口 B．属性窗口 C．代码窗口 D．工程资源管理器窗口 2．后缀为.vbp的文件表示VB 的（ ）
A．窗体文件 B．类模块文件 C．工程文件 D．标准类模块文件 3．要在窗体Form1内显示\，使用的语句是（ ）
A．Form.caption=\ B．Form1.caption=\C．Form1.print \ D．Form. print \ 4．表达式8+13 Mod 2*4+3（ ）。
A．8 B．16 C．15 D．12 5．文本框没有（ ）属性
A、Text B、Name C、Caption D、BorderStyle 6.下列赋值语句正确的是（ ）
A．B+C =A B． A=B+C C．-B=A D．5=A+B
7．如果准备向随机文件中写入数据，正确的语句是（ ） A．Write # 1,rec B．Print # 1,rec C．Get # 1,rec D．Put # 1,rec 8．Winsock控件的LocalHostName属性的作用是（ ）
A．仅返回所用端口 B．返回本地计算机的名称 C．返回或设置所用端口 D．返回本地计算机的IP地址
9.要以读方式打开D盘的一个顺序文件 Test.doc，应使用的语句是（ ） A．Open \ B．Open \
C．Open \ D．Open \
10．Dim Abc(2,3)所定义的数组元素个数是（ ）
A、6 B、5 C、12 D、9 11．在Visual Basic中，默认的数据类型是（ ）
A．Integer B．Double C．Currency D．Variant 12．当Winsock控件处于关闭状态时，其State属性的值是（ ） A．1 B．0 C．2 D．3
13．执行指令\后，CurrentX=( ) A．500 B．200 C．300 D．700 14．不属于VB数据库引擎的是（ ）
A．ODBC B． Jet引擎 C．BDE D．OLE DB 15．全局变量必须在（ ）中定义
A、标准模块 B、窗体模块 C、类模块 D、任意模块
16．改变驱动器列表框的Drive属性值，将激活（ ）事件。 A．Change B．Scoll C．KeyDown D．KeyUp
17．如果将文本框的（ ）属性设置为True，则运行时不能对文本框中的内容进行编辑。 A．Locked B．MultiLine C．TabStop D．Visible 18．数学式子Sin25 写成VB表达式是（ ）。
A．Sin25 B．Sin（25） C．SIN（25 ） D．Sin（25*3.14/180） 19．下列变量名中合法的是（ ）
A．IF B．7AB C．A[B]7 D．AB_7 20. 要退出For…Next循环，应使用的语句是（ ）。
A．Exit B．Exit For C．Continue D．Stop Loop 21.在下列选项中，不能将图像装入图片框和图像框的是（ ） A．在界面设计时，通过Picture属性装入
B．在界面设计时，手工在图像框和图片框中绘制图形 C．在界面设计时，利用剪贴板把图像粘贴上
D．在程序运行期间，用LoadPicture函数把图形文件装入 22．下面选项中，能绘制填充矩形的语句是（ ） A．Line (200, 200)-(500, 500),B B．Line (200, 200)-(500, 500), , BF C．Line (200, 200)-(500, 500), BF D．Line (200, 200)-(500, 500)
23.ADOrs为Recordset对象，从Tabel中获取所有记录的语句是（ ） A．ADOrs.New \B．ADOrs.Open \C．ADOrs.Execute \D．ADOrs. Select \
24.当改变驱动器列表框中的驱动器时，为了使目录列表框中的内容同步跟着改变，应当（ ）
A．在Dir1_Change()事件中加入代码Dir1.Path=Drive1.Drive B．在Dir1_Channge()事件中加入代码Drive1.Drive =Dir1.Path C．在Dirve1_Channge()事件中加入代码Dir1.Path=Drive1.Drive D．在Dirve1_Channge()事件中加入代码Drive1.Drive =Dir1.Path 25.VB程序中通常不会产生错误提示的（ ）。 A．编译错误 B．实时错误 C．运行时错误 D．逻辑错误
二、填空题（每空1分）
1．数学表达式 写成等价的Visual Basic表达式为 。
2．删除在C盘TEMP目录下所有以tmp为后缀的文件的语句为 。 3．Visual Basic程序开发有三种模式，即 模式、 模式和 模式。
4．执行指令Line(200,300)-(400,500)后，CurrentX= 。设CurrentX=50,CurrentY=100，执行指令\后，CurrentY
= 。
5．ADO数据模型中一般可通过Connection对象的 方法对数据库中的基本表进行增加、删除、修改等不返回结果集的操作。
6．已知a=3,b=4,c=5,表达式a.>b and Not c>a Or c>b And c 7．为了在运行时把当前路径下的图形文件picturefile.jpg装入图片框Picture1，所使用的语句为 。 8．设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从0到5，第二维下标从-2到5，则相应的数组声明语句为 。 9．Visual Basic一般用4种类型的文件保存，分别是扩展名为 的窗体文件，扩展名为 的标准模块文件，扩展名为 的类模块文件和扩展名为 的工程文件。 10．将图片框PictureBox的AutoSize属性设置成 时，图片框能自动调整大小，以适应其中的图片。 11．若窗体Form1左上角坐标为（0，600），右下角的坐标为（800，-200）。则X轴的正向向 ，Y轴的正向向 。 12． Left(\函数的返回值是 ; Right(\函数的返回值是 。 13．Vb应用程序与数据库进行通信的主要机制称为 。 14．Winsock控件主要用来编制 或 协议的通话程序。 15．假设ADOcn为一个Connection对象，那么在VB程序中声明ADOcn的语句是 。 16．在VB中，将Foxpro称为 ，Access称为 ，SQL Server称为 。 17．常用的VB网络编程控件主要有 、 、 三种。 18．以(600,600)为圆心，以800为半径，用ForeColor颜色绘制一个圆形，其实现的代码是 。 19．以下程序段简要说明驱动器列表框、目录列表框及文件列表框三者协同工作的情况。将程序段补充完整。 Private Sub Drive1_Change() End Sub Private Sub Dir1_Change() End Sub 20. 在Visual Basic程序中实现复制文件\到e:盘根目录下的语句为 。 三、阅读程序题 阅读下列程序并写出程序运行结果 1． Private Sub Command1_Click() x = 0 Do While x < 20 x = (x + 1) * (x +3) n = n + 1 Loop Text1.Text = Str(n) Text2.Text = Str(x) Text3.Text = Val(Text1.Text) + Val(Text2.Text) End Sub 文件框Text3的结果是： 2. 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的值。 3． Private Sub Form_Click() Dim A(1 To 3) As String Dim c As Integer,j As Integer A(1) = \ A(2) = \ A(3) = \ c=0 For j=1 to 3 c = c + Val(A(j)) Next j Print c End Sub 写出程序运行时单击窗体后，窗体Form1上的结果： 4． Private Sub Command1_Click() Dim A(2 To 7) As Integer Dim b As Integer For b = 2 To 7 A(b) = b Next b Text1.Text = A(b - 2) End Sub 程序运行后，单击命令按纽文本框Text1的结果是： 5． Sub test(i As Integer) i = i + 2 End Sub Private Sub Form_Click() Dim x As Integer x = 6 Print \Call test(x) Print \End Sub 6. Private Sub Form_Click() a = 1: b = 1 Print \ Call mult(a) Print \End Sub Private Sub mult(x) x = 3 + x b = 4 + b End Sub 7. Private Sub Form_Click() Dim i As Integer, a As Integer k = 0 For i = 1 To 6 If i > 3 Then a = a + 5 Else a = a + 2 End If Next i Print i, a End Sub 写出程序运行时单击窗体后，Form1上的输出结果。
Visual Basic程序设计期末综合练习题一
