VisualBasic程序设计期末综合练习

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

一、单选题

1. 以下不属于Visual Basic6.0的特点的选项是（ ）。 A、可视化编程B、算法设计

C、面向对象程序设计D、事件驱动

2.在设计阶段，当双击窗体时，所打开的窗口是（ ）。 A、工程资源管理器窗口B、工具箱窗口 C、代码编辑器窗口D、属性窗口 3.假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应执行的操作是（ ）。

A、单击窗体上没有控件的地方B、单击任一个控件 C、不执行任何操作D、双击窗体的标题栏

4.在VB6.0集成开发环境中有三种工作模式，下列不属于三种工作模式之一的是（ ）。 A、设计模式B、中断模式 C、执行模式D、编写代码模式

5.当需要上下文帮助时，选择要帮助的内容，希望出现MSDN窗口及显示所需的帮助信息，应按的键是（ ）。 A、HelpB、F1 C、EscD、F10

6.在设计应用程序时，可以查看到应用程序工程中所有组成部分的窗口是（ ）。 A、窗体布局窗口B、代码编辑器窗口 C、属性窗口D、工程资源管理器窗口 7.11.窗体设计窗口的主要功能是（ ）。 A、设计控件外观B、编写源程序代码 C、建立用户界面D、设置对象属性 8.VB6.0集成开发环境可以（ ）。

A、编辑、调试、运行程序，但不能生成可执行文件 B、编辑、生成可执行文件、运行程序，但不能调试程序 C、编辑、调试、生成可执行程序，但不能运行程序 D、编辑、调试、运行程序，也能生成可执行文件

9.Visual Basic应用程序处于执行模式时，这时（ ）。 A、既不能设计界面，也不能编写代码 B、可以编辑代码，不能设计界面 C、可以设计界面，不能编辑代码 D、既能设计界面，也能编写代码

10.后缀为.vbp的文件表示VB 的（ ）。 A、类模块文件 B、窗体文件 C、工程文件

D、标准类模块文件

11.为了保存一个Visual Basic应用程序，下列说法正确的是（ ）。 A、只保存窗体文件（.frm） B、只保存工程文件（.vbp）

C、分别保存工程文件和标准模块文件(.bas) D、分别保存工程文件、窗体文件和标准模块文件 12.下面关于工程的概念中错误的是（ ）。

A、Visual Basic 的工程是相关应用程序文件的集合

B、Visual Basic 的工程实际上为了管理构成应用程序的所有文件

1

C、一个大的Visual Basic应用程序才能构成一个工程

D、建立只有一个窗口的应用程序，会生成多个程序文件，也称为一个工程 13. 保存一个工程文件至少应该保存两个文件，这两个文件分别是（ ）。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件

14. 将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其它机器上不能运行的主要原因是（ ）。 A、运行的机器上无VB系统所需的动态链接库 B、缺少.frm窗体文件 C、该可执行文件有病毒 D、操作错误

15. 事件的名称（ ）。

A、都是由用户来定义的B、由用户或系统定义 C、都是由系统预先定义的D、是不固定的 16. 下列正确的赋值语句是（ ）。 A、x+y= 20B、y = x+20 C、3x = yD、10=x+y

17.为了给x,y,z三个变量赋初值1，以下正确的语句是（ ）。 A、x=1,y=1,z=1B、x=1:y=1:z=1 C、x=y=z=1D、xyz=1

18. MsgBox函数的返回值的类型是（ ）。 A、整型B、字符串 C、逻辑型D、日期型

19. InputBox函数默认的返回值类型是( )。 A、数值B、字符串

C、逻辑型D、数值或字符串

20.如果想在程序运行时从键盘输入数据，应使用的方法是（ ）。 A、赋值语句B、InputBox C、MsgBoxD、print

21.当程序运行过程中，需要给用户一些提示信息或警告信息时，应使用（ ）。 A、赋值语句B、InputBox C、MsgBoxD、print

22. 语句Print\的执行结果是（ ）。 A、25B、\

C、出现错误提示D、5*5

23.下列关于窗体的说法不正确的是（ ）。 A、窗体的标题由Caption属性确定

B、窗体的Name属性与Caption属性相同 C、窗体的背景图片由其Picture属性设定

D、通过设置Icon属性可使窗体获得最小化时的图标

24. 窗体Form1的Name属性为Myfrm,则它的Load事件过程名为（ ）。 A、Form_LoadB、Me_Load C、Myfrm_LoadD、Form1_Load 25.设窗体的名称Forml，则在程序运行过程中,单击窗体时,被执行的事件过程的名称是（ ）。 A、Forml_Click( )B、Forml_DbClick( ) C、Form_Click( )D、Form_DbClick( )

26.若要将窗体从内存中卸载，应使用的方法是（ ）。 A、ShowB、Unload C、LoadD、Hide

2

27. 要在窗体的标题栏内显示“myfrm”，使用的语句是（ ）。 A、Form.caption=\、Form1.caption=\C、Form1.print \、Form. print \

28.下列用来设置窗体Form1属性的语句中，在运行时不能正确操作的是（ ）。 A、Form1.Caption=\B、Form1.Name=\C、Form1.Visible=True D、Form1.Width=4000

29.下列关于属性设置的叙述错误的是（ ）。

A、控件具有什么属性是VB预先设计好的，用户不能改变 B、控件具有什么属性是VB预先设计好的，用户可以改变

C、控件的属性既可以在属性窗口中设置，也可以用程序代码设置 D、控件的属性在属性窗口中设置后，还可以用程序代码为其设置新值

30.如果想让文本框中的内容在运行时不能编辑，需将文本框的（ ）属性设置为True。 A、LockedB、MultiLine C、TabStopD、Visible

31.确定一个控件在窗体上的位置的属性是（ ）。 A、Width或HeightB、Width和Height C、Top或LeftD、Top和Left

32.(0分) 【SN：124329】 【难度：0.5】 【状态： 完成待审核 】 如果要在文本框中键入字符时，只显示某个字符，如星号（*），应设置文本框的（ ）属性。 A、CaptionB、PasswordChar C、TextD、Char

33.(0分) 【SN：124331】 【难度：0.5】 【状态： 完成待审核 】 关于对象的属性不正确的是（ ）。

A、对象的属相一般有属性名和属性值 B、可以通过属性窗口设置属性的值 C、可通过程序代码设置属性的值

D、对象的所有属性值均可在设计时设置 34.有程序代码如下：Text1.Text = \程序设计\则Text1，Text和\程序设计\分别代表（ ）。

A、对象，值，属性B、对象，方法，属性 C、对象，属性，值D、属性，对象，值 35.以下叙述中正确的是（ ）。

A、窗体的Name属性指定窗体的名称、用来标识一个窗体 B、窗体的Name 属性的值是显示在窗体标题栏中的文本 C、可以在运行期间改变对象的Name属性的值 D、对象的Name属性值可以为空

36.要在命令按纽上显示图形，应首先设置的属性是（ ）。 A、EnabledB、Style C、CaptionD、Icon

37文本框的ScrollBars属性设置为非零值，却没有效果，原因是（ ）。 A、文本框中没有内容

B、文本框的MultiLine属性值为True C、文本框的MultiLine属性值为False D、文本框的Locked属性值为True

38.VB中控件主要分为三类，下面哪一种不是VB中的控件类（ ）。 A、标准控件B、ActiveX C、可插入对象D、外部控件

39.在设计动画时，用时钟控件来控制动画速度的属性是（ ）。 A、EnabledB、Interval

3

C、TimerD、Move

40.Timer控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件，需要设置的属性是（ ）。

A、Interval=0或Enabled=False B、Interval=0或Visible=False C、Visibl=False 或Enabled=False D、Interval=0且Enabled=False

41. VB程序中通常不会产生错误提示的是（ ）。 A、编译错误B、实时错误 C、运行时错误D、逻辑错误

42.VB程序的编译错误一般可通过VB集成环境的（ ）设置。 A、要求变量声明B、自动语法检测

C、自动显示快速信息D、根本无法自动检测 43.VB程序中设置断点的按键是（ ）。 A、F5键B、F6键 C、F9键D、F10键 44.在Visual Basic中，如果一个变量未作类型声明而直接使用，则该变量的数据类型是（ ）。 A、字符串型B、数值型

C、变体类型D、可以是任何类型

45.下列关于变量的说法不正确的是（ ）。

A、局部变量是指那些在过程中用Dim语句或Static语句声明的变量 B、局部变量的作用域仅限于声明它的过程

C、静态局部变量是在过程中用Static语句声明的 D、局部变量在声明它的过程执行完毕后就被释放了 46.按照变量的作用域可将变量划分为（ ）。 A、公有、私有、系统

B、全局变量、模块级变量、过程级变量 C、动态、常数、静态

D、Public、 Private、 Protected

47.在一行语句内写多条语句时，每个语句之间用（ ）符号分割。 A、，B、： C、、D、；

48.对于窗体级变量，下列说法中错误的是（ ）。 A、所在窗体的各子程序都可以访问 B、其他窗体的子程序不能访问

C、所在窗体的子程序不能访问用Private定义的窗体级变量 D、一定要在所在窗体的通用区内定义

49.以下关于变量作用域的叙述中，正确的是（ ）。

A、窗体中凡被声明为Private的变量只能在某个指定的过程中使用 B、全局变量必须在标准模块中声明

C、模块级变量只能用Private关键字声明

D、Static类型变量的作用域是它所在的窗体或模块文件 50.下列叙述中正确的是（ ）。

A、在窗体的Form_Load事件过程中定义的变量是全局变量 B、局部变量的作用域可以超出所定义的过程

C、在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程

D、在调用过程时，所有局部变量被初始化为0或空字符串

51.使用Public Const语句声明一个全局的符号常量时，该语句应放在（ ）。 A、过程中

B、窗体模块的通用声明段

4

C、标准模块的通用声明段

D、窗体模块或标准模块的通用声明段

52.表达式4 + 19 \\ 6 * 7 / 8 Mod 2的值是（ ）。 A、4B、5 C、6D、D．7

53.在Visual Basic中，下列优先级最高的是（ ）。 A、*B、\\ C、

54.语句Print 5*5\\5/5的输出结果是（ ）。 A、5B、25 C、0D、1

55.如果仅需要得到当前系统时间，则可以使用的函数是（ ）。 A、TimeB、Year C、NowD、Date

56.Right(〞ABCDEFG〞,3)的执行结果是( )。 A、ABCB、EFG C、DEFD、CDE

57.(0分) 【SN：124406】 【难度：0.5】 【状态： 完成待审核 】 用于获得字符串长度的函数是（ ）。 A、Len()B、Length()

C、StrLen()D、StrLength()

58.赋值语句：a = 123 + MID(“123456”,3,2)执行后，a变量中的值是（ ）。 A、123B、34 C、12334D、157

59. 执行语句Label1.Captin=”Visual Basic”之后，标签控件的Name属性和Caption属性值是（ ）。

A、Label1 Label1

B、Label1 Visual Basic C、Label1 Caption D、Caption Label1

60.在Print方法中，为了使数据以紧凑格式输出，应在输出项之间加入的分隔符是（ ）。 A、逗号B、分号 C、空格D、顿号

61.若果X的值小于或等于Y的平方，则打印“OK”,表示这个条件的单行格式IF语句是（ ）。 A、If x <= y2 Then Print \B、If x <= y2 Print \C、If x <= y^2 Then \

D、If x <= y^2 Then Print \

62.由“For I = 1 To 16 Step 3”决定的循环结构被执行（ ）次。 A、4B、5 C、6D、7

63.Do Until?Loop循环命令的功能是( )。

A、先进入循环执行语句段落后,再判断是否再进入循环 B、先进入循环执行语句段落后, 再判断是否不再进入循环 C、执行前先判断是否不满足条件,若不满足才进入循环 D、执行前先判断是否不满足条件,若满足才进入循环 64.下列叙述不正确的是（ ）。

A、注释语句是非执行语句，仅对程序的有关内容起注释作用，客观存在不被解释和编译 B、注释语句可以放在代码中的任何位置 C、注释语句不能放在代码中的任何位置

D、代码中加入注释语句的目的是提高程序的可读性

5

65. 一句语句要在下一行继续写，用（ ）符号作为续行符。 A、+B、- C、_D、?

66.多窗体程序是由多个窗体组成，在缺省情况下，VB在应用程序执行时，总是把（ ）指定为启动窗体。

A、不包含任何控件的窗体B、设计时的第一个窗体 C、包含控件最多的窗体D、命名为Frm1的窗体 67.以下叙述中错误的是（ ）。

A、一个工程中只能有一个SubMain过程

B、窗体的Show方法是将指定的窗体装入内存并显示该窗体 C、窗体的Hide方法和Unload语句作用效果相同

D、如工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体 68.以下描述正确的是（ ）。

A、标准模块中的任何过程都可以在整个工程范围内被调用

B、在一个窗体模块中可以调用在其它窗体中被定义为Public的通用过程 C、如果工程中包含Sub Main过程，则程序将首先执行该过程

D、如果工程中不包括含Sub Main 过程，则程序一定首先执行第一个建立的窗体 69.在VB工程中，可以作为启动对象的是（ ）。 A、任何窗体或标准模块 B、任何窗体或过程

C、Sub Main过程或其他任何模块 D、Sub Main过程或任何窗体

70.如果要在程序中显示一个弹出式菜单，那么要调用Visual Basic中提供的方法是（ ）。 A、PrintB、Move

C、RefreshD、PopupMenu

71.当单击工具栏上的按扭时，会触发的事件是（ ）。 A、ButtonClickB、Change C、LoadD、KeyPress

72.在下列关于菜单的说法中，错误的是（ ）。

A、每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件 B、除了 Click事件之外，菜单项还能响应其他如 DbClick等事件 C、菜单项的快捷键不能任意设置

D、在程序执行时，如果菜单项的Enable属性为False，则该菜单项变成灰色，不能被用户选用

73.复选框对象是否被选中，是由其（ ）属性决定的。 A、CheckedB、Value C、EnabledD、Selected

74. 在列表框的诸多属性中，用来列出列表框项目的内容是（ ）。 A、List属性B、Listcount属性 C、Listdex属性D、Text属性

75.将数据项“China”添加到列表框（List1）中成为第1项应使用的语句是（ ）。 A、List1.AddItem “China” ,0 B、List1.AddItem “China” ,1 C、List1.AddItem 0“China” D、List1.AddItem1“China”

76.将通用对话框CommondDialog1的类型设置成“另存为”对话框，可调用该控件的（ ）方法。

A、ShowOpenB、ShowSave C、ShowColorD、ShowFont

77.通常用户自己编写的对话框，窗体最好是大小不变的，应该设置窗体的（ ）属性。 A、ScaleWidth和ScaleHeight

6

B、BorderStyle C、AutoSize D、ScaleMode

78.以下叙述中错误的是（ ）。

A、在程序运行时，通用对话框控件是不可见的

B、在同一个程序中，用不同的方法（如ShowOpen或ShowSave等）打开的通用对话框具有不同的作用

C、调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件 D、调用通用对话框控件的ShowColor方法，可以打开颜色对话框 79. 数组可以分为静态数组和动态数组两类，主要区别在于：静态数组在编译时要开辟内存区，而动态数组在（ ）时才开辟内存区。 A、窗体制作B、运行

C、控件属性设置D、编写代码

80.如下数组声明语句，正确的是（ ）。 A、Dim a[3,4] As Integer B、Dim a(3,4) As Integer C、Dim a(n,n) As Integer D、Dim a(3 4) As Integer

81.Dim A(1 To 6, 6) As String定义的数组包含的元素个数是（ ）。 A、36B、49 C、42D、50

82.设用复制\\粘贴的方法建立一个命令按钮数组Commandl,以下对该数组的说法错误的是( )。

A、命令按钮的所有Caption属性都是Commandl

B、在代码中访问任意一个命令按钮只需使用名称Commandl C、命令按钮的大小都相同

D、命令按钮共享相同的事件过程.

83.调用Sub过程时，使用（ ）语句，该语句用于把程序控制传送到一个Visual Basic的Sub过程。

A、FactB、Click C、FunctinD、Call

84.Sub过程与 Function过程最根本的区别是（ ）。

A、Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以。 B、Function过程可以有参数，Sub过程不可以。 C、两种过程参数的传递方式不同。

D、Sub过程的过程名不能返回值，而Function过程能够通过过程名返回值。 85.在过程中用（ ）来表示形参的传值。 A、VarB、ByRef C、ByValD、Value

86.过程调用时，下列关于形参与实参之间数据传递的原则说法正确的是（ ）。 A、按实参和形参同名的原则 B、按实参和形参位置对应的原则

C、按实参和形参个数相同并且类型也对应的原则

D、按实参和形参不仅位置对应，而且类型也对应的原则 87.下列关于SUB过程的叙述正确的是（ ）。 A、一个SUB过程必须有一个Exit Sub语句 B、一个SUB过程必须有一个End Sub语句 C、在SUB过程中可以定义一个Function过程 D、可以用GoTo语句强制退出SUB过程 88.下列关于过程叙述不正确的是（ ）。

A、过程的传值调用是将实参的具体值传递给形参

7

B、过程的传址调用是将实参在内存的地址传递给形参

C、过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的 D、无论过程的传值调用还是过程传址调用，参数传递都是双向的

89.与键盘操作有关的事件有keyPress、KeyUp和KeyDown事件，这三个事件执行的顺序是（ ）。

A、KeyDown、keyPress、KeyUp B、KeyDown、KeyUp、keyPress C、keyPress、KeyDown、KeyUp D、没有规律

90.为了使目录路径列表框Dir1的内容符合驱动器列表框Drive1的选择，应当（ ）。 A、在Dir1_Change事件中加入Dir1.Path = Drive1.Drive B、在Drive1_Change事件中加入Dir1.Path = Drive1.Drive C、在Dir1_Change事件中加入Drive1.Path = Dir1.Path D、在Drive1_Change事件中加入Drive1.Path = Dir1.Path 91.目录列表框的Path属性的作用是（ ）。 A、显示当前驱动器或指定驱动器上的路径

B、显示当前驱动器或指定驱动器上的某目录下的文件名 C、显示根目录下的文件名 D、只显示当前路径下的文件

92.在文件列表框中设定“文件列表”中显示的文件类型应修改该控件的（ ）属性。 A、PathB、Pattern C、NameD、FileName

93. 在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与其同步改变。设置两个控件同步的命令放在一个时间过程中，这个事件过程是( )。

A、Drive1 ClickB、Drive1 Change C、Dri1 ClickD、Dri1 Change

94.目录列表框用来显示当前驱动器下目录结构。刚建立时显示当前驱动器的顶层目录和当前目录，如果要显示其他驱动器上的目录信息，必须改变路径，即重新设置目录列表框的（ ）属性。

A、ListCountB、Path

C、ListIndexD、List （index）

95.对于文件列表框，重新设置的（ ）属性，将引发Change事件。 A、PatternB、ListCount C、PathD、ListName

96.KILL语句在VB语言中的功能是（ ）。 A、清内存B、清病毒

C、删除磁盘上的文件D、清屏幕

97. 下列”CommonDialog1”控件程序代码，CommonDialog1.Action = 1,代表（ ）。 A、文件另存为B、打开文件 C、色彩D、打印

98.以下能判断是否到达文件尾的函数是( )。 A、BOFB、LOC C、LOFD、EOF

99.下列不是Visual Basic数据文件的是（ ）。 A、顺序文件B、随机文件 C、二进制文件D、数据库文件

100.可用来改变坐标度量单位的是（ ）。 A、Drawstyle属性B、DrawWidth属性 C、Scale方法D、ScaleMode属性

101.以下的属性和方法中，可重定义坐标系的是（ ）。

8

A、Drawstyle属性B、DrawWidth属性 C、Scale方法D、ScaleMode属性

102.执行Form1.Scale(10,-20)-(-30,20)语句后。Form1窗体坐标系x轴和y轴的正方向是（ ）。

A、向左和向下B、向右和向上 C、向左和向上D、向右和向下

103.矩形、三角形、正方形、圆形4种图形中，不能用Shape控件绘制的是（ ）。 A、矩形B、正方形 C、三角形D、圆形

104.使用Shape控件无法得到的图形是（ ）。 A、矩形B、圆形 C、椭圆D、扇形

105.下列对象中不能作为容器的是（ ）。 A、窗体B、Image控件

C、PictureBox控件D、Frame控件

106.为了使图片框PictureBox的大小自动适应图形的大小，应（ ）。 A、将其AutoSize属性值设置为True B、将其AutoSize属性值设置为False C、将其Stretch属性值设置为True D、将其Stretch属性值设置为False

107.为了使图像框Image中的图形自动适应图像框Image的大小，应（ ）。 A、将其AutoSize属性值设置为True B、将其AutoSize属性值设置为False C、将其Stretch属性值设置为True D、将其Stretch属性值设置为False

108.图像框（Image）和图片框（Picture）在使用时有所不同，以下叙述中正确的是（ ）。 A、图片框比图像框占内存少 B、图像框内还可包括其它控件

C、图片框有Stretch属性而图像框没有 D、图像框有Stretch属性而图片框没有 109.设置直线边框类型的属性是（ ）。 A、BorderStyle属性B、DrawWidth属性 C、ScaleMode属性D、ScaleWidth属性

110.下列关于PictureBox控件和Image控件的说法不正确的是（ ）。 A、PictureBox可以作为控件容器，因此比Image控件占用系统资源多 B、Image控件能自动调整大小以适应载入的图片

C、PictureBox除具有Image的所有特性外，还能作为容器 D、PictureBox控件能自动调整大小以适应其中的图形 111.下列说法不正确的是（ ）。

A、Form、PictureBox、Frame都可以作为控件容器

B、任何对象的坐标都是以其所在的容器的坐标系统为准的

C、可以容纳图片文字等的控件都是容器，如PictureBox、Image

D、PictureBox与Image的最大区别是前者可以作为容器，而后者不能。 112. 为了清除图片框Picture1中的图形，应采取的正确方法是（ ）。 A、选择图片框，然后按Del键

B、执行语句Picture1.Picture = LoadPicture(\C、执行语句Picture1.Picture = \

D、选择图片框，在属性窗口中选择Picture属性条，然后按回车键 113.Cls可清除窗体或图形框中的内容是（ ）。 A、Picture属性设置的背景图案 B、在设计时放置的控件

9

C、程序运行时产生的图形和文字 D、在设计时添加的文字

114.使用Line方法画直线后，当前坐标在（ ）。 A、（0，0）B、直线起点 C、直线终点D、容器的中心

115.Line(200,200)-Step(500,500)将在窗体（ ）画一直线。 A、（200，200）到（500，500） B、（200，200）到（300，300） C、（200，200）到（700，700） D、（300，300）到（500，500）

116.执行指令\后，CurrentX＝（ ）。 A、200 B、500 C、300 D、700

117.下面选项中，能绘制一条水平直线的选项是（ ）。 A、Line (1000, 2000)-(1000, 2000) B、Line (1000, 2000)-(1000, 3000) C、Line (1000, 2000)-(2000, 2000) D、Line (1000, 2000)-(2000, 3000)

118.为了在运行时把当前路径下的图形文件picturefile.jpg装入图片框Picture1，所使用的语句为（ ）。

A、Picture1. Picture = LoadPrcture（\） B、Picture1. Picture = LoadPrcture（picturefile.jpg） C、Picture. Picture = LoadPrcture（picturefile.jpg） D、Picture. Picture = LoadPrcture（\） 119. 在下列选项中，不能将图像装入图片框和图像框的是（ ）。 A、在界面设计时，通过Picture属性装入

B、在界面设计时，手工在图像框和图片框中绘制图形 C、在界面设计时，利用剪贴板把图像粘贴上

D、在程序运行期间，用LoadPicture函数把图形文件装入 120.WinsockServer.LocalPort = 10001语句的含义是（ ）。 A、设置侦听端口

B、设置计算机IP地址 C、设置中断地址 D、设置通讯协议

121.一旦数据到达，将首先触发Winsock控件的（ ）。 A、DataArrival事件

B、ConnectionRequest事件 C、DataSend事件 D、DataGet事件

122.属于VB数据库引擎的是（ ）。 A、ODBC B、BDE

C、Jet引擎 D、OLE DB

123.ADO对象模型时，使Recordset和Connection对象建立连接的属性是（ ）。 A、OpenB、Execute

C、ActiveConnectionD、CommandType

124.对象模型含有七种对象，其中用于建立一个和数据源的连接的对象是（ ）。 A、Command

10

B、Connection C、Recordset D、Field

125.数据对象模型中采用OLE DB访问数据库的是（ ）。 A、DAOB、RDO

C、ADOD、RDO和ADO

126.DOrs为Recordset对象，从“学生基本情况表”中获取所有记录的语句是（ ）。 A、ADOrs.New \学生基本情况表\B、ADOrs.Open \学生基本情况表\C、ADOrs.Execute \学生基本情况表\D、ADOrs.Select \学生基本情况表\127.序中添加一个命令按钮，并编写如下程序代码： Private Sub Command1_Click() x = \ z = x + y p = Val(z) Print p End Sub

程序运行后，单击命令按钮后的输出结果为（ ）。 A、12.34B、56.78 C、69.12D、12.3456

128.下面程序的循环次数是（ ）。 For i = 10 To 40 Step 6 Print i Next i A、4B、5 C、6D、7

129.下列程序段的执行结果是（ ）。 k = 0

For i = 1 To 3 a = i ^ i ^ k Print a; Next i

A、1 1 1B、1 4 9 C、0 0 0D、1 2 3 130. 在代码中定义了一个子过程 Sub p(a,b) ?

End Sub

下面调用该过程的正确的语句格式是（ ）。 A、Call p

B、Call p 10,20 C、Call p (10,20) D、p (10,20)

二、判断题

1.由Visual Basic语言编写的应用程序有解释和编译两种执行方式。( ) 2. VB6.0用于开发任何环境下的应用程序。( )

3.在事件驱动的应用程序中，代码是按照预定的路径执行的。（） 。

11

4.在打开一个VB工程后，当要另存为一个版本时,单击“工程另存为?”即可，因为同时会保存窗体文件。（）

5.打开一个工程时，系统不会自动载入与该工程有关的窗体、标准模块等文件类型。( ) 6. 在Visual Basic中将一些通用的过程和函数编写好并封装，作为方法供用户直接调用。（）

7. MsgBox函数建立的信息框既能显示信息又能输入用户信息。( ) 8. Print方法的缺省对象是当前窗体。（）

9.用InputBox函数设计的对话框，其功能是能接收用户输入的数据，并能返回用户输入的信息。（）

10.窗体的标题必须在程序启动前确定，在程序运行过程中窗体的标题是不能改变的。（） 11.窗体的Caption属性用来设置窗体的标题，在代码中可以用这个标题引用该窗体。（） 12. 窗体的Name属性的值是显示在窗体标题栏中的文本。（）

13. TextBox与Label有许多共同点，它们都能显示和输入文字。（） 14. 标签没有Change事件和SetFocus方法。（）

15.设置好窗体字体后，在窗体上建立控件，各控件的默认字体为窗体字体。（）

16.要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK！时，应当编写的语句是txtshow.text=\！\。（）

17. 计时器控件在Visual Basic应用程序启动后自动计时，无法暂停或关闭。（）

18. 计时器开始计时后，每经过一段按照Interval属性设定时间间隔，会自动触发一次Timer事件并且重新计时。（）

19. 通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上。（） 20. 过程中的静态变量是局部变量，当过程被再次执行时，它的值是上一次过程调用后的值。（）

21.在标准模块的“通用部分”用Dim或Private语句声明的变量称为模块变量。（） 22. 全局变量在整个应用程序中有效，一般在标准模块中使用Public语句声明。（） 23. 数学关系3≤x<10表示成正确的Visual Basic表达式为3 <= x And x < 10。（） 24.在循环体内，循环变量的值不能被改变。（）

25. For?Next循环正常（未执行Exit For）结束后，控制变量的当前值等于终值。（） 26.在Do?Loop循环语句中，若要强制退出循环，使用的退出语句是Exit Do（） 27. Do?Loop While结构中的循环体至少被执行一次。（）

28. Do?Loop Until结构的循环，是“先判断、后执行（循环体）”的循环结构。（） 29. 在Visual Basic语言中有三种形式的循环结构。其中，若循环的次数可以适先确定，可使用For 循环；若要求先判断循环进行的条件，可使用While循环或Do 循环。 30. Sub main 过程必须在标准模块窗口中建立。

31.为了把一个窗体装入内存，所使用的语句为Load，而为了清除内存中指定的窗体，所使用的语句为Unload。

32.如果工程中含有Sub Main过程，则程序一定首先执行该过程。（）

33. 设计菜单中的每一个菜单项分别是一个控件，每个控件都有自己的名字和事件。（） 34.当列表框中的表项太多、超出了设计的长度时，VB会自动给列表框加上垂直滚动条。（） 35.列表框和文本框一样均没有Caption，但都具有Text属性。（） 36.执行List1.List(List1.ListCount)=”80”语句后，List1列表框会增加一个“80” 表项。（）

37.为组合框Combo1增加一个数据项“计算机”，使用的语句是：Combo1.AddItem = \计算机\。（）

38. CommonDialog控件就像Timer一样在运行时是看不见的。（）

39. 控件数组共用一个控件名，但具有不同的属性，它们的事件过程也不相同。（） 40. 数组元素中的下标的个数称为数组的维数。（）

41. 在Visual Basic中,用Dim定义数组时数组元素也自动赋初值为0。（） 42.用Dim A(3,-2 To 3)语句声明二维数组后，数组A的元素共有24 个。（）

43.在控件数组中，每一个控件都共享一个事件过程。在控件数组中，每一个控件都共享一个事件过程。（）

12

44.假定建立了一个Command1的命令按钮数组，则数组中每个命令按钮的 Caption属性都相同。（）

45.用Static定义变量语句在过程中定义了一个变量x,则x可以在该过程所有所在的模块运行期间一直存在。（）

46.所谓按址传递就是当过程被调用时，形参与实参共享同一个内存单元。（） 47. 子程序调用时，如果参数按址传递并且实际参数是变量，则子程序在执行时对形参的修改不会影响到对应传递的实参变量的内容。（）

48.用Public定义过程，能被定义它的窗体模块及标准模块中的语句、过程调用，也能被未定义Sub或Function过程的其他窗体模块和标准模块中的语句、过程调用。（）

49. Sub过程是通过形参与实参的传递得到结果不返回值，且Sub过程是一个独立的语句。（）

50.形参是用来接收传送给通用过程的数据；实参是将它们的数据（数值或地址）传送给Sub或Function过程与其对应的参数。（）

51.形式参数的数据类型可以为数值型、字符串型（包括定长和变长等）。（） 52. VB中默认的传递参数的机制是传址方式。（）

53.Sub过程与 Function过程最根本的区别是Sub过程的过程名不能返回值，而Function过程能够通过过程名返回值。（）

54. 在VB6.0中,当改变目录列表框的Path属性时,改变了当前驱动器的当前路径。（） 55.文件列表框与驱动器列表框、目录列表框一样,都能响应Change事件。文件列表框与驱动器列表框、目录列表框一样,都能响应Change事件。（）

56.目录列表框的Path属性，只能用程序代码设置，不能通过属性窗口设置。（） 57. 要读取一个磁盘文件，需要使用EOF函数来判断文件是否到达文件尾。（）

58.缺省的坐标系统都是从容器的左上角（0,0）坐标开始的，起始坐标不能改变，但刻度可以改变。（）

59.图片框的AutoSize属性和图像框的Stretch属性都能完整地显示图片，因此他们功能完全一样。（）

60. 利用图像框控件的Move方法和计时器能制作简单的动画。（） 61.设置Shape控件的Style属性可以绘制多种形状的图形。（）

62.Image控件和Picture控件都可以用LoadPicture函数把图形文件装入控件中。（） 63.当图片框PictureBox控件的AutoSize属性为Ture时，超过图片框尺寸的图片其超过部分会被图片框截去。（）

64. Cls方法可以清除窗体或图片框中在运行阶段产生的图形和文字。（） 65.使用Circle方法在窗体Form1上以（15,15）为圆心，10 为半径画园，具体形式为 Form1. Circle(15,15),10。（）

66. ADO是建在OLEDB之上的对象模型，是对OLEDB的封装。（）

67.在使用Delete方法删除当前记录后，记录指针位于被删除记录上。（） 68. ADO模型中一般可通过Conection对象的Execute方法执行增加、删除、修改SQL语句。（）

69.在VB6.0中，变量“Hello”和变量“HELLO”指的是不同的两个变量名。（）

三、程序阅读分析题（单选） 1.

Private Sub Form_Click() Dim x As Integer Static y As Integer x = x + 2 y = x + y

Form1.Print \End Sub

程序运行后三次单击窗体，Form1上的输出结果为（ ）。 A、x=2 y=2B、x=2 y=4

13

C、x=2 y=6D、x=6 y=6 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次单击Command按纽，且设输入的数据为5、4、3时，文本框Text1中显示的值为（ ）。 A、12B、20 C、60D、s=60 3.

Private Sub Command1_Click() Static x As Integer Static y As Integer Cls y = 1 y = y + 5 x = 5 + x Print x, y End Sub

程序运行后，单击命令按钮Command1三次后，窗体上显示的结果为（ ）。 A、15 16B、15 6 C、15 15D、5 6 4.

Private Sub Command1_Click() n = Text1.Text Select Case n

Case 1 To 20 x = 10 Case 2, 4, 6 x = 20 Case Is < 10 x = 30 Case 10

x = 40 End Select

Text2.Text = x End Sub

程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是（ ）。

A、10B、20

14

C、30D、40

5.Private Sub Command1_Click() Static y As Integer Cls

For i = 0 To 2 x = x + y y = y + 3 Next i Print x, y End Sub

程序运行后，连续二次单击Command1按钮后，窗体上显示的值是（ ）。 A、9 9B、30 12 C、36 18D、63 27 6.

Private Sub Command1_Click() Dim s As Double Dim i As Integer s = 5 i = 1

Do While i < 6 i = i + 2 s = s + i Loop

Text1.Text = s End Sub

程序运行后，单击命令按钮，在文件框Text1中的输出结果是（ ）。 A、13B、20 C、11D、18 7.

Private Sub Command1_Click() x = 0

Do While x < 60

x = (x + 2) * (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中显示的结果是（ ）。 A、72B、74 C、7D、16 8.

Private Sub Command1_Click() Static Sum As Integer Dim I As Integer I = 1 Do

15

Sum = Sum + I I = I + 1 Loop While I <= 5 Text1.Text = Sum Text2.Text = I End Sub

程序运行后，两次单击Command1按纽后，文本框Text1、Text2上的输出结果是（ ）。

A、10 5B、15 6 C、25 5D、30 6 9.

Private Sub Command1_Click() Static x As Integer Cls

For I = 1 To 2 y = y + x x = x + 2 Next I Print x, y End Sub

程序运行后，连续三次单击Command1按钮后，窗体上显示的是（A、4 2B、12 18 C、12 30D、4 6 10.

Private Sub Command1_Click() n = 0 j = 1

Do Until n > 2 n = n + 1

j = j + n * (n + 1) Loop

Print n; j End Sub

程序运行后，单击命令按钮，在窗体上显示的值是（ ）。A、0 1B、3 7 C、3 21D、3 13 11.

Private Sub Command1_Click() P = 0 s = 0 Do

P = P + 2 s = s + P Loop While P < 11 Print \End Sub

程序运行后，单击命令按钮，在窗体上显示的值是（ ）。A、S=42B、S=30 C、S=46D、S=20

16

）。 12.

Private Sub Command1_Click() x = 0

Do While x < 50

x = (x + 2) * (x + 3) n = n + 1 Loop

Text1.Text = Str(n) Text2.Text = Str(x) End Sub

程序运行后，单击Command1按钮，在两个文本框中显示的值分别为（ A、1 0B、2 72 C、3 50D、4 168 13.

Private Sub Command1_Click() x = 1: n = 0 Do While x < 100 x = x * 10 n = n + 1 Loop

Text1.Text = Str(n) Text2.Text = Str(x) End Sub

程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ ）。A、10 0B、2 100 C、3 50D、4 168 14.

Private Sub Form_Click() For i = 1 To 10 Step 2 y = y + i Next i Print i End Sub

程序运行后，单击窗体，在窗体上显示的值是（ ）。 A、25B、10 C、11D、9 15.

Private Sub Form_Click() I = 0

For G = 10 To 19 Step 3 I = I + 1 Next G Print I End Sub

程序运行后，单击窗体，在窗体上显示的值是（ ）。 A、4B、5 C、3D、6

17

）。

16.

Private Sub Form_Click()

Dim c As Integer, j As Integer, k As Integer k = 1 c = 2

For j = 1 To 5 If j > 3 Then c = c + 5 Exit For Else

k = k + 1 End If Next j Print c, k End Sub

程序运行后，单击窗体，在窗体上显示的c,k的值分别是（ A、7 3B、7 4 C、2 4D、7 5 17.

Private Sub Form_Click()

Dim I As Integer, j As Integer Dim c As Integer c = 0

For I = 1 To 3 For j = 1 To 2 c = c + 3 Next j Next I Print c End Sub

程序运行后，单击窗体，在窗体上显示的结果是（ ）。A、18B、15 C、12D、9 18..

Private Sub Form_Click()

Dim i As Integer, k As Integer, c As Integer For i = 1 To 5

If i Mod 2 = 0 Then k = k + 2 Else

c = c + 3 End If Next i Print k, c End Sub

程序运行后单击窗体，Form1上的输出结果是（ ）。 A、2 12B、4 9 C、4 6D、2 9

18

）。 19.

Private Sub Command1_Click()

Dim i As Integer, n As Integer For i = 0 To 50 i = i + 3 n = n + 1

If i > 10 Then Exit For Next i

Text1.Text = Str(n) End Sub

程序运行后，单击命令按钮，在文本框中显示的值是（ A、2B、3 C、4D、5 20.

Private Sub Form_Click()

Dim i As Integer, k As Integer, c As Integer For i = 1 To 10

If i Mod 2 = 0 Then k = k + 3 Else

c = c + 4 End If Next i Print k, c End Sub

程序运行后，单击窗体，在窗体上显示的值是（ ）。A、10 20B、20 15 C、15 20D、10 30 21.

Private Sub Form_Click()

Dim c As Integer, j As Integer, k As Integer k = 1 c = 2

For j = 1 To 5

If j > 3 Then c = c + 6 Exit For Else

k = k + 3 End If Next j Print c, k End Sub

程序运行后，单击窗体，在窗体上显示的值是（ ）。A、10 8B、8 10 C、8 7D、8 4 22.

19

）。 Private Sub Form_Click()

Dim i As Integer, k As Integer Static c As Integer For i = 1 To 6

If i Mod 2 = 0 Then k = k + 2 Else

c = c + 3 End If Next i Print k, c End Sub

程序运行后，连续两次单击窗体，在窗体上显示的值是（ A、6 12B、6 24 C、6 9D、6 18 23.

Private Sub Form_click() b = 1

Do While b < 40 b = b * (b + 1) Loop Print b End Sub

程序运行后，单击窗体，在窗体上显示的值为（ ）。 A、42B、39 C、6D、1 24.

Private Sub Form_Click() Dim A(1 To 3) As String Dim c As Integer Dim j As Integer A(1) = \ A(2) = \ A(3) = \ c = 1

For j = 1 To 3

c = c + Val(A(j)) Next j Print c End Sub

程序运行后，单击窗体，在窗体上显示的值是（ ）。A、10B、19 C、16D、17 25.

Private Sub Command1_Click() Dim A(1 To 5) As Integer Dim x As Integer For i = 1 To 5

20

）。

A(i) = i Next i i = 1

Do While x < 6 A(i) = A(i) + x x = x + 2 i = i + 2 Loop

Text1.Text = A(3) Text2.Text = A(5) End Sub

程序运行后，单击命令按钮，在两个文本框中显示的值是（ ）。 A、5 9B、5 4 C、9 5D、4 5 26.

Private Sub Command1_Click() Dim A(1 To 5) As Integer Dim x As Integer For i = 1 To 5 A(i) = i Next i i = 1

Do While x < 2

A(i) = A(i) * x x = x + 1 i = i + 1 Loop

Text1.Text = A(1) Text2.Text = A(2) End Sub

程序运行后，单击Command1后按钮，文件框Text1、Text2中的结果是（A、2 0B、0 2 C、2 4D、2 5 27.

Private Sub Command1_Click() Dim M(5)

For I = 1 To 5 M(I) = I * I Next I

Print M(I - 1) End Sub

程序运行后，单击命令按钮，在窗体上显示的值是（ ）。 A、5B、25 C、05D、16 28.

Sub Change(x As Integer, y As Integer) Dim t As Integer t = x

21

）。 x = y y = t

Print x, y End Sub

Private Sub Form_Click()

Dim a As Integer, b As Integer a = 30: b = 40 Change a, b Print a, b End Sub

程序运行后，单击窗体，在窗体上显示的值是（ ）。 A、

30 40 30 40 B、

30 40 40 30 C、

40 30 40 30 D、

40 30 30 40 29.

Sub test(i As Integer) i = i + 4 End Sub

Private Sub Form_Click() Dim x As Integer x = 5

Print \ Call test(x) Print \End Sub

程序运行后,单击窗体，在窗体上显示的值是（ A、x= 5 x= 9 B、x= 9 x= 5 C、 x= 5 x= 9

D、9 5 30.

Function F(a As Integer) Dim b As Integer Static c As Integer b = b + 2 c = c + 3 F = a + b + c End Function

22

）。 Private Sub Command1_Click() Dim a As Integer a = 4

For i = 1 To 3 Print F(a); Next i End Sub

程序运行后,单击窗体，在窗体上显示的值是（ ）。 A、9 9 9 B、9 12 15 C、9 14 19 D、9 11 13 31.

Private Sub Form_Click() Dim x, y As Integer x = 5: y = 10 nc x, y Print x, y End Sub

Private Sub nc(ByVal a%, b%) a = a + b b = a a = a * b End Sub

程序运行后,单击窗体，在窗体上显示的值是（ A、5 15 B、15 15 C、225 15 D、5 10 32.

Sub abcd(ByVal n As Integer) n = n + 5 End Sub

Private Sub Form_click() nx% = 3

Call abcd(nx%) Print nx% End Sub

程序运行后,单击窗体，在窗体上显示的值是（ A、5 B、3 C、9 D、10 33.

23

）。 ）。 Dim y As Integer

Private Sub form_click() Dim x As Integer x = 1 y = 2

Call AA(y + 1) z = BB(x) Print x, y, z End Sub

Public Sub AA(ByVal z As Integer) y = z + x z = x + y End Sub

Public Function BB(ByRef y As Integer) y = y + 1 BB = x + y End Function

程序运行后,单击窗体，在窗体上显示的值是（ ）。 A、2 2 2 B、2 3 2 C、3 2 3 D、2 3 3

答案

一、单选题

1．B 2．C 3．A 4．D 5．B 6．D 7．C 8．D 9．A10．C 11．D 12．C 13．B 14．A 15．C 16．B 17．B 18．A 19．B20．B 21．C 22．D 23．B 24．A 25．C 26．B 27．B 28．B 29．A 30．A 31．D 32．B 33．D 34．C 35．A 36．B 37．C 38．D 39．B40．A 41．D 42．B 43．C 44．C 45．D 46．B 47．B 48．C 49．B 50．C 51．C 52．B 53．A 54．B 55．A 56．B 57．A 58．D 59．B60．B61．D 62．C 63．C 64．B 65．C 66．B 67．C 68．B 69．D 70．D 71．A 72．B 73．B 74．A 75．A 76．B 77．B 78．C 79．B80．B 81．C 82．B 83．D84．D 85．C 86．D87．B 88．D 89．A 90．B 91．A 92．B 93．B 94．B 95．C 96．C 97．B 98．D 99．D 100．D 101．C 102．A 103．C 104．D 105．B106．A 107．C 108．D 109．A 110．C 111．C 112．B 113．C 114．C 115．C116．C 117．C 118．A 119．B 120．A 121．A 122．B 123．C124．B 125．C126．B127．D128．C 129．A130．C

二、判断题

1．? 2. × 3．× 4．× 5．× 6．? 7．× 8．? 9．? 10．× 11．× 12. × 13．×14．? 15．? 16．? 17．? 18．? 19．× 20．? 21．? 22. ? 23．? 24．× 25．× 26．?27．? 28．× 29．? 30．? 31．? 32. × 33．? 3 4．? 35．? 36．? 37．? 3 8．? 39．× 40．× 41．× 42. ? 43．? 44．× 45．? 46．? 47．× 48．? 49．? 50．? 51．× 52. ?53．? 54．? 55．× 56．? 57．? 58．× 59．× 60．?61．× 62.? 63．× 64．? 65．× 66．? 67．× 6 8．? 69．×

24

三、程序阅读分析题（单选） 1．B 2．D 3．B 4．A 5．C 6．B 7．B 8．D 9．B10．D 11．A 12．B 13．B 14．C 15．A 16．B 17．A 18．B 19．B20．C 21．B 22．D 23．A 24．B 25．A 26．B 27．B 28．C 29．C 30．B 31．A 32．B 33．B

25

本文来源：https://www.bwwdw.com/article/0zfr.html