VB练习题1.docx

1、VB练习题1 综合练习题 一、单项选择题 （每小题 2 分） 1 在界面设计时，双击窗体中的对象后， VisualBasic 将显示的窗口是（ ）。 A 立即窗口 B 属性窗口 C 代码窗口 D 工程资源管理器窗口 2 后缀为 .vbp 的文件表示 VB 的（） A 窗体文件 B 类模块文件 C 工程文件 D 标准类模块文件 3 要在窗体 Form1 内显示“ myfrm ”，使用的语句是（ ） A Form.caption=myfrm B Form1.caption=myfrm C Form1.print myfrm D Form. print myfrm 4 表达式 8+13 Mod 2*

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 返回本地

3、计算机的 IP 地址 9.要以读方式打开D盘的一个顺序文件 Test . doc，应使用的语句是（ ） BA Open Test . doc For Output As #1 B Open D: Test . doc For Input As #1 C Open D: Test . doc For Output As #1 D Open Test . doc For Input As #1 10 Dim Abc(2,3) 所定义的数组元素个数是（ ） A 、 6 B 、 5 C 、 12 D 、 9 11 在 Visual Basic 中，默认的数据类型是（ ） A Integer B Dou

4、ble C Currency D Variant 12 当 Winsock 控件处于关闭状态时，其 State 属性的值是（） A 1 B 0 C 2 D 3 13 执行指令 ”Line(200,200)-step(500,500)” 后， 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 Chang

5、e 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下列变量名中合法的是（ ） AIF B7AB CAB7 DAB_7 20. 要退出ForNext循环，应使用的语句是（ ）。 AExit BExit For CContinue DStop Loop 21

6、.在下列选项中，不能将图像装入图片框和图像框的是（ ） 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对象，从Ta

7、bel中获取所有记录的语句是（ ） AADOrs.New Select * From Tabel BADOrs.Open Select * From Tabel CADOrs.Execute Select * From Tabel DADOrs. Select Select * From Tabel 24.当改变驱动器列表框中的驱动器时，为了使目录列表框中的内容同步跟着改变，应当（ ） A在Dir1_Change()事件中加入代码Dir1.Path=Drive1.Drive B在Dir1_Channge()事件中加入代码Drive1.Drive =Dir1.Path C在Dirve1_Chan

8、nge()事件中加入代码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 为后缀的文件的语句为 。 3Visual Basic程序开发有三种模式，即 模式、 模式和 模式 。 4执行指令Line(200,300)-(400,500)后，Curren

9、tX= 。 设 CurrentX=50,CurrentY=100 ，执行指令“ Line(100,20)-Step(300,500) ”后， CurrentY = 。 5 ADO 数据模型中一般可通过 Connection 对象的 方法对数据库中的基本表进行增加、删除、修改等不返回结果集的操作。 6 已知 a=3,b=4,c=5, 表达式 a.b and Not ca Or cb And ca+b 的值是 。 7 为了在运行时把当前路径下的图形文件 picturefile.jpg装入图片框Picture1，所使用的语句为 。 8 设某个程序中要用到一个二维数组，要求数组名为 A ，类型为字符串

10、类型，第一维下标从 0 到 5 ，第二维下标从 -2 到 5 ，则相应的数组声明语句为 。 9 Visual Basic一般用4种类型的文件保存，分别是扩展名为 的窗体文件，扩展名为 的标准模块文件，扩展名为 的类模块文件和扩展名为 的工程文件 。 10 将图片框 PictureBox的AutoSize属性设置成 时，图片框能自动调整大小，以适应其中的图片。 11 若窗体 Form1 左上角坐标为（ 0 ， 600 ），右下角的坐标为（ 800 ， -200 ）。则 X 轴的正向向 ， Y 轴的正向向 。 12 Left(“abcd”,2) 函数的返回值是 ; Right(“abcd”,2)

11、函数的返回值是 。 13 Vb 应用程序与数据库进行通信的主要机制称为 。 14 Winsock控件主要用来编制 或 协议的通话程序。 15 假设 ADOcn 为一个 Connection 对象，那么在 VB 程序中声明 ADOcn 的语句是 。 16 在 VB 中，将 Foxpro 称为 ， Access 称为 ， SQL Server 称为 。 17 常用的 VB 网络编程控件主要有 、 、 三种。 18 以 (600,600) 为圆心，以 800 为半径，用 ForeColor 颜色绘制一个圆形，其实现的代码是 。 19以下程序段简要说明驱动器列表框、目录列表框及文件列表框三者协同工作的

12、情况。将程序段补充完整。 Private Sub Drive1_Change() End Sub Private Sub Dir1_Change() End Sub 20 . 在 Visual Basic 程序中实现复制文件 ”d:text.doc” 到 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.

13、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 = s= & Str(s) End Sub 程序运行时连续 3 次单击 Command1 ，且设输入的数据为 6 、 5 、 4 时，分别写出文本框 Text1 的值

14、。 3 Private Sub Form_Click() Dim A(1 To 3) As String Dim c As Integer,j As Integer A(1) = “3” A(2) = “6” A(3) = “9” 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 x=; x Call test(x