所有是非题

1、文本框中显示的内容可根据文本框的大小自动换行。 答案： 错误

等级：2 难度：2

知识点：VB知识点/对象属性的设置 2、文本框的SelText属性只能在程序中进行设置和返回。 答案： 正确

等级：3 难度：3

知识点：VB知识点/对象属性的设置 3、若要使某命令按钮获得控制焦点，可使用GotFocus方法来设置。 答案： 错误

等级：3 难度：3

知识点：VB知识点/VB的对象、属性、方法和事件

4、使用Move方法的对象可以是除时钟、菜单以外的所有控件，省略对象时默认为窗体。 答案： 正确

等级：3 难度：3

知识点：VB知识点/VB的对象、属性、方法和事件

5、VB中的变量必须先声明才可使用。 答案： 错误

等级：1 难度：1 知识点：VB知识点/常量与变量 6、Dim a1,a2 As Integer 语句显式声明变量a1和a2都为整型变量。 答案： 错误

等级：1 难度：1 知识点：VB知识点/常量与变量 7、函数Len(\d\的值是5。

答案： 错误

等级：2 难度：2

知识点：VB知识点/常用内部函数 8、可以同时删除字符串前导和尾部空白的函数是Trim。 答案： 正确

等级：3 难度：3

知识点：VB知识点/常用内部函数 9、在VB中，运算 \> \的结果是True。 答案： 正确

等级：2 难度：2

知识点：VB知识点/运算符及表达式 10、计时器（Timer）控件的Interval属性的单位是毫秒，即若将此属性值设为10，则每0.01秒产生一次Timer事件。

答案： 正确

等级：3 难度：3 知识点：VB知识点/时钟控件

11、假设A=10：B=8：C=6则表达式：AC）的值为True。 答案： 错误

等级：1 难度：1

知识点：VB知识点/运算符及表达式 12、VB中不随时间改变的量是常量。如\Basic\是字符串常量，123.456@,&H7FFFF是数值常量，

5/22/99是日期/时间常量。 答案： 错误

等级：2 难度：2 知识点：VB知识点/常量与变量 13、#6/12/1999#是一个日期常量。

答案： 正确

等级：1 难度：1

知识点：VB知识点/基本数据类型 14、VB中在书写程序的时候可以使用续行符，它是由空格和下划线组成的。 答案： 正确

等级：1 难度：1

知识点：VB知识点/程序书写规则及格式约定

15、函数Int（-4.98）的返回值为：-4。

答案： 错误

等级：1 难度：1

知识点：VB知识点/常用内部函数 16、假设a$=\，则函数Left（a，4）的返回值为：\。 答案： 正确

等级：1 难度：1

知识点：VB知识点/常用内部函数 17、假设a$=\，则函数Right（a，4）的返回值为：\。 答案： 错误

等级：1 难度：1

知识点：VB知识点/常用内部函数 18、假设a$=\，则函数Mid（a，2，4）的返回值为：\。 答案： 错误

等级：3 难度：3

知识点：VB知识点/常用内部函数 19、假设a$=\，则函数Mid（a，2）的返回值为：\。 答案： 正确

等级：3 难度：3

知识点：VB知识点/常用内部函数 20、假设a$=\，则函数Len（\）的返回值为：10。 答案： 错误

等级：2 难度：2

知识点：VB知识点/常用内部函数 21、注释语句可以以Rem开头，这些语句可以放在程序代码的任意位置。

答案： 错误

等级：2 难度：2

知识点：VB知识点/程序书写规则及格式约定

22、表达式：36.51 Mod 3 +2^5\\3的值是12。 答案： 错误

等级：3 难度：3

知识点：VB知识点/运算符及表达式

23、表达式：\的值为579。

答案： 正确

等级：2 难度：2

1

知识点：VB知识点/运算符及表达式 24、函数Ucase（s）的功能是使参数s中所有的大写字母转换成小写字母。

答案： 错误

等级：2 难度：2

知识点：VB知识点/常用内部函数 25、在调用随机函数Rnd（x）时，参数x必须每次都给定，否则如果反复运行一段同程序，同一系列的随机数会反复出现。 答案： 错误

等级：3 难度：3

知识点：VB知识点/常用内部函数 26、函数Val（\）的返回值为1645。

答案： 错误

等级：2 难度：2

知识点：VB知识点/常用内部函数 27、表达式：Sgn（Int（-3.14）+Int（3.14））的值为0。 答案： 错误

等级：3 难度：3

知识点：VB知识点/运算符及表达式 28、表达式：Len（\程序设计教程\）的值为：14。 答案： 错误

等级：3 难度：3

知识点：VB知识点/常用内部函数 29、表达式：Val（Len（\北京欢迎你！\））+10的值为：16。 答案： 正确

等级：2 难度：2

知识点：VB知识点/运算符及表达式 30、函数Chr（n）的功能是将n的值转换成对应的ASCII码字符，因此，返回值是一个字符串。 答案： 正确

等级：2 难度：2

知识点：VB知识点/常用内部函数 31、表达式0>（5>3）的值为 False。 答案： 错误

等级：3 难度：3

知识点：VB知识点/运算符及表达式 32、使用语句Const pi来定义一个符号常量，pi可以在这条语句之后进行赋值。

答案： 错误

等级：2 难度：2 知识点：VB知识点/常量与变量 33、在书写VB语句的时候，一行最多可以写1个语句。 答案： 错误

等级：1 难度：1

知识点：VB知识点/程序书写规则及格式约定

34、函数Val（\）的返回值为16。

答案： 正确

等级：2 难度：2

知识点：VB知识点/常用内部函数 35、对象的所有属性既能在设计阶段利用属性列表框进行设置，也能在程

序中通过程序代码进行设置。 答案： 错误

等级：1 难度：1

知识点：VB知识点/VB的对象、属性、方法和事件

36、VB是一种面向对象的程序设计语言。

答案： 正确

等级：1 难度：1 知识点：VB知识点/VB简介

37、在VB的工具箱中包括了所有的VB控件，我们不能再加载其他的控件。 答案： 错误

等级：1 难度：1

知识点：VB知识点/VB的安装与启动 38、所有的控件在程序运行以后都是可见的。

答案： 错误

等级：2 难度：2

知识点：VB知识点/VB的安装与启动 39、标签控件可以用来让用户输入数据。

答案： 错误

等级：2 难度：2

知识点：VB知识点/简单控件设计 40、单击并拖拽工具箱中所需的控件到窗体上即可完成添加控件任务。 答案： 错误

等级：1 难度：1

知识点：VB知识点/VB的编程环境 41、除了标准控件外，还可引入其它控件及第三方厂商研制的控件。 答案： 正确

等级：3 难度：3

知识点：VB知识点/VB的编程环境 42、TextBox与Label有许多共同特点，它们都能显示和输入文本。 答案： 错误

等级：2 难度：2

知识点：VB知识点/简单控件设计 43、窗体的Enabled属性值为False时，该窗体上的按钮、文本框等控件就不会对用户的操作做出反应。 答案： 正确

等级：2 难度：2

知识点：VB知识点/VB的编程环境 44、只要用拖拽的方法，将工具箱中所需的控件拖到窗体上即可完成。 答案： 错误

等级：1 难度：1

知识点：VB知识点/VB的编程环境 45、控件是对象，而窗体不是对象，它只是控件对象的窗口。 答案： 错误

等级：1 难度：1

知识点：VB知识点/简单控件设计 46、Visual Basic程序的运行，仅能从某一窗体启动，如Form1窗体。 答案： 错误

等级：3 难度：3

知识点：VB知识点/VB的编程环境 47、标签没有Change事件和SetFocus方法。

答案： 正确

等级：2 难度：2

知识点：VB知识点/简单控件设计 48、工程文件的扩展名是.vbg 。 答案： 错误

等级：1 难度：1

知识点：VB知识点/VB的工程管理和环境设置

49、在VB中可以同时打开多个工程。

答案： 正确

等级：1 难度：1

知识点：VB知识点/VB的工程管理和环境设置

50、要想给文本框加滚动条，则应将其MultiLine属性和

ScrollBars属性都设为True才能实现。

答案： 正确

等级：3 难度：3

知识点：VB知识点/简单控件设计 51、将焦点主动设置到指定的控件上应采用GetFocus方法。 答案： 错误

等级：1 难度：1

知识点：VB知识点/VB的对象、属性、方法和事件

52、对象是基本的运行实体，它既包括了数据(属性)，也包括作用于对象的操作(方法)和对象的响应动作(事件)。 答案： 正确

等级：1 难度：1

知识点：VB知识点/VB的对象、属性、方法和事件

53、属性是用来描述和反映对象特征的参数，不同的对象具有各自不同的属性，对象的所有属性都可以在属性窗口中设置。 答案： 错误

等级：1 难度：1

知识点：VB知识点/VB的对象、属性、方法和事件

54、通过改变属性窗口中的Name属性，可以改变窗体上显示的标题。

答案： 错误

等级：1 难度：1

知识点：VB知识点/对象属性的设置

55、VB的方法只用于完成某种特定功能而不能响应某个事件。 答案： 正确

等级：1 难度：1

知识点：VB知识点/VB的对象、属性、方法和事件

56、可以把属性看作是一个对象的性质。

答案： 正确

等级：1 难度：1

知识点：VB知识点/对象属性的设置

57、一个工程只能有一个窗体。

2

答案： 错误

等级：1 难度：1

知识点：VB知识点/VB的工程管理和环境设置

58、清空文本框可用Cls方法。 答案： 错误

等级：1 难度：1

知识点：VB知识点/VB的对象、属性、方法和事件

59、对象的Caption属性就是指对象的名称。

答案： 错误

等级：2 难度：2

知识点：VB知识点/VB的对象、属性、方法和事件

60、面向对象的三要素是：属性、事件和方法。 答案： 正确

等级：1 难度：1

知识点：VB知识点/VB的对象、属性、方法和事件

61、窗体的标题栏显示窗体的名称。 答案： 错误

等级：1 难度：1

知识点：VB知识点/简单控件设计 62、VB中最基本的对象是控件。 答案： 错误

等级：1 难度：1

知识点：VB知识点/VB的对象、属性、方法和事件

63、运行程序时，系统自动执行窗体的load事件。 答案： 正确

等级：1 难度：1

知识点：VB知识点/VB的对象、属性、方法和事件

64、保存VB应用程序时，只需保存窗体文件。

答案： 错误

等级：1 难度：1

知识点：VB知识点/VB的工程管理和环境设置

65、VB应用程序处于中断状态时不可编辑代码。 答案： 错误

等级：1 难度：1

知识点：VB知识点/VB的编程环境 66、在窗体窗口中，用鼠标双击窗体窗口的控件或窗体本身可以打开代码窗口。

答案： 正确

等级：1 难度：1

知识点：VB知识点/VB的编程环境 67、在工具箱窗口中，除指针外，每个工具按钮代表可在窗体上设计的一种控件，称为标准控件。 答案： 正确

等级：2 难度：2

知识点：VB知识点/VB的编程环境 68、在运行状态下也可显示工具箱窗口。

答案： 错误

等级：1 难度：1

知识点：VB知识点/VB的编程环境 69、文本框中显示的内容由文本框的Caption属性来设置。 答案： 错误

等级：1 难度：1

知识点：VB知识点/简单控件设计 70、利用函数Rnd只能产生（0，1）区间的单精度随机数。 答案： 错误

等级：3 难度：3

知识点：VB知识点/常用内部函数 71、所有的关系运算符的优先级别都相同。

答案： 正确

等级：1 难度：1

知识点：VB知识点/运算符及表达式 72、所有的逻辑运算符都是双目运算符，即所有的逻辑运算符的两端都要有操作数。 答案： 错误

等级：2 难度：2

知识点：VB知识点/运算符及表达式 73、在VB中，变量的名称区分大小写，即认为NR与nr是不同的两个变量。 答案： 错误

等级：1 难度：1 知识点：VB知识点/常量与变量 74、VB中有两种常量：直接常量和符号常量；两者的区别在于后者在程序运行过程中可以根据程序执行的要求改变该常量的值。 答案： 错误

等级：3 难度：3 知识点：VB知识点/常量与变量

75、逻辑型数据只有两个值：0和1。 答案： 错误

等级：1 难度：1

知识点：VB知识点/基本数据类型 76、要生成n~m之间的随机整数可以使用公式：Int((n-m+1)*Rnd+m)。 答案： 错误

等级：2 难度：2

知识点：VB知识点/运算符及表达式 77、函数Sgn（n）的返回值只有1和-1，分别表示参数n是大于零和小于零。

答案： 错误

等级：2 难度：2

知识点：VB知识点/常用内部函数 78、假设a=5,b=4,c=3,d=2。则表达式的3>2*b Or a=c And b<>c Or c>d值为：False。 答案： 错误

等级：3 难度：3

知识点：VB知识点/运算符及表达式 79、表达式：Str(Len(\+ Str(Val(\的值为6 6660。

答案： 正确

等级：3 难度：3

知识点：VB知识点/运算符及表达式 80、假设a$=\北京\，b$=\欢迎你！\，则a$+b$=\北京\欢迎你\。

答案： 错误

等级：1 难度：1

知识点：VB知识点/运算符及表达式

81、程序代码的基本结构有三种，分别是顺序结构、选择结构（分支结构）、循环结构。 答案： 正确

等级：1 难度：1 知识点：VB知识点/算法与结构 82、结构化程序由三种基本结构组成，输入、输出结构属于三种基本结构之一。 答案： 错误

等级：1 难度：1 知识点：VB知识点/算法与结构 83、程序代码的基本结构有三种，分别是选择结构、循环结构、递归结构。

答案： 错误

等级：1 难度：1 知识点：VB知识点/算法与结构 84、下面程序段运行后，显示的结果是1。 Dim x

If x Then Print x Else Print x + 1

答案： 正确

等级：3 难度：3

知识点：VB知识点/分支(选择)结构

85、在语句If x=1 Then y=1中，x=1和y=1均为赋值语句。 答案： 错误

等级：2 难度：2

知识点：VB知识点/分支(选择)结构

86、在语句If x=1 Then y=1中，x=1为关系表达式，y=1为赋值语句。

答案： 正确

等级：2 难度：2

知识点：VB知识点/分支(选择)结构

87、下面程序段运行后，显示的结果是0。 Dim x

If x Then Print x Else Print x + 1

答案： 错误

等级：2 难度：2

知识点：VB知识点/分支(选择)结构

88、If sex = \男\And duty = \教授\副教授\，该语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数。

答案： 错误

等级：2 难度：2

知识点：VB知识点/分支(选择)结构

3

89、If sex = \男\And age < 40 and (duty= \教授\副教授\Then n = n + 1，该语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数。 答案： 正确

等级：3 难度：3

知识点：VB知识点/分支(选择)结构 90、If y >= x Then Max = y，该程序段求两个数中的大数。 答案： 错误

等级：1 难度：1

知识点：VB知识点/分支(选择)结构 91、If x > y Then Max = x Else Max = y，该程序段求两个数中的大数。 答案： 正确

等级：2 难度：2

知识点：VB知识点/分支(选择)结构 92、max=iif（x>y,x,y）可以求出两个数中的较大数。 答案： 正确

等级：1 难度：1

知识点：VB知识点/分支(选择)结构 93、条件y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 = 0，可以判断某年份y是否为闰年。 答案： 正确

等级：3 难度：3

知识点：VB知识点/分支(选择)结构 94、Do While …Loop循环可能不执行，Do…Loop Until循环至少执行一次。

答案： 正确

等级：1 难度：1 知识点：VB知识点/循环结构

95、Do While …Loop循环至少执行一次，Do…Loop Until循环可能不执行。

答案： 错误

等级：2 难度：2 知识点：VB知识点/循环结构 96、Do While …Loop循环和Do…Loop Until循环可能都不执行。 答案： 错误

等级：3 难度：3 知识点：VB知识点/循环结构

97、算法是规则的集合，这些规则确定了解决某一问题的一个运算序列。 答案： 错误

等级：3 难度：3 知识点：VB知识点/算法与结构 98、算法是一个有穷规则的集合，这些规则确定了解决某一问题的一个运算序列。 答案： 正确

等级：3 难度：3 知识点：VB知识点/算法与结构 99、算法应在有限步骤内结束，应在有限的时间内终止。 答案： 正确

等级：3 难度：3 知识点：VB知识点/算法与结构 100、算法中的每一步操作都必须是

可执行的，并得到确定的结果。 答案： 正确

等级：3 难度：3 知识点：VB知识点/算法与结构 101、一个算法至少应该有0个以上的输入数据。 答案： 正确

等级：3 难度：3 知识点：VB知识点/算法与结构 102、任何算法至少应该有1个以上的输出结果。 答案： 正确

等级：3 难度：3 知识点：VB知识点/算法与结构 103、语句是程序中有明确意义的、能实现某一个简单功能的基本单位，也是构成程序的基本成分。 答案： 正确

等级：1 难度：1

知识点：VB知识点/程序书写规则及格式约定

104、通过三种控制结构（顺序结构、选择结构和循环结构）就可以实现任何程序的逻辑。 答案： 正确

等级：1 难度：1 知识点：VB知识点/算法与结构 105、三种控制结构（顺序结构、选择结构和循环结构）是组成各种复杂程序的基本元素，是结构化程序设计的基础。

答案： 正确

等级：2 难度：2 知识点：VB知识点/算法与结构 106、顺序结构是一种最简单的控制结构，在顺序结构中，算法的每一个操作是按从上到下的线性顺序执行的。

答案： 正确

等级：1 难度：1 知识点：VB知识点/顺序结构

107、根据情况选择执行的结构称为分支结构，它是根据给定的条件选择执行多个分支中的一个分支。 答案： 正确

等级：1 难度：1

知识点：VB知识点/分支(选择)结构 108、MsgBox函数返回值的类型是字符串。

答案： 错误

等级：1 难度：1

知识点：VB知识点/常用内部函数 109、InputBox函数返回值的类型是字符串。

答案： 正确

等级：1 难度：1

知识点：VB知识点/常用内部函数 110、x+y=30是正确的赋值语句。 答案： 错误

等级：1 难度：1 知识点：VB知识点/顺序结构

111、y=?*r*r是正确的赋值语句。 答案： 错误

等级：1 难度：1 知识点：VB知识点/顺序结构

112、y=x+30是正确的赋值语句。 答案： 正确

等级：1 难度：1 知识点：VB知识点/顺序结构 113、3y=x是正确的赋值语句。 答案： 错误

等级：1 难度：1 知识点：VB知识点/顺序结构 114、为了给x、y、z三个变量赋初值1，应书写如下的赋值语句x=1，y=1，z=1。 答案： 错误

等级：2 难度：2

知识点：VB知识点/程序书写规则及格式约定

115、赋值语句x=1：y=1：z=1，表示给x、y、z三个变量赋初值1。 答案： 正确

等级：2 难度：2

知识点：VB知识点/程序书写规则及格式约定

116、x=y=z=1是正确的赋值语句。 答案： 错误

等级：1 难度：1 知识点：VB知识点/顺序结构 117、For k = 1 to 40 Step 2表示该For语句循环执行了20次。 答案： 正确

等级：3 难度：3 知识点：VB知识点/循环结构

118、下面程序段显示 10 个\。 For i = 1 To 5 For j = 2 To i Print \Next j Next i

答案： 正确

等级：3 难度：3 知识点：VB知识点/循环结构 119、以下语句是正确的For … Next结构。

For x=1 To Step 10 … Next x

答案： 错误

等级：1 难度：1 知识点：VB知识点/循环结构 120、以下语句是正确的For … Next结构。

For x=3 To -3 Step -3 … Next x

答案： 正确

等级：1 难度：1 知识点：VB知识点/循环结构 121、以下语句是正确的For … Next结构。

For x=1 To 10 … Next y

答案： 错误

4

等级：1 难度：1 知识点：VB知识点/循环结构

122、下列循环结构能正常结束循环。 i = 10 Do i = i + 1

Loop Until i > 0 答案： 正确

等级：2 难度：2 知识点：VB知识点/循环结构

123、下列循环结构能正常结束循环。 i = 1 Do

i = i + 2

Loop Until i = 10 答案： 错误

等级：3 难度：3 知识点：VB知识点/循环结构

124、下列循环结构能正常结束循环。 i = 5 Do i = i + 1

Loop Until i < 0 答案： 错误

等级：3 难度：3 知识点：VB知识点/循环结构

125、以下程序段不能分别正确显示1！、2！、3！、4！的值。 For i = 1 To 4 For j = 1 To i n = 1

n = n * j Next j Print n Next i

答案： 正确

等级：3 难度：3 知识点：VB知识点/循环结构

126、以下程序段不能分别正确显示1！、2！、3！、4！的值。 For i = 1 To 4 n = 1 For j = 1 To i n = n * j Next j Print n Next i

答案： 错误

等级：3 难度：3 知识点：VB知识点/循环结构

127、赋值语句可以将指定的值赋给某个变量或将某个属性值赋给带有属性的对象。 答案： 正确

等级：2 难度：2 知识点：VB知识点/顺序结构

128、赋值语句中赋值号左边只能是变量或数组，不能是常量。 答案： 正确

等级：1 难度：1 知识点：VB知识点/顺序结构

129、一条赋值语句只能给一个变量赋值，不能给多个变量赋值。 答案： 正确

等级：2 难度：2 知识点：VB知识点/顺序结构

130、任何字符（包括汉字）均可放在注释行中作为注释内容。 答案： 正确

等级：1 难度：1

知识点：VB知识点/程序书写规则及格式约定

131、注释语句作为一个独立行，可放在过程、模块的开头作为标题，也可以放在执行语句的后面。 答案： 正确

等级：2 难度：2

知识点：VB知识点/程序书写规则及格式约定

132、执行一次InputBox函数，可以输入多个数据。 答案： 错误

等级：2 难度：2

知识点：VB知识点/常用内部函数 133、若要退出for循环，可使用Exit语句。

答案： 错误

等级：1 难度：1 知识点：VB知识点/循环结构

134、若要退出for循环，可使用Exit Do语句。

答案： 错误

等级：1 难度：1 知识点：VB知识点/循环结构

135、若要退出for循环，可使用Exit For语句。 答案： 正确

等级：1 难度：1 知识点：VB知识点/循环结构

136、顺序结构属于3种控制结构之一。

答案： 正确

等级：1 难度：1 知识点：VB知识点/顺序结构

137、VB中的赋值语句只能给变量赋值。

答案： 错误

等级：1 难度：1 知识点：VB知识点/顺序结构

138、VB中给对象的属性赋值可以通过赋值语句实现。 答案： 正确

等级：1 难度：1 知识点：VB知识点/顺序结构

139、设置对象的属性值可以在设计阶段利用属性列表框进行设置。 答案： 正确

等级：1 难度：1

知识点：VB知识点/VB的工程管理和环境设置

140、Text1.height=735是一条赋值语句。

答案： 正确

等级：1 难度：1 知识点：VB知识点/顺序结构 141、VB中用于产生输入对话框的函数是MsgBox。 答案： 错误

等级：1 难度：1

知识点：VB知识点/常用内部函数 142、VB中用于产生输入对话框的函数是InputBox。 答案： 正确

等级：1 难度：1

知识点：VB知识点/常用内部函数 143、VB中用于产生消息框的函数是MsgBox。 答案： 正确

等级：1 难度：1

知识点：VB知识点/常用内部函数 144、VB中用于产生消息框的函数是InputBox。 答案： 错误

等级：1 难度：1

知识点：VB知识点/常用内部函数 145、选择结构的功能是根据条件在不同的操作中选取其中的一种或者多种。 答案： 错误

等级：1 难度：1

知识点：VB知识点/分支(选择)结构

146、在Select Case语句中，关键字Case后面的取值格式有3种。 答案： 正确

等级：2 难度：2

知识点：VB知识点/分支(选择)结构

147、在一个语句内写多条语句时，每个语句之间用冒号分隔。 答案： 正确

等级：2 难度：2

知识点：VB知识点/程序书写规则及格式约定

148、在一个语句内写多条语句时，每个语句之间用逗号分隔。 答案： 错误

等级：1 难度：1

知识点：VB知识点/程序书写规则及格式约定

149、一句语句要在下一行继续写，用 _（空格后加下划线）符号作为续行符。 答案： 正确

等级：1 难度：1

知识点：VB知识点/程序书写规则及格式约定

150、一句语句要在下一行继续写，用+符号作为续行符。 答案： 错误

等级：1 难度：1

知识点：VB知识点/程序书写规则及格式约定

151、If \…，其中条件的值为真值。

5

答案： 正确

等级：2 难度：2

知识点：VB知识点/运算符及表达式 152、在If条件语句中，如果条件是数值表达式，表达式的结果是0则为Flase，非0为True。 答案： 正确

等级：3 难度：3

知识点：VB知识点/运算符及表达式 153、在If条件语句中，如果条件是数值表达式，表达式的结果是0则为True，非0为Flase。 答案： 错误

等级：3 难度：3

知识点：VB知识点/运算符及表达式 154、条件语句中的\条件\既可以是逻辑表达式或关系表达式，也可以是数值表达式。 答案： 正确

等级：1 难度：1

知识点：VB知识点/分支(选择)结构 155、块结构条件语句，必须以End If结束。

答案： 正确

等级：2 难度：2

知识点：VB知识点/分支(选择)结构 156、简单结构的条件语句以单行出现时，不需要写End If。 答案： 正确

等级：2 难度：2

知识点：VB知识点/分支(选择)结构 157、任何形式的条件语句都必须以End If结束。 答案： 错误

等级：1 难度：1

知识点：VB知识点/分支(选择)结构 158、在If结构中，\语句块\中的语句可以与Then写在同一行。 答案： 错误

等级：2 难度：2

知识点：VB知识点/分支(选择)结构 159、在If结构中，\语句块\中不可以包含有条件语句的嵌套。 答案： 错误

等级：2 难度：2

知识点：VB知识点/分支(选择)结构 160、在If结构中，\语句块\中可以包含有条件语句的嵌套。 答案： 正确

等级：2 难度：2

知识点：VB知识点/分支(选择)结构 161、条件text1.Text>=\text1.Text<=\，作用是用来判断一个字符是否小写字母。 答案： 正确

等级：3 难度：3

知识点：VB知识点/运算符及表达式 162、条件text1.Text>=\text1.Text<=\，作用是用来判断一个字符是否小写字母。 答案： 错误

等级：3 难度：3

知识点：VB知识点/运算符及表达式

163、条件text1.Text>='0' Or text1.Text<='9'，作用是用来判断一个字符是否数字。 答案： 错误

等级：3 难度：3

知识点：VB知识点/运算符及表达式 164、在\Case测试表达式\结构中，\测试表达式\可以是数值表达式或字符串表达式。 答案： 正确

等级：2 难度：2

知识点：VB知识点/运算符及表达式 165、在\Case\语句中，表达式1 to 表达式2，表示一段取值范围，当\测试表达式\的值落在表示式1和表达式2之间时（含表达式1和表达式2的值），则执行该Case子句中的语句块。

答案： 正确

等级：3 难度：3

知识点：VB知识点/运算符及表达式 166、在\Case\语句中，表达式1 to 表达式2，表示一段取值范围，当\测试表达式\的值落在表示式1和表达式2之间时（不含表达式1和表达式2的值），则执行该Case子句中的语句块。

答案： 错误

等级：3 难度：3

知识点：VB知识点/运算符及表达式 167、一个程序中有没有End语句，对程序的运行没有什么影响。 答案： 正确

等级：1 难度：1

知识点：VB知识点/程序书写规则及格式约定

168、条件语句中的\部分\和\部分\都可以是条件语句，即条件语句可以嵌套。 答案： 正确

等级：2 难度：2

知识点：VB知识点/分支(选择)结构 169、在\Case\语句中，当用关键字Is定义条件时，只能是简单的条件，不能用逻辑运算符将两个或多个简单条件组合在一起。 答案： 正确

等级：3 难度：3

知识点：VB知识点/分支(选择)结构 170、在\Case\语句中如果使用关键字Is， 则只能用关系运算符。 答案： 正确

等级：1 难度：1

知识点：VB知识点/分支(选择)结构 171、Case Is>10 And Is<20 是不合法的。

答案： 正确

等级：1 难度：1

知识点：VB知识点/分支(选择)结构 172、在\Case\语句中，关键字to 用来指定一个范围，必须把较小值写在前面，较大值写在后面。 答案： 正确

等级：2 难度：2

知识点：VB知识点/分支(选择)结构

173、在\语句中，关键字to用来指定一个范围，Case -5 to -1是合法的。 答案： 正确

等级：1 难度：1

知识点：VB知识点/分支(选择)结构

174、在循环语句中被反复执行的部分称为循环体，它可由若干语句构成。

答案： 正确

等级：1 难度：1 知识点：VB知识点/循环结构 175、VB语言提供了三种循环结构：For，While，Do。 答案： 正确

等级：1 难度：1 知识点：VB知识点/循环结构 176、For循环按确定的次数执行循环体，该次数是由循环变量的初值、终值和步长确定的。 答案： 正确

等级：2 难度：2 知识点：VB知识点/循环结构 177、For循环中如果省略步长，表示步长为1。 答案： 正确

等级：1 难度：1 知识点：VB知识点/循环结构 178、For循环中如果步长为0，也是可以的。 答案： 错误

等级：2 难度：2 知识点：VB知识点/循环结构 179、For循环中初值、终值和步长均是数值表达式。 答案： 正确

等级：1 难度：1 知识点：VB知识点/循环结构 180、For循环中初值、终值和步长的值也可以是实数。 答案： 正确

等级：3 难度：3 知识点：VB知识点/循环结构 181、在For循环中，Next是循环终端语句。其后面的\循环变量\必须与For语句中的\循环变量\相同。

答案： 正确

等级：1 难度：1 知识点：VB知识点/循环结构 182、下面的循环执行的次数是10次。

For i =1 to 10 Step 1 s=s+i Next i

答案： 正确

等级：1 难度：1 知识点：VB知识点/循环结构 183、下面的循环执行的次数是10

6

次。

For i =1 to 10 Step 1 i=i+1 Next i

答案： 错误

等级：3 难度：3

知识点：VB知识点/控制结构应用程序举例

184、下面的循环的功能是求m到n的级数和。

For i=m to n Step 1 s=s+i Next i

答案： 正确

等级：2 难度：2

知识点：VB知识点/控制结构应用程序举例

185、条件text1.Text>=\text1.Text<=\的作用是用来判断一个字符是否为大写字母。 答案： 错误

等级：1 难度：1

知识点：VB知识点/运算符及表达式 186、条件text1.Text>=\text1.Text<=\的作用是用来判断一个字符是否为大写字母。 答案： 正确

等级：1 难度：1

知识点：VB知识点/运算符及表达式 187、While循环语句的循环次数有可能为0次。 答案： 正确

等级：2 难度：2 知识点：VB知识点/循环结构

188、While循环语句中的循环体至少要执行一次。 答案： 错误

等级：2 难度：2 知识点：VB知识点/循环结构

189、While循环中，如果\条件\总是成立，则循环不能正常结束。 答案： 正确

等级：3 难度：3 知识点：VB知识点/循环结构

190、下面的循环的功能是求1到n的和

While i<=n s=s+i i=i+1 Wend

答案： 正确

等级：3 难度：3

知识点：VB知识点/控制结构应用程序举例

191、在一个循环结构的循环体内可以含有另一个完整的循环结构。 答案： 正确

等级：1 难度：1 知识点：VB知识点/循环结构

192、多重循环中，处于内部的循环称为内循环，处于外部的循环称为外循环。内外循环之间必须完整包含，不得交叉。

答案： 正确

等级：2 难度：2 知识点：VB知识点/循环结构

193、多重循环中，处于内部的循环称为内循环，处于外部的循环称为外循环。内外循环之间可以交叉。 答案： 错误

等级：2 难度：2 知识点：VB知识点/循环结构

194、嵌套的循环不能使用同一个变量名作循环变量。 答案： 正确

等级：3 难度：3 知识点：VB知识点/循环结构

195、如果在一个循环结束之后，才开始另一个循环，这两个循环可以使用同一个变量名作循环变量。 答案： 正确

等级：2 难度：2 知识点：VB知识点/循环结构

196、下列嵌套循环执行了20次。 For i= 1 to 4 For j= 1 to 5 ….. Next j Next i

答案： 正确

等级：2 难度：2 知识点：VB知识点/循环结构

197、下列语句中的消息框共执行了12次。

For j = 1 To 12 Step 3 For k = 6 To 2 Step -2 MsgBox(j & \Next k Next j

答案： 正确

等级：3 难度：3 知识点：VB知识点/循环结构

198、下列语句中的外层循环共执行了12次。

For j = 1 To 12 Step 3 For k = 6 To 2 Step?2 MsgBox(j & \Next k Next j

答案： 错误

等级：1 难度：1 知识点：VB知识点/循环结构

199、下列语句中的内层循环共执行了6次。

For j = 1 To 12 Step 3 For k = 6 To 2

MsgBox(j & \Next k Next j

答案： 错误

等级：2 难度：2 知识点：VB知识点/循环结构

200、计算机程序是由若干条语句组成，语句的执行顺序决定了程序的流程，但程序不一定按照语句的书写顺序执行。

答案： 正确

等级：1 难度：1 知识点：VB知识点/顺序结构 201、赋值语句\变量名=表达式\中，如果等式左右两边的数据类型不一致，当表达式为数值型而精度不同时，强制转化为左边的精度。

答案： 正确

等级：3 难度：3 知识点：VB知识点/顺序结构 202、赋值语句\变量名=表达式\中，如果等式左右两边的数据类型不一致，当表达式是数字字符串时，左边变量为数值类型时，则其结果自动转换为数值类型再赋值。

答案： 正确

等级：2 难度：2 知识点：VB知识点/顺序结构 203、赋值语句\变量名=表达式\中，任何非字符类型赋值给字符类型，就会自动转换为字符类型。答案： 正确

等级：2 难度：2 知识点：VB知识点/顺序结构 204、Chr$(13)表示回车。 答案： 正确

等级：1 难度：1

知识点：VB知识点/常用内部函数205、Chr$(10)表示换行。 答案： 正确

等级：1 难度：1

知识点：VB知识点/常用内部函数206、当使用输入函数InputBox时，如果需要输入多个数据，则必须多次调用该函数。 答案： 正确

等级：1 难度：1

知识点：VB知识点/常用内部函数207、MsgBox函数的参数只有Msg参数不可省略，其他均可省略。 答案： 正确

等级：2 难度：2

知识点：VB知识点/常用内部函数208、MsgBox函数的返回值是一个整数，这个整数与选择的按钮有关。

答案： 正确

等级：3 难度：3

知识点：VB知识点/常用内部函数209、MsgBox函数中所有的参数都可省略。

答案： 错误

等级：1 难度：1

知识点：VB知识点/常用内部函数210、下列语句是错误的。 For i= 1 to 4 For i= 1 to 5 ….. Next i Next i

答案： 正确

7

等级：1 难度：1 知识点：VB知识点/循环结构

211、窗体和其他控件的Name属性不能在程序运行期间设置。 答案： 正确

等级：1 难度：1

知识点：VB知识点/控件的基本知识 212、对象的属性只能在属性窗口设置。

答案： 错误

等级：1 难度：1

知识点：VB知识点/控件的基本知识 213、对象的属性只能在程序代码中设置。

答案： 错误

等级：1 难度：1

知识点：VB知识点/控件的基本知识 214、窗体的标题栏显示内容由窗体对象的Caption属性决定。 答案： 正确

等级：1 难度：1

知识点：VB知识点/控件的基本知识 215、窗体的标题栏显示内容由窗体对象的name属性决定。 答案： 错误

等级：1 难度：1

知识点：VB知识点/控件的基本知识 216、窗体的标题栏显示内容由窗体对象的text属性决定。 答案： 错误

等级：1 难度：1

知识点：VB知识点/控件的基本知识 217、若要以程序代码方式设置在窗体中显示的文本的字体大小，则可用窗体对象的FontName属性来实现。 答案： 错误

等级：2 难度：2

知识点：VB知识点/控件的基本知识 218、若要以程序代码方式设置在窗体中显示的文本的字体大小，则可用窗体对象的FontSize属性来实现。 答案： 正确

等级：2 难度：2

知识点：VB知识点/控件的基本知识 219、若要以程序代码方式设置在窗体中显示的文本的字体，则可用窗体对象的FontName属性来实现。 答案： 正确

等级：2 难度：2

知识点：VB知识点/控件的基本知识 220、若要以程序代码方式设置在窗体中显示的文本的字体，则可用窗体对象的FontSize属性来实现。 答案： 错误

等级：2 难度：2

知识点：VB知识点/控件的基本知识 221、命令按钮的标题文字由Caption属性来设置。 答案： 正确

等级：2 难度：2

知识点：VB知识点/简单控件设计 222、命令按钮的标题文字由Name属性来设置。

答案： 错误

等级：1 难度：1

知识点：VB知识点/简单控件设计 223、VB是面向对象的程序设计，属性不属于面向对象的三要素。 答案： 错误

等级：1 难度：1

知识点：VB知识点/VB的对象、属性、方法和事件

224、VB是面向对象的程序设计，事件不属于面向对象的三要素。 答案： 错误

等级：1 难度：1

知识点：VB知识点/VB的对象、属性、方法和事件

225、VB是面向对象的程序设计，方法不属于面向对象的三要素。 答案： 错误

等级：1 难度：1

知识点：VB知识点/VB的对象、属性、方法和事件

226、VB是面向对象的程序设计，变量不属于面向对象的三要素。 答案： 正确

等级：1 难度：1

知识点：VB知识点/VB的对象、属性、方法和事件

227、若要使命令按钮不可见，可设置Visible属性为False来实现。 答案： 正确

等级：1 难度：1

知识点：VB知识点/简单控件设计 228、若要使命令按钮不可见，可设置Enabled属性为False来实现。 答案： 错误

等级：1 难度：1

知识点：VB知识点/简单控件设计 229、运行程序时，系统自动执行窗体的unLoad事件。 答案： 错误

等级：2 难度：2

知识点：VB知识点/VB的对象、属性、方法和事件

230、运行程序时，系统自动执行窗体的Click事件。 答案： 错误

等级：2 难度：2

知识点：VB知识点/VB的对象、属性、方法和事件

231、若要设置文本框最大可输入的字符数可设置MaxLength属性来实现。

答案： 正确

等级：2 难度：2

知识点：VB知识点/简单控件设计 232、若要设置文本框最大可输入的字符数可设置Multiline属性来实现。

答案： 错误

等级：2 难度：2

知识点：VB知识点/简单控件设计 233、若要使某命令按钮获得控制焦点，可使用SetFocus方法来设置。

答案： 正确

等级：3 难度：3

知识点：VB知识点/简单控件设计 234、若要使某命令按钮获得控制焦点，可使用GotFocus方法来设置。

答案： 错误

等级：3 难度：3

知识点：VB知识点/简单控件设计 235、在运行时，若要获得用户在文本框中所选择的文本，可通过访问SelText属性来实现。 答案： 正确

等级：2 难度：2

知识点：VB知识点/简单控件设计 236、在运行时，若要获得用户在文本框中所选择的文本，可通过访问SelText属性来实现。 答案： 正确

等级：2 难度：2

知识点：VB知识点/列表框和组合框

237、在运行时，若要获得用户在文本框中的文本，可通过访问Text属性来实现。 答案： 正确

等级：1 难度：1

知识点：VB知识点/简单控件设计 238、若要返回列表框中项目的个数，需在程序中访问List属性来实现。

答案： 错误

等级：2 难度：2

知识点：VB知识点/列表框和组合框

239、若要返回列表框中项目的个数，需在程序中访问ListCount属性来实现。 答案： 正确

等级：2 难度：2

知识点：VB知识点/列表框和组合框

240、图像框控件可以作为容器使用。

答案： 错误

等级：1 难度：1 知识点：VB知识点/图形控件 241、图片框控件可以作为容器使用。

答案： 正确

等级：1 难度：1 知识点：VB知识点/图形控件 242、复选框对象是否被选中，可由其Value属性来判断。 答案： 正确

等级：1 难度：1

知识点：VB知识点/单选按钮和复选框

243、复选框对象是否被选中，可由其Checked属性来判断。 答案： 错误

等级：1 难度：1

知识点：VB知识点/单选按钮和复

8

选框

244、图片框的Picture属性既可在属性窗口中设置，也可以在程序中设置。

答案： 正确

等级：1 难度：1 知识点：VB知识点/图形控件

245、在一祖单选按钮中只有一个处于选中状态。 答案： 错误

等级：1 难度：1

知识点：VB知识点/单选按钮和复选框

246、设有如下循环结构： Do Until 条件 循环体 Loop

如果\条件\是True，则一次也不执行循环体。

答案： 正确

等级：2 难度：2 知识点：VB知识点/循环结构 247、设有如下循环结构： Do

循环体

Loop While 条件

如果\条件\是False，则一次也不执行循环体。 答案： 错误

等级：2 难度：2 知识点：VB知识点/循环结构

248、数组是一组可以是类型不同的数组成的集合。 答案： 正确

等级：1 难度：1 知识点：VB知识点/数组的概念 249、数组元素可以当作单个变量使用。

答案： 正确

等级：1 难度：1 知识点：VB知识点/数组的概念

250、数组元素在内存中随意存放。 答案： 错误

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

251、相同类型相同数量的数组元素和变量完全相同，没有任何区别。 答案： 错误

等级：2 难度：2

知识点：VB知识点/数组的定义和引用

252、语句Option Base n定义数组下标下界时，n可以是任意整数。 答案： 错误

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

253、语句Option Base n定义数组下标下界时，n可以是0或1。 答案： 正确

等级：1 难度：1

知识点：VB知识点/数组的定义和引

用

254、数组下标上界和下界必须是正整数型常量或常量表达式。 答案： 错误

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

255、数组下标上界和下界可以是整型常量或常量表达式。 答案： 正确

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

256、数组下标上界和下界可以是负整数。

答案： 正确

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

257、语句Dim aa(－1 to 1，－2 to 1)定义了一个3行4列的二维数组。 答案： 正确

等级：2 难度：2

知识点：VB知识点/数组的定义和引用

258、语句Dim aa(－1 to 1，－2 to 1)定义的二维数组共有4个元素。 答案： 错误

等级：2 难度：2

知识点：VB知识点/数组的定义和引用

259、语句Dim aa(－1 to 1，－2 to 1)定义的二维数组下标下界分别是－1和－2。 答案： 正确

等级：2 难度：2

知识点：VB知识点/数组的定义和引用

260、如果a(－1 to 2) ，则函数LBound（a）的返回值是2。 答案： 错误

等级：3 难度：3

知识点：VB知识点/数组的定义和引用

261、如果a(－1 to 2) ，则函数UBound（a）的返回值是2。 答案： 正确

等级：3 难度：3

知识点：VB知识点/数组的定义和引用

262、根据需要用ReDim可以确定动态数组的大小和维数。 答案： 正确

等级：3 难度：3

知识点：VB知识点/静态数组与动态数组

263、根据需要用ReDim可以改变动态数组的大小，但不可以改变维数。 答案： 错误

等级：3 难度：3

知识点：VB知识点/静态数组与动态数组

264、根据需要用ReDim可以改变动态

数组的大小和维数，但不可以改变数组的类型。 答案： 正确

等级：3 难度：3

知识点：VB知识点/静态数组与动态数组

265、在Picture1上输出数组W(i)的值用语句Pictrue1.Print W(i) 可以实现。 答案： 正确

等级：1 难度：1

知识点：VB知识点/数组的基本操作

266、在窗体上输出数组a(i)的值用语句Print a(i) 可以实现。 答案： 正确

等级：1 难度：1

知识点：VB知识点/数组的基本操作

267、Private Sub Command1_Click() Dim w(4) as integer Dim y() as integer For i=0 to 4 w(i)= 3 * i Next i y=w

Print y(2) End Sub

上面程序第7行y=w应改为y=w(i)才能正确赋值。 答案： 错误

等级：3 难度：3

知识点：VB知识点/数组的基本操作

268、Private Sub Command1_Click()

Dim stu(4) as integer Dim num() as integer For i=0 to 4

stu(i)= stu(i) + 3 Next i num=stu End Sub

上面程序输出num(1)的结果是3。 答案： 正确

等级：3 难度：3

知识点：VB知识点/数组应用举例 269、Option Base 1

Private Sub Command1_Click() Dim cn(4) as integer Dim meb as Variant For i=1 to 4 cn(i)= i*2 + 1 Next i

For Each meb in cn Print meb； Next meb End Sub

上面程序meb应定义成integer才能使用。

答案： 错误

等级：3 难度：3

9

知识点：VB知识点/数组应用举例 270、Option Base 1

Private Sub Command1_Click() Dim c(4) as integer Dim b as Variant For i=1 to 4 c(i)= i*2 + 1 Next i

For Each b in c Print b； Next b End Sub

上面程序第8行中应该是：For Each b(i) in c 答案： 错误

等级：3 难度：3

知识点：VB知识点/数组应用举例 271、Private Sub Command1_Click() Dim c(4) as integer Dim meb as Variant For i=1 to 4 c(i)= i*2 + 1 Next i

For Each meb in c Print meb； Next meb End Sub

上面程序第8行中应该是：Print meb(i)；

答案： 错误

等级：3 难度：3

知识点：VB知识点/数组应用举例 272、Option Base 1

Private Sub Command1_Click() Dim s(3) as integer Dim m as Variant For i=1 to 3 s(i)= i*2 - 1 Next i

For Each m in s Print m； Next m End Sub

上面程序输出结果是：1 3 5。 答案： 正确

等级：3 难度：3

知识点：VB知识点/数组应用举例 273、Option Base 1

Private Sub Command1_Click() Dim s(3) as integer Dim m as Variant For i=1 to 3 s(i)= i*i + 1 Next i

For Each m in s Print m； Next m End Sub

上面程序第8行中应该是：For Each m in s（i） 答案： 错误

等级：3 难度：3

知识点：VB知识点/数组应用举例

274、Private Sub Command1_Click() Dim c(4) as integer Dim meb as Variant For i=1 to 4 c(i)= i*2 + 1 Next i

For Each meb in c Print meb； Next meb End Sub

默认情况下上面程序运行后c(0)的值为0。

答案： 正确

等级：3 难度：3

知识点：VB知识点/数组应用举例 275、控件数组中的每一个控件完全相同。

答案： 错误

等级：2 难度：2 知识点：VB知识点/控件数组

276、控件数组可以是不同类型的数组。

答案： 错误

等级：2 难度：2 知识点：VB知识点/控件数组

277、控件数组是将一组完成类似功能且类型相同的控件组合起来的数组。

答案： 正确

等级：2 难度：2 知识点：VB知识点/控件数组

278、控件数组的数组名称就是该组控件的名称。 答案： 正确

等级：2 难度：2 知识点：VB知识点/控件数组

279、控件数组包含多个控件，但数组名称只有一个。 答案： 正确

等级：2 难度：2 知识点：VB知识点/控件数组

280、控件数组的数组名称相同，控件的下标不同。 答案： 正确

等级：2 难度：2 知识点：VB知识点/控件数组

281、控件数组中的某个元素代表某个具体的控件。 答案： 正确

等级：3 难度：3 知识点：VB知识点/控件数组

282、控件数组中控件的功能和属性与独立控件完全不同。 答案： 错误

等级：3 难度：3 知识点：VB知识点/控件数组

283、用Dim a(6) As Long语句定义的数组，其下标下界的默认值是1。 答案： 错误

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

284、控件数组中的元素只能在界面

设计时建立。 答案： 错误

等级：2 难度：2 知识点：VB知识点/控件数组 285、Dim a（3,4） as Integer定义了一个3×4的数组。 答案： 错误

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

286、在Function函数过程中如果没有给函数名赋值的语句，则调用该函数后也能通过函数名得到正确的返回值。 答案： 错误

等级：2 难度：2 知识点：VB知识点/函数过程 287、Dim aa(5) As Integer 与 Dim aa[5] As Integer等效。 答案： 错误

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

288、数组元素的下标可以是常数、变量或表达式。 答案： 正确

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

289、在Visual Basic中有两种形式的数组：静态数组和动态数组。 答案： 正确

等级：1 难度：1

知识点：VB知识点/静态数组与动态数组

290、在VB中，只允许使用一维数组和二维数组。 答案： 错误

等级：1 难度：1

知识点：VB知识点/静态数组与动态数组

291、静态数组中的数组元素个数一旦定义好后，在程序运行过程中不再会发生变化；而动态数组的元素个数则是可变的。 答案： 正确

等级：3 难度：3

知识点：VB知识点/静态数组与动态数组

292、静态数组中的数组元素个数一旦定义好后，在程序运行过程中不再会发生变化，并且数组中数组元素的值也不会变化。 答案： 错误

等级：2 难度：2

知识点：VB知识点/静态数组与动态数组

293、在声明静态数组时，下标必须是常量，不能是变量；而在引用数组元素时下标可以是常数、变量或表达式。 答案： 正确

等级：2 难度：2

10

知识点：VB知识点/数组的定义和引用

294、Dim aa(5) As Interger不仅定义数组，为数组分配存储空间，还能将数组元素置为0。 答案： 正确

等级：2 难度：2

知识点：VB知识点/数组的定义和引用

295、引用数组元素时，元素的下标值应在数组说明时所指定的范围之内。

答案： 正确

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

296、在同一过程中，数组和简单变量不能同名。 答案： 正确

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

297、在Visual Basic中，动态数组可以在需要时候改变大小。 答案： 正确

等级：2 难度：2

知识点：VB知识点/静态数组与动态数组

298、声明一个没有下标的数组，声明时数组名的括号一定不能省略。 答案： 正确

等级：2 难度：2

知识点：VB知识点/数组的定义和引用

299、动态数组在定义时已被分配存储空间。

答案： 错误

等级：2 难度：2

知识点：VB知识点/静态数组与动态数组

300、某数组声明为字符型数组，它们的初始值为False。 答案： 错误

等级：2 难度：2

知识点：VB知识点/数组的定义和引用

301、有如下数组声明语句： Option Base 1 Dim aa(3, 0 To 2, 1 To 2) As Integer 数组aa所含有的数组元素个数是18。 答案： 正确

等级：3 难度：3

知识点：VB知识点/数组的定义和引用

302、Dim A( ) As Integer声明了一个动态数组A。 答案： 正确

等级：1 难度：1

知识点：VB知识点/静态数组与动态数组

303、控件数组中的元素，在程序运行阶段不可以动态的加载。 答案： 错误

等级：3 难度：3 知识点：VB知识点/控件数组

304、Dim A（1 To 6）定义的数组包含6个元素。 答案： 正确

等级：1 难度：1

知识点：VB知识点/数组的基本操作 305、定义数组A(1 to 5,5)后，元素A(0,1)不存在。 答案： 正确

等级：2 难度：2

知识点：VB知识点/数组的定义和引用

306、二维数组的第一个下标可以表示行，第二个下标可以表示列。 答案： 正确

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

307、数组下标下界默认为0。 答案： 正确

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

308、引用数组元素时必须保证数组名、类型及维数要与定义一致。 答案： 正确

等级：2 难度：2

知识点：VB知识点/数组的定义和引用

309、在程序中，凡是能用变量的地方，都可用数组元素代替。 答案： 正确

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

310、要想从子过程调用后返回两个结果，子过程说明语句：Sub f2(ByVal n%, ByVal m%)是合法的。 答案： 错误

等级：2 难度：2 知识点：VB知识点/Sub过程 311、子过程说明语句：Sub f1(n() as integer) as integer是合法的。 答案： 错误

等级：2 难度：2 知识点：VB知识点/Sub过程

312、事件过程不能脱离对象而独立存在。

答案： 正确

等级：2 难度：2 知识点：VB知识点/Sub过程 313、SUB过程不能返回值，而Function过程可以返回值。 答案： 错误

等级：2 难度：2 知识点：VB知识点/Sub过程

314、Function过程可以有形参，而SUB过程不可以。 答案： 错误

等级：3 难度：3 知识点：VB知识点/Sub过程

315、在函数过程定义语句中，如果

不指明函数参数的类型，则此参数没有数据类型。 答案： 错误

等级：2 难度：2 知识点：VB知识点/函数过程 316、当数组作为函数的参数时，既可以按传值方式，也可以按传地址方式。 答案： 错误

等级：3 难度：3 知识点：VB知识点/参数的传递 317、函数过程中形参的类型与函数返回值的类型没有关系。 答案： 正确

等级：2 难度：2 知识点：VB知识点/函数过程 318、不能在事件过程中定义函数过程。

答案： 正确

等级：3 难度：3 知识点：VB知识点/函数过程 319、通过函数过程的名可以返回多个值。

答案： 错误

等级：2 难度：2 知识点：VB知识点/函数过程 320、从子过程退出，并返回到主调过程，可使用语句Exit Sub。 答案： 正确

等级：1 难度：1 知识点：VB知识点/Sub过程 321、在过程定义中，形参有传值、传地址两种方式，默认为传值方式。

答案： 错误

等级：1 难度：1 知识点：VB知识点/参数的传递 322、在过程中用Dim语句声明的变量在每次调用该过程时其值不能保留。

答案： 正确

等级：3 难度：3 知识点：VB知识点/函数过程 323、在通用声明段声明的窗体级变量在每次调用该过程时其值不能保留。

答案： 错误

等级：3 难度：3

知识点：VB知识点/变量与过程的作用域

324、在过程中用Static语句声明的变量在每次调用该过程时其值不能保留。 答案： 错误

等级：3 难度：3

知识点：VB知识点/变量与过程的作用域

325、在标准模块中声明的全局变量在每次调用该过程时其值能保留。

答案： 正确

等级：3 难度：3

知识点：VB知识点/变量与过程的

11

作用域

326、在过程定义中，数组可作为传值的形参。 答案： 错误

等级：1 难度：1 知识点：VB知识点/参数的传递 327、在过程定义中，简单变量可作为传值的形参。 答案： 正确

等级：1 难度：1 知识点：VB知识点/参数的传递

328、子过程名和函数过程名都有值，也都有类型。 答案： 错误

等级：2 难度：2 知识点：VB知识点/函数过程

329、Sub子过程必须使用Call语句调用。

答案： 错误

等级：1 难度：1 知识点：VB知识点/Sub过程

330、在过程定义中，某些参数如果要使用传地址的方式，则应在这些参数的前面加ByRef或缺省。 答案： 正确

等级：3 难度：3 知识点：VB知识点/参数的传递 331、根据变量的作用域，可以将变量分为3类，它们是局部变量、窗体/模块级变量和全局变量。 答案： 正确

等级：2 难度：2

知识点：VB知识点/变量与过程的作用域

332、变量作为过程的参数时，只能使用\传地址\方式进行。 答案： 错误

等级：2 难度：2 知识点：VB知识点/参数的传递 333、数组作为过程的参数时，只能使用\传地址\方式进行。 答案： 正确

等级：2 难度：2 知识点：VB知识点/参数的传递 334、只有函数过程能够将过程中处理的数据传回到调用的程序中。 答案： 错误

等级：2 难度：2 知识点：VB知识点/函数过程

335、在某个Sub过程中声明的变量可与其他事件过程中声明的变量同名，但作用域只限于该过程。 答案： 正确

等级：3 难度：3

知识点：VB知识点/变量与过程的作用域

336、在窗体的Form_Load事件过程中声明的变量是局部变量。 答案： 正确

等级：3 难度：3

知识点：VB知识点/变量与过程的作用域

337、在Visual Basic应用程序中，

过程的定义不可以嵌套，但过程的调用可以嵌套。 答案： 正确

等级：2 难度：2

知识点：VB知识点/变量与过程的作用域

338、Visual Basic的过程有三种，它们是Sub过程、函数过程和通用过程。

答案： 错误

等级：1 难度：1 知识点：VB知识点/Sub过程

339、Function过程的定义一定要有End Function语句。 答案： 正确

等级：1 难度：1 知识点：VB知识点/函数过程

340、Function过程有别于Sub过程的最主要的特点是Function过程一定要有形参，而Sub过程可以没有形参。答案： 错误

等级：3 难度：3 知识点：VB知识点/函数过程

341、Function过程有别于Sub过程的最主要的特点是Function过程要返回函数值，而Sub过程没有数值返回。答案： 错误

等级：3 难度：3 知识点：VB知识点/函数过程

342、要定义一个过程为局部过程，应使用Static关键字。 答案： 错误

等级：1 难度：1

知识点：VB知识点/变量与过程的作用域

343、在Function函数过程定义中，函数名没有被赋值，就没有函数值返回调用过程中。 答案： 错误

等级：3 难度：3 知识点：VB知识点/函数过程

344、在Function函数过程定义中，定义函数过程的类型是指定义形参的类型。

答案： 错误

等级：2 难度：2 知识点：VB知识点/函数过程

345、过程级变量属于全局变量。 答案： 错误

等级：1 难度：1

知识点：VB知识点/变量与过程的作用域

346、用Static关键字定义过程是指声明过程中的局部变量是静态的。 答案： 正确

等级：2 难度：2

知识点：VB知识点/变量与过程的作用域

347、VB中有实现子程序的过程、返回结果的函数过程，用户可以选择有参或无参进行设计。 答案： 正确

等级：3 难度：3

知识点：VB知识点/Sub过程

348、VB中的子程序过程、函数过程，都可以通过参数传递方式，实现调用环境与被调用环境中的数据交流。 答案： 正确

等级：3 难度：3 知识点：VB知识点/参数的传递 349、一般过程调用时，所给定的实参需与形参的顺序及类型相容或相同。

答案： 正确

等级：1 难度：1 知识点：VB知识点/参数的传递 350、在按地址方式传递参数的过程调用时，实参可以是变量，也可以是常量。 答案： 错误

等级：1 难度：1 知识点：VB知识点/参数的传递 351、在一个窗体文件中用

Private定义的通用过程不能被其他窗体调用。 答案： 正确

等级：2 难度：2

知识点：VB知识点/变量与过程的作用域

352、在过程定义中，ByVal类别的形参，是按参数的值进行传递。 答案： 正确

等级：2 难度：2 知识点：VB知识点/参数的传递

所有单选题

1、在VB的工程中，工程文件的扩展名是______。 A：frm B：vbg C：vbp D：bas 答案：C

等级：1 难度：1

知识点：VB知识点/VB的工程管理和环境设置

2、在VB的应用程序中，窗体文件的扩展名是______。 A：frm B：vbg C：vbp D：bas 答案：A

等级：1 难度：1

知识点：VB知识点/VB的工程管理和环境设置

3、在VB的应用程序中，标准模块文件的扩展名是______。 A：frm B：vbg C：vbp D：bas 答案：D

等级：1 难度：1

知识点：VB知识点/VB的工程管理和环境设置

12

4、以下关于保存工程的说法正确的是______。

A：保存工程时只保存窗体文件即可

B：保存工程时只保存工程文件即可

C：先保存窗体文件，再保存工程文件

D：先保存工程文件，再保存窗体文件 答案：C

等级：1 难度：1

知识点：VB知识点/VB的工程管理和环境设置

5、在面向对象的程序设计中，最基本的元素是______。 A：窗体文件 B：工程文件 C：属性 D：对象 答案：D

等级：1 难度：1

知识点：VB知识点/VB的编程环境 6、在运行程序时，若要使文本框获得输入焦点，可调用文本框对象的______方法来实现。 A：Refresh B：GetFocus C：SetFocus D：Tab 答案：C

等级：2 难度：2

知识点：VB知识点/简单控件设计 7、在程序运行时，若要获得用户在文本框中所选择的文本，可通过访问______属性来实现。 A：SelStart B：SelLength C：Text D：SelText 答案：D

等级：2 难度：2

知识点：VB知识点/简单控件设计 8、若要设置文本框最大可接收的字符数，可通过______属性来实现。 A：MultiLine B：Length C：Max

D：MaxLength 答案：D

等级：1 难度：1

知识点：VB知识点/简单控件设计 9、窗体的标题条显示内容由窗体对象的______属性决定。 A：BackColor B：BackStyle C：Text D：Caption 答案：D

等级：1 难度：1

知识点：VB知识点/简单控件设计 10、若要取消窗体的最大化功能，则可设置______属性为False来实现。

A：ControBox B：MinButton C：MaxButton D：Enabled 答案：C

等级：1 难度：1

知识点：VB知识点/简单控件设计 11、命令按钮的标题文字由____属性来设置。 A：Text B：Caption C：Name D：(名称) 答案：B

等级：1 难度：1

知识点：VB知识点/简单控件设计 12、标签框的边框，由______属性的设置值决定。 A：BackColor B：BackStlye C：BorderStyle D：AutoSize 答案：C

等级：1 难度：1

知识点：VB知识点/简单控件设计 13、若要使标签框的大小自动与所显示的文本相适应，可通过设置______属性的值为True来实现。 A：AutoSize B：Alignment C：Appearance D：Visible 答案：A

等级：2 难度：2

知识点：VB知识点/简单控件设计 14、标签框所显示的内容，由______属性值决定。 A：Text B：(名称) C：Caption D：Alignment 答案：C

等级：1 难度：1

知识点：VB知识点/简单控件设计 15、标签框文本的对齐方式，由______属性来决定。 A：Text B：(名称) C：Caption D：Alignment 答案：D

等级：1 难度：1

知识点：VB知识点/简单控件设计 16、决定控件上文字的字体、字形、大小、效果的属性是_______。 A：Text B：Caption C：Name D：Font 答案：D

等级：1 难度：1

知识点：VB知识点/简单控件设计 17、以下不能在\工程资源管理器\

窗口中列出的文件类型是_______。 A：.bas B：.vbp C：.frm D：.ocx 答案：D

等级：1 难度：1

知识点：VB知识点/VB的编程环境 18、以下叙述中错误的是_______。

A：Visual Basic 是事件驱动型可视化编程工具

B：Visual Basic应用程序不具有明显的开始和结束语句

C：Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性

D：Visual Basic中控件的某些属性只能在运行时设置 答案：C

等级：1 难度：1

知识点：VB知识点/VB的工程管理和环境设置

19、以下叙述中错误的是_______。

A：在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件

B：以.BAS为扩展名的文件是标准模块文件

C：窗体文件包含该窗体及其控件的属性

D：一个工程中可以含有多个标准模块文件 答案：A

等级：2 难度：2

知识点：VB知识点/VB的工程管理和环境设置

20、以下不属于Visual Basic系统的文件类型是_______。 A：.frm B：.bat C：.vbg D：.vbp 答案：B

等级：1 难度：1

知识点：VB知识点/VB的工程管理和环境设置

21、Visual Basic的编程机制是_______。 A：可视化 B：面向对象 C：面向图形 D：事件驱动 答案：D

等级：1 难度：1

知识点：VB知识点/VB的编程环境 22、启动Visual Basic后，系统为用户新建的工程起一个名为_______的临时名称。 A：工程1 B：窗体1

13

C：工程 D：窗体 答案：A

等级：1 难度：1

知识点：VB知识点/VB的工程管理和环境设置

23、Visual Basic集成环境的大部分窗口都可以从主菜单项_______的下拉菜单中找到相应的打开命令。 A：编辑 B：视图 C：格式 D：调试 答案：B

等级：1 难度：1

知识点：VB知识点/VB的编程环境 24、双击窗体的任何地方，可以打开的窗口是_______。 A：代码窗口 B：属性窗口

C：工程管理窗口

D：以上3个选项都不对 答案：A

等级：1 难度：1

知识点：VB知识点/VB的编程环境 25、工具栏中的\启动\按钮的作用是_______。

A：运行一个应用程序 B：运行一个窗体

C：打开工程管理窗口

D：打开被选中对象的代码窗口 答案：A

等级：1 难度：1

知识点：VB知识点/VB的编程环境 26、Visual Basic一共有设计、运行和中断三种模式，不可进行界面设计和代码编辑的模式是_______。 A：设计模式 B：运行模式 C：中断模式 D：任何模式 答案：B

等级：2 难度：2

知识点：VB知识点/VB的工程管理和环境设置

27、唯一能区别一个控件的属性是_______。 A：Caption B：Text C：Name D：Index 答案：C

等级：1 难度：1

知识点：VB知识点/VB的对象、属性、方法和事件

28、通过以下_______窗口可以在设计时直观地调整窗体在屏幕上的位置。

A：代码窗口 B：窗体布局窗口 C：冒体设计面口 D：属性窗口 答案：B

等级：1 难度：1

知识点：VB知识点/简单控件设计 29、以下叙述中错误的是_______。 A：一个工程可以包括多种类型的文件

B：Visual Basic应用程序既能以编译方式执行，也能以解释方式执行 C：程序运行后，在内存中只能驻留一个窗体

D：对于事件驱动型应用程序，每次运行时的执行顺序可以不一样 答案：C

等级：2 难度：2

知识点：VB知识点/VB的工程管理和环境设置

30、下列操作中不能向工程中添加窗体的是_______。

A：单击\工程\菜单中的\添加窗体\命令

B：单击工具栏上的\添加窗体\按钮

C：右击窗体，在弹出的菜单中选择\添加窗体\命令

D：右击工程资源管理器，在弹出的菜单中选择\添加\命令，然后在下一级菜单中选择\添加窗体\命令 答案：C

等级：1 难度：1

知识点：VB知识点/VB的工程管理和环境设置

31、要把一个命令按钮设置成无效，应设置属性______的值为False 0。 A：Visible B：Enabled C：Default D：Cancel 答案：B

等级：1 难度：1

知识点：VB知识点/简单控件设计 32、在窗体上画一个文本框，其名称为Text1。为了在程序运行后Text1中的文本不可编辑，应当使用的语句______。

A：Text1．Clear

B：Text1．Locked=True C：Text1．Visible：False D：Text1．Enabled。False 答案：B

等级：2 难度：2

知识点：VB知识点/简单控件设计 33、以下叙述中错误的是______。 A：打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件

B：保存Visual Basic程序时，应分别保存窗体文件及工程文件

C：Visual Basic应用程序只能以解释方式执行

D：事件可以由用户引发，也可以由系统引发 答案：C

等级：1 难度：1

知识点：VB知识点/VB的工程管理和

环境设置

34、Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是______。

A：属性、控件和方法 B：属性、事件和方法 C：窗体、控件和过程 D：控件、过程和模块 答案：B

等级：1 难度：1

知识点：VB知识点/VB的对象、属性、方法和事件

35、下列哪项是窗体对象的方法而不是属性___________。 A：Name B：Print C：Caption D：Enabled 答案：B

等级：2 难度：2

知识点：VB知识点/VB的对象、属性、方法和事件

36、若要设置命令按钮为图形风格的命令钮，可通过______属性来设置。 A：Style

B：BorderStyle C：BackStyle D：Appearance 答案：A

等级：2 难度：2

知识点：VB知识点/简单控件设计37、用于从字符串左边截取字符的函数是______。 A：Ltrim() B：Trim() C：Left() D：Instr() 答案：C

等级：1 难度：1

知识点：VB知识点/常用内部函数38、用于去掉字符串左边空格的函数是______。 A：Ltrim() B：Rtrim() C：Right() D：Mid() 答案：A

等级：1 难度：1

知识点：VB知识点/常用内部函数39、可实现从字符串任意位置截取字符的函数是______。 A：Instr() B：Mid() C：Left() D：Right() 答案：B

等级：2 难度：2

知识点：VB知识点/常用内部函数40、可实现字符重复以产生新字符串的函数是______。 A：String() B：Repl()

14

C：Ucase() D：Lcase() 答案：A

等级：1 难度：1

知识点：VB知识点/常用内部函数 41、实现将小写字母转换成大写字母的函数是______。 A：Str() B：Upper() C：Ucase() D：Lcase() 答案：C

等级：1 难度：1

知识点：VB知识点/常用内部函数 42、可获得字符ASCII码值的函数是______。 A：Chr() B：Fix() C：Val() D：Asc() 答案：D

等级：1 难度：1

知识点：VB知识点/常用内部函数 43、VB中的变量如果没有显示声明其数据类型，则默认为______。 A：日期型 B：数据型 C：字符型 D：变体型 答案：D

等级：1 难度：1 知识点：VB知识点/常量与变量 44、VB中运算符被分为四类，分别是______。

A：算术运算符、连接运算符、关系运算符、逻辑运算符

B：算术运算符、比较运算符、关系运算符、逻辑运算符

C：算术运算符、连接运算符、布尔运算符、逻辑运算符

D：连接运算符、比较运算符、逻辑运算符、关系运算符 答案：A

等级：1 难度：1

知识点：VB知识点/运算符及表达式 45、在VB中，执行\语句后，A的值为______。 A：2 B：4 C：6 D：8 答案：A

等级：1 难度：1

知识点：VB知识点/运算符及表达式 46、A为True，B为False， 则 \and B\和 \的值分别是______。 A：True,True B：True,False C：False,True D：False,False 答案：C

等级：1 难度：1

知识点：VB知识点/运算符及表达式

47、在VB中，执行 \String\语句后，A的数据类型为______。 A：整型数 B：实型数 C：字符型 D：可变型 答案：D

等级：1 难度：1

知识点：VB知识点/基本数据类型 48、在VB中，执行 \：

B=Str$(A)\语句后，B的数据类型为______。 A：整型数 B：字节型 C：实型数 D：字符型 答案：B

等级：2 难度：2

知识点：VB知识点/常用内部函数 49、数学关系3≤ x＜10表示成正确的VB表达式为______。 A：3〈=x〈10

B：3〈=x AND x〈10 C：x〉=3 OR x〈10 D：3〈=x AND〈10 答案：B

等级：1 难度：1

知识点：VB知识点/运算符及表达式 50、Int（198.555*100+0.5）/100的值为______。 A：198 B：199.6 C：198.56 D：200 答案：C

等级：2 难度：2

知识点：VB知识点/运算符及表达式 51、下面正确的赋值语句是______。 A：x+y=30 B：y= *r*r C：y=x+30 D：3y=x 答案：C

等级：1 难度：1

知识点：VB知识点/运算符及表达式 52、为了给三个变量赋初值1，下面正确的赋值语句是______。 A：x=1：y=1：z=1 B：x=1，y=1，z=1 C：x=y=z=1 D：xyz=1 答案：A

等级：1 难度：1 知识点：VB知识点/顺序结构

53、可用于显示系统当前时间的函数是______。 A：Date B：Date$ C：Time D：Timer 答案：C

等级：1 难度：1

知识点：VB知识点/常用内部函数 54、下面是合法的变量名为______。 A：x＿yz B：123abc C：integer D：X-Y 答案：A

等级：1 难度：1

知识点：VB知识点/程序书写规则及格式约定

55、VB中，Mid(\的值是______。 A：2B B：0 C：2 D：4 答案：C

等级：2 难度：2

知识点：VB知识点/常用内部函数 56、在VB中，合法的常量是______。 A：'xxx' B：2/3 C：5e D：false 答案：D

等级：1 难度：1 知识点：VB知识点/常量与变量 57、函数Int(Rnd*80)+10是在______范围内的整数。 A：[10,90] B：[10,89] C：[11,90] D：[11,89] 答案：B

等级：2 难度：2

知识点：VB知识点/常用内部函数 58、要声明一个长度为256个字符的定长字符串变量str，下列语句正确的是______。

A：dim str as string B：dim str as string(256) C：dim str as string[256] D：dim str as string*256 答案：D

等级：1 难度：1 知识点：VB知识点/常量与变量 59、表达式2*3^2+2*8/4+3^2的值是______。 A：64 B：31 C：49 D：22 答案：B

等级：2 难度：2

知识点：VB知识点/运算符及表达式

60、下列______是日期型常量。 A：\ B：02/02/11 C：#03/01/19# D：{2/11/02}

15

答案：C

等级：1 难度：1 知识点：VB知识点/常量与变量 61、Visual Basic中不存在下列哪一种数据类型______。 A：字符串类型 B：日期类型 C：逻辑类型 D：指针类型 答案：D

等级：1 难度：1

知识点：VB知识点/基本数据类型 62、对变量名说法不正确的是______。

A：必须是字母开头，不能是数字或其他字符

B：不能是VB的保留字

C：可以包含字母、数字、下划线和标点符号

D：不能超过255个字符 答案：C

等级：1 难度：1 知识点：VB知识点/常量与变量 63、以下变量名中，______是不符合Visual Basic的命名规范的。 A：Abc901

B：_mnu_Open_234 C：price_ D：K 答案：B

等级：1 难度：1

知识点：VB知识点/程序书写规则及格式约定

64、当50≤X≤200时，则给变量Y赋值为1000的正确的If判定语句是______。

A：If 50≤X≤200 then y=1000 B：If x<=200 and x>=50 then y=1000 C：If x<=200 or x>=50 then y=1000 D：If x>=50,x<=200 then y=1000 答案：B

等级：2 难度：2

知识点：VB知识点/运算符及表达式 65、若a=2,b=3,c=4,下列表达式的值是______。

a>b and b>c or not a>c A：True B：False C：yes D：no 答案：A

等级：2 难度：2

知识点：VB知识点/运算符及表达式 66、下列属于正确的字符串常量的是______。 A：#ABC\ B：$ABC$ C：'ABC' D：\答案：D

等级：1 难度：1 知识点：VB知识点/常量与变量

67、执行下列代码，分别输入12和89，输出结果是______。

Private Sub Form_Click() a=InputBox(\b=InputBox(\Print a+b End Sub A：101 B：DE1289 C：DE D：1289 答案：D

等级：2 难度：2

知识点：VB知识点/常用内部函数 68、表达式6+10 Mod 4*2+1的值是______。 A：9 B：11 C：1 D：3 答案：A

等级：2 难度：2

知识点：VB知识点/运算符及表达式 69、把数值型转换为字符串型需要使用下列哪一种函数______。 A：Val() B：Str() C：Asc() D：Chr() 答案：B

等级：1 难度：1

知识点：VB知识点/常用内部函数 70、数学式子sin25°写成VB表达式是______。 A：sin25 B：Sin(25)

C：Sin(25*3.14/180) D：Sin(25°) 答案：C

等级：2 难度：2

知识点：VB知识点/常用内部函数 71、若x是一个正实数，对x的第3位小数四舍五入的表达式是______。 A：0.01*Int(x+0.005)

B：0.01*Int(100*(x+0.005)) C：0.01*Int(100*(x+0.05)) D：0.01*Int(x+0.05) 答案：B

等级：2 难度：2

知识点：VB知识点/运算符及表达式 72、函数Left(\的值为______。 A：He B：el C：lo D：True 答案：A

等级：1 难度：1

知识点：VB知识点/常用内部函数 73、函数Int(Abs(99-100)/2)的值为______。 A：1 B：0

C：\ D：\答案：B

等级：2 难度：2

知识点：VB知识点/常用内部函数 74、以下声明语句中错误的是______。

A：Const var1=123 B：Dim var2 = 'ABC' C：Dim var3

D：Static var4 As Integer 答案：B

等级：1 难度：1

知识点：VB知识点/程序书写规则及格式约定

75、设a=10，b=5，c=1，执行语句Print a > b > c后，窗体上显示的是______。 A：True B：False C：1

D：出错信息 答案：B

等级：2 难度：2

知识点：VB知识点/运算符及表达式

76、下列选项中不是字符串常量的是______。 A：\ B：\你好\ C：\ D：1235 答案：D

等级：1 难度：1 知识点：VB知识点/常量与变量 77、以下运算符中运算优先级最高的是______。 A：＋ B：－ C：>= D：* 答案：D

等级：1 难度：1

知识点：VB知识点/运算符及表达式

78、下列关于字符串连接运算\和\的叙述正确的是______。 A：\两旁要求均为字符串 B：\两旁不管是字符型还是数值型，系统都将操作数转换成字符型，再连接

C：\与\都要求两旁必须为字符串

D：若在字符串变量名后使用\，则在变量名与\之间应有一个空格 答案：D

等级：2 难度：2

知识点：VB知识点/运算符及表达式

79、下列表达式中的值不为6的是______。 A：19\\3

16

B：19/3 C：Int(19/3) D：19 mod 13 答案：B

等级：1 难度：1

知识点：VB知识点/运算符及表达式 80、下列不是合法的赋值语句的是______。

A：iNumber_1 = 45 B：（4+5）*3.5 = num

C：Label1.caption = time D：num = （4+5）*3.5 答案：B

等级：2 难度：2 知识点：VB知识点/顺序结构

81、下列逻辑表达式中值为False的是______。

A：Int(14 / 3)= 4

B：((1 + 2)<= 3 ) and (4 + 5 > 7)

C：Int(Rnd()* 3)<= 3 D：\答案：D

等级：2 难度：2

知识点：VB知识点/运算符及表达式 82、VB中将两个字符串连接起来的运算符有：+和&，那么\结果是______。 A：168 B：12345 C：\ D：45 答案：A

等级：2 难度：2

知识点：VB知识点/运算符及表达式 83、以下能够触发文本框Change事件的操作是______。 A：文本框失去焦点 B：文本框获得焦点 C：设置文本框的焦点 D：改变文本框的内容 答案：D

等级：1 难度：1

知识点：VB知识点/控件的基本知识 84、窗体上有一个文本框控件，名称为TxtTime；一个计时器控件，名称为Timer1。要求每一秒钟在文本框中显示一次当前的时间，程序为： Private sub timerl_? Txttime.text=time End Sub

在?处应填入的内容是______。 A：Enabled B：Visible C：Interval D：Timer 答案：D

等级：2 难度：2

知识点：VB知识点/控件的基本知识 85、图像框(Image)有一个属性，可以自动调整图形的大小，以适当图像框的尺寸，这个属性是______。 A：Autosize

B：Stretch C：AutoRedraw D：Appearance 答案：B

等级：1 难度：1 知识点：VB知识点/图形控件 86、设窗体上有一个列表框控件List1，且其中含有若干列表。则以下能表示当前被选中的列表项内容的是______。 A：List1.List

B：List1.ListIndex C：List1.Index D：List1.Text 答案：D

等级：2 难度：2

知识点：VB知识点/列表框和组合框 87、设组合框Combo1中有3个项目，则以下能删除最后一项的语句是______。

A：Combo1.Removeitem Text B：Combo1.Removeitem 2 C：Combo1.Removeitem 3 D：Combo1.Removeitem Combo1.Listcount 答案：B

等级：2 难度：2

知识点：VB知识点/列表框和组合框 88、通过控件数组的______属性，可区分控件数组中的不同元素。 A：Name B：Title C：Caption D：Index 答案：D

等级：2 难度：2 知识点：VB知识点/控件数组

89、事件过程是指______时所执行的程序代码。 A：运行程序 B：响应事件 C：设置属性 D：使用控件 答案：B

等级：1 难度：1

知识点：VB知识点/VB的对象、属性、方法和事件

90、列表框中的列表内容通过______属性设置。 A：Columns B：List

C：ListIndex D：ListCount 答案：B

等级：2 难度：2

知识点：VB知识点/列表框和组合框 91、调用列表框控件的______方法，可清除列表框中的所有列表项。 A：Cls

B：RemoveItem C：Clear D：Remove 答案：C

等级：2 难度：2

知识点：VB知识点/列表框和组合框

92、执行多窗体应用程序时______。

A：只能打开一个窗体，其他的窗体都会被关闭

B：允许同时打开多个窗体 C：打开一个窗体后，其他的窗体都自动隐藏

D：在某一个时刻只能打开一个窗体 答案：B

等级：3 难度：3 知识点：VB知识点/多重窗体 93、以下关于多窗体应用程序的叙述中，正确的是______。

A：连续向工程添加多个窗体，存盘后只生成一个窗体模块

B：连续向工程添加多个窗体，会生成多个窗体模块

C：每添加一个窗体，即生成一个工程文件

D：只能将第一个建立的窗体作为启动界面 答案：B

等级：2 难度：2 知识点：VB知识点/多重窗体 94、以下表述正确的是______。 A：Load语句与Show方法的功能相同

B：Unload语句与Hide方法的功能完全相同

C：Load语句与Unload的功能完全相反

D：以上三种说法都不正确 答案：C

等级：2 难度：2 知识点：VB知识点/多重窗体 95、在文本框的______属性值设为True的情况下，设置

ScrollBars属性可使文本框中出现滚动条。 A：Locked B：Alignment C：Multilines D：Enabeld 答案：C

等级：2 难度：2

知识点：VB知识点/综合应用程序举例

96、对______控件，将______属性设置为True，可实现图形自动调整大小以适应控件。 A：图像框、AutoSize B：图片框、AutoSize C：图像框、Stretch D：图片框、Stretch 答案：C

等级：3 难度：3 知识点：VB知识点/图形控件 97、通过______函数，可将指定的图形赋值给对象的Picture属

17

性。

A：LoadImage B：ImageLoad C：PictureLoad D：LoadPicture 答案：D

等级：1 难度：1 知识点：VB知识点/图形控件

98、为了使图片框和图像框的大小适应图片的大小，下面设置正确的是______。

A：AutoSize=True Stretch=True B：AutoSize=True Stretch=False

C：AutoSize=False Stretch=True

D：AutoSize=False Stretch=False 答案：B

等级：3 难度：3 知识点：VB知识点/图形控件 99、Cls可清除窗体或图片框中______的内容。

A：Picture属性设置的背景图案 B：在设计时放置的控件 C：程序运行时产生的文字 D：以上A-C全部 答案：C

等级：1 难度：1 知识点：VB知识点/图形控件

100、如果想在图片框上输出文字，则______。

A：只能使用图片编辑软件加入要输出的文字

B：可以使用Print方法在图片框上输出文字

C：不可以直接在图片框上输出文字

D：以上说法都不对 答案：B

等级：1 难度：1 知识点：VB知识点/图形控件

101、关于图片框和文本框的说法正确的是______。

A：图片框中既可以有文本也可以有图形，而文本框中只能有文字 B：图片框和文本框都有可以加载图片

C：当在图片框中增加内容时，图片框会自动变大，而文本框不会 D：可以通过Cls方法清除图片框与文本框中的内容 答案：A

等级：1 难度：1 知识点：VB知识点/图形控件

102、下列关于图像框控件的说法不正确的是______。

A：不可以作为容器使用 B：不支持图形方法 C：没有事件

D：只能用于显示图像 答案：C

等级：1 难度：1

知识点：VB知识点/控件的基本知识 103、下列关于PictureBox控件与Image控件的说法不正确的是______。

A：PictureBox可以作为控件容器，因此比Image占用系统资源多

B：Image能自动调整大小以适应载入的图片

C：PictureBox除具有Image的所有特性外，还能作为容器

D：PictureBox能使图片自动调整大小以适应自身的大小 答案：D

等级：2 难度：2 知识点：VB知识点/图形控件

104、当单击了单选按钮控件后，下列说法正确的是______。 A：只执行Click事件 B：只执行GetFocus

C：既执行事件Click，也执行事件GetFocus

D：具体执行哪个事件要在程序或属性中设定 答案：C

等级：1 难度：1

知识点：VB知识点/单选按钮和复选框

105、复选框的Value属性为1时，表示______。

A：复选框未被选中 B：复选框被选中

C：复选框内有灰色的勾 D：复选框操作有错误 答案：B

等级：1 难度：1

知识点：VB知识点/单选按钮和复选框

106、复选框对象是否被选中，可由其______属性判断。 A：Checked B：Value C：Enabled D：Selected 答案：B

等级：1 难度：1

知识点：VB知识点/单选按钮和复选框

107、框架内的所有控件是______。 A：随框架一起移动、显示、消失和屏蔽

B：不随框架一起移动、显消失和屏蔽

C：仅随框架一起移动

D：仅随框架一起显示和消失 答案：A

等级：1 难度：1

知识点：VB知识点/框架Frame控件 108、下列控件中，没有Caption属性的是______。 A：框架 B：列表框 C：复选框 D：单选按钮

答案：B

等级：2 难度：2

知识点：VB知识点/控件的基本知识

109、以下不允许用户在程序运行时输入文字的控件是______。 A：文本框

B：下拉式组合框 C：简单组合框 D：下拉式列表框 答案：D

等级：3 难度：3

知识点：VB知识点/控件的基本知识

110、时钟控件的时间间隔是______。

A：以毫秒计 B：以分钟计 C：以秒计 D：以小时计 答案：A

等级：1 难度：1 知识点：VB知识点/时钟控件 111、复选框或单选按钮的当前状态可通过______属性来设置或访问。

A：Value B：Checked C：Selected D：Caption 答案：A

等级：2 难度：2

知识点：VB知识点/单选按钮和复选框

112、若要设置定时器控件的定时时间，可通过______属性来设置。 A：Interval B：Value C：Enabled D：Text 答案：A

等级：1 难度：1 知识点：VB知识点/时钟控件 113、若要暂时关闭定时器，可通过设置______属性为False来实现。

A：Visible B：Enabled C：Interval D：Timer 答案：B

等级：1 难度：1 知识点：VB知识点/时钟控件 114、图像框或图片框中显示的图形，由对象的______属性值决定。 A：Picture B：Image

C：Downpicture D：Icon 答案：A

等级：1 难度：1 知识点：VB知识点/图形控件 115、设计动画时通常使用时钟控

18

件______来控制动画速度。 A：Move

B：Interval C：timer D：Gotfocus 答案：B

等级：1 难度：1 知识点：VB知识点/图形控件

116、若要获知当前列表项的数目，可通过访问______属性来实现。 A：List

B：ListIndex C：ListCount D：Text 答案：C

等级：1 难度：1

知识点：VB知识点/列表框和组合框 117、若要向列表框新增列表项，可使用的方法是______。 A：Add B：Remove C：Clear D：AddItem 答案：D

等级：1 难度：1

知识点：VB知识点/列表框和组合框 118、若要清除列表框的内容，可使用______方法来实现。 A：Add B：Remove C：Clear D：AddItem 答案：C

等级：1 难度：1

知识点：VB知识点/列表框和组合框 119、组合框的风格可通过______属性来设置。

A：BackStyle B：BorderStyle C：Style D：Sorted 答案：C

等级：1 难度：1

知识点：VB知识点/列表框和组合框 120、假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是______。

A：数组中每个命令按钮的名称(名称属性)均为Command1

B：数组中每个命令按钮的标题(Caption属性)都一样

C：数组中所有命令按钮可以使用同一个事件过程

D：用名称Command1(下标)可以访问数组中的每个命令按钮 答案：B

等级：2 难度：2 知识点：VB知识点/控件数组 121、设有如下通用过程：��

Public Sub Fun(a() As Integer, x As Integer)�� For i=1 To 5�� x=x+a(i)��

Next�� End Sub��

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：�� Private Sub Command1_Click()�� Dim arr(5) As Integer, n As integer��

For i=1 To 5�� arr(i)=i+i�� Next��

Call Fun(arr,n)

Text1.Text=Str(n)�� End Sub��

程序运行后，单击命令按钮，则在文本框上显示的是______。 A：30 B：25 C：20 D：15 答案：A

等级：3 难度：3

知识点：VB知识点/过程应用案例 122、语句Dim s(1 to 5) as Single定义的数组有______个元素。 A：5 B：6 C：1 D：15�� 答案：A

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

123、语句Dim s(1 to 5) as Single定义的数组是______类型的元素。 A：整型 B：日期型 C：逻辑型

D：单精度实型 答案：D

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

124、语句Dim s(5) as Single定义的数组默认情况下有______个元素。 A：5 B：6 C：2 D：10 答案：B

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

125、语句Dim s(1 to 5) as Double定义的数组是______类型的元素。 A：整型 B：日期型 C：逻辑型

D：双精度实型 答案：D

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

126、语句Dim s(1 to 5) as Currency定义的数组是______类型的元素。 A：整型 B：货币型 C：逻辑型

D：单精度实型 答案：B

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

127、语句Dim s(1 to 5) as Boolean定义的数组是______类型的元素。 A：整型 B：日期型 C：逻辑型

D：单精度实型 答案：C

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

128、语句Dim birthday(1 to 5) as Date定义的数组是______类型的元素。 A：整型 B：日期型 C：逻辑型

D：单精度实型 答案：B

等级：1 难度：1

知识点：VB知识点/数组的定义和引用 129、语句Dim s(1 to 5) as String定义的数组是______类型的元素。

A：整型 B：日期型 C：逻辑型 D：字符型 答案：D

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

130、语句Dim a(5) 定义的数组是______类型的元素。 A：整型 B：空类型 C：逻辑型 D：变体型 答案：D

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

131、语句Option Base n定义数组下标下界时，n可以是______。 A：0 B：1 C：0或1

D：任意整数 答案：C

等级：1 难度：1

知识点：VB知识点/数组的定义和

19

引用

132、数组下标上界和下界可以是任何______常量或常量表达式。 A：整型 B：日期型 C：逻辑型 D：字符型 答案：A

等级：1 难度：1 知识点：VB知识点/数组的概念

133、语句Dim aa(－1 to 1，－2 to 1) 定义了一个______的二维数组。 A：2行2列 B：1行2列 C：3行4列 D：1行1列 答案：C

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

134、语句Dim aa(－1 to 1，－2 to 1)定义的二维数组共有______个元素。 A：2 B：12 C：4 D：6 答案：B

等级：2 难度：2

知识点：VB知识点/数组的定义和引用

135、语句Dim aa(－1 to 1，－2 to 1)定义的二维数组下标下界是______。

A：－1和－2 B：－1 C：－2 D：2 答案：A

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

136、如果Dim a(－1 to 2) ，则函数LBound（a）的返回值是______。 A：－1和－2 B：－1 C：－2 D：2 答案：B

等级：2 难度：2

知识点：VB知识点/数组的定义和引用

137、如果Dim a(－1 to 2) ，则函数UBound（a）的返回值是______。 A：－1和－2 B：－1 C：－2 D：2 答案：D

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

138、根据需要用______可以重新确

定动态数组的大小。 A：ReDim B：Dim C：Static D：Public 答案：A

等级：1 难度：1

知识点：VB知识点/静态数组与动态数组

139、用ReDim不可以改变动态数组的______。 A：大小 B：类型 C：维数 D：下标值 答案：B

等级：2 难度：2

知识点：VB知识点/静态数组与动态数组

140、Private Sub Command1_Click() Dim aa As Variant aa=Array(1,2,3,4) End Sub

上面程序运行后，aa(1)的值是______。 A：1和2 B：1 C：2 D：3 答案：C

等级：2 难度：2

知识点：VB知识点/数组的基本操作 141、Private Sub Command1_Click() Dim aa As Integer aa=Array(2,4,6,8) End Sub

上面程序运行后，aa(1)的值是______。 A：4 B：1 C：2 D：6 答案：A

等级：2 难度：2

知识点：VB知识点/数组的基本操作 142、Private Sub Command1_Click() Dim aa

aa=Array(\一\二\三\四\For i=0 to 3

aa(i)=aa(i) +\分店\Next i End Sub

上面程序运行后，aa(2)的值是______。 A：一分店 B：二分店 C：三分店 D：四分店 答案：C

等级：2 难度：2

知识点：VB知识点/数组应用举例 143、Private Sub Command1_Click() Dim aa

aa=Array(\一\二\三\四\

For i=0 to 3

aa(i)=aa(i) +\公司\Next i End Sub

上面程序运行后，aa(1)的值是______。 A：一公司 B：二公司 C：三公司 D：四公司 答案：B

等级：2 难度：2

知识点：VB知识点/数组应用举例 144、Private Sub Command1_Click() Dim aa

aa=Array(\一\二\三\四\

For i=0 to 3

aa(i)=aa(i) +\小组\Next i End Sub

上面程序运行后，aa(1)的值是______。 A：一小组 B：二小组 C：三小组 D：四小组 答案：B

等级：1 难度：1

知识点：VB知识点/数组应用举例 145、Private Sub Command1_Click()

Dim aa(4) as Integer For i=1 to 4 aa(i)= aa(i)+2 Next i End Sub

上面程序运行后，aa(1)的值是______。 A：4 B：1 C：2 D：0 答案：C

等级：1 难度：1

知识点：VB知识点/数组应用举例 146、Private Sub Command1_Click() Dim b(4) as Integer For i=0 to 3 b(i)=b(i) +2 Next i End Sub

上面程序运行后，b(1)的值是______。 A：4 B：1 C：0 D：2 答案：D

20

等级：1 难度：1

知识点：VB知识点/数组应用举例 147、Private Sub Command1_Click() Dim w(4) as Integer For i=0 to 3 w(i)=w(i) +4 Next i End Sub

上面程序运行后，w(1)的值是______。 A：4 B：1 C：0 D：2 答案：A

等级：2 难度：2

知识点：VB知识点/数组应用举例 148、Private Sub Command1_Click() Dim t(4) as Integer For i=0 to 3 t(i)= i Next i End Sub

上面程序运行后，t(1)的值是______。 A：4 B：1 C：0 D：2 答案：B

等级：1 难度：1

知识点：VB知识点/数组应用举例 149、Private Sub Command1_Click() Dim t(4) as Integer For i=1 to 4 t(i)= i+1 Next i End Sub

上面程序运行后，t(1)的值是______。 A：4 B：1 C：0 D：2 答案：D

等级：2 难度：2

知识点：VB知识点/数组应用举例 150、Private Sub Command1_Click() Dim b(4) as Integer For i=1 to 4 b(i)= i+1 Next i End Sub

上面程序运行后，b(2)的值是______。 A：3 B：1 C：0 D：2 答案：A

等级：1 难度：1

知识点：VB知识点/数组应用举例 151、Private Sub Command1_Click()

Dim w(4) as integer Dim y() as integer For i=0 to 4 w(i)= i+2 Next i y=w

End Sub

上面程序运行后，y(1)的值是______。 A：0 B：1 C：3 D：2 答案：C

等级：2 难度：2

知识点：VB知识点/数组的基本操作 152、Private Sub Command1_Click() Dim w(4) as integer Dim y() as integer For i=0 to 4 w(i)= 2 * i Next i y=w

End Sub

上面程序运行后，y(1)的值是______。 A：0 B：1 C：3 D：2 答案：D

等级：2 难度：2

知识点：VB知识点/数组应用举例 153、Private Sub Command1_Click() Dim w(4) as integer Dim y() as integer For i=0 to 4 w(i)= 3 * i Next i y=w

End Sub

上面程序运行后，y(2)的值是______。 A：0 B：6 C：3 D：2 答案：B

等级：2 难度：2

知识点：VB知识点/数组的基本操作 154、Private Sub Command1_Click() Dim w(4) as integer Dim y() as integer For i=0 to 4 w(i)= w(i) + 3 Next i y=w

End Sub

上面程序运行后，y(1)的值是______。 A：0 B：6 C：3

D：2 答案：C

等级：2 难度：2

知识点：VB知识点/数组应用举例 155、在picture1上输出数组W(i)的值用______语句可以实现。 A：Pictrue1.Print W(i) B：Pictrue1= W(i)

C：Pictrue1.Picture= W(i) D：Print W(i) 答案：A

等级：2 难度：2

知识点：VB知识点/数组的基本操作

156、控件数组中第一个元素的Index值是______。 A：0 B：1 C：空值 D：2 答案：A

等级：1 难度：1 知识点：VB知识点/控件数组 157、某个控件的Index值默认情况是______。 A：0 B：1 C：空值 D：2 答案：C

等级：2 难度：2

知识点：VB知识点/控件的基本知识

158、可以通过修改控件数组中控件的______值改变其在数组中的顺序。 A：Font B：Caption C：Name D：Index 答案：D

等级：2 难度：2 知识点：VB知识点/控件数组 159、在程序运行时用______语句可以添加控件数组元素。 A：Add B：New C：Index D：Load 答案：D

等级：3 难度：3 知识点：VB知识点/控件数组 160、在程序运行时用______语句可以删除控件数组元素。 A：UnLoad B：Delete C：Index D：Load 答案：A

等级：3 难度：3 知识点：VB知识点/控件数组 161、Private Sub

Command1_Click(Index As

21

Integer)

Select Case Index Case 0

Label1.BackColor= VbRed Case 1

Label1.BackColor= VbGreen Case 2

Label1.BackColor= VbBlue End Select End Sub

程序运行时单击第二个命令按扭Label1的背景色是______色。 A：红 B：绿 C：蓝 D：白 答案：B

等级：2 难度：2 知识点：VB知识点/控件数组 162、Private Sub

Command1_Click(Index As Integer) Select Case Index Case 0

Text1.BackColor = VbRed Case 1

Text1.BackColor = VbGreen Case 2

Text1.BackColor = VbBlue End Select End Sub

程序运行时单击第三个命令按扭Text1的背景色是______色。 A：红 B：绿 C：蓝 D：白 答案：C

等级：2 难度：2 知识点：VB知识点/控件数组 163、Private Sub Command1_Click() Dim i as integer,j as integer Dim b(5,5) as integer For i=0 to 3 For j=0 to 3

b(i,j) = i*2 + j Print b(i,j) Next j Print Next i End Sub

上面程序运行后,b数组的第2行第2列的数是______。 A：6 B：5 C：4 D：3 答案：D

等级：3 难度：3

知识点：VB知识点/数组应用举例 164、Private Sub Command1_Click() Dim i as integer， j as integer Dim k(5,5) as integer For i=1 to 3

For j=1 to 3

k(i,j) = i*2 + j Print k(i,j) Next j Print Next i End Sub

上面程序运行后的k(2,3)的值是______。 A：6 B：7 C：8 D：9 答案：B

等级：3 难度：3

知识点：VB知识点/数组应用举例 165、运行程序时，系统自动执行窗体的______事件。 A：Load B：Click C：Unload D：GotFocus 答案：A

等级：1 难度：1

知识点：VB知识点/简单控件设计 166、以下对变量或常量的声明语句中错误的是______。 A：dim d1

B：dim d2＝\ C：Const d3＝123 D：Static d4% 答案：B

等级：1 难度：1

知识点：VB知识点/程序书写规则及格式约定

167、若要设置或返回文本框中的文本，可通过文本框的______属性来实现。

A：Caption B：(名称) C：Text D：Name 答案：C

等级：1 难度：1

知识点：VB知识点/简单控件设计 168、确定控件在窗体上的位置的属性是______。

A：Width或Height B：Width和Height C：Top或Left D：Top和Left 答案：D

等级：2 难度：2

知识点：VB知识点/简单控件设计 169、下列符号中不能作为VB变量名的是______。 A：bc2 B：f0a C：26abc D：XYZ 答案：C

等级：1 难度：1 知识点：VB知识点/常量与变量

170、下面语句Dim A(-3 To 5) As Integer定义的数组的元素个数是______。 A：6 B：7 C：8 D：9 答案：D

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

171、用下面语句定义的数组的元素个数是______。 Option Base 0

Dim a(5) As Integer A：5 B：6 C：7 D：8 答案：B

等级：2 难度：2

知识点：VB知识点/数组的定义和引用

172、下面语句中正确的是______。

A：Dim a As Variant a = Array(1,2,3,4,5)

B：Dim a(10) As Integer a = Array(1,2,3,4,5) C：Dim a%(10) a(1) = \

D：Dim a(3),b(3) As Integer a(0) = 0 a(1) = 1 a(2) = 2 b = a 答案：A

等级：2 难度：2

知识点：VB知识点/数组的定义和引用

173、Public conters(2 to 14) As Integer声明正确的是______。 A：定义一个公用变量conters，其值可以是2到14之间的一个整型数

B：定义一个公用数组conters，数组内可存放14个整数

C：定义一个公用数组conters，数组内可存放13个整数

D：定义一个公用数组conters，数组内可存放12个整数 答案：C

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

174、在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：

Private Sub Command1_Click() Dim Arr1(10), arr2(10) As Integer n=3

For i = 1 To 5

22

Arr1(i) = i

arr2(n) = 2 * n + i Next i

Print arr2(n); Arr1(n) End Sub

程序运行后，单击命令按钮，输出结果是______。 A：11 3 B：3 11 C：13 3 D：3 13 答案：A

等级：3 难度：3

知识点：VB知识点/数组应用举例 175、在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：

Option Base 1

Private Sub Command1_Click() Dim a(10), p(3) As Integer k=5

For i= 1 To 10 a(i)= i Next i

For i= 1 To 3 p(i) = a(i * i) Next i

For i = 1 To 3 k = k + p(i) * 2 Next i End Sub

程序运行后，单击命令按钮，输出k的值是______。 A：35 B：28 C：33 D：37 答案：C

等级：3 难度：3

知识点：VB知识点/数组应用举例 176、在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：

Option Base 1

Private Sub Command1_Click() Dim a

a = Array(1, 2, 3, 4) j=1

For i = 4 To 1 Step -1 s = s + a(i)*j j =j * 10 Next i End Sub

运行上面的程序，单击命令按钮，输出s的值是______。 A：4321 B：12 C：34 D：1234 答案：D

等级：3 难度：3

知识点：VB知识点/数组应用举例 177、在窗体上画一个命令按钮(其

Name属性为Command1)，然后编写如下代码：

Option Base 1

Private Sub Command1_Click() Dim Arr(3) As Integer For i = 1 To 3 For j = 1 To 3

Arr(j) = Arr(i) + 1 Next j Next i End Sub

程序运行后，单击命令按钮，输出Arr(3)的值是______。 A：7 B：6 C：5 D：4 答案：C

等级：3 难度：3

知识点：VB知识点/数组应用举例 178、以下程序输出的结果是______。Option Base 1

Private Sub Command1_Click() Dim a%(3, 3) For i = 1 To 3 For j = 1 To 3

If j > 1 And i > 1 Then

a(i, j) = a(a(i - 1, j - 1), a(i, j - 1)) + 1 Else

a(i, j) = i * j End If

Print a(i, j); \Next j Print Next i End Sub

A：1 2 3 2 3 1 3 2 3

B：1 2 3 1 2 3 1 2 3

C：1 2 3 2 4 6 3 6 9

D：1 1 1 2 2 2 3 3 3 答案：A

等级：3 难度：3

知识点：VB知识点/数组应用举例 179、下面程序的功能是：计算1到50之间的偶数和及偶数平方和,并显示出来。请选择正确答案。 Private Sub Form_Click() Dim SUM1 As Integer, SUM2 As Integer, I As Integer SUM1 = 0: SUM2 = 0

For I = 2 To 50 Step 2 SUM1 =______ SUM2 = SUM2+I*I Next I

Print \偶数和=\

Print \偶数平方和=\End Sub A：I B：I*I C：SUM1+I D：SUM2+I*I 答案：C

等级：3 难度：3

知识点：VB知识点/控制结构应用程序举例

180、下面程序的功能是：读入n后，求算式 1+1/2！+1/3！+……+1/n！的值。请选择正确答案。 Private Sub Form_Click() Dim SUM As Single, ITEM As Single

Dim NN As String

Dim I As Integer, J As Integer, N As Integer

NN = InputBox(\请输入求的项数n\

N = VAL（nn） SUM = 1

For I = 2 To N ITEM = 1

For J = 1 To I ITEM =______ Next J

SUM = SUM+1/ITEM Next I

Print \End Sub

A：ITEM*J B：ITEM+J C：J*J

D：ITEM*ITEM 答案：A

等级：3 难度：3

知识点：VB知识点/控制结构应用程序举例

181、在窗体上有一个名称为command1的命令按钮，然后编写如下事件过程。请在______处选择正确答案。

Private Sub Command1_Click() Dim a As Integer, s As Integer a = 8: s = 1 Do

s = s + a: a = a - 1 Loop While a <= 0 End Sub

程序运行后，单击命令按钮，s的值为______，a的值为7。 A：7 B：34 C：9 D：死循环 答案：C

等级：3 难度：3

知识点：VB知识点/控制结构应用程序举例

182、以下属于Visual Basic合法

23

的数组元素是______。 A：x8 B：x[8] C：s(0) D：v.8 答案：C

等级：1 难度：1 知识点：VB知识点/数组的概念 183、设有命令按钮Command1的单击事件过程，代码如下：

Private Sub Command1_Click() Dim a(3，3)As Integer For i=1 To 3 For j=1 To 3 a(i，j)=i*j+i Next j Next i Sum=0

For i=1 To 3

Sum=Sum+a(i，4-i) Next i End Sub

运行程序，单击命令按钮，输出Sum的结果是______。 A：20 B：7 C：16 D：17 答案：C

等级：3 难度：3

知识点：VB知识点/数组应用举例 184、在窗体上添加如下命令按钮，然后编写如下事件过程：

Private Sub Command1 _ Click() Dim a(10)As Integer Dim p(3)As Integer k=5

For i=1 To 10 a(i)=i Next i

For i=1 To 3 p(i)=a(i*i) Next i

For i=1 To 3 k=k+p(i)*2 Next i End Sub

运行程序，单击命令按钮，输出k的结果是______。 A：35 B：33 C：31 D：29 答案：B

等级：3 难度：3

知识点：VB知识点/数组应用举例 185、设有如下程序： Option Base 0

Private Sub Form _ Click( ) Dim a

Dim i As Integer

a=Array(1，2，3，4，5，6，7，8，9)

For i=0 To 3 Print a(5-i); Next i End Sub

程序运行后，单击窗体，则在窗体上显示的是______。 A：4 3 2 1 B：5 4 3 2 C：6 5 4 3 D：7 6 5 4 答案：C

等级：3 难度：3

知识点：VB知识点/数组应用举例 186、在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim array1(10,10) As Integer Dim i,j As Integer For i=1 To 3 For j=2 To 4 array1(i,j)=i+j Next j Next i

Text1.Text=array1(2,3)+array1(3,4)

End Sub

程序运行后，单击命令按钮，在文本框中显示的值是______。 A：12 B：13 C：14 D：15 答案：A

等级：3 难度：3

知识点：VB知识点/数组应用举例 187、在窗体上画一个名称为

Command1的命令按钮，然后编写如下程序：

Private Sub Command1_Click() Dim i As Integer,j As Integer Dim a(10,10)As Integer For i=1 To 3 For j=1 To 3

a(i,j)=(i-1)*3+j Print a(i,j); Next j Print Next i End Sub

程序运行后，单击命令按钮，窗体上显示的是______。 A：123 246 369

B：234 345 456

C：147 258 369

D：123 456

789

答案：D

等级：3 难度：3

知识点：VB知识点/数组应用举例 188、在窗体上画三个单选按钮，组成一个名为chkOption的控件数组。用于标识各个控件数组元素的参数是_____。 A：Tag B：Index

C：ListIndex D：Name 答案：B

等级：2 难度：2 知识点：VB知识点/控件数组 189、设在窗体上有一个名称为Command1的命令按钮，并有以下事件过程

Private Sub Command1_Click() Static b As Variant b=Array(1,3,5,7,9) …… End Sub

此过程的功能是把数组b中的5个数逆序存放（即排列为

9,7,5,3,1）。为实现此功能，省略号处的程序段应该是_____。 A：For i=0 to 5-12 tmp=b(i)

b(i)=b(5-i-1) b(5-i-1)=tmp Next

B：For i=0 to 5 tmp=b(i)

b(i)=b(5-i-1) b(5-i-1)=tmp Next

C：For i=0 to 5\\2 tmp=b(i)

b(i)=b(5-i-1) b(5-i-1)=tmp Next

D：For i=1 to 52 tmp=b(i)

b(i)=b(5-i-1) b(5-i-1)=tmp Next 答案：C

等级：3 难度：3

知识点：VB知识点/数组应用举例 190、在窗体上画一个名称为Command1的命令按钮，然后编写如下代码： Option Base 1

Private Sub Command1_Click() d=0 c=10

x=Array(10, 12, 21, 32, 24) For i= 1 To 5 If x(i) > c Then d =d+x(i) c=x(i) Else

24

d=d-c End If Next i End Sub

程序运行后，如果单击命令按钮，则在窗体上输出d的内容为______。 A：89 B：99 C：23 D：77 答案：C

等级：3 难度：3

知识点：VB知识点/数组应用举例 191、以下有关数组定义的语句序列中，错误的是_____。

A：Static arrl(3) arrl(1)=100 arrl(2)=\arrl(3)=123、45 …… End Sub

B：Dim arr2() As Integer Dim size As Integer

Private Sub Command2_Click() size=Input Box(\输入:\ReDim arr2(size) C：Option Base 1

Private Sub Command3_Click() Dim arr3(3) As Integer …… End Sub

D：Dim n As Integer

Private Sub Command4_Click() Dim arr4(n) As Integer …… End Sub 答案：D

等级：3 难度：3

知识点：VB知识点/数组的定义和引用

192、以下定义数组或给数组元素赋值的语句中，正确的是_____。 A：Dim a As Variant a=Array(1,2,3,4,5)

B：Dim a(10) As Integer a=Array(1,2,3,4,5) C：Dim a%(10) a(1)=\

D：Dim a(3),b(3) As Integer a(0)=0 a(1)=1 a(2)=2 b=a

答案：A

等级：2 难度：2

知识点：VB知识点/数组的定义和引用

193、在窗体上画一个名称为

Command1的命令按钮，然后编写如下事件过程： Option Base 1

Private Sub Command1_Click() Dim a

a= Array(1,2,3,4,5) For i=1 To UBound(a) a(i) = a(i)+i-1 Next End Sub

程序运行后，单击命令按钮，则在窗体上显示a(3)的内容是______。 A：4 B：5 C：6 D：7 答案：B

等级：2 难度：2

知识点：VB知识点/数组应用举例 194、阅读程序 Option Base 1

Private Sub Form_Click() Dim arr,Sum Sum = 0 arr =

Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10

If arr(i)/3 = arr(i)\\3 Then Sum = Sum + arr(i) End If Next i End Sub

程序运行后，单击窗体，输出Sum的结果为______。 A：13 B：14 C：27 D：15 答案：C

等级：3 难度：3

知识点：VB知识点/数组应用举例 195、在窗体上画一个名称为

Command1的命令按钮，然后编写如下程序：

Option Base 1

Private Sub Command1_Click() Dim a As Variant a=Array(1,2,3,4,5) Sum=0

For i=1 To 5 Sum = sum+a(i) Next i x=Sum/5

For i =1 To 5

If a(i)>x Then Print a(i); Next i End Sub

程序运行后，单击命令按钮，在窗体上显示的内容是______。 A：1 2 B：1 2 3 C：3 4 5 D：4 5 答案：D

等级：3 难度：3

知识点：VB知识点/数组应用举例 196、关于ReDim语句，错误的是______。

A：ReDim语句只能出现在过程中

B：与Dim不同，ReDim是一个可执行语句

C：ReDim的作用是声明动态数组

D：ReDim的作用是给动态数组分配实际的元素个数 答案：C

等级：3 难度：3

知识点：VB知识点/静态数组与动态数组

197、InputBox函数返回值的类型为______。 A：数值 B：字符串 C：变体 D：逻辑 答案：B

等级：1 难度：1

知识点：VB知识点/常用内部函数 198、要分配一个3×3的单精度类型的数组，正确的数组声明语句是______。

A：Dim a(9) As Single

B：Dim a(-1 To 1,-5 To -3) As Single

C：Dim a(3,3) As Single D：Dim a(-3 To 1,-5 To 7) As Single 答案：B

等级：2 难度：2

知识点：VB知识点/数组的定义和引用

199、假定通过复制，粘贴建立了1个命令按钮数组Command1，则以下说法中错误的是______。

A：数组中每个命令按钮的名称均为Command1

B：数组中每个命令按钮的大小都一样

C：数组中每个命令按钮可以使用同一个事件过程

D：用名称Command1可以访问数组每个命令按钮 答案：D

等级：2 难度：2 知识点：VB知识点/控件数组 200、下列程序段的执行结果为______。 Dim t(10) For k=2 To 10 t(k) =11 - k Next k x=6

Print t(2 + t(x) ) A：2 B：3

C：4 D：5 答案：C

等级：2 难度：2

知识点：VB知识点/数组应用举例

25

201、窗体上有Command1、Command2两个命令按钮 Option Base 0

Dim a() As Integer,m As Integer Private Sub Command1_Click() M=InputBox(\请输入一个正整数\ReDim a(m) End Sub

Private Sub Command2_Click() m=InputBox(\请输入一个正整数\ReDim a(m) End Sub

运行程序时，单击Command1后输入整数10，再单击Command2后输入整数5，则数组a中元素的个数是______。 A：5 B：6 C：10 D：11 答案：B

等级：3 难度：3

知识点：VB知识点/静态数组与动态数组

202、下列______语句可以为动态数组分配实际元素个数。 A：Dim语句 B：static语句 C：public语句 D：ReDim语句 答案：D

等级：1 难度：1

知识点：VB知识点/静态数组与动态数组

203、下列程序的运行结果为______。 Dim a(-1 To 6) For i=LBound(a, 1) To UBound(a, 1) a(i) =i Next i

Print a(LBound(a, 1) ) ; a(UBound(a, 1) ) A：0 0 B：-5 0 C：-1 6 D：0 6 答案：C

等级：3 难度：3

知识点：VB知识点/数组的定义和引用

204、下面的数组声明中，正确的是______。

A：Dim pict[3,4] As Integer B：Dim pict(3,4) As Integer C：Dim pict[3、4] As Integer D：Dim pict(3:4) As Integer 答案：B

等级：2 难度：2

知识点：VB知识点/数组的定义和引用

205、若要向列表框中新增列表项，可使用的方法是______。 A：Add B：Remove C：Clear

D：AddItem 答案：D

等级：1 难度：1

知识点：VB知识点/列表框和组合框 206、在过程定义中用下列______表示形参的传值。 A：Var B：ByRef C：Byval D：Value 答案：C

等级：1 难度：1 知识点：VB知识点/参数的传递 207、若已编写了一个Sort子过程，在该工程中有多个窗体，为了方便地调用Sort子过程，应将该过程放在______中。 A：窗体模块 B：标准模块 C：类模块 D：工程 答案：B

等级：2 难度：2 知识点：VB知识点/Sub过程

208、要想从子过程调用后返回两个结果，下面子过程说明语句合法的是______。

A：Sub f2(ByVal n%, ByVal m%) B：Sub f1(n%, ByVal m%) C：Sub f1(n%, m%)

D：Sub f1(ByVal n%, m%) 答案：C

等级：3 难度：3 知识点：VB知识点/Sub过程

209、下面子过程说明语句合法的是______。

A：Sub f1(ByVal n()) as integer B：Sub f1(n() as integer) as integer

C：function f1(f1 as integer) as integer

D：function f1(ByVal n as integer) 答案：D

等级：2 难度：2 知识点：VB知识点/Sub过程 210、已知函数定义Function

f(x1%,x2%) as integer，则下列调用语句正确的是______。 A：a=f(x,y) B：call f(x,y) C：f(x,y) D：f x y 答案：A

等级：2 难度：2 知识点：VB知识点/参数的传递 211、不能脱离对象而独立存在的过程是______。 A：事件过程 B：通用过程 C：子过程 D：函数过程 答案：A

等级：1 难度：1 知识点：VB知识点/Sub过程 212、SUB过程与Function过程最根本的区别是______。

A：Function过程的名字可以看作是变量（有值和类型），而Sub过程的名字则不可以

B：Function过程可以有形参，而SUB过程不可以

C：SUB过程不能返回值，而Function过程可以返回值

D：两种过程的传递方式不同 答案：A

等级：1 难度：1 知识点：VB知识点/Sub过程

213、设有如下：sub ff(x,y,z) x=y+z End sub

以下所有参数的虚实结合都是传地址的调用语句是______。 A：Call ff(5,6,a) B：Call ff(x,y,z)

C：Call ff(3+x,5+y,z) D：Call ff(y+x,x-y,z) 答案：B

等级：2 难度：2 知识点：VB知识点/参数的传递 214、下列关于函数过程的叙述中，正确的是______。

A：如果不指明函数参数的类型，则此参数没有数据类型

B：函数过程的形参和实参的个数不需要对应

C：当数组作为函数的参数时，既可以按传值方式，也可以按传地址方式

D：函数过程中形参的类型与函数返回值的类型没有关系 答案：D

等级：2 难度：2 知识点：VB知识点/函数过程 215、以下关于过程的叙述中，错误的是______。

A：事件过程是由某个事件触发的过程

B：通过函数过程的名可以返回多个值

C：可以在事件过程中调用函数过程

D：不能在事件过程中定义函数过程 答案：B

等级：1 难度：1 知识点：VB知识点/函数过程

216、若有一个过程定义成Public Sub W1(ByVal x As Integer , y As Integer)，调用过程的正确形式是______。 A：W1(x,3)

B：Call W1 3,x C：a=W1(x,3) D：Call W1(3,x) 答案：D

26

等级：2 难度：2 知识点：VB知识点/Sub过程

217、从子过程退出，并返回到主调过程，可使用语句______。 A：Return B：Exit Sub C：Exit

D：Stop Sub 答案：B

等级：1 难度：1 知识点：VB知识点/Sub过程

218、在过程定义中，形参有传值、传地址两种方式，默认为传地址方式，也可以在形参前加______关键字表示传地址方式。 A：Var B：ByRef C：Byval D：Value 答案：B

等级：1 难度：1 知识点：VB知识点/参数的传递 219、下列______方式声明的变量在每次调用该过程时其值不能保留。 A：在通用声明段声明窗体级变量 B：在过程中用Static语句声明的变量

C：在过程中用Dim语句声明的变量 D：在标准模块中声明的全局变量 答案：C

等级：1 难度：1

知识点：VB知识点/变量与过程的作用域

220、下面的过程定义语句中______是合法的。

A：Function Sub1(Sub1) B：Function Sub1(ByVal n) C：Sub Sub1(Sub1)

D：Sub Sub1(n) As Integer 答案：B

等级：2 难度：2 知识点：VB知识点/Sub过程

221、下列函数中______函数返回的值是数值型的。 A：Instr B：Mid C：Space D：Chr 答案：A

等级：1 难度：1

知识点：VB知识点/常用内部函数 222、过程通过参数传递将一个参数传递给子过程A，并返回一个结果，下列子过程定义中正确的是______。 A：Sub A (m+1,n+2)

B：Sub A (ByVal m!, ByVal n!) C：Sub A (ByVal m!, n+2) D：Sub A (ByVal m!, n!) 答案：D

等级：2 难度：2 知识点：VB知识点/参数的传递 223、在函数与过程定义中，某些参数如果要使用传地址的方式，则应在

这些参数的前面______。 A：加ByVal

B：加ByReference C：加ByAddress D：不用写什么 答案：D

等级：1 难度：1 知识点：VB知识点/参数的传递 224、根据变量的作用域，可以将变量分为3类，它们是______。

A：局部变量、窗体/模块级变量和标准变量

B：局部变量、模块级变量和标准变量

C：局部变量、窗体/模块级变量和全局变量

D：局部变量、窗体变量和全局变量

答案：C

等级：1 难度：1

知识点：VB知识点/变量与过程的作用域

225、在过程A中定义了静态变量y。当调用过程A后，在退出过程A前，y的值为5。请问，下次再进入过程A时，y的值为______。 A：不定值 B：5 C：0

D：无定义出错 答案：B

等级：1 难度：1

知识点：VB知识点/变量与过程的作用域

226、以下关于过程及过程参数的描述中，正确的是______。

A：变量作为过程的参数时，只能使用\传地址\方式进行

B：数组作为过程的参数时，只能使用\传地址\方式进行

C：在VB中，允许用户对子过程或函数过程进行嵌套定义

D：只有函数过程能够将过程中处理的信息传回到调用的程序中 答案：B

等级：2 难度：2 知识点：VB知识点/参数的传递

227、下列叙述中正确的是______。 A：在窗体的Form_Load事件过程中声明的变量是全局变量

B：局部变量的作用域可以超出所定义的过程

C：在某个Sub过程中声明的变量可与其他事件过程中声明的变量同名，但作用域只限于该过程

D：在调用过程时，所有数值型局部变量被系统初始化为0 答案：C

等级：2 难度：2

知识点：VB知识点/变量与过程的作用域

228、在Visual Basic应用程序中______。

A：过程的定义可以嵌套，但过程的调用不能嵌套

B：过程的定义不可以嵌套，但过程的调用可以嵌套

C：过程的定义和过程的调用均可以嵌套

D：过程的定义和过程的调用均不能嵌套 答案：B

等级：1 难度：1 知识点：VB知识点/Sub过程 229、假定有以下两个过程： Sub S1 (ByVal x As Integer, ByVal y As Integer) Dim t As Integer t=x:x=y:y=t End Sub

Sub S2 (x As Integer, y As Integer)

Dim t As Integer t=x:x=y:y=t End Sub

当调用这两个子过程时，以下说法中正确的是______。

A：用过程S1可以实现交换两个实参的值的操作，S2不能实现 B：用过程S2可以实现交换两个实参的值的操作，S1不能实现 C：用过程S1和S2都可以实现交换两个实参的值的操作

D：用过程S1和S2都不能实现交换两个实参的值的操作 答案：B

等级：3 难度：3 知识点：VB知识点/参数的传递 230、使用过程是为了______。 A：使程序模块化 B：使程序易于阅读 C：提高程序运行速度 D：便于系统的编译 答案：A

等级：1 难度：1 知识点：VB知识点/Sub过程 231、Sub过程的定义______。 A：一定要有形参

B：一定要指明是公有的还是私有的

C：一定要有过程的名称 D：一定要指定其类型 答案：C

等级：1 难度：1 知识点：VB知识点/Sub过程 232、Function过程的定义______。

A：一定要有形参

B：一定要有End Function语句 C：一定要有As<类型>语句 D：一定要指明它的存储类别 答案：B

等级：1 难度：1 知识点：VB知识点/函数过程 233、Function过程有别于Sub过程的最主要的特点是______。

27

A：Function过程一定要有形参，而Sub过程可以没有形参

B：Function过程的终端语句是End Function，而Sub过程的终端语句是End Sub

C：Function过程用于计算函数值，而Sub过程用于改变属性值

D：Function过程可以通过函数过程名返回函数值，而Sub过程名不能返回数值 答案：D

等级：2 难度：2 知识点：VB知识点/Sub过程

234、要定义一个过程为局部过程，应使用______关键字。 A：Static B：Public C：Private D：Sub 答案：C

等级：1 难度：1

知识点：VB知识点/变量与过程的作用域

235、下列函数过程叙述，正确的是______。

A：函数名只能被赋值一次

B：函数名没有被赋值，就没有函数值返回调用过程中

C：函数名可以多次被赋值

D：定义函数过程的类型是指定义形参的类型 答案：C

等级：1 难度：1 知识点：VB知识点/函数过程

236、下列定义abc过程的语句，正确的是______。

A：Dim Sub abc(x,y) B：Public abc(x,y)

C：Private Sub abc(x,y) As Integer

D：Sub abc(x,y) 答案：D

等级：1 难度：1 知识点：VB知识点/Sub过程

237、下列定义Funct函数过程的语句，错误的是______。

A：Private Public Funct(a) As Integer

B：Static Function Funct(a) C：Private Function Funct(a As Single)

D：Function Funct(a As Integer) As Integer 答案：A

等级：1 难度：1 知识点：VB知识点/函数过程 238、过程级变量属于______。 A：全局变量 B：静态变量 C：局部变量 D：变体变量 答案：C

等级：2 难度：2

知识点：VB知识点/变量与过程的作用域

239、用Static关键字定义过程是指______。

A：声明过程名是静态的 B：声明形参是静态的

C：声明过程中的局部变量是静态的

D：声明函数过程的返回值是静态的

答案：C

等级：3 难度：3

知识点：VB知识点/变量与过程的作用域

240、在窗体模块的通用声明中声明变量时，不能使用______关键字。 A：Dim B：Private C：Public D：Static 答案：D

等级：3 难度：3

知识点：VB知识点/变量与过程的作用域

241、假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。

Model1代码如下：

Public x As Integer Public y As Integer Sub S1() x =1 S2

End Sub Sub S2() y=10

Form1、Show End Sub

Model2的代码如下： Sub Main() S1

End Sub

其中Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是______。

A：Form1-> Model1-> Model2 B：Model1-> Model2-> Form1 C：Model2-> Model1-> Form1 D：Model2-> Form1-> Model1 答案：C

等级：3 难度：3

知识点：VB知识点/VB的工程结构 242、以下叙述中错误的是______。 A：在通用过程中，多个形参之间可以用逗号作为分隔符

B：在Print方法中，多个输出项之间可以用逗号作为分隔符

C：在Dim语句中，所定义的多个变量可以用逗号作为分隔符

D：当一行中有多个语句时，可以用逗号作为分隔符 答案：D

等级：2 难度：2

知识点：VB知识点/VB的工程结构 243、VB语言中关于过程或函数的形参用法说明不正确的是______。

A：ByVal类别的形参，是按参数的值进行传递

B：在地址调用时，实参可以是变量，也可以是常量

C：一般调用时，所给定的实参需与形参的顺序及类型相容或相同

D：形参的类型可以用已知的或用户已定义的类型来指定，也可以不指定 答案：B

等级：3 难度：3 知识点：VB知识点/参数的传递 244、以下叙述中，错误的是______。

A：一个工程中可以包含多个窗体文件

B：在一个窗体文件中用

Private定义的通用过程能被其他窗体调用

C：设计VB程序时，窗体、标准模块、类模块需要分别保存为不同类型的磁盘文件

D：全局变量必须在标准模块中定义 答案：B

等级：2 难度：2

知识点：VB知识点/VB的工程结构 245、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click() Static x As Integer Cls

For i=1 to 2 y=y+x x=x+2 Next

Print x,y End Sub

程序运行后，连续3次单击

Command1按钮后，窗体上显示的是______。 A：4 2 B：12 18 C：12 30 D：4 6 答案：B

等级：3 难度：3

知识点：VB知识点/变量与过程的作用域

246、如果整型变量A、b的值分别为3和1，则下列语句中循环体的执行次数是______。 For I=a to b Print I Next I A：0 B：1

28

C：2 D：3 答案：A

等级：1 难度：1 知识点：VB知识点/循环结构 247、以下Case语句中错误的是______。

A：Case 0 To 10 B：Case Is>10

C：Case Is>10 And Is<50 D：Case 3,5,Is>10 答案：C

等级：1 难度：1

知识点：VB知识点/分支(选择)结构 248、在窗体中添加一个命令按钮Command1，并编写如下程序： Private Sub Command1_Click( ) x=InputBox()

If x^2=9 Then y=x If x^2<9 Then y=1/x If x^2>9 Then y=x^2+1 End Sub

程序运行后，在InputBox中输入3，单击命令按钮，y的运行结果是______。 A：3 B：0.33 C：17 D：0.25 答案：A

等级：2 难度：2

知识点：VB知识点/分支(选择)结构 249、在窗体中添加一个名称为

Command1的命令按钮，然后编写如下程序：

Private Sub Command1_Click() For i = 1 To 4 a = 1

For j = 1 To 3 a = 2

For k = 1 To 2 a = a + 6 Next k Next j Next i End Sub

程序运行后，单击命令按钮，则在窗体上显示a的内容是______。 A：14 B：15 C：16 D：17 答案：A

等级：3 难度：3 知识点：VB知识点/循环结构

250、当VB执行下面语句后，A的值为______。 A=1

If A>0 Then A=A+1 If A>1 Then A=0 A：0 B：1 C：2

D：3 答案：A

等级：1 难度：1

知识点：VB知识点/分支(选择)结构 251、设有如下程序段： x=2

For i=1 To 10 Step 2 x=x+i Next

运行以上程序后，x的值是______。 A：26 B：27 C：38 D：57 答案：B

等级：1 难度：1 知识点：VB知识点/循环结构

252、运行下列程序段后，显示的结果为______。 J1=23 J2=32

If J1

A：23 B：32 C：55 D：2332 答案：B

等级：1 难度：1

知识点：VB知识点/分支(选择)结构 253、执行以下语句后显示结果为______。

Dim x As Integer

If x Then Print x Else Print x-l A：1 B：0 C：-1

D：不确定 答案：C

等级：2 难度：2

知识点：VB知识点/分支(选择)结构 254、下列关于do while …loop 和do…loop until循环执行循环体次数的描述正确的是______。

A：do while …loop循环和do…loop until循环至少都执行一次 B：do while …loop循环和do…loop until循环可能都不执行

C：do while …loop循环至少执行一次，do…loop until循环可能不执行

D：do while …loop循环可能不执行，do…loop until循环至少执行一次

答案：D

等级：1 难度：1 知识点：VB知识点/循环结构

255、下列语句正确的是______。 A：If A≠B Then Print \不等于B\

B：If A<>B Then Printf \不等于B\

C：If A<>B Then Print \不等于

B\

D：If A≠B Print \不等于B\答案：C

等级：1 难度：1

知识点：VB知识点/分支(选择)结构

256、假设 x的值为5，则在执行以下语句时，其输出结果为\的Select case语句是______。 A：Select Case X Case 10 to 1 Print \End Select

B：Select Case X Case Is > 5,Is <5 Print \End Select

C：Select Case X Case Is > 5,1,3 to 10 Print \End Select

D：Select Case X Case 1,3 Is > 5 Print \End Select 答案：C

等级：2 难度：2

知识点：VB知识点/分支(选择)结构

257、执行下面的程序段后，x的值为______。 x=10

For i=1 To 20 Step 3 x=x+i\\4 Next I A：24 B：25 C：26 D：27 答案：B

等级：2 难度：2 知识点：VB知识点/循环结构

258、如果变量A、B、c均为整型，下列程序段的输出结果为______。 a=2 b=3 c=a*b

Print a & \ A：c=6 B：a*b=c C：2*3=6 D：a*b=6 答案：C

等级：1 难度：1 知识点：VB知识点/顺序结构 259、下列程序段的执行结果为______。 X=2 Y=1

If X*Y<1 Then Y=Y-1 Else Y=-1 Print Y-X>0 A：True

29

B：False C：-1 D：1 答案：B

等级：1 难度：1

知识点：VB知识点/分支(选择)结构 260、下列程序段的执行后，I的值为______。 I=0

For G=10 To 19 Step 3 I=I+1 Next G A：4 B：5 C：3 D：6 答案：A

等级：1 难度：1 知识点：VB知识点/循环结构

261、下列程序段的执行后，A、B的结果分别为______。 A=0：B=0

For I= -1 TO -2 Step -1 For J=1 TO 2 B=B+1 Next J A=A+1 Next I A：2 4 B：-2 2 C：4 2 D：2 3 答案：A

等级：1 难度：1 知识点：VB知识点/循环结构

262、下面有关注释语句的格式，错误的是______。 A：Rem 注释内容 B：′注释内容

C：a=3:b=2 ′对A、b赋值 D：Private Sub

Command1_MouseDown(button As Integer,shift As Integer, _ Rem鼠标按下事件的命令调用过程 X As Single ,Y As Single) 答案：D

等级：1 难度：1 知识点：VB知识点/顺序结构

263、以下程序段运行时从键盘上输入字符\，则a的值为______。 op$=InputBox(\If op$=\If op$=\ A：2 B：-2 C：0 D：+2 答案：B

等级：2 难度：2

知识点：VB知识点/分支(选择)结构 264、编写如下程序：

Private Sub Form_Click() a$=\：b$=\

For j=1 To 5

Print Mid$(a$，6-j，1)+Mid$(b$，j，1)； Next j Print End Sub

程序运行后，单击窗体，其输出结果为______。

A：a1b2c3d45e B：a5b4c3d2e1 C：e1d2c3b4a5 D：1a2b3c4d5e 答案：D

等级：2 难度：2 知识点：VB知识点/循环结构 265、在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click() Dim x As Integer, n As Integer x=1 n=0

Do While x<20 x=x*3 n=n+1 Loop

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

程序运行后，单击命令按钮，在两个文本框中显示的值分别是______。 A：15和1 B：27和3 C：195和3 D：600和4 答案：B

等级：3 难度：3 知识点：VB知识点/循环结构

266、在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click() x=0

Do Until x=-1

a=InputBox(\请输入A的值\a=Val(a)

b=InputBox(\请输入B的值\b=Val(b)

x=InputBox(\请输入x的值\x=Val(x) a=a+b+x Loop End Sub

程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、l、-1，则a的输出结果为______。 A：2 B：3 C：14 D：15 答案：A

等级：2 难度：2

知识点：VB知识点/分支(选择)结构

267、设有如下程序：

Private Sub Form_Click() score = Int(Rnd * 10) + 30 Select Case score Case Is < 10 a$ = \

Case 10 To 19 a$ = \

Case 20 To 29 a$ = \

Case 30 To 39 a$ = \Case Else a$ = \End Select End Sub

程序运行后，单击窗体，则在窗体上显示a$的结果是______。 A：A B：B C：C D：D 答案：B

等级：2 难度：2

知识点：VB知识点/分支(选择)结构

268、在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后 编写如下事件过程：

Private Sub Commandl_C1ick() S＝0

For i＝1 to 15 x＝2*i-1

If x Mod 3＝0 Then s＝s+1 Next i

Label1.Caption=s End Sub

程序运行后，单击命令按钮，则标签中显示的内容是______。 A：1 B：5 C：27 D：45 答案：B

等级：2 难度：2 知识点：VB知识点/循环结构 269、下列程序段的执行结果为______。 a=1 b=0

Select Case a Case 1

Select Case b Case 0

Print \Case 1

Print \End Select Case 2

Print \End Select A：* *0* *

30

B：* * 1* * C：* *2* * D：0 答案：A

等级：2 难度：2

知识点：VB知识点/分支(选择)结构 270、下列程序段的执行结果为______。 N=0

For I=1 To 3

For J=5 To 1 Step-1 N=N+1 Next J Next I

Prim N；J；I A：12 0 4 B：15 0 4 C：12 3 l D：15 3 1 答案：B

等级：2 难度：2 知识点：VB知识点/循环结构 271、设有如下程序：

Private Sub Form_Click() a = 1

For i = 1 To 3 Select Case i Case 1, 3 a = a + 1 Case 2, 4 a = a + 2 End Select Next i End Sub

程序运行后，单击窗体，则在窗体上显示a的内容是______。 A：6 B：5 C：4 D：3 答案：B

等级：2 难度：2 知识点：VB知识点/循环结构

272、下列程序段的执行后，I的结果为______。 a=75

If a > 60 Then I=1 If a > 70 Then I=2 If a > 80 Then I=3 If a < 90 Then I=4 A：1 B：2 C：3 D：4 答案：D

等级：2 难度：2

知识点：VB知识点/分支(选择)结构 273、编写如下事件过程： Private Sub Form_Click() k=2

If k>=1 Then A=3 If k>=2 Then A=2 If k>=3 Then A=I

End Sub

程序运行后，单击窗体，输出A的结果为______。 A：1 B：2 C：3 D：出错 答案：B

等级：2 难度：2

知识点：VB知识点/分支(选择)结构 274、下列程序段的执行结果为： A=\B=\

E=Right(A，3) F=Mid(B，2，3)

If E

A：cdebcd B：cdd C：cdcd D：bcdcde 答案：D

等级：3 难度：3

知识点：VB知识点/分支(选择)结构 275、有如下事件过程：

Private Sub Command1_Click() b=10

Do Until b=-1

a=InputBox(\请输入a的值\a=Val(A)

b=InputBox(\请输入b的值\b=Val(b) a=a * b Loop End Sub

程序运行后，依次输入数值30，20，10，－1，输出a的结果为______。 A：6000 B：－10 C：200 D：-6000 答案：B

等级：2 难度：2 知识点：VB知识点/循环结构 276、下列程序段的执行结果为______。 a=3 b=1

For I=1 To 3 f=a + b a=b b=f

Print f; Next I

A：4 3 6 B：4 5 9 C：6 3 4 D：7 2 8 答案：B

等级：1 难度：1 知识点：VB知识点/循环结构

277、以下能够正确计算n!的程序是______。

A：Private Sub Commandl_ClicK() n＝5:x＝1 Do x=x*i i＝i+1

Loop While i＜n Print x End Sub

B：Private Sub Commandl_Click() n＝5: x＝1：i=1 Do

x＝x*i i＝i+1

Loop While i＜n Print x End Sub

C：Private Sub Commandl_Click() n=5：x＝1：i＝1 Do x=x*i i＝i+1

Loop while i<=n Print x End Sub

D：Private Sub Commandl_C1ick() n＝5：x＝1：i=1 Do x=x*i i=i+1

loop While i>n Print x End Sub 答案：C

等级：3 难度：3 知识点：VB知识点/循环结构 278、执行以下程序段：

Dim x As Integer, i As Integer x=0

For i = 20 To 1 Step -2 x = x + i \\ 5 Next I

执行后，x的值为______。 A：16 B：17 C：18 D：19 答案：C

等级：1 难度：1 知识点：VB知识点/循环结构 279、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click() x=InputBox(\Select Case x Case 1,3

Print \分支 1\Case Is >4

Print \分支 2\

31

Case Else

Print \分支 \End Select End Sub

程序运行后，如果在输入对话框中输入2，则窗体上显示的是______。 A：分支1 B：分支2 C：Else分支 D：程序出错 答案：C

等级：1 难度：1

知识点：VB知识点/分支(选择)结构 280、在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：

Private Sub Command1_Click() X=-5

If Sgn(x)Then y=Sgn(x^2) Else

y=Sgn(x) End If Print y End Sub

程序运行后，单击命令按钮，其输出结果为______。 A：-5 B：25 C：-l D：1 答案：D

等级：2 难度：2

知识点：VB知识点/分支(选择)结构 281、下列程序段的执行结果为______。 I=9 x=5 Do

I=I + 1 x=x + 2

Loop Until I >=7 Print \Print \ A：I＝4 x＝5 B：I＝7 x＝15 C：I＝6 x＝8 D：I＝10 x＝7 答案：D

等级：2 难度：2 知识点：VB知识点/循环结构

282、下列程序段执行结果为______。 x=5 y=-6

If Not x>0 Then x=y-3 Else y=x+3 Print x-y; y-x A：-3 3 B：5 -9 C：3 -3 D：-6 5 答案：A

等级：1 难度：1

知识点：VB知识点/分支(选择)结构

283、下列程序段的执行后，a,b的结果分别为______。 a=1 b=5 Do

a=a + b b=b + 1

Loop While a < 10 A：1 5 B：12 7 C：a b D：10 25 答案：B

等级：2 难度：2 知识点：VB知识点/循环结构

284、下面程序段执行结果为______。x=Int(Rnd() + 4) Select Case x Case 5

Print \Case 4

Print \Case 3

Print \Case Else Print \End Select

A：excellent B：good C：pass D：fail 答案：B

等级：2 难度：2

知识点：VB知识点/分支(选择)结构 285、假定有以下循环结构： Do until条件 循环体 Loop

则下列说法正确的是______。

A：如果\条件\是一个为-1的常数，则一次循环体也不执行

B：如果\条件\是一个为-1的常数，则至少执行一次循环体

C：如果\条件\是一个不为-1的常数，则至少执行一次循环体

D：不论\条件\是否为\真\，至少要执行一次循环体 答案：A

等级：1 难度：1 知识点：VB知识点/循环结构

286、下列程序段执行后，Z的结果为______。

A=\

For I=6 To 2 Step-2 X=Mid(A，I，I) Y=Left(A，I) Z=Right(A,I) Z=X&Y&Z Next I A：ABA B：AABAAB C：BBABBA D：ABBABA

答案：C

等级：3 难度：3 知识点：VB知识点/循环结构 287、计算z的值，当x大于等于y时，z=x；否则z=y。下列语句错误的是______。

A：If x>=y Then z=x : z=y B：If x>=y Then z=x Else z=y C：z=y : If x>=y Then z=x D：If x

等级：1 难度：1

知识点：VB知识点/分支(选择)结构

288、执行下面的程序段后，x 的值为______。 x=5

For i=1 To 20 Step 2 x=x+i\\5 Next i A：21 B：22 C：23 D：24 答案：A

等级：1 难度：1 知识点：VB知识点/循环结构 289、假设有以下程序段： For I=1 to 3

For j=5 to 1 Step -1 Print I*j Next j Next I

则语句Print I*j的执行次数以及I、j的值分别是______。 A：15 4 0 B：16 3 1 C：17 4 0 D：18 3 1 答案：A

等级：2 难度：2 知识点：VB知识点/循环结构 290、假定有以下程序段： For i = 1 To 3

For j = 5 To 1 Step -1 Print i * j Next j, i

则语句Print i * j的执行次数是______。 A：15 B：16 C：17 D：18 答案：A

等级：1 难度：1 知识点：VB知识点/循环结构 291、在窗体中添加一个命令按钮（Name属性为Command1），然后编写如下代码：

Private Sub Command1_Click() s = 0

For k = 1 To 3 If k <= 1 Then

32

x = 1

Else If k <= 2 Then x = 2

Else If k <= 3 Then x = 3 Else

x = 4 End If print x; s = s + x Next k print s; End Sub

程序运行后，单击命令按钮，输出结果是______。 A：3 3 3 9 B：1 2 1 6 C：1 1 1 3 D：1 2 3 6 答案：D

等级：3 难度：3

知识点：VB知识点/控制结构应用程序举例

292、下列程序段执行后，k、a的结果分别为______。 a=6

For k=1 To 0 a=a + k Next k

A：-1 6 B：-1 16 C：1 6 D：11 21 答案：C

等级：1 难度：1 知识点：VB知识点/循环结构

293、在Activate 事件过程中，写入下面的程序：

Private Sub Form _Activate() Dim S As String, a As String, b As String

a= \For i= 1 to 4

If i / 2= Int(i / 2) Then S=String(Len (a)+i ,b) Else

S=String(Len(a) + i, a) End If Print S; Next i End Sub

运行程序后，显示结果是______。 A：$$ ***$$$$*****

B：*$$**$$***$$$****$$$$ C：**$$$****$$$$$

D：$*$$**$$$***$$$$**** 答案：C

等级：3 难度：3

知识点：VB知识点/控制结构应用程序举例

294、执行下面的程序段后，x 的值为______。

Dim m(3，3)As Integer

Dim i As Integer Dim j As Integer Dim x As Integer For i=1 To 3 m(i，i)=i Next

For i=0 To 3 For j=0 To 3 x=x+m(i，j) Next Next A：3 B：4 C：5 D：6 答案：D

等级：3 难度：3 知识点：VB知识点/循环结构

295、如果整型变量a、b的值分别为3和1，则下列语句中循环体的执行次数是______。 For I=a to b Print I Next I A：0 B：1 C：2 D：3 答案：A

等级：1 难度：1 知识点：VB知识点/循环结构 296、在窗体中添加一个命令按钮Command1，并编写如下程序： Private Sub Command1_Click( ) x=InputBox(\If x^2=9 Then y=x If x^2<9 Then y=1/x If x^2>9 Then y=x^2+1 End Sub

程序运行后，在InputBox中输入3，单击命令按钮，y的运行结果是______。 A：3 B：0.33 C：17 D：0.25 答案：A

等级：2 难度：2

知识点：VB知识点/分支(选择)结构 297、在窗体中添加一个名称为

Command1的命令按钮，然后编写如下程序：

Private Sub Command1_Click() For i = 1 To 4 a = 1

For j = 1 To 3 a = 2

For k = 1 To 2 a = a + 6 Next k Next j Next i End Sub

程序运行后，单击命令按钮，则在窗体上显示a的内容是______。 A：14 B：15 C：16 D：17 答案：A

等级：3 难度：3 知识点：VB知识点/循环结构 298、设有如下程序段： x=2

For i=1 To 10 Step 2 x=x+i Next

运行以上程序后，x的值是______。 A：26 B：27 C：38 D：57 答案：B

等级：1 难度：1 知识点：VB知识点/循环结构 299、运行下列程序段后，显示的结果为______。 J1=23 J2=32

If J1

等级：1 难度：1

知识点：VB知识点/分支(选择)结构

300、执行以下语句后显示结果为______。

Dim x As Integer

If x Then Print x+1 Else Print x-1 A：1 B：0 C：-1

D：不确定 答案：C

等级：2 难度：2

知识点：VB知识点/分支(选择)结构

301、有如下程序：

Private Sub Form_Click() Dim check As Boolean, n As Integer

check=False n= 0 Do

Do While n< 10 n=n + 1

If n= 5 Then check=True Exit Do End If

33

Print n； Loop

Loop Until check=True End Sub

程序运行后，输出的结果是______。 A：1 2 3 B：1 2 3 4 C：1 2 3 4 5 D：1 2 3 4 5 6 答案：B

等级：3 难度：3

知识点：VB知识点/控制结构应用程序举例

302、执行下列程序段后，输出y的结果是______。 For k1=0 To 4 y=20

For k2=0 To 3 y=10

For k3=0 To 2 y=y + 10 Next k3 Next k2 Next k1 A：90 B：60 C：40 D：10 答案：C

等级：3 难度：3 知识点：VB知识点/循环结构

303、在窗体上画两个文本框(其Name 属性分别为Text1和Text2)和一个命令按钮(其Name属性为 Command1)，然后编写如下事件过程：

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

程序运行后，单击命令按钮，在两个文本框中显示的值分别为______。 A：1和0 B：2和72 C：3和50 D：4和168 答案：B

等级：3 难度：3 知识点：VB知识点/循环结构 304、在窗体上画一个名称为

Command1的命令按钮，编写以列程序：

Private Sub Command1_Click( ) Cls

Dim a As Integer Static b As Integer a = a + b b = b + 4 Print a,b

End Sub

程序运行后，单击该命令按钮三次，屏幕上显示的值是______。: A：4 12 B：0 4 C：4 8 D：8 12 答案：D

等级：2 难度：2 知识点：VB知识点/顺序结构

305、下面正确的赋值语句是______。 A：x+y=30 B：pi*r*r=y C：y=x+30 D：x=3y 答案：C

等级：1 难度：1 知识点：VB知识点/顺序结构 306、下面不正确的赋值语句是______。 A：x=30-y B：y=r.r C：y=x+30 D：y=x\\3 答案：B

等级：1 难度：1 知识点：VB知识点/顺序结构

307、运行以下程序段后，输出结果为______。 x%=1/4 y%=11/4

PRINT x%;y%

A：0.25 0.75 B：0 2 C：0 3 D：1 3 答案：C

等级：2 难度：2 知识点：VB知识点/顺序结构

308、设a=1,b=2,c=3,d=4，则表达式IIf(a

等级：3 难度：3

知识点：VB知识点/分支(选择)结构 309、Rnd函数不可能为下列______值。 A：0 B：1

C：0.1234 D：0.0005 答案：B

等级：1 难度：1

知识点：VB知识点/常用内部函数 310、表达式

Int(198.555*100+0.5)/100的值为______。 A：198 B：199.6 C：198.56

D：200 答案：C

等级：1 难度：1

知识点：VB知识点/常用内部函数 311、设a=6，则执行

x=IIf(a>5,-1,0)后，x的值为______。 A：5 B：6 C：0 D：-1 答案：D

等级：3 难度：3

知识点：VB知识点/分支(选择)结构

312、赋值语句g = 123 +

Mid(\执行后，变量g中的值是______。 A：\ B：123 C：12334 D：157 答案：D

等级：2 难度：2 知识点：VB知识点/顺序结构 313、用Select Case语句选择|x|<=10情况的语句为：Case______。

A：Not (-10 To 10) B：-10 To 10 C：Is Abs(x)>10 D：Is <-10 Or >10 答案：B

等级：1 难度：1

知识点：VB知识点/分支(选择)结构

314、若x=1，执行语句If x Then x = 0 Else x = 1的结果是______。 A：实时错误 B：编译错误 C：x=1 D：x=0 答案：D

等级：1 难度：1

知识点：VB知识点/分支(选择)结构

315、以下程序代码能执行的是______。

A：If a=1 Then b=0 Else c=0 End If

B：If a=1 Then : B=0: ElseIf C=0 Then : D=0

C：If a = 1 Then b = 0

ElseIf c = 0 Then d = 0 End If

D：If a = 1 Then b = 0

Else If c = 0 d = 0 End If 答案：C

34

等级：2 难度：2

知识点：VB知识点/分支(选择)结构 316、下列程序段的循环结构执行后，i的输出值是______。 Dim y as Integer

For i = 1 To 10 Step 2 y = y + i Next i A：25 B：10 C：11

D：因为y初值不知道，所以不确定 答案：C

等级：1 难度：1 知识点：VB知识点/循环结构 317、循环结构 For i = 1 To 10 Step 1.5 的执行次数是______。 A：7 B：8 C：9 D：10 答案：A

等级：2 难度：2 知识点：VB知识点/循环结构

318、下列结构中不属于循环结构的是______。 A：For/Next B：While/Wend C：Sub/End Sub D：Do/Loop 答案：C

等级：2 难度：2 知识点：VB知识点/循环结构

319、下列结构中不属于分支结构的是______。

A：If/End If

B：Select Case/End Select C：Function/End Function D：If/Else/End If 答案：C

等级：2 难度：2

知识点：VB知识点/分支(选择)结构 320、以下程序段运行后，m的结果是______。 m = 1 n = 1 Do

m = m * n n = n + 1

Loop Until n > 4 A：25 B：45 C：55 D：24 答案：D

等级：2 难度：2 知识点：VB知识点/循环结构

321、以下程序段运行后，s的结果是______。

Dim s As Long, f As Long

Dim n As Integer, i As Integer f = 1 n = 4

For i = 1 To n f = f * i s = s + f Next i A：33 B：34 C：35 D：36 答案：A

等级：3 难度：3 知识点：VB知识点/循环结构

322、以下程序段运行后，Y的结果是______。

Dim I As Integer, X As String, Y As String

X = \

For I = 4 To 1 Step -1 Y = Y + Mid(X, I, 1) Next I A：ABCD B：DCBA C：DEFG D：GFED 答案：B

等级：3 难度：3 知识点：VB知识点/循环结构

323、以下程序段运行后，k、b的结果分别是______。

Private Sub Form_Click()

Dim b As Integer, k As Integer b = 1

For k = 1 To 5 b = b * k

If b >= 15 Then Exit For End If Next k

A：3 15 B：2 12 C：4 24 D：5 15 答案：C

等级：3 难度：3

知识点：VB知识点/控制结构应用程序举例

324、以下程序段的运行结果是______。

Private Sub Form_Click() a = 1 b = a

Do Until a >= 5 X = a * b

Print Str(a) & \& Str(b) & \Str(X), a = a + b b = b + a Loop End Sub

A：1*1=1 2*3=6 B：1*1=2 2*2=4 C：1*1=1 3*3=9 D：1*1=2 3*2=6 答案：A

等级：2 难度：2 知识点：VB知识点/循环结构 325、以下程序段运行后，y、z的结果分别是______。

Private Sub Form_Click() x = \

y = Asc(\z = Len(x) A：1 2 B：1 6 C：2 2 D：2 6 答案：B

等级：2 难度：2 知识点：VB知识点/顺序结构 326、运行下列程序段，显示的结果是______。 x=Int(Rnd)+5 Select Case x Case 5

Print \优秀\Case 4

Print \良好\Case 3

Print \通过\Case Else

Print \不通过\End Select A：优秀 B：良好 C：通过 D：不通过 答案：A

等级：1 难度：1

知识点：VB知识点/分支(选择)结构

327、下列If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是______。

A：If sex=″男″And age<40 And InStr(duty,″教授″)>0 Then n=n+1

B：If sex=″男″And age<40 and(duty=″教授″or duty=″副教授″) Then n=n+1

C：If sex=″男″And age<40 And Right(duty,2)=″教授″ Then n=n+1

D：If sex=″男″And age<40 And duty=″教授″And duty=″副教授″ Then n=n+1 答案：D

等级：2 难度：2

知识点：VB知识点/分支(选择)结构

328、下面分别是求两个数中的大数的四个程序段，______不正确。 A：Max=IIf(x>y,x,y)

B：If x>y Then Max=x Else Max=y

C：Max=x

If y>=x Then Max=y

35

D：If y>=x Then Max=y Max=x 答案：D

等级：3 难度：3

知识点：VB知识点/分支(选择)结构 329、以下正确的程序段是______。 A：For x=1 To Step 10 B：For x=3 To -3 Step -3 … … Next x

C：For x=1 To 10 D：For x=10 To 1 … … Next y 答案：B

等级：1 难度：1 知识点：VB知识点/循环结构 330、下列循环能正常结束的是______。 A：i=5 DO i=i+1

Loop Until i<0 B：i=1 DO i=i+2

Loop Until i=10 C：i=10 DO i=i-2

Loop Until i<0 D：i=6 DO i=i-2

Loop Until i=1 答案：C

等级：2 难度：2 知识点：VB知识点/循环结构

331、若要退出For循环，可使用的语句为______。 A：Exit B：Exit Do C：Time

D：Exit For 答案：D

等级：1 难度：1 知识点：VB知识点/循环结构

332、当a=1,b=3,c=5,d=4时，执行下面一段程序后，x的值为______。 If a

If c

B：2 C：3 D：4 答案：B

等级：2 难度：2

知识点：VB知识点/分支(选择)结构 333、执行如下程序段时，从键盘输入-5，输出x、y的结果分别是______。 x=-5

s=Val(InputBox(\请输入s的值:\Select Case s Case Is>0 y=x+1

Case Is=0 y=x+2

Case Else y=x+3

End Select A：-5 -2 B：-5 -4 C：-5 -3 D：-5 -5 答案：A

等级：1 难度：1

知识点：VB知识点/分支(选择)结构 334、下面程序段的作用是______。 m=0:n=0

For i=1 To 10

x= Val(InputBox(\请输入x的值:\If x>0 Then m=m+x

ElseIf x<0 Then n=n+1 End If Next i Print m,n

A：计算从键盘输入的数据之和，并统计输入数据的数目

B：分别计算从键盘输入的正数之和与负数之和

C：分别计算从键盘输入的正数和负数的个数

D：计算从键盘输入的正数之和，并统计负数的个数 答案：D

等级：2 难度：2

知识点：VB知识点/控制结构应用程序举例

335、如果从键盘输入的数据依次是1、2、3、4、5、6、7、8、9、10，下面程序段运行后s的结果是______。 s=0

For i=1 To 10

x=Val(InputBox(\请输入x的值:\If x/3=Int(x/3) Then s=s+x End If Next i A：s=18 B：s=27 C：s=36 D：s=54

答案：A

等级：2 难度：2

知识点：VB知识点/控制结构应用程序举例

336、在条件语句If x=1 Then y=2中，下列说法正确是______。 A：x=1和y=2均为赋值语句 B：x=1和y=2均为关系表达式 C：x=1为关系表达式，y=2为赋值语句

D：x=1为赋值语句，y=2为关系表达式 答案：C

等级：1 难度：1

知识点：VB知识点/分支(选择)结构

337、统计某大学在副教授以上职称的高级职称中，女性人才总数可用语句______。

A：IF A$=\女\副教授\教授\ B：IF B$=\副教授\教授\女\ C：IF B$>=\副教授\女\

D：IF A$=\女\副教授\教授\答案：D

等级：1 难度：1

知识点：VB知识点/分支(选择)结构

338、以下程序段执行后，变量s、x的值分别为______。

Dim s As Integer, x As Integer s = 10: x = 1 Do While x < 10 s = s + 2 x = x + 2 Loop

A：50 11 B：20 10 C：20 11 D：100 10 答案：C

等级：2 难度：2 知识点：VB知识点/循环结构 339、下列程序中 s = s + j 语句共执行了______次。 Dim s As Integer

Dim i As Integer, j As Integer For i = 1 To 10 Step 2 For j = 1 To 5 Step 2 s = s + j Next j Next i Print s A：10 B：15 C：20 D：25 答案：B

等级：2 难度：2 知识点：VB知识点/循环结构

36

340、以下程序段执行后，变量x的值为______。 x = 0

For i = 1 To 5 For j = 1 To 5 x = x + 1 Next j Next i A：15 B：20 C：25 D：30 答案：C

等级：2 难度：2 知识点：VB知识点/循环结构

341、下列程序中语句 a=a-1 执行的次数是______。 a=0

For b=1 To -2 Step -1 a=a-1 Next b A：2 B：4 C：3 D：0 答案：B

等级：1 难度：1 知识点：VB知识点/循环结构 342、以下程序段的执行结果是______。

For x=1 To 2 a=0

For y=1 To x+1 a=a+1 Next y Print a; Next x A：1 1 B：0 0 C：1 2 D：2 3 答案：D

等级：2 难度：2 知识点：VB知识点/循环结构

343、以下程序段执行后，n的结果是______。 n=0

For i=0 To 1 For j=0 To 1 n=n+1 Next j Next i A：4 B：2 C：1 D：0 答案：A

等级：2 难度：2 知识点：VB知识点/循环结构

344、以下程序段执行后，x的结果是______。

For i=1 To 4 x=2

For j=1 To 3 x=1

For k=1 To 2 x=x+3 Next k Next j Next i A：7 B：6 C：56 D：72 答案：A

等级：2 难度：2 知识点：VB知识点/循环结构

345、在一行写多条语句时，每个语句之间用______符号分隔。 A：， B：： C：、 D：； 答案：B

等级：1 难度：1

知识点：VB知识点/程序书写规则及格式约定 346、一条语句要分行书写，用______符号作续行符。 A：+ B：- C：_ D：… 答案：C

等级：1 难度：1

知识点：VB知识点/程序书写规则及格式约定

347、下列哪组语句可以将变量a，b的值互换______。 A：a=b : b=a

B：a=a+b : b=a-b : a=a-b C：a=c : c=b : b=a

D：a=(a+b)/2 : b=(a-b)/2 答案：B

等级：2 难度：2 知识点：VB知识点/顺序结构

348、在窗体上添加三个文本框，名称分别为Text1、Text2、Text3，一个命令按钮Command1。

如果在Text1中输入150，Text2中输入200，则执行下列程序后，Text3中显示的数为____。

Private Sub Command1_Click() Dim m As Integer, n As Integer m = Val(Text1.Text) n = Val(Text2.Text) If m < n Then

t = m: m = n: n = t End If Do

r = m Mod n m = n n = r

Loop While r <> 0 Text3.Text = Str(m) End Sub

A：200 B：150 C：100 D：50 答案：D

等级：3 难度：3

知识点：VB知识点/控制结构应用程序举例

349、以下程序段执行后，变量a和y的值分别是______。 a=10:y=0 Do a=a+2 y=y+a

If y>20 Then Exit Do End If

Loop While a<=14 A：a=18 y=24 B：a=14 y=26 C：a=14 y=24 D：a=12 y=12 答案：B

等级：2 难度：2

知识点：VB知识点/控制结构应用程序举例

350、有如下程序段： j=1 : n=0 Do While n<3 j=j * (j+1) n=n+1 Loop

运行后，输出n和j的结果分别是_____。 A：1 0 B：3 3 C：4 30 D：3 42 答案：D

等级：1 难度：1 知识点：VB知识点/循环结构 351、设输入的数据分别为14、3时，标签Label1中显示的值分别是______。

Private Sub Form_Click() Dim a As Integer

a = Val(InputBox(\请输入一个数\

Select Case a Mod 5 Case Is < 2 w = a + 10 Case Is < 4 w = a * 2 Case Else w = a - 10 End Select

Label1.Caption = Str(w) End Sub A：4、6 B：6、4 C：24、6 D：6、24 答案：A

37

等级：2 难度：2

知识点：VB知识点/分支(选择)结构 352、有如下程序，运行后输出结果是______。

Private Sub Form_Click() a=5

If a<=3 Then Print 3; End If

If a<=4 Then Print 4; End If

If a<=5 Then Print 5; End If

If a<=6 Then Print 6; End If End Sub

A：3 4 5 6 B：4 5 6 C：5 6 D：6 答案：C

等级：1 难度：1

知识点：VB知识点/分支(选择)结构 353、有如下程序，运行时从键盘输入4，则输出b的结果是______。 Private Sub Form_Click()

a=InputBox(\a value of a:\Select Case a Case Is>2 b=a+1

Case Is>3 b=a+2

Case Is>5 b=a+3

Case Else b=a+4

End Select End Sub A：4 B：5 C：6 D：7 答案：B

等级：1 难度：1

知识点：VB知识点/分支(选择)结构 354、某林场1995 年植树100亩，以后每年的植树面积按5%的速度增长，能正确计算到1998年时四年的植树总面积的程序是______。 A：s=100:r=0.05 For i=1996 To 1998 s=s*(1+r) sum=sum+s Next i Print sum

B：s=100:sum=100:r=0.05 For i=1996 To 1998 s=s*(1+r) sum=sum+s Next i

Print sum

C：s=100:r=0.05 For i=1996 To 1998 sum=sum+s Next i Print sum

D：s0=100:sum=100:r=0.05 For i=1996 To 1998 s=s*(1+r)+s sum=sum+s Next i Print sum 答案：B

等级：3 难度：3 知识点：VB知识点/循环结构 355、在窗体上画一个名称为

Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：

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：10 B：20 C：30 D：40 答案：A

等级：1 难度：1

知识点：VB知识点/分支(选择)结构 356、程序在运行循环\I=1 to 14 step 3\结束后，I的值等于______。 A：12 B：13 C：14 D：16 答案：D

等级：1 难度：1 知识点：VB知识点/循环结构

357、以下哪一个语句可以跳出Do While Loop循环______。 A：End

B：Exit Loop C：Exit Do D：Exit For 答案：C

等级：1 难度：1 知识点：VB知识点/循环结构

358、下列程序段运行后，变量x的值为______。

x=3 y=77 do x=x+2

loop until x>sqr(y) A：7 B：8 C：9 D：10 答案：C

等级：2 难度：2 知识点：VB知识点/循环结构 359、下列程序段运行后，变量m的值为______。 a=2:b=1:c=5

if a

D：三项都不是 答案：B

等级：2 难度：2

知识点：VB知识点/分支(选择)结构

360、下列程序段运行后，变量x的值为______。

x=2:Print x+1:Print x+2:print x+3 A：2 B：3 C：5 D：8 答案：A

等级：2 难度：2 知识点：VB知识点/顺序结构 361、下列程序段中，循环体执行的次数是______。 y=2

do while y<=8 y=y+y loop A：2 B：3 C：4 D：5 答案：B

等级：1 难度：1 知识点：VB知识点/循环结构 362、下列程序段运行后，变量n的值为______。 n=0

For x=3 to 11 step 2 n=n+1 Next x A：4 B：5 C：6 D：7 答案：B

等级：1 难度：1 知识点：VB知识点/循环结构

363、在程序段运行后，变量a、b、

38

c的值为______。 a=1:b=1:c=1

do while a+b+c<=10 a=a+1 b=b*2 c=b/2 loop

A：2 2 1 B：3 4 2 C：4 8 4 D：4 4 2 答案：C

等级：2 难度：2 知识点：VB知识点/循环结构

364、在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：Private Sub Command1_Click() For I=1 To 4 For J=0 To I

Print Chr$(65+I); Next J Print Next I End Sub

程序运行后，如果单击命令按钮，则在窗体上显示的内容是______。 A：BB CCC DDDD EEEEE B：A BB CCC DDDD C：B CC DDD EEEE D：AA BBB CCCC DDDDD 答案：A

等级：3 难度：3 知识点：VB知识点/循环结构 365、在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click() Dim x As Integer,n As Integer x=1 n=0

Do While x<20 x=x*3 n=n+1 Loop

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

程序运行后，单击命令按钮，在两个文本框中显示的值分别是______。 A：15和1

B：27和3 C：195和3 D：600和4 答案：B

等级：2 难度：2 知识点：VB知识点/循环结构 366、在窗体上画一个名称为

Command1的命令按钮，然后编写如下事件过程:

Private Sub Command1_Click() Dim num As Integer num =1

Do Until num>6 Print num; num=num+2.4 Loop End Sub

程序运行后，单击命令按钮，则窗体上显示的内容是______。 A：1 3.4 5.8 B：1 3 5 C：1 4 7 D：无数据输出 答案：B

等级：2 难度：2 知识点：VB知识点/循环结构 367、在窗体上画一个名称为

Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click() Dim a As Integer, s As Integer a=8 s=1 Do s=s+a a=a-1

Loop While a <=0 Print s; a End Sub

程序运行后，单击命令按，则窗体上显示s和a的内容分别是______。 A：7 9 B：34 0 C：9 7 D：死循环 答案：C

等级：2 难度：2 知识点：VB知识点/循环结构

368、下列程序段运行后，变量n的值为______。

Private Sub Commandl_Click() For n=1 To 20

If n Mod 3 <> 0 Then m=m+n\\3 Next n End Sub A：15 B：18 C：21 D：24 答案：C

等级：2 难度：2

知识点：VB知识点/控制结构应用程序举例

369、设有如下程序：

Private Sub Comandl_Click() Dim sum As Double, x As Double sum=0 n=0

For i= 1 To 5 x=n/i n=n+1

sum=sum+x Next End Sub

该程序通过For循环计算一个表达式的值，这个表达式是______。 A：1+1/2+2/3+3/4+4/5 B：1+1/2+2/3+3/4 C：1/2+2/3+3/4+4/5 D：1+1/2+1/3+1/4+1/5 答案：C

等级：3 难度：3 知识点：VB知识点/循环结构 370、Visual Basic一共有设计、运行和中断三种模式，可进行界面设计和代码编辑的模式是_______。

A：设计模式 B：运行模式 C：中断模式 D：任何模式 答案：A

等级：2 难度：2

知识点：VB知识点/VB的工程管理和环境设置

371、Visual Basic一共有设计、运行和中断三种模式，不可进行界面设计，但可进行代码编辑的模式是_______。 A：设计模式 B：运行模式 C：中断模式 D：任何模式 答案：C

等级：2 难度：2

知识点：VB知识点/VB的工程管理和环境设置

372、在VB中，执行 \：B=Len(Str$(A))\语句后，B的值为______。 A：3 B：4 C：123 D：0 答案：B

等级：2 难度：2

知识点：VB知识点/常用内部函数

所有填空题

1、VB是一种面向______的可视化编程语言，它采用______的编程机制。

答案： 1：对象

2：事件驱动

等级：1 难度：1

知识点：VB知识点/VB的编程环境 2、在VB集成开发环境中，运行应

39

用程序的方法有两种：______或______。

答案： 1：编译运行模式#解释运行模式#编译运行#解释运行

2：解释运行模式#编译运行模式#解释运行#编译运行 等级：1 难度：1

知识点：VB知识点/VB的编程环境 3、VB的对象主要分为______和______两大类。

答案： 1：窗体#控件 2：控件#窗体 等级：1 难度：1

知识点：VB知识点/VB的对象、属性、方法和事件

4、在VB中，用来描述一个对象的状态或特征的量称之为对象的______。 答案： 1：属性

等级：1 难度：1

知识点：VB知识点/VB的对象、属性、方法和事件

5、一个对象响应某个事件后所执行的操作是通过一段程序代码来实现，这段程序代码称______。 答案： 1：事件过程

等级：1 难度：1

知识点：VB知识点/VB的对象、属性、方法和事件

6、VB应用程序开发的一般步骤是创建_____________，设置_____________，编写_______________。

答案： 1：应用程序的界面#应用程序界面

2：控件的属性#控件属性 3：响应事件的代码#响应事件代码

等级：1 难度：1

知识点：VB知识点/VB应用程序设计的基本步骤

7、Visual Basic应用程序中标准模块文件的扩展名是______。 答案：

1：.bas#.Bas#.BAS#bas#Bas#BAS 等级：2 难度：2

知识点：VB知识点/VB的编程环境 8、如果要在单击命令按钮时执行一段代码，则应将这段代码写在______事件过程中。

答案： 1：click#Click#CLICK 等级：1 难度：1

知识点：VB知识点/简单控件设计 9、一个工程可以包括多种类型的文件，其中，扩展名为.vbp的文件表示______文件；扩展名为.frm的文件表示______文件；扩展名为.bas的文件表示______文件；包含ActiveX控件的文件扩展名为______。 答案： 1：工程 2：窗体

3：标准模块

4：.OCX#.ocx#.Ocx#OCX#ocx#Ocx

等级：3 难度：3

知识点：VB知识点/VB的编程环境 10、Visual Basic的控件通常分为3种类型，即______、______、______。其中，______不能从工具箱中被删除，______单独保存在.OCX文件中，在必要进可以加入到工具箱中。 答案： 1：内部控件#ACTIVEX控件#可插入对象#标准控件#ActiveX控件

2：ACTIVEX控件#内部控件#可插入对象#标准控件#ActiveX控件

3：可插入对象#内部控件#ACTIVEX控件#标准控件#ActiveX控件

4：内部控件#标准控件 5：ACTIVEX控件#ActiveX控件#activeX控件

等级：3 难度：3

知识点：VB知识点/简单控件设计 11、为了选择多个控件，可以按住______键，然后单击每个控件。 答案： 1：Ctrl#CTRL#ctrl 等级：1 难度：1

知识点：VB知识点/简单控件设计 12、双击窗体的任何地方，可以打开______窗口。

答案： 1：代码

等级：1 难度：1

知识点：VB知识点/VB的编程环境 13、启动Visual Basic后，系统为用户新建的工程起一个名为______的临时名称。

答案： 1：工程1#工程 1 等级：1 难度：1

知识点：VB知识点/VB的编程环境 14、Visual Basic集成环境的大部分窗口都可以从主菜单项的______下拉菜单中找到相应的打开命令。 答案： 1：视图

等级：1 难度：1

知识点：VB知识点/VB的编程环境 15、在设计阶段，双击窗体Form1的空白处，打开代码窗口，显示______事件过程模板。 答案： 1：

Form_Load#form_load#FORM_LOAD#Form _Load#Form _ Load#Form _ Load

等级：1 难度：1

知识点：VB知识点/简单控件设计 16、每建立一个窗体，工程管理器窗口中就会增加一个______文件。 答案： 1：窗体

等级：2 难度：2

知识点：VB知识点/VB的工程管理和环境设置

17、要运行Visual Basic应用程序，可按______快捷键。 答案： 1：F5#f5

等级：1 难度：1

知识点：VB知识点/VB应用程序设计

的基本步骤

18、当进入VB集成环境时，若没有发现\属性窗口\，应选择______菜单的______选项。使属性窗口显示。

答案： 1：视图

2：属性窗口

等级：1 难度：1

知识点：VB知识点/VB的工程管理和环境设置

19、在代码调试中常见的错误类型有______、运行错误和______。 答案： 1：编译错误#逻辑错误 2：逻辑错误#编译错误 等级：3 难度：3

知识点：VB知识点/VB的工程管理和环境设置

20、窗体的常用方法有：______、______、______等。

答案： 1：Print方法#Cls方法#Move方法#print方法#cls方法#move方法

#Print#Cls#Move#print#cls#move#PRINT#CLS#MOVE#PRINT方法#CLS方法#MOVE方法

2：Print方法#Cls方法#Move方法#print方法#cls方法#move方法

#Print#Cls#Move#print#cls#move#PRINT#CLS#MOVE#PRINT方法#CLS方法#MOVE方法

3：Print方法#Cls方法#Move方法#print方法#cls方法#move方法

#Print#Cls#Move#print#cls#move#PRINT#CLS#MOVE#PRINT方法#CLS方法#MOVE方法

等级：1 难度：1

知识点：VB知识点/简单控件设计 21、文本框常用的获得焦点的方法是______。

答案： 1：SetFocus方法#setfocud方法#SETFOCUS方法#SetFocus#setfocud#SETFOCUS 等级：2 难度：2

知识点：VB知识点/控件的基本知识

22、在窗体上打印\大家都来学用Visual Basic\，代码是______。 答案： 1：print \大家都来学用Visual Basic\大家都来学用Visual Basic\大家都来学用Visual Basic\等级：1 难度：1

知识点：VB知识点/简单控件设计 23、清除窗体或控件对象上的信息用______方法。

答案： 1：Cls#cls#CLS 等级：2 难度：2

知识点：VB知识点/简单控件设计 24、VB有3种工作模式：______、______和______。

答案： 1：设计模式#运行模式

40

#中断模式#设计#运行#中断#设计工作模式#运行工作模式#中断工作模式

2：设计模式#运行模式#中断模式#设计#运行#中断#设计工作模式#运行工作模式#中断工作模式 3：设计模式#运行模式#中断模式#设计#运行#中断#设计工作模式#运行工作模式#中断工作模式 等级：1 难度：1

知识点：VB知识点/VB的编程环境 25、变量名最长可达______个字符。 答案： 1：225#二五五#二百五十五

等级：1 难度：1 知识点：VB知识点/常量与变量 26、整数类型数据分别包括整型、________和________数据。 答案： 1：长整型#字节型 2：字节型#长整型 等级：1 难度：1

知识点：VB知识点/基本数据类型 27、在For循环中，循环次数由循环变量的__________、__________和___________决定

答案： 1：初值#终值#步长 2：终值#初值#步长 3：步长#初值#终值 等级：1 难度：1 知识点：VB知识点/循环结构

28、在程序中调用子过程需要指明

______，然后列出该子过程所要求的参数。

答案： 1：该过程的名称#该过程名称#过程的名称#过程名称#该子过程的名称#该子过程名称#子过程的名称#子过程名称

等级：1 难度：1 知识点：VB知识点/函数过程

29、在窗体上画一个命令按钮，然后编写如下事件过程，该过程的功能是用简单选择排序法将10个数排成升序，请在______处将程序补充完整。 Private Sub Command1 _ Click() Dim a(10)

For i=1 To 10

a(i)=Val(InputBox(″″,″″,0)) Next i

For i=______ For j=______

If ______ Then b=a(i) a(i)=a(j) a(j)=b End If Next j Next i

For k=1 To 10 Print a(k) Next k End Sub

答案： 1：1 to 9

2：i+1 to 10

3：a(i)>a(j)#a(j)

知识点：VB知识点/数组应用举例 30、执行下面的语句后，所产生的信息框的标题是______。

a=MsgBox(″AAAA″,5,″BBBB″) 答案： 1：BBBB

等级：2 难度：2 知识点：VB知识点/顺序结构

31、下面程序运行后，输出的结果是______。

For J= 1 To 10 A(J)=2*J B(J)=A(J)*2 Next J

Print B(J/2+0.1) End

答案： 1：24

等级：3 难度：3 知识点：VB知识点/循环结构

32、Visual Basic提供的对数据文件的三种访问方式为随机访问方式、___________和二进制访问方式。 答案： 1：顺序访问#顺序访问方式

等级：3 难度：3

知识点：VB知识点/顺序文件的访问 33、计算1*2*3*...*3000，当积大于3000时停止计算。请在______处将程序补充完整。

Private Sub FormClick()

Dim t As Single,j As Integer J=1

For j=1 To 3000 ______

If t＞3000 Then Exit For Next j

Print j,t End Sub

答案： 1：t=t*j

等级：3 难度：3

知识点：VB知识点/控制结构应用程序举例

34、表达式5 Mod 3＋9\\4/2的值是______。

答案： 1：6

等级：2 难度：2

知识点：VB知识点/运算符及表达式 35、语句Form1.Print \的输出结果是______。 答案： 1：1020

等级：1 难度：1

知识点：VB知识点/运算符及表达式 36、若声明了一个整型变量而没有赋值，系统默认该变量的值是______。 答案： 1：0

等级：1 难度：1 知识点：VB知识点/常量与变量 37、语句Print Int(123.4567*100＋0.5)/100的输出结果是______。 答案： 1：123.46

等级：2 难度：2

知识点：VB知识点/运算符及表达式

38、在Visual Basic中，由系统设定、能被对象识别和响应的动作称为______。 答案： 1：事件

等级：1 难度：1

知识点：VB知识点/VB的对象、属性、方法和事件

39、程序运行过程中，清除P1图片框中的图像应使用语句______。 答案： 1：

P1.LoadPicture()#P1.LOADPICTURE()#p1.loadpicture()#P1.LoadPicture( )#P1.LOADPICTURE( )#p1.loadpicture( )#P1.LoadPicture(\\dPicture(\(\等级：2 难度：2 知识点：VB知识点/图形控件 40、控件的______属性是对象的名字，其值在程序运行中只能被引用，不能被修改。

答案： 1：Name#name#NAME#名称

等级：1 难度：1

知识点：VB知识点/VB的对象、属性、方法和事件

41、时钟控件的______属性决定该控件是否响应Timer事件。 答案： 1：

Enabled#enabled#ENABLED 等级：2 难度：2 知识点：VB知识点/时钟控件 42、如果列表框的ListCount属性为10，则列表框最后一项的ListIndex值为______。 答案： 1：9

等级：1 难度：2

知识点：VB知识点/列表框和组合框

43、要使某个命令按钮不起作用，应将该按钮的______属性设置为False。

答案： 1：

Enabled#enabled#ENABLED 等级：1 难度：1

知识点：VB知识点/控件的基本知识

44、要将焦点移至指定的控件，可使用______方法。 答案： 1：

SetFocus#setfocus#SETFOCUS 等级：3 难度：3

知识点：VB知识点/控件的基本知识

45、如果要求定时器Timer事件间隔为2秒，其Interval属性应设置为______。 答案： 1：2000

41

等级：1 难度：1 知识点：VB知识点/时钟控件

46、复选框的______属性决定复选框是否被选中。

答案： 1：Value#value#VALUE 等级：1 难度：1

知识点：VB知识点/单选按钮和复选框

47、VB的控件分为______、ActiveX控件和可插入对象。

答案： 1：内部控件#标准控件 等级：1 难度：1

知识点：VB知识点/控件的基本知识 48、VB的控件分为标准控件、______和可插入对象。

答案： 1：ActiveX控件#activex控件#ACTIVEX控件

等级：3 难度：3

知识点：VB知识点/控件的基本知识 49、VB的控件分为标准控件、ActiveX控件和______。

答案： 1：可插入对象#插入对象 等级：3 难度：3

知识点：VB知识点/控件的基本知识 50、写出图片框控件的缺省英文名称______。 答案： 1：

PictureBox#picturebox#PICTUREBOX

等级：2 难度：2 知识点：VB知识点/图形控件

51、写出单选按钮控件的缺省英文名称______。 答案： 1：

OptionButton#optionbutton#OPTIONBUTTON

等级：1 难度：1

知识点：VB知识点/控件的基本知识 52、写出组合框控件的缺省英文名称______。 答案： 1：

ComboBox#combobox#COMBOBOX 等级：1 难度：1

知识点：VB知识点/列表框和组合框 53、写出文本框控件的缺省英文名称______。 答案： 1：

TextBox#textbox#TEXTBOX 等级：1 难度：1

知识点：VB知识点/控件的基本知识 54、写出窗体的缺省英文名称______。

答案： 1：Form#form#FORM 等级：1 难度：1

知识点：VB知识点/控件的基本知识 55、将______属性设置为1，单选按钮和复选框以图形方式显示。 答案： 1：Style#style#STYLE 等级：2 难度：2

知识点：VB知识点/单选按钮和复选框

56、常用的容器控件有：窗体、图片框和______。

答案： 1：框架

等级：1 难度：1

知识点：VB知识点/框架Frame控件 57、常用的容器控件有：框架、图片框和______。

答案： 1：窗体

等级：1 难度：1

知识点：VB知识点/框架Frame控件 58、常用的容器控件有：框架、窗体和______。

答案： 1：图片框

等级：1 难度：1

知识点：VB知识点/框架Frame控件 59、列表框中项目的序号是从______开始的。

答案： 1：0

等级：1 难度：1

知识点：VB知识点/列表框和组合框 60、对于列表框List1来说，_____________表示列表框中最后一项序号（用listcount属性表示）。 答案： 1：

list1.listcount-1#List1.Listcount-1#lIST1.lISTCOUNT-1 等级：3 难度：3

知识点：VB知识点/列表框和组合框 61、______方法可清除列表框的所有内容。

答案： 1：clear#Clear#CLEAR 等级：3 难度：3

知识点：VB知识点/列表框和组合框 62、如果要每隔15秒触发一次计时器Timer事件，则Interval属性应设置为______。

答案： 1：15000

等级：1 难度：1 知识点：VB知识点/时钟控件

63、在3种不同风格的组合框中，用户不能输入数据的组合框是______。 答案： 1：下拉列表框 等级：3 难度：3

知识点：VB知识点/列表框和组合框 64、组合框有3种不同的风格，用户通过______属性可进行设置。 答案： 1：Style#style#STYLE 等级：3 难度：3

知识点：VB知识点/列表框和组合框 65、组合框是文本框和______控件的组合。

答案： 1：列表框

等级：1 难度：1

知识点：VB知识点/列表框和组合框 66、组合框是列表框和______控件的组合。

答案： 1：文本框

等级：1 难度：1

知识点：VB知识点/列表框和组合框 67、窗体和其他控件的Name属性只能在______设置。

答案： 1：设计状态#设计状态时#设计的状态#设计的状态时 等级：1 难度：1

知识点：VB知识点/控件的基本知识

68、将数学表达式1≤x≤9用VB逻辑表达式表示应该是______。 答案： 1：x>=1 And x<=9#x>=1 and x<=9#x <= 9 And x >= 1#x <= 9 and x >= 1

等级：1 难度：1

知识点：VB知识点/运算符及表达式

69、下面这段程序执行后，共执

行了______次循环体，循环结束后i的值是______。 For i＝1 To 5 y＝i Next i

答案： 1：5#五 2：6

等级：2 难度：2 知识点：VB知识点/循环结构 70、在VB中，参数传递有值传递和______两种方式。 答案： 1：地址传递

等级：1 难度：1 知识点：VB知识点/参数的传递 71、设有如下程序: Option Base 1

Private Sub Command1_Click() Dim arr1

Dim Min As Integer, i As Integer

arr1 = Array(12, 435, 76, -24, 78, 54, 866, 43) Min = ______ For i = 2 To 8

If arr1(i) < Min Then ______ Next i

Print \最小值是:\End Sub

以上程序的功能是用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中的最小值,请填空。

答案： 1：arr1(1)#12 2：

min=arr1(i)#Min=arr1(i) 等级：3 难度：3

知识点：VB知识点/综合应用程序举例

72、语句Option Base n定义数组下标下界时，n可以是______或______。

答案： 1：0#1 2：0#1

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

73、语句Option Base n用来定义数组下标的______界。 答案： 1：下界#下

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

74、数组下标的上界和下界可以是任何______常量或常量表达

42

式。

答案： 1：整型

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

75、语句Dim aa(－1 to 1，－2 to 1)定义了有______个元素的二维数组。 答案： 1：12#十二#一十二#一二 等级：1 难度：1

知识点：VB知识点/数组的定义和引用

76、语句Dim aa(－1 to 1，－2 to 1)定义的二维数组下标下界分别是______和______。 答案： 1：-1 2：-2

等级：2 难度：2

知识点：VB知识点/数组的定义和引用

77、如果a(－1 to 2)，则函数LBound(a)的返回值是______。 答案： 1：-1

等级：1 难度：1

知识点：VB知识点/常用内部函数 78、如果a(－1 to 2)，则函数UBound(a)的返回值是______。 答案： 1：2

等级：1 难度：1

知识点：VB知识点/常用内部函数 79、根据需要，用______语句可以确定动态数组的大小。

答案： 1：ReDim#redim#REDIM 等级：2 难度：2

知识点：VB知识点/数组的定义和引用

80、Private Sub Command1_Click() Dim aa As Variant aa=Array(1,2,3,4) End Sub

上面程序运行后，输出aa(1)的结果是______。 答案： 1：2

等级：2 难度：2

知识点：VB知识点/数组的基本操作 81、Private Sub Command1_Click() Dim aa

aa=Array(\一\二\三\四\For i=0 to 3

aa(i)=aa(i) +\公司\Next i End Sub

上面程序运行后，输出aa(1)的结果是______。

答案： 1：二公司

等级：1 难度：1

知识点：VB知识点/数组的基本操作 82、Private Sub Command1_Click() Dim aa

aa=Array(\一\二\三\四\For i=0 to 3

aa(i)=aa(i) +\小组\Next i End Sub

上面程序运行后，输出aa(2)的结果是______。

答案： 1：三小组

等级：1 难度：1

知识点：VB知识点/数组的基本操作 83、Private Sub Command1_Click() Dim aa(4) as Integer For i=0 to 3 aa(i)=aa(i) +2 Next i End Sub

上面程序运行后，输出aa(1)的结果是______。 答案： 1：2

等级：2 难度：2

知识点：VB知识点/数组的基本操作 84、Private Sub Command1_Click() Dim aa(4) as Integer For i=0 to 3 aa(i)=aa(i) +4 Next i End Sub

上面程序运行后，输出aa(2)的结果是______。 答案： 1：4

等级：2 难度：2

知识点：VB知识点/数组应用举例 85、Private Sub Command1_Click() Dim aa(4) as Integer For i=0 to 3 aa(i)= i Next i End Sub

上面程序运行后，输出aa(1)的结果是______。 答案： 1：1

等级：1 难度：1

知识点：VB知识点/数组的基本操作 86、Private Sub Command1_Click() Dim aa(4) as Integer For i=1 to 4 aa(i)= i+1 Next i End Sub

上面程序运行后，输出aa(1)的结果是______。 答案： 1：2

等级：1 难度：1

知识点：VB知识点/数组的基本操作 87、Private Sub Command1_Click() Dim aa(4) as Integer For i=1 to 4 aa(i)= i+1 Next i End Sub

上面程序运行后，输出aa(2)的结果是______。 答案： 1：3

等级：2 难度：2

知识点：VB知识点/数组的基本操作 88、Private Sub Command1_Click() Dim w(4) as integer Dim y() as integer

For i=0 to 4 w(i)= i+2 Next i y=w

End Sub

上面程序运行后，输出y(1)的结果是______。 答案： 1：3

等级：2 难度：2

知识点：VB知识点/静态数组与动态数组 89、Private Sub Command1_Click() Dim w(4) as integer Dim y() as integer For i=0 to 4 w(i)= 2 * i Next i y=w

End Sub

上面程序运行后，输出y(1)的结果是______。 答案： 1：2

等级：2 难度：2

知识点：VB知识点/静态数组与动态数组 90、Private Sub Command1_Click() Dim w(4) as integer Dim y() as integer For i=0 to 4 w(i)= 3 * i Next i y=w

End Sub

上面程序运行后，输出y(2)的结果是______。 答案： 1：6

等级：2 难度：2

知识点：VB知识点/静态数组与动态数组 91、Private Sub Command1_Click() Dim w(4) as integer Dim y() as integer For i=0 to 4 w(i)= w(i) + 3 Next i y=w

End Sub

上面程序运行后，输出y(1)的结果是______。 答案： 1：3

等级：2 难度：2

知识点：VB知识点/静态数组与动态数组

92、Option Base 1

Private Sub Command1_Click() Dim c(4) as integer Dim meb as Variant For i=1 to 4 c(i)= i*2 + 1 Next i

43

For Each meb in c Print meb； Next meb End Sub

上面程序输出结果是______。 答案： 1：3 5 7 9#3579 等级：3 难度：3

知识点：VB知识点/数组应用举例 93、Option Base 1

Private Sub Command1_Click() Dim c(4) as integer Dim meb as Variant For i=1 to 4 c(i)= i*2 + 1 Next i

For Each meb in c Print meb； Next meb End Sub

上面程序输出的第2个数是______。 答案： 1：5

等级：3 难度：3

知识点：VB知识点/数组应用举例 94、Private Sub Command1_Click() Dim c(4) as integer Dim meb as Variant For i=1 to 4 c(i)= i*2 + 1 Next i

For Each meb in c Print meb； Next meb End Sub

默认情况下上面程序输出的第2个数是______。 答案： 1：3

等级：3 难度：3

知识点：VB知识点/数组应用举例 95、Option Base 1

Private Sub Command1_Click() Dim s(3) as integer Dim m as Variant For i=1 to 3 s(i)= i*2 - 1 Next i

For Each m in s Print m； Next m End Sub

上面程序输出结果是______。 答案： 1：1 3 5#135 等级：3 难度：3

知识点：VB知识点/数组应用举例 96、控件数组中以______属性来区分各个元素。

答案： 1：Index#index#INDEX 等级：2 难度：2 知识点：VB知识点/控件数组

97、控件数组中第一个元素的Index值是______。 答案： 1：0

等级：2 难度：2 知识点：VB知识点/控件数组

98、某个控件的Index值默认情况是______。

答案： 1：空值#空

等级：2 难度：2

知识点：VB知识点/控件的基本知识 99、可以通过修改控件数组中控件的______值改变其在数组中的顺序。 答案： 1：Index#index#INDEX 等级：2 难度：2 知识点：VB知识点/控件数组

100、控件数组除了在界面设计时建立外还可以在程序______时建立。 答案： 1：运行

等级：3 难度：3 知识点：VB知识点/控件数组

101、在程序运行时用______语句可以添加控件数组元素。

答案： 1：Load#load#LOAD 等级：3 难度：3 知识点：VB知识点/控件数组

102、在程序运行时用______语句可以删除控件数组元素。

答案： 1：UnLoad#unLoad#UNLOAD 等级：3 难度：3 知识点：VB知识点/控件数组

103、假设窗体上有一个命令按钮的控件数组和一个标签，有如下代码： Private Sub Command1_Click(Index As Integer)

Select Case Index Case 0

Label1.BackColor= VbRed Case 1

Label1.BackColor= VbGreen Case 2

Label1.BackColor= VbBlue End Select End Sub

程序运行时单击第一个命令按扭,Label1的背景色是______色。 答案： 1：红#Red#red#RED 等级：1 难度：1

知识点：VB知识点/分支(选择)结构 104、假设窗体上有一个命令按钮的控件数组和一个标签，有如下代码： Private Sub Command1_Click(Index As Integer)

Select Case Index Case 0

Label1.BackColor= VbRed Case 1

Label1.BackColor= VbGreen Case 2

Label1.BackColor= VbBlue End Select End Sub

程序运行时单击第二个命令按扭,Label1的背景色是______色。 答案： 1：绿#green#Green#GREEN 等级：1 难度：1

知识点：VB知识点/分支(选择)结构 105、假设窗体上有一个命令按钮的控件数组和一个标签，有如下代码：

Private Sub Command1_Click(Index As Integer)

Select Case Index Case 0

Label1.BackColor= VbRed Case 1

Label1.BackColor= VbGreen Case 2

Label1.BackColor= VbBlue End Select End Sub

程序运行时单击第三个命令按扭, Label1的背景色是______色。 答案： 1：蓝#兰#BULE#Blue#blue

等级：1 难度：1

知识点：VB知识点/分支(选择)结构 106、Private Sub Command1_Click() Dim i as integer， j as integer Dim a(5,5) as integer For i=1 to 3 For j=1 to 3

a(i,j) = i*2 + j Print a(i,j) Next j Print Next i End Sub

上面程序运行后的第2行第1列的数是______。 答案： 1：5

等级：3 难度：3

知识点：VB知识点/控制结构应用程序举例 107、Private Sub Command1_Click() Dim i as integer， j as integer Dim a(5,5) as integer For i=1 to 3 For j=1 to 3

a(i,j) = i*2 + j Print a(i,j) Next j Print Next i End Sub

上面程序运行后的a(3,2)的值是______。

答案： 1：8

等级：3 难度：3

知识点：VB知识点/数组应用举例 108、控件数组的名字由 Name 属性指定，而数组中的每个元素由______属性指定。

答案： 1：Index#index#INDEX 等级：1 难度：1 知识点：VB知识点/控件数组 109、由Array函数建立的数组必须是______类型。 答案： 1：

44

Variant#variant#VARIANT#变体#可变

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

110、在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：

Private Sub Command1_Click() Dim n() As Integer Dim a,b As Integer

a = InputBox(\number\

b = InputBox(\number\

ReDim n(a To b) For k = LBound(n,1) To UBound(n,1) n(k) = k

Print \Next k End Sub

程序运行后，单击命令按钮，在输入对话框中分别输入2和3，输出结果为n (2) = ______ n (3) = ______ 答案： 1：2 2：3

等级：3 难度：3

知识点：VB知识点/数组应用举例 111、在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：

Private Sub Command1_Click() Dim a(5)

For i=0 To 4 a(i) = i + 1 t=i+1

If t = 3 Then Print a(i);

a(t - 1) = a(i - 2) Else

a(t) = a(i) End If

If i = 3 Then a(i + 1) = a(t - 4)

a(4) = 1 Print a(i); Next i End Sub

程序运行后，单击命令按钮，输出结果是______。

答案： 1：1 2 3 1 4 1#123141 等级：3 难度：3

知识点：VB知识点/数组应用举例 112、在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：

Private Sub Command1_Click() Dim M(10) As Integer For k= 1 To 10 M(k) = 12 - k Next k x=6

Print M(2 + M(x)) End Sub

程序运行后，单击命令按钮，输出结果是______。 答案： 1：4

等级：2 难度：2

知识点：VB知识点/数组应用举例 113、在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：

Private Sub Command1_Click() Dim a(5, 5) For i = 1 To 3 For j = 1 To 4 a(i, j) = i * j Next j Next i

For n= 1 To 2 For M = 1 To 3 Print a(M, n); Next M Next n End Sub

程序运行后，单击命令按钮，输出结果是______。

答案： 1：1 2 3 2 4 6#123246 等级：3 难度：3

知识点：VB知识点/数组应用举例 114、设有程序： Option Base 1

Private Sub Command1_Chick() Dim arr1, Max as Integer

arrl=Array(12,435,76,24,78,54,866,43)

______=arrl(1) For i=1 To 8

If arrl(i)> Max Then ______ Next i

Print \最大值是:\End Sub

以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。

答案： 1：Max

2：Max=arr1(i) 等级：3 难度：3

知识点：VB知识点/数组应用举例 115、在窗体上画一个名称为\，标题为\计算\的命令按钮，再画7个标签，其中5个标签组成名称为Label1的控件数组;名称为Label2的标签用于显示计算结果，其Caption属性的初始值为空；标签Label3的标题为\计算结果\。运行程序时会自动生成5个随机数，分别显示在标签控件数组的各个标签中，如图所示。单击\计算\按钮，则将标签数组各元素的值累加，然后计算结果显示在Label2。请填空。

Private Sub Command1_Click() Sum = 0

For i = 0 To 4

Sum = Sum + ______ Next

______= Sum End Sub

答案： 1：

Label1(i).Caption#label1(i).caption#Label1(i)#label1(i) 2：

Label2.Caption#label2.caption#Label2#label2

等级：3 难度：3 知识点：VB知识点/控件数组 116、由下列语句定义的数组占用______字节的内存空间。 Dim a(10) As single

答案： 1：44#44个#四十四#四十四个#四四

等级：2 难度：2

知识点：VB知识点/数组的定义和引用

117、有如下程序段： j=1 n=0

Do While n<3 j=j * (j+1) n=n+1 Loop

运行后，输出n和j的结果是_____和______。 答案： 1：3 2：42

等级：2 难度：2 知识点：VB知识点/循环结构 118、有如下程序：

Private Sub Form_Load()

Dim arr1(10, 10) As Integer

Dim i, j As Integer For i = 1 To 3 For j = 2 To 4

arr1(i, j) = i + j Next j Next i

Text1.Text = arr1(2, 3) + arr1(3, 4) End Sub

程序运行后，单击窗体，在文本框显示的值是______。 答案： 1：12

等级：3 难度：3

知识点：VB知识点/数组应用举例 119、以下程序段的运行结果是______。

Private Sub command1_Click() Const n = 4

Dim xx(n) As Integer For i = 1 To n xx(i) = i * 2 Print xx(i); Next i End Sub

答案： 1：2 4 6 8#2468 等级：3 难度：3

45

知识点：VB知识点/数组应用举例 120、阅读程序：

Sub subp(b() As Integer) For i = 1 To 4 b(i) = 2 * i Next i End Sub

Private Sub Command1_Click() Dim a(1 To 4) As Integer a(1) = 5: a(2) = 6: a(3) = 7: a(4) = 8 subp a

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

程序运行时，单击命令按钮得到的结果是______。

答案： 1：2 4 6 8#2468 等级：3 难度：3

知识点：VB知识点/过程应用案例 121、下列语句Dim a(3 ，-2 to 2，5)声明的数组a包含的元素个数有______个。

答案： 1：120#一百二十#一二零 等级：2 难度：2

知识点：VB知识点/数组的定义和引用

122、下面程序运行后，输出sum的结果是______。

Private Sub Form_Click()

Dim ary(1 To 4) As Integer Dim i As Integer Dim sum As Integer sum = 1

For i = 1 To 4 ary(i) = i

sum = sum + ary(i) Next i End Sub

答案： 1：11

等级：3 难度：3

知识点：VB知识点/数组应用举例 123、在窗体上添加一个命令按钮Command1，然后编写如下代码： Option Base 1

Private Sub Command1_Click() d = 0: c = 10

x = Array(10, 12, 21, 32, 24) For i = 1 To 5

If x(i) > c Then d = d + x(i) c = x(i) Else

d = d - c End If Next i Print d End Sub

程序运行后，单击命令按钮，输出d的结果是______。 答案： 1：23

等级：3 难度：3

知识点：VB知识点/数组应用举例 124、在窗体上画一个命令按钮Command1，然后编写如下代码： Private Sub Command1_Click() Dim n(2 to 4) As Integer For k = LBound(n) To UBound(n) n(k) = k Print n(k); Next k End Sub

程序运行后，单击命令按钮，输出结果是______。

答案： 1：2 3 4#234 等级：2 难度：2

知识点：VB知识点/数组应用举例 125、在窗体上画一个命令按钮Command1，然后编写如下代码： Private Sub Command1_Click() Dim a,s

a = Array(1, 2, 3, 4) For i = 3 To 0 Step -1

s = s + Trim(Str(a(i))) Next i End Sub

程序运行后，单击命令按钮，输出s的结果是______。 答案： 1：4321

等级：3 难度：3

知识点：VB知识点/数组应用举例 126、以下程序运行的结果是______。 Option Base 0

Private Sub Form_Click() Dim a

Dim i As Integer

a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)

For i = 0 To 3 Print a(5 - i); Next i End Sub

答案： 1：6 5 4 3#6543 等级：3 难度：3

知识点：VB知识点/数组应用举例 127、用语句 Dim A(-3 to 5) As Long 定义的数组元素个数是______。 答案： 1：9#九#9个#九个 等级：1 难度：1

知识点：VB知识点/数组的定义和引用

128、为窗体添加按钮Command1，编写如下代码： Option Base 1

Private Sub Command1_Click() Dim Arr

Arr = Array(43, 68, -25, 65,-78,12,-79,43,-94,72)

pos=0 neg=0

For k = 1 To 10

If Arr(k)>0 Then ______ Else ______

End If

Next k

Print pos,neg End Sub

以上程序计算并输出数组Arr中10个数的正数之和pos与负数之和neg，请填空。

答案： 1：pos=pos+Arr(k) 2：neg=neg+Arr(k) 等级：3 难度：3

知识点：VB知识点/数组应用举例 129、用语句 Dim A (3) as Integer，定义的数组元素个数是______。

答案： 1：4#4个#四#四个 等级：1 难度：1

知识点：VB知识点/数组的定义和引用 130、下列程序段的执行后，x(3,4)的结果为______。 Dim x(3,5) For i=1 to 3 For j=1 to 5 x(i,j)=i+j Next j Next i

答案： 1：7

等级：2 难度：2

知识点：VB知识点/数组应用举例 131、如果在模块的声明段中有Option Base 1语句，则在该模块中使用Dim a(3 To 5,6)声明的数组有______个元素。

答案： 1：18#十八#一十八#一八

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

132、如果在模块的声明段中有Option Base 0语句，则在该模块中使用Dim a(6, 3 To 5)声明的数组有______个元素。

答案： 1：21#二十一#二一 等级：1 难度：1

知识点：VB知识点/数组的定义和引用

133、表达式Str(Len(\的值是______。 答案： 1：6

等级：1 难度：1

知识点：VB知识点/常用内部函数 134、有赋值语句a=Array(1,2,3,4,5)，则Ubound(a)的值为______。 答案： 1：4

等级：1 难度：1

知识点：VB知识点/数组的定义和引用

135、在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click() Dim a(5) As String For i =1 To 5

46

a(i)=Chr(Asc(\Next i

For Each b In a Print b Next End Sub

程序运行后，单击命令按钮，输出结果是______。

答案： 1：ABCDE

等级：2 难度：2

知识点：VB知识点/数组应用举例 136、下面过程用于用动态数组的形式存储并打印数列1，1，2，3，5，8，13，21……的前20项，填写缺失的代码：

Private Sub Command1_Click() Dim ______

ReDim f(1 To 20) Dim i As Integer f(1) = 1 f(2) = 1

For i = 3 To 20 ______ Next

For i = 1 To 20 Print f(i)； Next End Sub

答案： 1：f() As Integer#f%() 2：f(i)=f(i-1)+f(i-2) 等级：3 难度：3

知识点：VB知识点/数组应用举例 137、Command1第2次单击后的输出结果是______。

Private Sub Command1_Click() Static k(2) As Integer For i =1 To 2 k(i)=k(i-1)+10 Next i k(0)=k(2) Print k(2) End Sub

答案： 1：40

等级：2 难度：2

知识点：VB知识点/静态数组与动态数组

138、以下程序代码将整型动态数组X声明为具有20个元素的数组,并给数组的所有元素赋值1。 Dim X() As Integer

Private Sub Command1_Click() ReDim ______

For I=1 To ______ X(I)=1

Print X(I) Next I End Sub

答案： 1：X(1 To 20)#X(1 to 20) 2：20

等级：3 难度：3

知识点：VB知识点/静态数组与动态数组

139、下面这段程序是求1～10的自然

数之和，请填空。 sum＝0

For i＝1 To 10 sum＝sum+______ Next i

Print \＝\答案： 1：i

等级：2 难度：2 知识点：VB知识点/循环结构

140、VB的对象主要分为窗体和______两大类。 答案： 1：控件

等级：1 难度：1

知识点：VB知识点/VB的对象、属性、方法和事件

141、有如下事件过程，单击命令按钮后，输出t的结果为______。 Private Sub Command1_Click() Dim b%(1 To 4) , j%, t# For j=1 To 4 b(j) =j Next j

t=Tax(b() ) End Sub

Function Tax (a() As Integer) Dim t#, i% t=1

For i=2 To UBound(A) t=t * a(i) Next i Tax=t

End Function 答案： 1：24

等级：3 难度：3

知识点：VB知识点/过程应用案例 142、下面程序利用Array建立一个数组，并查找输出该数组的最小值，请在空白处填入相应的代码： Option Base 1

Private Sub Command1_Click()

Dim arr1

Dim Min As Integer,i As Integer

arr1 = Array(43, 68, -25, 65,-78,12,-79,43)

Min=______

For i = 2 To 8 If arr1(i)

Print \最小值是：\；Min End Sub

答案： 1：arr1(1)

2：Min=arr1(i) 等级：3 难度：3

知识点：VB知识点/数组应用举例 143、VB的赋值语句既可以给变量赋值，也可给对象的______赋值。 答案： 1：属性

等级：1 难度：1

知识点：VB知识点/VB的对象、属性、方法和事件

144、在过程内用______声明的变量为静态变量，在执行一个过程结束

时，过程中所用到的静态变量的值会保留，下次再调用此过程时，变量的初值是上次调用结束时被保留的值。 答案： 1：

static#Static#STATIC

等级：1 难度：1

知识点：VB知识点/变量与过程的作用域

145、在模块文件中的声明部分用Global或______关键字声明的变量为全局变量。 答案： 1：

Public#public#PUBLIC

等级：1 难度：1

知识点：VB知识点/变量与过程的作用域

146、在模块文件中的声明部分用Dim或_____定义的变量为局部变量。

答案： 1：

Private#private#PRIVATE 等级：1 难度：1

知识点：VB知识点/变量与过程的作用域

147、标准模块存盘后，形成的磁盘文件扩展名是______。 答案：

1：.bas#.Bas#.BAS#bas#Bas#BAS 等级：1 难度：1

知识点：VB知识点/VB的工程管理和环境设置

148、窗体模块存盘后，形成的磁盘文件扩展名是______。 答案：

1：.frm#.Frm#.FRM#frm#Frm#FRM 等级：1 难度：1

知识点：VB知识点/VB的工程管理和环境设置

149、在窗体上画一个名称为Command1的命令按钮，并编写如下程序：

Private Sub Command1_Click()

Dim x As Integer Static y As Integer x=10 y=5

Call f1(x,y) Print x,y End Sub

Private Sub f1(ByRef x1 As Integer,y1 As Integer)

x1= x1+2 y1= y1+2 End Sub

程序运行后，单击命令按钮后，在窗体上显示的内容是______。 答案： 1：12 7#127

等级：3 难度：3

知识点：VB知识点/过程应用案例 150、若调用过程时，采用值传递方式，则应在形参说明前添加关键字______。

47

答案： 1：ByVal#byval#BYVAL 等级：1 难度：1 知识点：VB知识点/参数的传递 151、若要编写一些全局性的Sub子过程，也就是说能从多个窗体中访问这些过程，应将它们放在______模块中。

答案： 1：标准模块

等级：2 难度：2 知识点：VB知识点/Sub过程

152、通用过程分为两类：函数过程和______过程。 答案： 1：子程序#子#sub#SUB#Sub 等级：1 难度：1 知识点：VB知识点/Sub过程

153、以保留字______开始的是函数过程。

答案： 1：

Function#function#FUNCTION 等级：1 难度：1 知识点：VB知识点/函数过程

154、以保留字______开始的是子程序过程。

答案： 1：Sub#SUB#sub 等级：1 难度：1 知识点：VB知识点/Sub过程

155、Function函数过程通过______返回函数值。

答案： 1：函数名#函数名称 等级：1 难度：1 知识点：VB知识点/函数过程

156、只在定义它的过程内能够识别的变量称为______。 答案： 1：局部变量

等级：2 难度：2

知识点：VB知识点/变量与过程的作用域

157、过程的作用域有窗体／模块级和______。

答案： 1：全局级

等级：2 难度：2

知识点：VB知识点/变量与过程的作用域

158、变量的作用域通常分为三级：局部级变量、______和全局级变量。 答案： 1：窗体\\模块级变量#窗体/模块级变量

等级：3 难度：3

知识点：VB知识点/变量与过程的作用域

159、表达式\的值是______。

答案： 1：123456

等级：1 难度：1

知识点：VB知识点/运算符及表达式 160、若调用过程时，采用地址传递方式，则应在形参说明前添加关键字______或缺省。

答案： 1：ByRef#BYREF#byref 等级：2 难度：2 知识点：VB知识点/参数的传递 161、如果希望自定义的过程可以在本应用程序的任何地方被调用，则应

在过程名前加上______关键字。 答案： 1：Public#PUBLIC#public 等级：2 难度：2 知识点：VB知识点/参数的传递 162、如果在Function函数过程和Sub过程的定义语句前加上Static关键字，则表明该过程内所有的______均为静态变量。

答案： 1：局部变量

等级：3 难度：3

知识点：VB知识点/变量与过程的作用域

163、在Function函数过程和Sub过程的定义语句中，如果不指明函数参数的类型，则此参数默认为______数据类型。

答案： 1：

Variant#variant#VARIANT#可变#变体

等级：2 难度：2 知识点：VB知识点/参数的传递 164、当数组作为函数的参数时，只能使用______的方式。

答案： 1：传地址#地址传递#传递地址

等级：2 难度：2 知识点：VB知识点/参数的传递 165、在过程B中定义了静态变量x,当调用过程B后，在退出过程B前，x的值为6。请问，下次再进入过程B时，x的值为______。 答案： 1：6

等级：2 难度：2

知识点：VB知识点/变量与过程的作用域

166、在Visual Basic应用程序中，过程的定义______嵌套，过程的调用可以嵌套。

答案： 1：不可以#不能#不允许#不可

等级：2 难度：2 知识点：VB知识点/函数过程

167、Visual Basic的模块分为三类，它们是______、标准模块、类模块。 答案： 1：窗体模块

等级：2 难度：2

知识点：VB知识点/VB的工程结构 168、在窗体模块的通用声明中声明变量时，不能使用______关键字。 答案： 1：Static#static#STATIC 等级：2 难度：2

知识点：VB知识点/变量与过程的作用域

169、程序运行后，单击命令按钮，

在窗体上分别输出______和______。

Function fun(ByRef x As

Integer,ByVal y As Integer) As Integer x＝x*y

If x<5 Then fun＝x Else fun＝y End Function

Private Sub Command1_Click()

Dim a As Integer,b As Integer a＝2 : b＝3

Print fun(a,b),a End Sub

答案： 1：3 2：6

等级：3 难度：3

知识点：VB知识点/过程应用案例 170、有如下程序：

Private Sub Mysub(ByVal b As Integer) b = b * 3 End Sub

Private Sub Form_Click() Dim y As Integer y = 6

Call Mysub(y) Print y End Sub

运行程序，单击窗体，显示结果为______。 答案： 1：6

等级：1 难度：1

知识点：VB知识点/过程应用案例 171、在窗体上画一个命令按钮，然后编写如下程序： Sub inc(a As Integer) Static x As Integer x=x+a Print x End Sub

Private Sub Command1_Click() inc 2 inc 3 inc 4 End Sub

程序运行后，第一次单击命令按钮时，x的结果为______。 答案： 1：9

等级：3 难度：3

知识点：VB知识点/过程应用案例 172、在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件程序：

Private Function fun(ByVal m As Integer)

If m Mod 2 = 0 Then fun = 2 Else

fun = 1 End If

End Function

Private Sub Command1_Click() Dim i As Integer,s As Integer s = 0

For i = 1 To 5 s = s + fun(i) Next

Print s End Sub

程序运行后，第一次单击命令按钮时，s的结果为______。

48

答案： 1：7

等级：3 难度：3

知识点：VB知识点/过程应用案例 173、设有如下通用过程：

Public Sub Fun(a(),ByVal x As Integer)

For i = 1 To 5 x = x + a(i) Next End Sub

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件程序： Private Sub Command1_Click() Dim b(5) As Variant For i = 1 To 5 b(i) = i Next n = 10

Call Fun(b(),n) Text1.Text = n End Sub