vb复习指导：填空题--程序填空题

一、选择题

1. 下列操作不能向工程中添加窗口是（ ）

A. 执行?工程?菜单中的‘添加窗体’命令 B. 单击工具栏中的‘添加窗体’按钮

C. 用鼠标右键单击窗体，在弹出的快捷菜单选择‘添加窗体’命令

D. 用鼠标右键单击职员管理器，在弹出的快捷菜单选择“添加”命令，然后再下一级

菜单中选择‘添加窗体’命令

2. 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（ ） A.工程资源管理器窗口 B.工具箱窗口 C．代码窗口 D。属性窗口

3. 建立一个新的”标准EXE工程后，不在工具箱中出现的控件是（ ） A.单选按钮 B。图标框 C．通用对话框 D.文本框

4. 以下不能再资源管理器窗口中列出的文件类型是（ ） A.bas B.res C.frm D.OCX 5. 以下叙述中错误的是( )

A. Visuai.Basic是事件驱动型可视化编程工具

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

C. Visuai.Basic工具箱中的所有控件都具有宽度(Width)和高度(Lteight)属性 D. Visuai.Basic中控件的某些属性只能在运行时设置

6、在Visuai Basic中，要把光标移到当前行的末尾，可以使用键盘上的哪个键？ （ ） A、 Home B、End C、PgUg D、PgDn 7、程序模块文件的扩展名是( )

A、.frm B、.prg C、.bas D、.vbp

8、下列不能打开菜单编辑器的操作时（ ）

A、 按组合键“Ctrl+E” B、单击工具栏中的“菜单编辑器”按钮

C、执行“工具”菜单中的“菜单编辑器”命令 D、按组合键“Shift+Alt+M” 9、下列可以打开立即窗口的操作是（ ） A、 Ctrl+D B、Ctrl+E C、Ctrl+F D、Ctrl+G

10、除了系统默认的工具箱布局外，还可以通过（ ）方法定义选项卡来安排控件

A、 执行“文件”菜单中的“添加工程”命令 B、执行“工程”菜单中的“部件”命令 C、在工具箱处执行其快键菜单中的“添加选项卡”命令 D、执行“工程”菜单中的“添加窗体”命令

11、与传统的程序设计语言相比较，Visual Basic 的最突出的特点是（ ）。

A、结构化的程序设计 B、访问数据库 C、面向对象的可视化编程 D、良好的中文支持 12、以下不属于Visual Basic系统的文件类型是（ ）。

A、 frm B、bat C、vbg D、vbp 13、以下叙述中错误的是（ ）。

A、 打开一个工程文件时，系统自动装入与其相关的窗体、标准模块等文件 B、 保存Visual Basic 程序时，应分别保存窗体文件及工程文件 C、 Visual Basic 应用程序只能以解释方式执行

D、 事件可以由用户引发，也可以由系统引发 14、以下叙述中错误的是（ ）。

A、 一个工程可以包括多种类型的文件 B、 Visual Basic应用程序既能以编译方式执行，也能以解释方式执行 C、 程序运行后，在内存中只能驻留一个窗体

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

15、当使用鼠标操作选择了多个控件时，如果要取消当前多个控件的选择，正确的操作方法是（ ）。

A、 用鼠标单击所选中的多个控件中的任意一个 B、 用鼠标双击所选中的多个控件中的任意一个 C、 用鼠标单击当前窗体的空白处

D、用鼠标右键单击所选中的多个中控件的任意一个

15、当使用鼠标操作选择了多个控件时，如果要取消当前多个控件的选择，正确的操作方法是（）

A 用鼠标单击所选中的多个控件中的任一个 B 用鼠标双击所选中的多个控件中的任一个 C 用鼠标单击当前窗体的空白处

D 用鼠标右键单击所选中的多个中控件的任一个

16、如果想同时调整选定控件的宽度和高度，正确的操作方法是（） A 只能用鼠标拖动控件右下角的小方块 B只能用鼠标拖动控件左下角的小方块

C 用鼠标拖动控件四角中任意一个角的小方块 D 用鼠标拖动控件四边中任意一个边上的小方块 17、下面关于控件的说法，不正确的是（）

A 移动控件的方法：按住鼠标左键不放，拖动到新的位置再释放鼠标键

B 只能从工具栏中单击“添加控件”按钮，不能在窗体上复制已经添加好的控件 C 利用鼠标的操作，就可以同时修改控件的宽度和高度 D 有些控件没有标题属性

18、如果要使窗体中的某一个控件变为活动的控件，正确的操作方法是（） A 用鼠标单击该控件 B用鼠标双击该控件 C 用鼠标单击该窗体 D用鼠标双击该窗体 19、下列叙述中错误的是（）

A Visual Basic的所有对象都具有相同的属性项

B Visual Basic的同一类对象都具有相同的属性和行为 C 属性用来描述和规定对象应具有的特征和状态 D 设置属性的方法有两种 20、运行工程的错误操作是（）

A 执行“运行”菜单中的“启动”命令 B 单击工具栏中的“启动”按钮 C 按功能键“F5” D 按组合键“Alt+5”

21下列有关Visual Basic特点的描述有误的是（）

A:Visual Basic是一种可视化、面向对象的程序设计语言 B: Visual Basic采用事件驱动编程机制

C: Visual Basic可采用开发Windows环境下的各类应用程序 D: Visual Basic是非面向对象的程序设计语言 22：以下叙述中错误的是()

A:工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件 B:以bas为扩展名的文件时标准模块文件 C: 窗体文件包含该窗体及其控制的属性 D:一个工程中可以包含有多个标准模块文件

23：与传统的程序设计语言相比，Visual Basic最突出的特点是（） A:结构化程序设计 B:程序开发环境 C:事件驱动编程机制 D:程序调试技术 24：下列不能打开代码窗口的操作是（） A:代码窗口 B:双击窗体上的某个制件 C:单击窗体 D:按“F7”键

25：在8BBE计窗体时双击窗体的任何地方，可以打开的窗口是（） A:ABCabe B:b1234 C:28wed D:crud

26.下列标识符不能作为Visual Basic最突出的特点是（ ）。 A．ABCabe B．b1234 C．28wed D．crud 27.下列说法错误的是（ ）。

A．在同一模块不同过程中的变量可以同名 B．不同模块中定义的全局变量可以同名

C．引用另一模块中的全局变量时，必须在变量名前家模块名 D．同一模块中不同级的变量可以同名 28.下列描述不正确的是（ ）。

A．某个子过程中声明的局部变量，其使用范围仅限定于该子过程内

B．某个子过程中声明的局部变量，其生命周期仅限于该子过程被执行过程中 C．不同子过程中的局部变量可以具有相同的名称

D．不同子过程中具有相同的名称的局部变量是同一变量 29.声明一个变量为局部变量应该用（ ）。

A．local B．Private C．Static D．Public 30.语句Y=Y+1的正确含义是（ ）。 A．变量Y的值与Y+1的值相等 B．将变量Y的值存到Y+1中去

C．将变量Y的值加1后赋值给变量Y D．变量Y的值为1

31.下列符号不能作为VB中的变量名的是（）

A.ABCD B.E0065700 C.123TWJGF D.ZXY

32.若要在代码编辑器窗口中规定输入的代码中的变量必须要显示声明，应在下列哪一个选项中设置（）

A. 自动语法检测 B.要求变量声明 C.自动缩进 D.Tab 宽度 33.下列属于不合法的常量是（） A.20000 B.100^6 C.123.5 D.10E+6

34.下列不合法的变量名是（）

A.print_num1 B.Abc% C.Const D.X1_y2_z3 35.关于变体变量，下列说法正确的是（）

A. 变量未加定义而直接使用，该变量即为变体变量，因而变体变量时无类型变量 B. 变体变量占16字节的固定存储单位

C. 变体变量定义后，系统将变体变量初始化为数值0或空字符串 D. 设X为变体变量，且X=X+20是正确的语句 36.下列符号常量的声明中，不合法的是（ ） A.Const a As Single=1.1 B.Const a =”OK”

C.Const a As double=Sin(1) D.Const a AsInteger=”12” 37.下列关于声明变量的说法中，错误的是（ ）

A.用显示声明变量的关键字Dim、Private、Static或Public来声明变量的类型 B.用类型说明符标记变量类型，类型说明符有：％、＆、！、﹟、@、非 C.用DefTrype语句声明变量的类型，其中Type是类型标志 D.用Type<数据类型名>/End Type语句声明记录类型变量 38.已知a=5,b=8,c=12,下列表达式的值为True的是（ ） A.a>b And cb Or cb Xor cb Eqv c

X=3>2*b Or a=c And b<>c Or c>d Print x End sub

A.1 B.True C.False D.2

40.表达式25Mod3+23\\5*2的值是（ ） A.0 B.2 C.3 D.6 41.表达式Ringht（“eijing”，4）的值是（ ） A.Beij B.jing C.eiji D.ijin

42.设X=4，Y=8，Z=7，表达式X>Z Or Z

44.将数学表达式cos2（a+b）+5e2写成Visual Basic的表达式，正确的形式是（A. cos（a+b）^2+5*exp(2) B.cos^2(a+B)+5*exp（2） C.cos（a+b）^2+5*In(2) D,cos^2(a+b)+5*In（2） 45.表达式Int(rnd(0)*100)的范围是（ ）

A.(0,99) B.(0,100) C.[0,99] D.(0,100)

46.X是大于0小于45的数，用VB表达式表示正确的是（ ）

A.0<=x45 B.0<=x<=45 C.0<=x and x<=45 D.0<=x or x<45 47.表达式4+5/6*7/8 Mod 9的值是（ ）

A.4 B.5 C.6 D.7 48.以下VB程序段的输出结果是（ ）。 a=sqr(7)：b=sqr（5）：c=a>b

） ）

A.-1 B.0 C.False D.True 49.下列4个逻辑表达式中，其逻辑值为“真”的是（ ） A.Not(3+4<4+6) B.2>1And3<2 C.1>2 or2>3 D.Not(1>2)

50.表达式Val(“.123E2”)的值是（ ） A.123 B.12.3 C.0 D.123eCD 51.如果是一个正实数。对x的第二位小数四舍五入的表达式是( ) A.0.1*Int(x+0.005) B.0.1*Int(10*(x+0.005)) C0.1*Int(100*(x+0.5)) D.0.1*Int(X+0.5) 52.可以同时删除字符串前部和尾部的函数是( ) A.Ltrim B.Rtrim C.Trim D.Mid 53.表达式Int(-27.8)+Sgn(37.8)的值是( )

A.10 B.-27 C.-18 D.-16 54.表达式Int(5*Rnd+1)*Int(5*Rnd-1)的值的范围是( ) A.[0,15] B.[-1,15] C.[-4,15] D.[-5,15]

55.函数InStr(\程序设计教程\程序)的值是( ) A.11 B.13 C.15 D.16

61.用print方法在forml窗体中显示出4个#号的正确代码为（ ） A. Debug.print.“####” B.print ####

C.Forml print #### D.Forml.print“####” 62.print方法可以在（ ）对象上输出数据。

A．桌面 B.标题栏 C.窗体 D.状态栏 63.代码窗口中的注释行使用的符号标注是（ ） A.单引号 B.双引号 C.斜线 D.星形号 64.如果A为整数且|A|>=10,则显示“ok”，否则显示“Error”，表示这个条件的单行格式If语句是（ ）。

A.If Int（A）=A And Sqr（A）=Then Print“ok”Eise Print“Error” B.If fix“”=A And Abs“A”=10 Ten Pint“ok”Eie Pint“Error”

C.If Int“A”=A And(A>=10,A<=-10)Then Print“ok”Else Print“Error” D.If Fix“A”=A And>=10 And A<=-10Then Print“ok”Else Print“Error”

65.在窗体上画一个命令按钮Commandi和一个文本框Texl，然后编写如下程序：private sub command_click（） a =inputbox（“请输入日期（1~31）”） t =“旅游景点：”_

& IIf（a>0 And a<=10,“龙门石窟”，“”）_ -& IIf（a>10 nd a<=20,“少林寺”，““）_ -& IIf（a>20 And=30，“绿博园”，“”） Text1.Text = t End sub

程序运行后，如果从键盘输入5，则在文本框中显示的内容是（ ） A旅游景点：龙门石窟 B.旅游景点：龙门石窟绿博园 C.旅游景点：绿博园 D.旅游景点：少林寺

66．设a=6，则执行x=Lif（a>5，-1，0）后X的值为（ ） A.5 B.6 C.0 D.-1

67.关于多行结构条件语句的执行过程，正确的说法是（ ） A.各个条件所对应的语句块中，一定有一个语句块被执行

B.找到条件为true的第一个入口，便从此开始执行其后的所有语句块 C若有多个条件为true，则它们对应的语句块都不被执行

D.多行选择结构中的语句块，有可能任何一个语句块都不被执行 68.在Visusl Basic中，下列控制结构不能够嵌套的是（ ） A.选择控制结构 B.多分支控制结构 C.for循环控制结构 D.Do循环控制结构

69.窗体上有一个命令按钮，命令按钮的单击事件过程如下： Private sub commandl_click（） Dim a

a=Array（1，2，3，4，5，6，7） For K =2 To 5 S =s+a（k） Next Print s End sub

运行程序后，单击命令按钮，输出结果是（ ） A.10 B.14 C.18 D.120 70.下列程序段的执行结果为（ ） Privte sub form_load（） Dim a（3，3） For M =1 To 3 - For N=To 3

- If N =M OR N=3-M+1 then - a（M,N）=0 - Else

- A（M,N）=1 - End If - Next N - Next M

- For M=1To3 - For N=To 3

- Print a（M,N）,

- Next N - End sub

A.1 0 0 B.1 1 1 0 1 0 1 1 1 0 0 1 1 1 1 C. 0 0 0 D.0 1 0 0 0 0 1 0 1 0 0 0 0 1 0

71.下列关于For…Next语句的说法正确的是（ ） A.循环变量、初值、终值和步长都必须为数值型 B.Step后的步长只为正数 C.初值必须小于终值 D.初值必须大于终值

72.设计了如下程序，用于计算机并输出7！（阶乘）： Private sub commandl_click（） t =0

for k =7 to 2 step -1 t = t * k next print t End sub

执行程序时，发现结果是错误的。下面的修改方案中能够得到正确结果的是（ ） A. 把t=0改为t=1

B. 把for k=7 to 2 step-1 改为for k7 to 1 step 1 C. 把for k=7 to 2 step-1 改为for k =1 to 7 D. 把next改为next k

73.在窗体上画两个文本框text1和text2，一个命令按钮comml，请阅读以下程序段： Private sub commandl_click（） X=0

Do until x>=30

X=（x+2）*（x+4） N=n+1 Loop

Text1.text2=str（n） Text1.text2=str（x） End sub

运行程序后，单击命令按钮，在两个文本框中显示的值分别为（ ） A．1和0 B.2和240 C.2和120 D.4和168 74.使用ReDim Preserve语句，可以（ ）

A.改变数组最后一维的大小 B.改变数组第一维的大小

C.改变数组所有维的大小 D.改变数组维数和所有维的大小 75.语句Dim Arr（-3 to 5） As Integer定义的数组的元素个数是（ ） A.6 B.7 C.8 D.9

76.语句Dim Arr（3 to5，-2 to 2）定义的数组的元素个数是（ ）

A.20 B.12 C.15 D.24

77.没有数组定义语句：Dim a（5）As Integer，并设Listl为列表框控件。下列给数组元素赋值的语句错误的是（ ）

A.a（4）=3 B.a（4）=inputbox（“输入一个数”）

D.a （4）=Listl.listndex D.a=Array（1，2，3，4，5，6） ７８．下列哪个声明的数组不是动态数组（ ） A.Dim x（） B.Dim x（8）

C.ReDim x（8） D.ReDim preserve x（8）

79.使用数组明语句Dim Y(1 To 12)As Integer后，以下说法正确的是（ ） Ａ．Ｙ数组中的所有元素均为０ Ｂ．Ｙ数组中的所有元素值不确定

Ｃ．Ｙ数组中的所有元素均为Ｅｍｐｔｙ

Ｄ．运行Ｅｒａｓｅ Ｙ后，Ｙ数组中的所有元素均为ｅｍｐｔｙ

80.用复制、粘贴的方法建立了一个命令按钮数组commandl，以下说法错误的是（ ） A.该控件数组的所有caption属性均为commandl

B.在代码中访问其中的命令按钮时只需要使用名称comml C.该控件数组的大小相同

D.该命令按钮数组共享相同的事件过程

81.使用Array函数给某X赋值时，X必须是（ ） Ａ．已经生命的动态数组 Ｂ．Ｖａｒｉａｎｔ类型变量

Ｃ．已经声明的动态数组且该动态数组的类型为Ｖａｒｉａｎｔ Ｄ．已经声明的动态数组

８２．可以通过（ ）的方法输出一个二维数组中的各个元素 Ａ．引用数组中的两个下标 Ｂ．将数组名赋值给变量 Ｃ．通过引用数组的一个下标 Ｄ．以上都不正确

８３．假定建立一个名为ｃｏｍｍａｎｄｌ的命令按钮数组，则下列说法中错误的是（ ） Ａ．数组中每个命令按钮的名称（名称属性）均为ｃｏｍｍａｎｄｌ Ｂ．数组中的每个命令按钮的标题（ｃａｐｔｉｏｎ属性）都一样 Ｃ．数组中所有命令按钮可以使用同一个事件过程

Ｄ．用名称ｃｏｍｍａｎｄｌ（下标）可以访问数组中的每个命令按钮 ８４．在窗体上放置１个文本框，然后对其进行复制粘贴，没粘贴出现对话框时，单击“是”按钮，粘贴３次，共４个文本框，适当调整位置，在放置一个命令按钮，然后编写如下事件过程：

Option Base 1

Priv ate Sub Comman1_Click() Dim I As Integer

For I = 1 To 4

Text1(i) = Text1(i). Index Next i End Sub

程序运行后，单击命令按钮，4个文本框中显示的内容分别为（ ） A.0123 B.1234 C.0000 D.出错息息 85.以下（）是VB合法的数组元素表示。（ ）

A.X［10］ B.X（i+1）C.X10 D.X（１ｔｏ １０）

86.Visual Basic应用程序中，下列关于过程的说法正确的是（ ） A.过程的定义可以嵌套，但过程的调用不能嵌套 B. 过程的定义不以嵌套，但过程的调用可以嵌套 C.过程的定义和调用都可以嵌套 D. 过程的定义和调用都比能嵌套

87.下列关于Sub过程的叙述正确的是（） A.一个Sub过程必须有一个ExitSub语句 B一个Sub过程必须有一个EndSub语句

C.在Sub过程中可以定义一个Function过程 D.可以用Goto语句退出Sub过程

88.现有如下过程：Sub aaa(x、y、z)

X=y+z End sub

下列选项中所有参数的虚实结合都是按地址传递方式调用的是（）

A Call aaa(6,9,z) B Call aaa (x,y,z) C Call aaa(3+x,5+y,z) D Call aaa(x+y,x-y,z) 89.下列过程语句的说明正确的是（）

A Sub fl (By Val x() As Integer) B Sub n(X%()) As Integer C Function fl%(fl%) D Function fl%(x As Integer ) 90.在自定义过程语句中使用的<参数>可以是下列哪种（）

A 常量或变量名 B表达式或变量名 C数组元素或变量名 D变量名或组名 91.在子过程Sub……End Sub中使用的形式参数可以是（）

A常数、简单变量、数组变量和运算式 B、简单变量、数组变量和数组元素 C常数、简单变量、数组变量 D简单变量、数组变量和运算式 92.过程共有3中，它们分别是（）

A Sub过程、函数过程和属性过程 B事件过程、函数过程和通用过程 C Sub过程、函数过程和通用过程 D事件过程、子过程和函数过程 93.SUB过程与Function过程最根本的区别是（ ）

A. SUB过程可以使用CALL语句或直接使用过程名调用，而Function过程不可以 B. Function过程可以有参数SUB过程不能有参数 C. 两种过程参数的传递方式不同

D. SUB过程的过程名不能有返回值，而Function 过程能通过过程名返回值 94.下面过程定义语句中合法的是（ ）

A.Subpi(byvalx()) B.SUB PI(X)AS SINGLE C.Function PI(PI) D.Function PI(BYVAL X) 95.在窗口模块的通用声明中声明变量时，不能使用的关键字是（ ） A.Dim B.Private C.Public D.Static 96.执行“工程”菜单中（ ）命令，可以添加一个标准模块。 A.添加过程 B.标准模块 C.添加模块 D.通用模块 97.不能脱离控件（包括窗体）而独立存在的过程是（ ）

A.事件过程 B.通用过程 C.sub过程 D.函数过程

103. 假定有下列两个过程：

private sub ppp(a As single?b As single)

a= a + b print a ?b b = a + b print a?b End Sub

Private sub form_Activate ()

X= 18

Call ppp ((x) ?(x) Print End Sub

则下列说法中不正确的是（ ）.

A. 形参是a和b，另个实参（x）和（x）允许重名 B. 形参是a和b，实参（x）表示地址调用 C. 形参是a和b，实参（x）表示是非地址调用

D. 形参是a和b，两个实参（x）和（x）不允许重名

104. 为达到把a、b中的值交换后输出的目的，编程如下： private sub command1_click() a% = 20 b%=10

call swap (a?b) print a?b End sub

Private sub swap(byval a As integer? byval b As integer) C=a A=b B=c End sub

在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的（A. 调用swap过程的语句错误，应该为 Call swap a,b B. 输出语句错误，应该为Print “a” ,“b”

C. 过程的形式参数有误，应该为swap （Byref a As integer ,BYRef b As integer） D. swap中3条赋值语句的顺序是错误的，应该为a=b:b=c:c=a

105.要想在过程调用后返回两个结果，下面的过程定义语句合法的是（ ）。 A. Sub pp(by val x,byval y) B. Sub pp(x,byval y) C. Sub pp(byval x,y) D. Sub pp(x,y)

106.下面哪种情况不会导致逻辑错误？（ ）

。 ）

A. 变量类型错误 B. 语句的次序不对 C. 除数为零

D. 循环中起始值和终止值不正确 107.以下叙述中正确的是（ ）。

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

108.以下关于窗体的描述中，错误的是（ ）

A. 执行UnLoad Forml语句后，窗体Forml消失，但仍在内存中 B. 窗体的Load事件在加载窗体时发生

C. 当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止 D. 窗体的Height和Width属性用于设置窗体的高和宽 109.如果要改变窗体的标题，则需要设置的属性是（ ）

A.Caption B.Name C.BackColor D.BorderStyle 110.窗体的边框类型BorderStyle属性默认是Sizable，表示（ ）

A.窗体没有边框 B.窗体时固定单边框 C.固定对话框 D.窗体边框是可以调整的 111.下列说法错误的是（ ）

A.Caption为只读属性，运行时对象的Caption属性值不能改变 B.设置Height或Width的数值单位为twip，是1点的1/20 C.Icon属性用来设置窗体最小化时的图标 E. 用来激活属性窗口的快捷键是F4键 112.下列说法错误的是（ ）

A. 默认情况下，属性Visible的值为True

B. 如果设置控件的Visible的属性为False，则运行时控件会隐藏 C. Visible的值可设为True或者False

D. 设置Visible属性同设置Enabled属性的功能是相同的，都是使控件处于失效状态

113.为了装入一个visual basic应用程序，应当（ ） Ａ只装入窗体文件（.ｆｒｍ） Ｂ只装入工程文件（.vbp）

C分别装入工程文件和标准模块文件(.bas)

D分别装入工程文件/窗体文件和标准模块文件

114.假定窗体文件的名称为forml,则把窗体的标题设为hello word的语句（ ） A． forml=hello word Bcaption=hello word Cforml.text=hello word Dforml.name=helloword 115.在窗口中放置控件，对该控件的操作错误的是（ ） A单击窗口上没有控件处，可把活动控件变为不活动控件 B双击任意一个控件内部，可激活该控件的代码窗口 C双击一个控件的内部，可把活动控件变为不活动的控件 D拖动一个活动控件四周的控制小方块可缩放控件

116为了使一个窗体从内存中清除，因该使用的方法（） 117若要讲一个窗体从内存中清除，应该使用的方法（） A showforml B UNLOAD C load D hide

118要从自定义对话框Form2中推出，可以在该对话框的“退出”按钮Click事件过称中使用（）

A,Form2.Unload B,Unloadform2 C,HIDE.FORM2 Dform2.hide 119以下叙述中的错误（）

A，双击鼠标可以促发Db1Click事件 B,窗体和控件的事件的名存可以由编程人员设定 C,移动鼠标时，会促发MouseMove事件 D,控件的名存有编程人员设定 120要使窗体forml显示出来，应该使用（）

A．loadforml Bshowforml C.formlload D.formlshow 121.以下叙述错误的是（）

A.一个工程中只能有一个Sub main过程

B.窗体的show方法的作用是将指定的窗体装入内存并显示该窗体 C.窗体的Hide方法和Unload方法的作用完全相同

D.若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体 122.下列说法错误的是（） A.方法是对象的一部分

B．在调用方法时，对象名是不可缺少的 C.方法是一种特殊的过程或函数

D.方法的调用格式和对象的属性的使用格式不同

123.下列关于属性、方法、时间概念的描述错误的是（） A.一个属性总是与某一个对象相关 B．一个方法隶属于一个对象

C.一个事件总是与某一个对象相关

D.事件由对象触发，而方法是对事件的相应

124.程序运行后，在窗体上单击鼠标，此时窗体不会接收到的是（） A.Mousedown B.MouseUP C.Load D.Click 125.单击窗体上的关闭按钮，将触发事件（） A.Form_initialize() B.Formlmad() C.Form_Unload() D.Form_Click()

126体上放置一个文本框Textl，在文本框中输入1234，并有如下事件过程： Private sub form_click()

X=inputbox(“您输入一个数”) Printed x +text1.text End sub

单击该窗体，在输入对话框中输入5678，单击“确定”按钮后，在窗体上显示的是（） A.1234 B.5678 C.12345678 D.56781234

127.通过InputBox函数可以产生输入对话框。若执行下列语句： S=InputBox（请输入字符串”，“字符串对话框”，“字符串)

则运行程序时，当用户输入完毕并单击“确定”按钮后，st$变量的内容是（） A.字符串 B.请输入字符 C.字符串对话框 D.用户输入内容 128.设有一下语句：

S=InputBox(“ 录入参数”，“2”，“管理”)

程序运行后，如果从键盘上输入数值20，并按回车键，则下列说法正确的是（） A. 信息提示区显示的是“管理”

B. 在InputBox对话框提示栏中显示的是“管理” C. “ 录入参数”是默认值 D. 变量S的值是字符串“0”

129在设计基于Windows的应用程序时，下面关于创建对话框方法错误的是（） A. 使用MsgBox或InputBox函数的代码可以创建预定义对话框 B. 使用标准窗体或自定义已存在的对话框创建自定义对话框

C. 使用CommonDiaLog控件可创建标准的对话框，如“打印”和“打开文本件” D. 使用Windows。showModelessDialog()创建对话框

130.对话框在关闭之前，不能继续执行应用程序的其他部分，这种对话框属于（） A.输入对话框 B.输出对话框 A.输入对话框

C.模式（模态）对话框 D.无模式对话框 131.MsgBox函数与.MsgBox语句的区别是（）

A.执行MsgBox函数会自动显示一个对话框。而执行MsgBox语句不会显示对话框 B.执行MsgBox函数显示的对话框是模式的，而而执行MsgBox语句不会显示对的框是非模式的

C. MsgBox函数的参数与MsgBox语句的参数不同（个数不同）

D. MsgBox函数会返回函数值MsgBox函数，而MsgBox语句没有返回值 132．下列关于MID子窗体在运动时特性的叙述错误是（） A.子窗体在MID窗体的内部区域显示 B.子窗体可在MID窗体的外区域显示

C.当子窗体最小化时，它的图标在MID窗体内显示

D.当子窗体最大化时，其标题与MID窗体标题合并，并显示在MID窗体的标题栏 133．关于MID窗体下列说法正确的是（） A.一个应用程序可以有多个MID窗体 B.窗体可以移到MID窗体以外 C.不可以MID窗体上放置按钮控件 D. MID窗体的子窗体不可以拥有菜单

134.下列关于多重窗体程序的叙述中，错误的是（） A.用Hide 方法不但可以隐藏窗体，而且能清楚内存中的窗体 B.在多重窗体程序中，个窗体的菜单是彼此独立的 C. 在多重窗体程序中，可以个根据需要启动窗体 D.对于多重窗体程序,需要单独保存每个窗体

135.当一个工程含有多个窗体时，其中的启动窗体是（） A.启动VisualBasic时建立的窗体 B.第一个添加的窗体 C.最后一个添加的窗体

D.在“工程属性”对话框中指定的窗体 136.下面关于控件属性说法不正确的是（）

B.BackColor属性返回或设置控件中文本和图形的背景颜色 B.Name属性返回在代码中用于空间否认名称

C.ForeColor属性返回或设置控件中文本的字体和前景颜色 D.Catpion属性返回或设置控件中显示的文本 137.下面关于控件属性说法不正确的是（）

A.Font属性返回或设置一个.Font对象，用于指定控件中文本的字体名称、字体样式、字体大小和颜色

B.name属性等效于Fontname

C. .Font.Bold 属性等效FontBold属性 D. Font..Size等效于FontSize属性

138.下面关于控件属性说法不正确的数（）

A.Enabled属性返回或设置一个布尔值，决定控件是否相应用户生成事件 B.Heigh和Width属性返回或设置控件的高度和宽度

C.left和Right属性返回和设置控件左边边缘和右边边缘与容器左边缘和右边缘间的距离 D.Visible属性返回或设置一个布尔值，决定控件是否可见 139.下面关于标签属性说法错误的是（）

A.标签控件的AUTOSIZE属性决定控件是否自动改变大小以显示其全部内容 B. .标签控件的Backstyle属性制定标签控件的背景是透明的还是非透明的

C.标签控件的WordWrap 属性指数一个Autosize属性设置为Falsede 标签控件是否要进行水平或垂直展开，一适合其Caption属性中指定的文本要求

D.标签空间的Alignment属性返回或设置标签中文本的水平对齐方式 140.一下关于标签控件的事件说法错误的是（）

A.change事件通过运行时该变Caption属性的设置时发生 B.click事件当用鼠标单击标签控件时发生 C.DblClick事件当用鼠标双击标签控件时发生

D.MouseDown和MouseUp事件分别在按下和释放鼠标键时发生 E.MouseMove事件在移动鼠标时发生

141.只能用来显示文本信息的控件是（ ）

A.文本框 B.标签 C.图像框 D.列表框

142.下列控件属性中，属性值的类型不相同的一项是（ ） A.Label控件的Enabled属性与TextBox控件的Enabled属性 B.OptionButton控件的Value属性与CheckBox控件的Value属性 C.Command控件的Default属性与Command控件的Cancel属性 D.Command控件的Visible属性与Form控件的Visible属性 143.标签控件中，要更改文字对齐方式的属性项是（ ）

A. Justify B.Font C.Alignment D.以上都不是 144.下列控件中没有Picture属性的是（ ）

A.;窗体 B.标签 C.命令按钮 D.以上都不是 145.下列控件中没有Picture属性的是（ ）

A.Caption B.BorderStyle C.Visible D.Name

146.窗体上有一个名为Labell的标签，为了使该标签透明并且没有边框，正确的属性设置为（ ）

A.Labell.Backstyle=0 B. Labell.Backstyle=1 Labell.Borderstyle=0 Labell.Borderstyle=1 C. Labell.Backstyle=True D. Labell.Backstyle=False Labell. Borderstyle=True Labell. Borderstyle= False

147.下面关于文本框控件属性说法错误的是（ ）

A.MaxLength属性指出在文本框控件中能够输入的字符最大数量 B.MultiLine属性决定文本框最多能接受的行数

C.passwordChar属性指示所键入的字符或在文本框控件中是否要显示出来 D.ScrollBars属性指示文本框是有水平滚动条还是有垂直滚动条

148.下列关于文本框SelLength、SelStar、和SelText属性说法错误的是（ ）

A.SelLength属性指出在文本框控件中能够输入的字符最大数量 B.SelLength属性返回或设置所选择的字符数

C.SelStart属性返回或设置所选择的文本的起始点 D.SelText属性返回当前文本框中所有文本的字符串 149.下面关于文本框控件的事件说法错误的是（ ）。

A.Change事件是当文本框的内容改变时发生此事件

B.KeyDOwn事件是当文本框具有焦点时按下一个键是发生的 C.KeyUP事件是当一个控件具有焦点时松开一个键时发生的 D.KeyPress事件是当用户按下和松开鼠标键是发生此事件

150、要在文本框获得焦点时操作文本框的内容，应该在（ ）事件过程中编写程序。 A LostFOCUS B GotFous C Change D Set Fous

151、程序运行时，用户向文本框输入内容时，将触发文本框的（ ）事件。 A Click B DblClick C GotFous D Change

152、将文本框的（ ）属性设置为True时，文本框可以输入或显示多行文本，且会自动换行。

A Text B ScrollBars C MultiLine D Enabled

153、要使一个文本框具有水平和垂直滚动条，则应该先将其MultiLine属性设置为True,然后再将ScrollBars属性设置为（ ） A 0B 1 C 2 D 3

154、在窗体上添加一个文本框Text1，然后编写如下的Load事件过程： Private Sub Form _Load () Text1. Text=”” Text1.SetFocus For k=1 to 5 T=t * t Next k

Text1. Text= t End Sub

运行结果为（ ）

A 在文本框中显示120 B 文本框中仍为空 C在文本框中显示1 D出错 155、要设定文本框内的文字内容是否允许修改，应该设置的属性是（ ） A Text B Locked C PasswoedChar D Multiline

156.在文本框中输入密码时，要求在文本框中显示“*”号，则应当设置此文本框的哪个属性（ ）

A.Text B.Caption C.Password D.PasswordChar

157.通过文本框的哪个属性可以获得当前输入点所在的位置（ ） A.Position B.SeiStart C.SeiLength D.SelText

158.要使文本框获得输入焦点，则应使用文本框控件的（ ） A.Locked B.LostFocus C.KeyPyess D.SetFocus

159.在文本框TextBox中的内容若要设置为用户不能修改，应设置的属性是（ ） A.Locked B.MultiLine C.PasswordChar D.ScrollBar

160.如果文本框的Locked属性设置为True,则下列说法正确的是（ ） A. 此时在属性窗口中不可以修改文本框的Text属性值。 B. 运行时用户不可以在界面上修改文本框中的内容。

C. 在程序代码中不可以修改文本框中的内容，如不可以使用语句Textl.Text=“aaa” D. 以上均不正确。

161.如果文本框的LOCKED属性设置为true，则下列说法正确的是。（ ） A.此时在属性窗口中不可以修改文本框的text属性值。 B.运行时用户不可以在界面上修改文本框中的内容。

C.在程序代码中不可以修改文本框的内容，如果不可以使用语句textl。Text=”aaa” D.以上均不正确。

162.将文本框的passwordchar属性设置为一个星号（*），运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是（ ）。 A.文本框的multiline属性值为true B.文本框的locked属性值为true C. 文本框的multiline属性值为false D. 文本框的locked属性值为false

163.获取文本框中被选取的文本内容的属性是（ ） A.seltext B.selstart C. text D.length

164.在运行程序时，在文件代码中改变文本框的text属性值，活在文本框中输入新的内容，会相应的触发（ ）。

Ａ．Gotfocus B.click C.change D.dblclick

165.在文本框控件中，将text的内容全部显示为用户所定义的字符的属性是（ ）。 A.passwordchar B.需要编程来实现 C.password D.以上都不是

165.在文本框控件中，将Text的内容全部显示为用户所定义字符的属性是（） A．PasswordChar B .需要编程来实现 C.Password D.以上都是

166.在窗体上有一个名为Textl的文本框。当光标在文本框中时，如果按字母键“A”，则可被调用的事件过程是（）

A.form-Keypress（） B.Textl-LostFocus（） C．.Textl-Click（） D.Textl-Change（）

167.设在窗体上有一个名称为Commandl的命令按钮和一个为Textl的为本狂。要求单机Commandl按钮时刻把光标移到文本框中，下面正确的事件过程是（） A. PrivateSudCommandl-C Lick（）TextlGotFocusEndsud B. PrivateSudCommandl-C Lick

（）CommandlGotFocus

C PrivateSudCommandl-C Lick（）TxtlSetFocusEndSud D. PrivateSudCommandl-C Lick（）Commangl。SetFocusEndSud

168.要是为你本框可输入多行文字，要更改的默认选项是.（）

A.Scro11Bars和MultiLine B.Multiine C.Scro11Bars D.以上都是 169.以上不具有Picture属性的对象是（） A.窗体 B,.组合框 C.图像框 D.文本框

170.在VisualBasic中TextBox控件的下列属性中，（）属性是只读属性。 A.Scro11Bars B.PasswordChar C.Enabled D.Multiline

171设窗体上有一个文本框，名称为Textl，程序运行后，要求该文本框只能显示信息，不能接收输入的信息，一下能实现该操作的是（）

Atextl.Maxlength=0 Btextl。Enableb C textl.Visible D textl.Width 172要使单击命令按钮与Esc建实用相同的作用，则应设置（）属性为True。 Aenableb Bvisual Cdefault Dcancel 173下列叙述正确的是（）

A命令按钮的默认属性为Caplion B标签默认属性为Caplion C复选框默认属性为Value D滚动条默认属性为Value 174要走命令按钮控件上显示图像应（）

Ａ设置ｐｉｃｔｕｒｅｓ属性 Ｂ实现不了

Ｃ先将ｓｔｙｌｅ设置为１，然后再设置ｐｉｃｔｕｒｅｓ Ｄ以上都不对

１７５若窗体中已经有若干个不同的单选按钮，要把他们改变为一个单选按钮，在属性窗口中需要且只需要进行的操作是（）

A把所有单选按钮的Lndex属性改为相同值

B把所有单选按钮的Lndex属性改为连续的不同值 C把所有单选按钮的Caption属性改为相同值

D把所有单选按钮的名称改为相同，且把他们的Lndex属性改为连续的不同值

176、将命令按钮设为窗体的取消的按钮要设置的属性是（ ）。

A、QUIT B、Cancel C、不能实现 D、以上都不对

177、在下面的哪些控件中绘制单选按钮控件，不能实现控件分组？（ ） A、Frame控件 B、Shape控件 C、PictureBox 控件 D、窗体 178、下列控件中，具有Caption属性的是（ ）。

A、列表框 B、单选按钮 C、组合框 D、计时器 179、设置复选框或单选按钮的标题对齐方式的属性是（ ）。

A、Aligh B、Style C、Alignment D、Sorted 180、复选框的Value的属性为0时，表示该复选框（ ）。

A、未被选中 B、被选中 C、框内有灰色对号 D、操作有误 181.若要将复选框设置图形模式，则应设置（ ）属性值为1-vbbuttongraphicl Atabstop Bstyle Cpicture Denabled

182.下列关于复选框的说法，正确的是( ) A 复选框的enabled属性用于该复选框是否可见 B复选框的valub属性用于决定该复选框是否被选中

C复选框的tabindex属性用于决定该复选框在控件数组中的符号 D复选框的visible属性用于决定该复选框是否可用

183.在窗口上画两个单选按钮，名称分别为optionl和option2，标题分别为黑体和楷体；一个复选框，名称为checkl标题为粗体。要求程序运行时，黑体单选按钮粗体复选框被选中，则能够实现上述要求的语句数列是（ ） A option1.value=true B option1.value=true Check1.value=false check1.value=true C option2.value=false D option.value=true

Check.1.value=true ceck1.value=1

184.在窗口画上一个名称为的列表框，一个名称为的标签，列表框中显示若干国家的名称，当单击列表的某个国家名时，在标签中显示选中国家的名称.下列正确实现功能的是 （）

A.private sub listl -click ()

Ilabeii.Caption=listl.listinndex End Sud

B. private sub listl -click () iabeii.text= listl.listinndex

End Sud

C. private sub listl -click ()

Lliabeii.text= listl text End Sud

D. private sub listl -click ()

Ilabeii.Caption= listl text End Sud

185.为了在列表框中使用“Ctrl”和“Shift”键进行多个列表框的选择，应将列表框的Multiseiect属性设置为( )

A.0 B.2 C.faise D.True

186.为了使列表框中的项目分为多列显示，需要设置属性为（ ） A.Coiumns B.Styie

C.List D.Multiseiect

187.窗体上有一个列表框和一个文本框，编写以下两个事件过程； .private sub form-load() List .additem“平顶山” List .additem“郑州” List .additem“开封” tTetxl.ext=“” End Sud

private sub listl -click () print tTetxl.ext+listl.text End Sud

程序运行后，在文本框输入“河南”，然后单击列表框中的“平顶山”，则输出结果为（ ）

A．河南平顶山 B河南郑州 C河南开封 D平顶山河南

188.如果将列表框设置成每次只能显示一次，应将Muultiseiect属性设置为（ ） A.0 B.1 C.2 D.3

189.在修改列表框内容时，Addltem方法的作用是（ ）

A．清除列表框中的全部内容 B删除列表框中的指定项目 C．在列表框中插入多行文本 D在列表框中插入一行文本 190.设置列表框中列表项数量的属性是( )

A.List B.Listcount C.Listlndex D.Coiunmns 191.要清除列表框中的所有列表项时，应使用（ ）方法 A．Remove B.Ciear C.Remooveitem D.Move

192.如果要得到一个不能下拉的列表，应把组合框控件的Styie属性值设置为（ ） Ａ．０ Ｂ．１ Ｃ．２ Ｄ．３

１９３．只有将组合框的Ｓｔｙｉｅ属性值设置为（ ）时，才能触发Ｄｂｉｃｌｉｃｋ事件。 Ａ．０ Ｂ．１ Ｃ．２ Ｄ．３ １９４组合框控件是将（

）组合成一个控件。

A．列表框控件和文本框控件 B。标签控件和列表框控件， C.标签控件和文本框控件 D .复选框控件和选项框控件 195.设组合框Combol中有3的项目，则下列能删除最后一项的语句是（A. Comboi.removeltem text

B. Comboi.removeltem2 C. Comboi.removeltem3

D. Comboi.removeltem. Comboi L istcount

196.删除组合框中指定的项目使用的方法是（ ） Ａ．Ｍｏｖｅｌｔｅｍｖ Ｂ．Ｒｅｍｏｖｅ Ｃ．Ｃｉｅａｒ Ｄ．Ｒｍｏｖｅｉｅｔｅｍ

１９７.用户在组合框中输入或选择的数据可以通过下列哪个实现来活的？（ ）

ＡＬIST ＢＲｅｍｏｖｅ Ｃ．Ｃｉｅａｒ Ｄ．Ｒｅｍｏｖｅｌｅｔｅｍ

１９８.下列叙述正确的是（ ） Ａ．列表框包含了组合框的功能 Ｂ．组合框包含了列表框的功能

C．列表框和组合框的功能无相近之处 Ｄ．列表框和组合框的河南相近 １９９.以下叙述正确的是（ ） Ａ．列表框包含了组合框的功能 Ｂ．组合框包含了列表框的功能

C．列表框和组合框的功能无相近之处 Ｄ．列表框和组合框的河南相近

２００．下列关于组合框的说法有无误的是（ ）

A．组合框是一种独立的控件，但他兼有列表框和文本框的功能 Ｂ．Ｓｔｙｉｅ是组合框的一个重要属性，其取值０．１和２

Ｃ．Ｔｅｘｔ属性值是用户所选择的项目文本或直接从编辑区输入文本 D．只有下拉式列表框才可以接受Ｄｂｉｃｌｉｃｋ事件

２０１。设置滚动条控件的（ ）属性值控制用户单击滚动箭头时滚动条控件的Ｖ．Ａｉｕｅ属性值的改变量。

Ａ．Ｌａｒｇｃｈａｎｇｅ Ｂ．Ｓｍａｉｉｃｈａｎｇｅ Ｃ．Ｍａｘ Ｄ．Ｍｉｎ

２０２在程序运行期间，当滚动条的滑块被拖动是，则立即触发滚动条的（ ）事件 Ａ．Ｃｌｉｃｋ Ｂ．Ｃｈａｎｇｇｅ

） ｃ．Ｄｂｉｃｌｉｃｋ Ｄ．Ｓｃｒｏｌｌ ２０３．下列每组控件中，都包含滚动条的一组控件是（ ）

A．Ｌｉｓｔｂｏｘ和ｌａｂｅｉ Ｂ．ＴＥＸＴＢＮＯＸ和Ｄｒｉｖｅｌｉｓｔｂｏｘ Ｃ．ｃｏｍｂｏｂｏｘ和ＣＨＥＣＫＢＯＸ Ｄ．ｆｉｌｅｌｓｔｂｏｘ和Ｄｒｉｖｅｌｉｓｔｂｏｘ

２０４。表示滚动条控件取值范围最大值的属性是( ) A．MAX B.Largechange C.Vaive D.Min

205.当滚动框位于最左端或做最上端是，Vaiue属性被设置是（ ） A.Max B,Min

C.Max和Min之间 D. Max和Min之外

206.单击滚动条的滚动箭头时，产生的事件是（ ） A.Click B.Scroii C.Change D.Move

207..滚动条的Scroll和Change两个事件，当拖动滚动条时，下列说法正确的是（ ）

A． Scroll事件先于ChangE事件发生 B． Change事件先于Scroll事件发生 C． 会发生Scroll事件，但不会发生Change事件 D会发生Change事件，但会发生Scroll事件

208.在通常情况下，水平滚动条的值变化情况是（ ） Ａ由下往上递增 B。由上往下递增 C．由左往右递增 D。由右到左递增

209、下列关于图像框控件和图像框控件的说法错误的是（） A、 两者都有picture属性 B、 两者都支持print方法 C、 两者都可以用loadpicture函数把图形文件装入控件中

D、 者都能在属性窗口装入图形文件，也能在运行期间装入图形文件 210、图像框的（）属性，可以自动调整图形的大小以适应图像的尺寸。 A、 Autosize B、Stretch C、Autoredraw D、Appearance

211、假定在图像框控件picture1中装入了一个图形，为了在程序运行时清除该图形，则应使用下列哪种方法？（）

A、 选择图像控件，然后按“Del”键 B、 执行语句picture1.picture=LoadPicture（””） C、 执行语句picture1.picture=””

D、 选择图像框控件，在属性窗口中选择Picture属性，然后删除该属性的值

212、如果要在程序代码中为图像框动态加载或清除图形，可以通过（）函数来实现。 A、 inputbox B、input C、Loadpicture D、Paintpicture 213、图像框和图像框在使用时的不同之处是（） A、 图像框比图像框占内存少 B、 图像框内还可包括其他控件

C、 图像框有Stretch属性而图像框没有 D、 图像框有Stretch属性而图像框没有

214、图像框中的Stretch属性为True时，其作用效果是（） A、 只能自动设定图形框长度 B、 只能自动扩大图像 C、 只能自动缩小图像

D、 图形自动调整大小适应图像软件

215.若窗体上的图像框中有一个命令按钮，则此按钮的Left属性是指（ ） A. 按钮左端到窗体左端的距离

B. 按钮左端到图像框窗体左端的距离 C. 按钮中心点左端到窗体左端的距离 D. 按钮中心点到图像框左端的距离

216.在程序运行期间可以用（ ）函数图形装入窗体或图像框。 A. AutosizeB.StretchC.PictureD.Loadpicture

217.为了使图像框自动适应图形的大小，则应（ ） A. 将其Autosize属性值设置为True B. 将其Autosize属性值设置为False C. 将其Stretch属性值设置为True D. 将其Stretch属性值设置为False

218.窗体上有一个图片控件和一个按钮，下列程序执行的结果是（ ） private sub command1_ click()

picture1. picture= loadpicture(“c:\\1.jpg”) picture1.cls

picture1 .print “Test” End Sub

A. 窗体无显示，图像框显示图片和文字Test B. 窗体上出现Test文本，图像框无显示图片 C. 窗体上出现Test文本，图像框显示图片1.jpg D. 窗体无显示, 图像框只显示Test文字

219.以下关于图像框控件的说法中，错误的是（ ） A. 可以通过Print方法在图像框中输出文本

B. 清空图像框控件中图形的方法只是加载一个空图形 C. 图像框控件可以作为容器使用

D. 用Stretch属性可以自动调整图像框中图形的大小

220. 程序运行时，向图像框P1中加载“C:\\windows\\car.bmp”图像文件，应使用（ ）。

A.Picturel.Picture=(“C:\\windows\\car.bmp”) B.Picturel.Picture=LoadPicture(“C:\\windows\\car.bmp”). C.P1.Picturel=LoadPicture(C:\\windows\\car.bmp) D. P1.Picture=LoadPicture(“C:\\windows\\car.bmp”)

221. 若要建立一个学生管理系统的输入界面，其中要求选择学生的性别、政治面貌（党/团/

群众）及选课情况（共有5门课，可人选），下列设置方法正确的是（ ）。 A． 将5门课程用一组5个选择框来表示，将性别和政治面貌用5个单选按钮来表示 B． 在一个框架上绘制有5个复选框的控件数组表示5门课程，在一个框架上绘制两个单选

按钮表示性别，在一个框架上绘制3个单选按钮表示政治面貌的3中情况 C． 将5门课程用一组5个单选按钮来表示，将性别和政治面貌用5个选择框来表示 D． 用一组10个选择框来表示课程、性别和政治面貌 222．可以作为其他控件容器的控件是（ ）。 A．窗体控件，列表框控件，图像框控件 B．窗体控件，文本框控件，框架控件 C．窗体控件，框架控件，图像框控件 D．窗体控件，标签控件，图像框控件

223．下列控件中，用于将窗体上的对象分组的是（ ）。 A．列表框 B．组合框 C．文本框 D．框架 224．下面关于框架的描述有误的是（ ）。

A．框架是一个容器控件，用于对屏幕上的对象分组 B．不同的对象可以放在同意框架中

C．框架的默认名称为Framex (x为1，2，3，??) D．框架的背景可以显示图形

225．当把框架的（ ）属性设置为False时，其标题会变灰，框架中所有的对象均被屏蔽。 A．Name B．Capition C．Enabled D．Visible 226．下列说法不正确的是（ ）。

A．滚动条的重要事件是Change和Scroll

B．框架的主要作用是将控件进行分组，以完成各自相对独立的功能 C．组合框是组合了文本框和列表框的特性而形成的一种控件

D．计时器控件可以通过对Visible属性的设置，在程序运行期间显示在窗体上

227．如果在窗体上画了一个名称为Timer1的计时器和一个名称为Labe11的标签，计时器的属性设置为Enabled=True,Interval=0,并编程如下，希望在程序运行时，可以没5秒在标签上显示一次系统当前时间。 Private Sub Timerl Timer() Labell.Caption=Times End Sub

在程序执行时发现未能实现上述目的，那么，应做的修改是（ ）。 A． 通过属性窗口把计时器的Interval属性设置为5000 B． 通过属性窗口把计时器的Enabled属性设置为False C． 把事件过程中的Labell.Caption=Time$语句改为Timerl.Interval=Times

D． 把事件过程中的Labell.Caption=Timerl$语句改为Labell.Caption2=Timerl.Time

228．在窗体上画了一个名称为Timerl的计时器和一个名称为Labell的标签，计时器的属性设置为Enabled=True,Interval=0,并编程如下。希望在程序运行时，可以每2秒在标签山显示一次系统当前时间。

Private Sub Tinerl Timer() Labell.Caprion=Time$ End Sub

在程序执行时发现未能实现上述功能，那么，应做的修改是（ ）。 A． 通过属性窗口把计时器的Interval属性设置为2000 B． 通过属性窗口把计时器的Enabled属性设置为False C． 把事件过程中的Labell.Caption=Time$语句改为Timerl.Interval=Time$

D． 把事件过程中的Labell.Caption=Time$语句改为Labell.Capition2=Timerl.Time

229．为了使计时器控件每隔5秒钟产生一个计时器事件（Timer）,则应将其Inerval属性值设置为（ ）。

A．5 B．500 C．5000 D．50000

230．Line控件的（ ）属性用于反悔或设置对象的边框样式。 A．Bo

241. ShockWaveFlash控件的（ ）属性指定要播放的Flash动画文件。 A. TotalFrames B.Movie C.CurrentFrame D.Quality

242.ShockWaveFlash控件的Rewind方法功能为（ ）。 A．开始播放动画。 B.跳到动画的上一帧。 C．返回动画的第一帧。D.跳到动画的下一帧。

243.QBColor函数能够选择多少种颜色？（ ）。 A.8 B.16 C.24 D.256

244.下列程序的输出结果（ ）。 For k =oto360 Cr=inl(160*rnd0

Ang=-3.1415926/180*k

Circle (2000.2000).1000.cr.0.engnext

A.一段彩色圆弧 B.一个彩色空心圆 C.一个彩色扇形 C.一个辐射状彩色圆形

245要使菜单项MenuOne在程序运行时失效，使用的语句是（ ）。 A.Menuone.Visible=True B.MenuoOne.Visible

C. Menuone.Enabled=True C. MenuoOne.Enbled=False

246．下列关于菜单的说法错误的是（ ）。

A．每个菜单项都是一个控件，与其它控件一样也有其属性和事件。 B除了Click事件之外，每个菜单项不可以响应其他事件。 C菜单项的索要号可以可以不连续 D菜单项的索引号必须从1开始

247要使某菜单能够通过按键盘上的ALT建及K建打开，应该（ ） A在“名称”栏中“K”并字符前加上&符号 B在标题栏中K并字符后加上&符号

C在标题栏中K并字符前加上&符号 D在名称栏中K并字符前加上&符号

248下列叙述中错误的是（ ）

A． 菜单项的快捷建不可以任意设置 B． 除了Click事件之外，菜单项还能影响其它的事件过程（如Dblclick） C． 每个菜单项都是一个控件，与其他控件一样都有自己的属性和事件

D． 在程序执行时，如果菜单项Enabled属性Falsa，则该菜单项变成灰色，不能被用户选

择

249关于VB的菜单设计叙述正确的是（ ）。 A．VB的菜单具有外观和行为的属性

B．VB的菜单是一个控件，存放在VB的工具箱中

C．VB的菜单设计是在“菜单编辑器”中进行的，它不是一个控件 D．菜单的属性是在“属性窗口”中设置的

250在设计菜单时，如果要在菜单中加入一个菜单分割项，则菜单分割项的标题必须设为（ ） A冒号（：） B加号（+） C减号（-）D感叹号（！）

251设置“菜单编辑器”中定义了一个菜单项，名为menua。为了在运行时隐藏该菜单项，应使用的语句是（ ）

Amenua.Enabled BMenuaVisible=trua CMenua.Enbled=False DMeanua.Visible

252设菜单中有一个菜单项为 Open。若要为该菜单命令设问建，即按atl建及字母O时，能够执行open命令，则在菜单编辑器中设置Open命令的方式是（ ） A把Caption属性设置为&Open B把Caption属性设置为O&pen C把Name属性设置为&Open D把Name属性设置为O&pen

253下面关于菜单控件的属性说法错误的是（ ） ACapton属性用于设置或返回菜单的标题文字

Bcheckeb属性用于设置或返回一个布尔值，决定是否在菜单项旁边显示一个复选标记 Cindex属性用于当菜单项组成控件数组事，用于区分数组内的各个菜单控件

Dshortcut属性用于设置或返回一个值，决定菜单控件是否维护当前MDI子窗口的列表

254下面关于richyextbox控件的属性说法错误的是（）

Afilename属性用于返回或设置装入richtextbox控件的文件名

Brightmargin属性用于返回或设置装入richtextbox控件的文本右边距 Csealignment属性用于返回或设置richtextbox控件当前选择的文本

Dselbullet属性用于返回或设置一个值，决定在richtextbox控件中包含当前选择或插入点

255stausbar追多能被分成多少个panel对象？（） A2 B4 C8 D16

256下列驱动器列表框控件的属性中用于返回或设置的驱动器的是（） Ales Bdrive Clistcount Dlistindex

257使用驱动器列表框的（）属性可以返回或设置运行时选择的驱动器是（） Ales Bdrive Cchdrive Dlistindex

258改变驱动器列表框的drive属性将激活的事件是（） Achange Bscroll Ckeydown Dkeyiup

259在目录列表框控件的属性中用于返回当前中子目录的个数的是（） Alist Blistcount Clistindex Dpath

260使用目录列表框的（）属性可以返回或设置当前工作目录的完整路径 Adrive Bpath Cdir Dlistindex

261文件列表框控件的（）属性用于返回当前选择文件的索引 Alist Blistcount Clistindex Dpattern

262下面（）不是顺序文件的访问方式 Ainput Binsert Coutput Dappend

263文件列表框控件的（）事件在路径被代码中filename或path属性的设置改变时发生 Apathchange Bclick Cdbclik Dpatternchange

264根据计算机访问文件的方式visualbasic将文件分成3类，其中不包括（） A顺序文件 BUnix文件 C二进制文件 D随机文件

265下列关于文件的叙述中，错误的是（）

A使用append方式打开文件时，文件指定针被定位于文件尾

B当以input方式打开文件时，如果文件不存在，则自动建立一个新文件 C顺序文件的各个记录的长度不同

D随机文件打开后，既可以进行读抄作

266设以打开5个文件，文件号为12345要关闭说有文件则一下语句正确的是（） Aclose#12345 Bclose#1#2#3#4#5 Ccsole#1-#5 Dcsole#1；#2；#3；#4；#5 267下列叙述中不正确的是

A若使用write#语句将输出到文件，则各数据之自动插入逗号，并且将字符不加双引号 B若使用print#语句将输出到文件，则各数据之自之间没有逗号分割，且字符穿加上双引号 C write#语句和print#语句建立的顺序文件格式完全一样 D write#语句和print#语句均实现向文件写入数据

269如果在C盘当前文件夹下已经存在名称为aa。Dat的顺序文件，那么执行语句open‘aa。Dat?for appendas#1之后将（）

A删除文件中的午安有内容

B保留文件中的午安有内容，并在文件尾添加新内容 C保留文件中的午安有内容，并在文件头添加新内容 D以上均不对

270下列语句用于打开一个顺序文件： Openc:\\aa。Txt”for output

该语句的一个重要错误是没有（） A指定打开方式 B指定文件号 C指定打开文件名 D指定文件类型

271按文件的访问访问方式不同，可以将文件分为（）

A顺序文件。随机文件 B文本文件和数据文件C数据文件和可执行文件Dascll文件和二进制文件

272.执行语句Open??c:\\aa.txt??for input As#2后， 系统 A.将C盘当前文件夹下名为aa.txt 文件的内容读入内存 B.在C盘当前文件夹下建立名为aa.txt的顺序文件

C.将内存数据存放在C盘当前文件夹下名为aa.txt的文件中

D.将某个磁盘文件的内容写入C盘当前文件夹下名为aa.txt的文件中 273.设有语句Open??c:\\aa,txt??for output As#1,则下列叙述错误的是 A.该语句只能打开C盘根目录下一个已存在的文件aa.txt

B.当C盘根目录下没有该文件时，该语句在C盘根目录下建立名为aa.txt的文件 C.该语句建立文件的文件号为1

D.执行该语句后，就可以通过Print#语句向aa.txt 文件中写入信息 274.下列关于文件的叙述中，说法不正正确的是 A.顺序文件中的记录一个接一个地顺序存放 B.随机文件中记录ide长度是随机的

C.执行打开文件命令后，自动生成一个文件指针 D.LDF函数返回给文件分配的字节数 275.在顺序文件中

A.每条记录的记录号按从小到大排序 B.每条记录的长度按从小到大排序

C.按记录的某个关键数据项的排序顺序组织文件

D.记录按写入的先后顺序存放，并按写入的先后顺序读出 276.如果在C盘当前文件见下已存在名为aa.dat 的顺序文件，那么执行语句Open??aa.dat??for Append As#1之后将

A.删除文件中原有的内容

B.保留文件中原有的内容，在文件尾添加新内容 C.保留文件中原有的内容，在文件头添加新内容 D.以上均不对

277确定文件是顺序文件还是谁机文件应在open语句中使用（）子句 Afor子句 Baccess之举 Cas子句 Dlen子句

278设以打开4个文件，文件号为1234要关闭所有文件，一下选项正确的是（） Aclose#1234 Bprint#1：a：‘：’：‘：yc。Ciose#1#5Dclose

279给文件改名的vb语句正确的是（）

Anam原名文件to新文件名 Brename源文件名to新文件名 Cnam原名文件as新文件名Drename源文件名as新文件名 280对随机文件的读写操做有（）

A打开随机访问的文件 B讲变量写入记录 C将记录读如变量 D定义记录类型和变量 正确的不揍是（）

A1234 B4123 C4132 D4321

281.有以下4个操作:

1把有用的所有记录从原文件复制到新文件 ○

2使用Name语句把新文件以原文件的名字重新命名 ○

3创建一个新文件 ○

4关闭原文件访问文件中删除的记录，正确的操作顺序为（ ）○。 1○2○3○4 B.○1○4○2○3 C.○1○3○4○2 D.○3○1○4○2 A.○

282.下列说明中，不属于随机文件特点的是（ ）。 A.可以随意读取随机文件中任一记录的数据。

B.随机文件没有只读或只写的操作方式，随机文件只要一打开，就即可读又可写 C.随机文件的操作是以记录为单位进行的。

D.随机文件的读、写操作语句与顺序文件的读、写操作语句一样。

283.在随机文件中使用用户自定义数据类型时，要注意他的成员的要求，它的成员不能是（ ）。

A.定长字符串和数组 B.变长字符串和动态数组 C.货币型和日期型 D.变长字符串和货币型

284.执行语句Open”aa.txt”For Random As #1 Len=50后，对文件aa.txt中的数据能执行的操作是（ ）。

A.即可以读也可以写 B.可以进行读操作 C.可以进行写操作 D.只是错误的操作 285.在用Open语句打开文件时，如果省略“For方式”，则打开的文件的存取方式是（ ）。 A.顺序输入方式 B.顺序输出方式 C.随机存取方式 D.二进制方式 286.随机文件用于读数据的语句是（ ） A．get B.write C.print D.input

287.如果要读取文件，打开随机文件“text.dat”的正确语句是（ ）

A． open“text.dat”forwriteas#1B.open“text.dat”forbinaryas#1C. open“text.dat”forinputas#1D.

open“text.dat”forrandomas#1

288.下列关于文件的叙述错误的是（ ） A． 随机文件中各条记录的长度是相同的 B． 打开随机文件时采用的文件取方式应该是random C． 向随机文件中写数据应使用语句“print”#文件号 D． 打开随机文件与打开顺序文件一样，都使用oren 289.以下正确定义数据类型telbook的代码是（ ）

Atype telbook nome as string *10 telnum as integer end type B. type telbook nome as string *10 telnum as integer end telbook

C. type telbook nome as string *10 telnum as integer end type telbook D.type telbook nome as string *10 telnum as integer end type

290.FSO对象模型中用于创建、移动或删除文件夹，并向系统查询文件夹的名称和路径的方法是（ ）

A.Folder对象 B.Drive对象 C.Files对象 D.Textstream对象 291.下面说法不正确的是（ ）

A. Data控件的Connect属性用于设置数据控件要连接的数据库类型 B. Data控件的DatabaseName设置是否独占数据库

C. Data控件的RecordSourse属性用于设置数据控件的记录源

D. Data控件的RecordSetType属性用于设置数据控件存放记录集的类型 292下面说法不正确的是（ ）

A. Data控件的ReadOnly属性用于设置数据库的内容是否为只读

B. Data控件的EOFAction属性用于设置当记录指针移到记录集的结尾时程序执行的操作 C. Data控件的BOFAction属性用于设置当记录指针移到记录集的开头时程序执行的操作 D. Data控件的Exclusive属性用于设置数据控件要连接的数据库类型

293在使用MSFLexGrid控件时用于决定在行头或者列头上单击时，是否可以使得整个行或者列都被选中的属性是（ ）

A.AllowBigSelection B.AllowUserResizing C.BackColorindent D. B。B.ackColorheader

294.在使用MSFLexGrid控件时用于设置一个单元格的对齐方式的属性是（ ）

A. BackColorindent B. BackColorUnpopulated C.CellAlignment D.CellBackColor 295.在使用MSFLexGrid控件时用于设置活动单元的坐标的属性是（ ） A.ColPosition B.Col和Row C.DataSource D.RowPosition 296.在使用MSFlexGrid控件时用于返回行数的属性是 A.Fixedcols B.cols

C.Fixedrows D.Rows

297.下面有关Data控件的描述，正确的是

A.使用Data控件可以直接显示数据库中的数据 B.使用数据绑定控件可以直接访问数据库中的数据

C.使用Data控件可以对数据库中的数据进行操作，却不能显示数据库中的数据 D.Data控件只有通过数据绑定控件才可以访问数据库中的数据 298.下面 属性可以设置数据绑定控件的数据源属性 A.DataField B.DataSource C.DataBase D.Recordsource

299.下面 属性可以建立ADO Data 控件到数据源的连接信息。 A.ConnectionString B.DataBase C.DataSOUrce D.RecordSource

300.下面 属性可以设置 ADO Data 控件具体访问的数据，这些数据构成记录集对象

RecordSet。

A. ConnectionStinR B. DataField C. DataSource D. RecordSource

300. 下面（ ）属性可以设置ADO Data控件具体访问的数据，这些数据构成记录集对象

RecordSer.

A.ConnectionStrinR B.DateField C.DataSource D.RecordSource

301. 通过（ ）方法可以实现ADO Data控件的查找操作。

A.Find B.FindFirst C.FindLast D.FindNext

302. 在ADO RecordSet对象的（ ）属性用于表示记录中的所有字段组成的集合。

A.RecordCount B.Fields C.AbsolutePosition D.NoMatch

303. ADO RecordSet对象的（ ）方法用于将记录指针定位到上一条记录。

A. A.MoveFirst B.MoveLast C.MovePrevious D.MoveNext

304. ADO RecordSet对象（ ）方法用于从记录集的末尾查找满足条件的第一条记录。

A.FindFirst B.FindLast C.FindNext D.FindPrevious 305. 当RecordSet对象的BOF属性为True时，表示（ ）。

A.记录指针指向RecordSet对象的第一条记录 B. 记录指针指向RecordSet对象的第一条记录之前 C. 记录指针指向RecordSet对象的最后一条记录 D. 记录指针指向RecordSet对象的最后一条记录之后 当RecordSet对象的BOF属性为True时，表示（ ）。 A.记录指针指向RecordSet对象的第一条记录 B. 记录指针指向RecordSet对象的第一条记录之前 C. 记录指针指向RecordSet对象的最后一条记录 D. 记录指针指向RecordSet对象的最后一条记录之后 二、填空题

1.为了选择多个控件，可以按住_______键，然后单击每个控件。 2 Visual Basic的程序设计方法是_______设计。

3.一个工程可以包含多种类型的文件，其中工程文件的扩展名是____________，窗体文件的扩展名是_______。

4.建立窗口并存盘后，除了生成窗体文件外，还会生成_________文件。 5.同时按下_______和方向箭头键也可以移动控件位置。

6.为了输入程序是自动进行语法检查，必须执行____________菜单中的________命令，打开________对话框，然后选择“编辑器”选项卡中的____________选项。 7._________是Visual Basic系统中的基本运行尸体。 8.创建用户界面时用到的对象可分为_______和_______。

9.________是对对象特性的描述，不同对象有不同的_______。 10.选择窗体或控件时，可在_________中看到各种属性。

11.选择对象后，可以在_________中设置属性值，也可以在_________设置属性值。 12.设置对象属性值的语句格式：__________。 13.事件是__________。 14.方法指的是__________。

15.调用方法的语法格式为___________。

16.在Visual Basic程序设计中，基本的设计机制是_______、_________、________。 17.一般来说，在用Visual Basic开发应用程序时，需要以下三个步骤：__________；________；_________。

18.当发生某个事件时，就会“驱动”预先设置的一系列动作，这种情况称为__________；而预先设置的那些动作，即针对控件或窗体的事件编写代码，称为__________。 19.Vial Basic工程主要由_______、_______和_______组成。

20.窗体模块的文件扩展名为_________；标准模块的文件扩展名为_________，类模块的文件扩展名为________。

21.Vsual Basic6.0的基本数据类型分为________、________、________、________、________、________、________。

22._________能够存储所有系统定类型的数据。

23.te型存储空间大小为__________字节，范围为__________。 24.nteger型存储空间大小为__________字节，范围为__________。

25.ng型存储空间大小为__________字节，Single型存储空间大小为_________字节；Double型存储空间大小为__________字节；Veiant型存储空间大小为__________字节；Boolean型存储空间大小为__________字节；Date型存储空间大小为__________字节；Object型存储空间大小为__________字节。

26. Vsual Basic中，常量分为两种.：_______和_______。

27.按数据类型，一般常量分为__________、_________、__________、__________。 28.赋值语句语法格式：___________。

29.符号常量分为两种：__________和_________。

30.用户定义的符号常量可以用__________语句来声明，语法格式为________。

31.定义符号常量时常量表达式是必须的，他是由文字、其他常数、除_________之外的任意的算术操作符和逻辑操作符所构成的任意组合组成，但不能使用________、________和________。

32.变量名用于识别在内存中的位置，变量的类型指定__________。

33.如果希望在程序中显示声明变量，可以在模块的声明段中加入________语句。也可以在________菜单中选择________命令，单机________选项卡，选中________复选框。 34.在Vsual Basic中，可以用变量声明语句来声明变量类型，语法格式为__________。 35.使用声明语句声明一个变量后，Vsual Basic自动将数值类型的变量赋初值为__________，将字符类型的变量赋初值为__________，将Variant类型的变量赋初值为__________，将布尔型的变量赋初值为_________。

36. Vsual Basic中允许变量不经过声明就直接使用，称为________，这种声明的变量都是________型的，并默认为________。

37.变量未赋值时数值型变量的值为________，字符串变量的值为________。

38.一个变量未被定义，末尾没有类型说明符，则该变量的隐含类型是__________类型。 39.已知变量aa是一个布尔型的变量，如果要给其赋值为True，则正确的赋值语句是_________。

40. Vsual Basic在数据后面可以加上符号表示不同的数据类型，&表示________，@表示________，！表示__________。

41.常量-0.00000567的VB标准化指数形式为________。 42.表达式5*(7MOD3)*1/2的值是_________。

43.表达式运算符的优先顺序从高到低为__________→__________→__________→

__________。 44.下列程序中，a，b，c代表一个三角形的三条边，程序的作用是判断一个三角形是否成立，请填写空白处：

If a + b < c____b+c

End If

45.设a=2，b=-4，则表达式3*a>5Orb+8>0的值是_________。 46设A=“345678”，则表达式Val（Mid（A,4,2）+Risht(A,4)的值为__________。 47.下列程序段运行后，a的值为________。 a=600 B=50 a=a+b b=a-b a=a-b

48.表达式Len（Str（0.03456）） Mod2的值为________。 49.表达式14/5*2的值是________。

50.表达式（-17/3+1）*（28/-5）的值是__________。 51.表达式“abc”◇“abc”&“123”值的是________。

52.字符串运算符________连接的两边的操作数类型必须是字符型。 53.设a=-2，b=4，则表达式4*a>9Orb/>0的值________。 54.生成1~100范围内的随机整数表达式：________。

55.数学表达式sin60°+cos30°+log35对应的Visual Basic表达式：______。 56.函数Str$（256.36）的值是________。 57.表达式Int（-19.6）的值为_________。 58.表达式Right（“zhengzhou”，4）的值是________。

59.一个语句行以_______结束。把多句写在一行，语句之间必须用_________连接。当一行代码很长时可以用________来续行。 60. Print格式为________。

61.空Print语句的功能是________或________。 62.用Print语句输出多个表达式的值时，表达式之间用_______或_______隔开。

63.在赋值语句中，变量和表达式的数据类型必须一致，若两者同为数值型但精度不一样，则__________。

64.x=a=b语句的含义是_________。

65.赋值语句兼有_________与_________双重功能。

66.在Vsual Basic中有两个注视语句_________和__________，语法格式为________。 67.使用Rem关键字时，Rem关键字与注释文本之间要________,放在其他语句尾时，要用________隔开。

68.在Vsual Basic中有两个结束语句：________和________。

69.End语句的功能是________；Unload语句的功能是__________。 70.“For k=_______To-11 Step-3”的循环体循环50次。 71.假设有以下程序段：

For i = 1 To 10 Step 3 For j = 15 To 3 Step -4 Print i * j

Next j Next i

Print s, i, j

则语句Print i*j 的执行次数是_______，执行后i的值为_______，j的值为_______。 72.下列程序段的执行结果为_______。 i = 1 a = 4 Do

i = i + 1 a = a + 2

Loop Until i >= 6 Print “A=“; a

73.在Visual Basic中，把一组具有相同_______、不同_______的变量称为数组。

74.在计算机中，数组占据一块连续的内存区域，_______就是这个区域的名称，区域的每个单元都有自己的地址，_______指出每个单元在该区域的位置。

75.在Visual Basic中，用来声明数组的语句有_______、_______、_______和_______。 76.在定义数组时，下标的范围可以是不超过_______数据类型的范围。如果省略了“下标下界To”，数组默认下界为_______，如果希望下标从1 开始，可以通过_______语句来设置。 77.数组的维数最多可以有_______维。

78.创建动态数组通常分为两步：首先在窗体级别、标准模块或过程中_______，然后在过程中_______。

79.如果用ReDim重新声明动态数组只能修改_______，不能修改_______。 80.使用ReDim语句重新分配动态数组时，数组中的内容将被清除，如果在ReDim语句中使用了_______选择项，则保留数组内容。

81.用Dim声明数组时，在默认情况下，数组下界为_______，如果需要数组下界为1可以在通用声明中，使用_______项加以说明。

82.控件数组是由一组_______相同的控件组成，他们具有一个共同的_______，相同的_______，而他们实现的功能基本相似。控件数组一经建立，每个控件数组元素通过_______唯一确定。

_______，而他们实现的功能基本相似。控件数组一经建立，每个控件数组元素通过_______唯一确定。

83.使用ReDim语句_______改变数组类型，在ReDim语句中加了Preserve关键字，对重定义数组的限制是_______。

84.我们利用函数_______及_______能分别求出数组的下上界。

85.假设Dim a（8）As Double，则该数组声明了9个元素可供使用。如果设Dimb（4，1to9）As Single，则它声明了一个具有_______个元素的_______维数组。 86.用Dim语句定义数组时，数值数组中的全部元素初始化为_______，字符串数组中的全部元素初始化为_______。

87.利用Array（）函数给数组元素输入初值，数组应该声明为_______数组，数组的数据类型为_______类型。

88.如果想释放动态数组的存储空间或清楚定长数组的内容，可以用_______语句来实现，语法格式：_______。

89.Erase语句的功能是：_______或_______。 90.当把Erase语句用于动态数组时，将删除整个数组结构并释放该数组所占有的内存，下一

次使用需要重新用_______语句定义。 91.引用数组元素的方法是_______。

92.在引用数组元素时，_______、_______和_______必须与声明数组时一致。 93.在Visual Basic中，过程分为_______过程和_______过程。

94.使用_______声明在所有模块中都可以使用的过程；使用_______声明只能在包含该声明的模块中使用的过程。

95.在使用Static关键字声明过程时表示在调用Sub过程之间_______。 96._______语句可以使用程序在一定条件下从一个Sub过程中中退出，并且在Sub过程的任何位置都将可以使用。

97.若要建立通用过程，打开代码编辑器窗口，从_______列表框中选择_______选项。 98.事件过程分为_______过程和_______过程，两者都使用_______进行声明。 99.建立事件过程主要有三种方法：_______、_______、_______。

100.若要提前退出Function过程，可在Function过程内适当位置加入_______语句。 101.若要从Function过程返回一个值，可将这个值赋给_______。

102.声明过程时参数列表格式为：[Optional][ByVal丨ByRef][ParamArray]变量名[（）][As数据类型名称]。其中Optional表示参数是可选的，ByVal表示_______，ByRef表示_______，ParamArray表示_______，“（）”表示_______，As子句用来_______，多个参数时，参数之间用_______进行分割。

103.在Visual Basic中，调用Sub过程有两种方式______和_______。

104. Visual Basic程序中的错误可分为_______、_______和_______三种类型。 105.编译错误也称为_______，这种错误是由于行程序中的语句_______而引起的。 106.在程序中出现“除数为零”会导致_______错误。 107.在Visual Basic中，使用_______语句激活错误捕捉。 108._______语句用于设置错误陷阱。

109.窗体的Caption属性用于设置_______。 110.窗体的BackColor属性用于设置_______。 111.窗体的ForeColor属性用于设置_______。 112.窗体的FontName属性用于设置_______。 113.窗体的FontSize属性用于设置_______。

114.窗体的CurrentX属性用于设置_______，窗体的CurrentY属性用于设置_______。 115.窗体的ScaleHeight属性用于返回_______，窗体的ScaleWidth属性用于返回_______。 116.窗体的Width和Height属性用于设置_______。

117.窗体的ScaleWidth属性与Width属性的区别是前者表示_______，后者表示_______。 118.所有控件都具有的共同属性是_______属性。

119.控件和窗体的Name属性不能在_______期间设置，只能通过_______设置。 120.窗体的KeyPreview属性是用来返回或设置一个值，以决定_______，语法格式为_______。 121.窗体的Print方法用于_______。 122.窗体的Cls方法用于_______。

123.在程序运行当中，一个窗体得到焦点时，最先触发的是_______事件。 124.窗体的Line方法用于_______，线的宽度取决于_______属性值。 125.窗体的Load事件在_______时发生。 126.窗体的Click事件在_______时发生。 127.窗体的Resize事件在_______时发生。 128.窗体的Unload事件在_______时发生。

129.当程序运行装入窗体时，最先触发的是_______事件。 130.窗体的KeyPress事件在_______时发生。

131.KeyDown事件当_______时发生，KeyUp花四溅当_______时发生。

132.当用户按下键盘上的某个键时，将会触发拥有输入焦点的控件的_______事件。 133.窗体的MouseDown事件是当_______时发生的事件，窗体的MouseUp事件是当_______时发生的事件，MouseMove事件是当_______时发生的事件。

134.语句“Private Sub Form MouseMove(button As Integer，shift As Integer，x As Single，y As Single)”中“button”用来标识该_______，值可以是_______、_______和_______，分别对应于_______、_______及_______。

135.鼠标指针移动经过控件时，将触发控件的_______事件。

136.在鼠标事件过程MouseDown和MouseUp中，参数Button的值为1、2、4时，分别代表按下鼠标的_______、_______和_______键。 137.当按下的鼠标键释放后，触发_______事件。

138.窗体的_______事件当一个窗体成为活动窗口时发生。

139.InputBox函数用来在一个对话框来中显示提示，等待用户_______，并返回_______。 140.在“MsGBox(prompt[,buttons][,title][,helpfile,context])”中，如果参数prompt内容超过一行，则可以用__________或者__________将各行分隔开来。

141.在MsGBox函数对话框显示“取消”按_________键与单击“取消”按钮的效果相同。 142.下列程序弹出对话框中按钮的个数为__________。

143.创建MDI应用程序应从_________菜单中选择_________命令。

144.要创建一个MDI子窗体，先_________或者_________然后把它的_________属性设为True，

145SDI是指________界面，MDI是指_________界面。 146一个应用程序最多可以有_________个MDI父窗体。

147.快速显示窗口一般作为__________使用，这种窗口一般没有__________和__________。 148.制作快速显示窗体时，在工程中新建一个窗体，将窗体的Borderstyle属性设置为________,ControlBox属性设置为_________，Caption属性设置为__________，并在该窗体中添加一些文字和图片。此外，还必须通过设置_________，把快速显示窗体设置为应用程序的启动对象。

149.标签控件的BordeStyle属性指定_________。 150.标签控件的Move方法用于_________。

151.若要选取多个控件，可按住_________键同时依次单击各个控件，或者在窗体上拖出一个选择框，把这些控制包围起来。

152.如果要精确地设置控制的位置和大小，可以在窗体上选择控制，然后使用属性窗口中的_________、__________、___________和___________属性值进行设置。 153.删除控制的快捷键是__________。

154.若要显示窗体编辑器工具栏，可选择__________→__________→___________命令，使该命令项中出现复选标记。

155.如果要把多余两个的控件设置相同间距，可先选取这些控制，然后选择__________→___________→___________或_________→_________→___________命令。 156.文本框的__________属性用于返回或设置文本框中的文本。 157.文本框SetFocus方法用于__________。

158Text文本框接受的最长字符数由文本框的__________属性确定。

159.命令按钮控件的___________属性用来指示窗体中的命令按钮是否为取消按钮。

160. 命令按钮控件的___________属性用来确定哪一个命令按钮控件是窗体的默认命令按钮。

161. 命令按钮控件的___________属性用来指示该按钮是否可选。

162命令按钮控件的___________属性用来设置大鼠标指针停留时显示的文本。 163. 命令按钮控件的___________属性用来指示控制的显示类型和行为。 164.把单选按钮控件的Alignment属性值设置为1表示_________。

165.复选框控件的Value属性值为0时表示_________，值为1表示__________，2表示_________。

166.列表框控件的_________属性用于返回或设置控件的列表部分的项目。

167. 列表框控件的_________属性用于指定控件的元素是否自动按字母表排序。 168. 列表框控件的_________属性用于返回控件的列表部分项目的个数。

169. 列表框控件的_________属性用于返回或设置在列表框控件中的一个项的选择状态。 170. 列表框控件的_________属性用于返回或设置控件中当前选择项目的索引值。 171. 列表框控件的_________属性用于返回在列表框控件中被选中项的数量。 172列表框控件的_________属性用于指定列表框的样式。

173. 列表框控件的_________方法用于将项目添加到列表框控件。 174. 列表框控件的_________方法用于从列表框控件中删除一项。

175.组合框有3种不同的类型，这3种类型是下拉式列表框，简单组合框和下拉式组合框，分别通过把Style属性设置为_________来实现。

176.如果要通过程序代码来一次性删除列表框中所有项目，则应使用列表框的方法是__________。

177.组合框控件将_________控件和_________控件的特性结合在一起。

178.Visual Basic中有一种控件组合了文本框的特性，这种控件是___________。 179．滚动条的最小值属性是________，最大值属性是__________。 180.滚动条分为__________和__________两种。

181.在程序运行时，可以通过___________方法来移动滚动条的位置。

182.图相框控件的__________属性用于返回或设置图相框的控件中要显示的图片。

183．在“object.picture= Loadpicture([filename])”语句格式中，如果省略了参数filename则功能为_________。

184.图像控件的Strettch属性值设置为__________时，表示图形要调整大小以与控件相适合；设置为________时，则控件要调整大小以与图形相适应。 185.框架控件的功能是__________。

186.框架控件的Caption属性用于设置________。 187计时器控件的Enabled属性决定___________。

188.计时器控件的__________属性设置或返回对计时器控件的计时事件各调用间的毫秒数。 189．计时器控件的_________属性设置为True时，Interval属性的设置值有效。 190.程序运行时想要显示通过对话框，应该调用________控件的方法。

191.___________语句用于在模块级别中声明对DLL动态链接库中外部过程的引用。 192.窗体的ScaleMOde属性返回或设置一个值，用于指定_________。 193.1英寸=_____________缇，1dot=____________twips。 194.要建立用户自定义坐标系，可以使用__________方法。 195.在使用Scale方法时，“Scale(X1,Y1)-(X2,Y2)”语句中的(X1,Y1)表示_________；(X2,Y2)是___________。

196. Scale（-320，240）-（320，-240）定义的绘图区域大小为__________。

197. Scale（-320，240）-（320，-240）定义的绘图区域坐标原点是__________。 198.Visual Basic设置坐标的方式有__________与__________两种。

199. Visual Basic提供了两个选择颜色的函数，分别是_________和__________。 200.Pset方法的功能是_________。

201.使用Pset所画点的尺寸取决于__________属性值。 202.Line方法的功能是___________。

203.使用Line方法画两条相连的直线时，后一条直线的起点是____________。

204.使用Line方法时线宽取决于___________属性值，其取值范围为___________，线宽的单位是__________，默认线宽为___________。

205.Circle方法用于在对象上画__________、____________或___________。

206.在Visual Basic程序设置菜单过程中，为了对菜单项指定访问键，可在访问键前放置一个___________符号。

207.在Visual Basic程序设计菜单过程中，为了创建分隔栏，可在“标题”框中输入___________。

208.菜单控件只包含一个__________事件。

209.RichTextBox控件能以___________格式和__________格式打开和保存文件。

210. RichTextBox控件的____________方法用于向RichTextBox控件加载一个文本文件。

211.工具栏控件只包括一个_________集合，该对象被用来创建与应用程序相关连的工具栏。 212.图像列表控件包括___________的集合。 213.Clipboard对象提供对_______的访问。

214.在复制任何信息到Clipboard对象中之前，应调用_______方法清除Clipboard对象中的内容。

215.在程序运行时，用驱动器列表框控制选择了软磁盘，则该驱动器列表框控制的Drive属性值为___________。

216.目录列表框控件用于___________。 217.文件列表框控件用来___________。

218.在Visualbasic6.0中，文件访问类型有______、__________、和_____________三种。 219.在“Open pathname For[]Asfilenumber[Len=buffersize]”语句中，Filenumber参数是________,取值范围是_________。 220.在打开一个顺序文件后，在为其他类型的操作重新打开它之前必须先使用__________语句关闭它。

221.要检索文本文件的内容，应以顺序文件的_______方式打开该文件，然后使用______语句、________函数或者_______语句将文件复制到程序变量中。

222.EOF函数返回一个_________值，若为________,则表明已经到达结尾或顺序INPUT打开的文件结尾。

223.自定义类型的文件中的元素类型可以是字符串型，但该字符串必须是_______的。 224.随机访问文件中的每个记录包括一个或多个________。

225.在使用Textstream对象的Read或ReadLine方法时，想要跳过数据的某些部分，可以使用________或__________方法。

226.数据控件的________方法用于打开或重新打开数据库。 227.__________语句用于从数据库中检索满足特定条件的记录。 228.ODBC的中文意思是_______。

229.ODBC数据源可分为________、__________和__________等形式。

230．通过ADO数据控件可以使用Microsoft的ADO技术快速的创建到________的连接。 231.在VisualBasic应用程序中使用ADO对象之前，必须保证__________。

232.引用ADO的方法是从_______菜单中选择______命令，并在其对话框中选择MicrosoftActiveXDateObject2.5libraly，然后单击“确定”按钮。 233.connection对象的connectionstring属性用来________。

234.connection对象的_________方法用于打开的数据源的连接。

235.record对象有一个_________集合，该集合包含recordset对象的所有filed对象。 236.ADOcommand对象用于定义_________。

237.如果希望在一行记录的所有字段中添加数据，则可以省略INSERT语句中的________。 238.选择“开始”→“所有程序”→“Microsoftvisualbasic6.0中文版”→“Microsoftvisualbasic6.0中文版工具→__________命令以启动和展开visualbasic6.0自带的打包程序制作安装程序向导。

三、判断题。

1. 用户用来构筑用户图形界面的每一个可视的控件均为对象。 （ ） 2. 在visualBasic中整个应用程序也是一个对象。 （ ）

3. 在visualBasic中，属性是描述对象的数据；方法告诉对象应做的事情；事件是对象所

产生的事情。 （ ） 4. 在visualBasic中，发生事件时可以通过编写事件过程代码来进行处理。（ ） 5. 一个窗体最多可容纳255个控件。 （ ） 6. 工程是visualbasic应用程序开发过程中使用的文件集。 ( ) 7. 标准模块是大多数visualBasic应用程序的基础。 （ ） 8. 标准模块是应用程序内与其他模块访问的过程和声明的容器。 （ ） 9. 标准模块可以通过编写代码来建立新对象。 （ ） 10. 在程序运行中，系统为程序中的每一个变量分配一个存储单元，变量名实质上就是计算

机内存单元的命名。 （ ）

11. 变量在使用前一般要预先声明，声明变量就是将变量的有关信息事先告诉编译系统。

（ ）

12. 标识符必须以字母开头。最大长度为255。 （ ） 13. 标识符不能使用visuaibasic的保留字 （ ） 14. visualbasic的标识符不区分大小写 （ ） 15. 标识符在标识符的同一范围内必须是唯一的。 （ ）

16. 在isualbasic中，输入PRINT 语句时，不论输入“PRINT”还是“print”, visualbasic

都会转换为Print。” （ ）

17. 赋值语句的功能是把右边的表达式的值赋给左边的变量或某个带有属性的对象。（ ） 18. 在赋值语言中，赋值号“＝”与数学上的符号意义相同。 （ ） 19. 注释语句是为了方便程序阅读对程序进行的说明，对程序运行没有影响。（ ） 20. 在块结构的ｉｆ语句中，必须使用Ｅｎｄｉｆ语句结束 （ ） 21. 在编写程序代码时，可以使用Ｄｉｍ语句对已经声明了的数组进行重新声明（ ） 22. 可以是使用LBound和UBound这两个函数确定数组的大小。 （ ） 23. Ａrray只使用于一维数组二维数组赋值，不适合多维数组赋值 （ ） 24. 动态数组在程序运行过程中完成声明，动态数组可以在任何时候改变大小。（ ） 25. 动态数组是指计算机在执行过程中才给数组开辟存储空间的数组。 （ ） 26. 动态数组可以用ReDim语句再次分配动态数组占据的存储空间。 ( ) 27. 动态数组可以用ERASE语句删除，收回分配给它的存储空间。 （ ）

28. 创建动态数组时，因为没有维数下标，使用数组名后的括号是可以省略的。（ ） 29. REDIM语句只能出现在事件过程或通过过程中 （ ） 30. REDIM语句定义的数组是一个临时数组，即在执行数组所在的过程时为数组开辟一定

的内存空间，当过程结束时，这部分内存即被释放。 （ ） 31. 使用ＡＲＲＡＹ函数数组赋初值时，数组变量只能是Ｖariant类型。 （ ） 32. 在 ｅｒａｓｅ语句用于定数组时，不释放数组的所有空间，只是清除数组的内容。

（ ）

33. 在visualbasic中，所有的可执行代码都必须属于某个过程。 （ ） 34. ＳＵＢ过程可以放在标准模块或窗体模块中，过程的定义是平行的，不能在过程中定义

其他过程 （ ） 35. 过程中的语句块是完成特定任务编写的程序，可以没有一行，也可以有许多行。（ ） 36. 因为程序代码中有ｉｆ而无对应的endif或者括号不匹配等引起的错误是事实错误。

（ ）

37. 在使用visualbasic开发软件过程中，对于不可避免的错误或者还没有发现的错误，可以

利用调试工具对程序的运行进行跟踪，找出并改正导致错误的语句。 （ ） 38. 在使用visualbasic开发软件过程中，对于已发现的错误，可以设置错误捕获语句，对错

误进行捕获和处理。 （ ）

39. 控件的所有属性值即可在设计阶段通过属性窗口进行设置，也可以通过代码来设置。

（ ）

40. 在“窗体名。KEYPREVIEW=BOOLEAN”语句中，boolean为true时，窗体先接收键

盘事件，然后活动控制接收事件；boolearn为false时，则活动控制接收键盘事件，而窗体不接收。 （ ） 41. ｍｓｇｂｏｘ函数在对话框中显示消息，等待用户单击按钮，并返回一个整数表名用户

单击了哪一个按钮。 （ ） 42. ｍｓｇｂｏｘ函数在对话框中显示消息，消息的最大长度不能超过２５５个字符。（ ） 43. 标签控件能够响应多数鼠标事件，但由于标签所显示的文本不能被编辑，因此标签不能

获得焦点，也不能影响与焦点相关的事件和键盘操作。 （ ） 44. 如果需要在窗体上添加多个相同类型的控件，可以添加一个控件并设置其属性，然后通

过以下复制操作来添加其他控件。 （ ） 45. 如果需要在窗体上添加多个相同类型的控件，可以先添加一个控件并设置其属性，然后

通过以下复制操作来添加其他控件。 （ ） 46. 如果列表框控件的项目总数超过了可现实的项目数，就自动在列表框控件上添加滚动

条。 （ ） 47. 当列表框中的项目较多，超过了列表框的长度时，系统会自动在列表框边上加一个滚动

条 （ ） 48. 列表框控件不支持dblclick事件，但支持click事件。 （ ） 49. 图像框专们用于显示图像。 （ ） 50. 图像框也是容器对象，可以在此控件智中放置其他控件。 （ ） 51. 计时器控件在窗体中是不可见的。 （ ） 52. 在visualbasic窗体上的任何一点都可以用x坐标和y坐标表示。 （ ） 53. 使用ｃｉｒｃｌｅ方法填充园或椭圆时，则应把所属对象的ｆｉｌｃｏｌｏｒ属性设置

为除１以外的其他值，并选择适当的ｆｉｌｌｓｔｙｌｅ属性。 （ ） 54. 使用circle方法画角度为0的扇形时，画出一个半径，这时应设置strat属性值为0.

（ ）

55. 在创建MDI应用程序时，当子窗体为活动窗体的时候，MDIFORM子窗体上的菜单条

将替换MDI对象上的菜单条。 （ ） 56. 在visualbasic中，菜单控制只有一个ｃｌｉｃｋ事件。 （ ）

57. richtextbox 控件不见允许输入和编辑文本，同时还提供了标准文本框控件所设有的，

更高级的指定格式的许多功能。 （ ） 58. 驱动器列表框控件用来显示用户系统中所有磁盘驱动器的列表。 （ ）

59. 在打开顺序列表文件的语句中所指定的buffersize必须是小于或等于255的一个数。

（ ）

60. 在打开顺序文件昨晚ｉｎｐｕｔ时，该文件必须已经存在，否则产生一个错误。（ ） 61. 在visualbasic6.0中，不仅可以使用文本框、标签、复选框等内部控件作为数据绑定控

件，也可以使用activex控件作为数据绑定控件。 （ ） 62. 通过ｍｓｆｌｅｘｇｒｉｄ控件以电子表格的形式显示数据，所以非常方便数据的修改

更新。 （ ） 63. ＡＤＯｒｅｃｏｒｄｓｅｔ对象提供与物理数据库想应的一组逻辑记录，可以表示一个

数据库中的所有记录，也可以表示满足查询条件的所有记录。 （ ） 64. 把ｄａｔａｇｒｉｄ控件的ｄａｔａｓｏｕｒｃｅ属性设置一个ＡＤＯ数据控件，这时

ｄａｔａｇｒｉｄ控件每一列的行数是不确定的。 （ ） 65. ADOCONNECTION对象代表打开的、与数据源的链接，CONNECTION对象代表与数

据源进行的唯一对话。 （ ） 66. ADOrecordset对象的update方法用于更新记录内容。 （ ） 四、运行结果题。

1.下列程序运行时，单机Commmandi按钮结果是多少? Privete sub commandl_Click（） Dim a，b，才， X As Integer a=10.5 b=400.7 c=30.6

If b＞ a Then X=a:a=b：b=x End If

If b＞C Then X=b

Elseif a＞c Then X=c Else X=a End if Print x

End sub

二、在船体上面一个名称为commmandi的命令按钮，编写如下事件过程： Private Sub commandl_click（） Dim a As string A=‘123456789’

For i=1 To 5 Print space （6-1）；Mids （a，6-i，2* I -1） End sub

程序运行后，单击命令按钮，输出的结果是什么? 三、下面程序段的运行结果是什么？ Privete sub form_click（）

Dim a A s Date

a=#6/7/20112：30：40 PM# private sDay （a）；Month（a）；year（a）； print Hour（a）；Minute（a），second（a） End sub

四，下面程序段的运行结果是什么？ Private sub form _click（） Dim a As Doubie Dim d As Doubie Dim d As Date

d=#6/7/2011 2：30：40 PM# a= 123，45678 Print Format（a，‘00000.000’），Format（a，‘##，###.####’） Print Format (a,?#####.##%?),Format(a,?;s#####.##?) Print Format(a,+#####.##?%?) ,Format(a,?0.0000e+00?) PrintFprmat(d,?yyyy年mm月dd日hh点mm分ss秒‘) Endsub

五、下面程序的运行结果是什么? Privete sub command1_click（） For I = 1 To 2 For I =1 To i

Print string （ i， ‘hello’） Next J Print NEXt i

程序运行后，如果单击命令按钮，则在窗体上显示的内容是什么？

7 .设当前日期为 2011年6月8日，星期三 ，则执行下面的语句的输入结果是什么？ Private Day （NOW） PrintMonth（Now） Printweekday（NOW）

8.船体下面画一个命令按钮，然后编写如下事件过程： Private sub commandl_click（） X=0

Do Unti1 x = -1

A=inputbox（请输入a的值） A=Va1（a）

B=inputbox（请输入b的值）

B=va1（b）

X=inputbox（请输入x的值） X=va1（x） a=a+b+x loop print a End sub

在程序运行后，单击命令按钮，在对话框中分别输入2.4.3.6.7.9.3.5.-1输入结果是多少? 9.执行下面程序后，输入的结果是什么？

Private sub Form _load（） Ss=‘abcdef’

Print Instr （ss ‘ efg） Print lcases（ss） s1=‘zhengzhou s2=nanyang s3=zhumadian print right（s1.4） print mid （ s2.4）： print left （s3 .5）

10.执行下列程序后输出的是什么？ Privete subcommandl_click（） Chs=abcdefg

Priint Mid（right chs ，6）len （left （chs，4） .3） Endsub

11.一下程序段的运行结果是什么？ Privete sub command1_click（） As=visua1 basic programming Bs=quick

Cs=bs&ucase（mids（as .4 .3）&rights （As .3） Print cs End sub

12.下列的程序的运行结果是什么？ As=2011.06.07

Bs=mids（lefts（as.57）.6.2） Cs=right（rights（as.5.5）.3）

Print vall （cs）& val（bs） & lefts （as .5） +cs +bs 13.下列程序运行后输入的结果是什么？

Dim a as integer ，b As integer Max As integer A=2.6 B=3

Max=iif（a＜b.1.0＝

15.在窗体添加一个命令按钮，名称为command1，其单击事件有如下程序段， Privete sub command_click（）

For i= TO4 X=3

For j = 1 to 2 X=x+3 Next k Next j Next i

16.下面程序的运行结果是什么？ Dim x As Integer Dim I As Integer X = 100

For i =1 To 100 step 5 x = x –i/6 Next i Print x

17.在窗口中放置一个命令按钮Command1，并编写下列单击事件的程序： Option base 1

Private Sub Command1_Click() Dim c As Integer, d As Ingeter

d = 0 c = 6

x = Array (1,2,3,4,5,6,7,8,9) For i = 1 to 6

If x (i) > c Then d = d + x (i) c = x (i) Else

d = d – c End If Next i Print d End Sub

18.执行下列程序段后住处结果是什么？ Private Sub Form_Load() n = 0

For I =1 To 20 Step 5 n = n + i Next i Print n End Sub

19.在窗口有文本框Text1和命令按钮Command1，并有如下事件过程： Private Sub Command1_Click() Dim I As Integer, n As Ingeter

For i = 0 To 50

i = i + 3 n = n + 1

If I > 20 Then Exit For Next

Text 1. Text = Str(n) End Sub

单击命令按钮, 程序运行后, 在文本框中显示的值是什么?

20.在窗体中添加一个文本框Text1,然后编写如下的Load事件过程,则Textl文本框的内容是什么?

Private Sub From_Load() Text1 .Text = ” ” For k = 1 To 5

t = t * k Next k

Text1.Text = t End Sub

21.下列程序的运行结果是什么? Sub AAA()

Dim n As Integer i = 21 n = 3

Do While i >n i = I – n Loop Porint i End Sub

Private Sub Command1_Click() Call AAA End Sub

22.有如下事件过程:

Private Sub Command1_Click() b = 10

Do Untill b = -1

a = InputBox(“请输入a的值”) a = Val (a)

b = InputBox(“请输入b的值”) b= Val (b) a = a * b Loop Print a End Sub

程序结束后,依次输入数值10,20,30,-1后,现实的结果是什么? 23.设有如下程序代码:

Option Base 1

Private Sub Command1_Click()

Dim a (-4 To 2) As Integer, b() As Variant b = Array (1,3,5,7,8)

Print LBound(a); UBound(a) Print LBound(b); UBound(b) End Sub

运行后,单击命令按钮Command1,输出结果是什么? 24.下面程序的运行结果是什么? Static Happy(3)

Happy(0) = #6/7/2011# Happy(1) = “是王小二” Happy(2) = 17

Happy(3) = “岁生日”

Print Happy(0); Happy(2); Happy(3)

25.窗口中有一个命令按钮,命令按钮的单击事件过程如下: Private Sub Command1_Click() Dim a

Dim k As Integer, s As Integer a = Array(1,2,3,4,5,6,7,8,9) Fof k = 4 To 6

s = s * a（k） Next k Print s End Sub

26.在窗体中画一个命令按钮Command1,然后编写如下代码: Private Sub Command1_Click()

Dim Arr1(10) As Integer,Arr2(10) As Integer n = 3

For i = 1 To 5 Arr1（i）= i

Arr2（n）= 3 * n + i Next i

Point Arr2(n)，Arr1(i) End Sub

运行程序后，单击命令窗口，输出结果是什么？

27.在窗口中画一个名为Command1的命令按钮，然后编写如下程序： Option Base 1

Private Sub Command1_Click() Dim Arr

Arr = Array（1,2,3,4,5） j = 1

For I = 5 To 1 Step -1 s = s + Arr(i) * j

j = j* 10 Next i Print s End Sub

程序运行后,单击命令按钮,输出结果是什么? 28系列下横须短的输出结果是什么？ Private Sub Command1_Click() Dim M（5，5）, S(5) For i = 1 To 5

S(i) = 0

For j = 1 To 5 M(I,j) = I + j

S(i) = S(i) + M（I, j） Next j Next j

For Esch x In S Porint x Next x End Sub

29.在窗体中放置一个命令按钮Command1,并编写下列单击事件的程序: Option Base 1

Private Sub Command1_Click()

Dim c As Integer, d As integer, i As Integer d = 0 c = 2

x = Array(2,4,6,8,10,12) For i = 1 To UBound(x)

If x(i) > c Then d = d + x(i) c = x(i) Else

d = d – c End Sub

程序运行后,单击命令按钮,则在窗体上输出的结果是什么? 30.下列程序段的的输出结果是什么? Option Base 1

Private Sub Command1_Click()

Dim m（5,5）, s(5), I As Integer, j As Integer For I = 1 To 5

s(i) = 0 For j = 1 To i m(I, j) = i + j s(i) = s(i) + m(i ,j) Next i

For i = 1 To 5 Point s(i) Next i End Sub

31.下列程序的输出结果是社么？ Private sub Commandl-click()

Dim a(6) As Integer, I As Integer, m As Integer For i = 0 To 5 a(i) = a(i)+1 m = i+l

If m=3 Then a(m-1)= a(i-2) Else a(m) = a(i) If I =3 Then a(i+1)= a(m- 4) Print a (i); Next i End Sub

32.窗体中有一个命令按钮，命令按钮到底单击事件过程如下： Private Sub Commandl-Click() Dim a

Dim k As Integer, s As Integer s = 1

a = Array(1， 2，3，4，5，6，7，8，9，) For k = 2 To 7 step 2

s = s * a(k) Next k Print s End Sub

运行程序后，单击命令按钮，输出结果是什么？

33.在窗体中画一个命令按钮Commandl,然后编写如下代码： Dim Arrl(10) As Integer, Arr2(10) As Integer n = 3

For I = 1 To 5 Arrl(i) = i Next i

Print Arr2（n）;Arrl(n)

运行程序后，单击命令按钮，输出结果是什么？

34.单击命令按钮时，下列程序段的执行结果是什么？ Private Sub Commandl_Click()

Dim a As Integer, b As Integer, C As Integer a = 2: b = 4 : c = 6 Call Sl(a, b )

Print ＂ａ＂；＂ｂ＝＂；ｂ；＂ｃ＝＂；Ｃ Call S2(a,b)

Print “a=”;a; “b=”; b; “c=”;c； End Sub

Private Sub Sl (x As Integer, Y As Integer) Dim C As Integer

X =2 *x: Y= Y + 2: e = x + Y End Sub

35. 有如下Sub过程：

Sub AAA（X As Single, Y As Single） t = x x =t /Y Y =t Mod Y End Sub

在窗体中的命令按钮 Commandl 中，编写如下事件过程，执行该事件过程调用 AAA过程，结果是什么？

Private Sub Commandl_Click () Dim a As Single Dim b As Single a = 5 b =4

AAA a, b End Sub

36,有两个过程：

SubSl（ByVal x As Integer, ByVal Y As Integer） Dim t As Single Dim b As Single a = 5 b = 4

AAA a, b Print a ;b End Sub

36.有两个过程：

Sub Sl(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 A s Integer t=x x=y y=t End Sub

再在窗体中放置一个命令按钮，编写代码如下： Private Sub Commandl_Click() Dim a As Integer

Dim b As Integer a=12 b=13

Call Sl(a,b) Print a,b Call S2(a,b) Print a, b End Sub

程序运行时，单击按钮，程序运行结果是什么？

37.单击命令按钮执行下列程序，其输出结果是什么？ Private Sub Commandl_Click()

Dim a As Integer, b As Integer, c As Integer a=5 b=3 c=4

Print SecProc(a,b,c) End Sub

Function FirProc(x As Integer, Y As Integer, z As Integer) FirProc = 2*x +Y+3*z End Function

Function SecProc (x As Integer, Y As Integer,z As Integer) SecProc=FirProc(z,x,y)+x End Function

38.有如下函数过程：

Function funl(ByVal x As Integer, ByVal Y As Integer) As Integer Do While Y<>0

Reminder =X Mod Y X= Y

Y=reminder Loop Funl =x End Function

在下列按钮单击事件中调用该函数，则该程序的运行结果是什么？ Private Sub Ｃommandl_Click() Dim a As Integer Dim b As Integer

a=100 b=25

x=funl(a,b) Print x End Sub

39. 在窗体中有一个命令按钮Commandl, 编写如下程序： Private Sub Commandl_Click() Print ppl(3,7)

End Sub

Public Function ppl(x As Single, n As Integer) As Single If n = o Then Ppl=1 Else

If n Mod 2=1 Then Ppl=x*x+n Else

Ppl=x*x-n End If End If End Function

程序运行后， 单击该命令按钮，屏幕上显示的是什么？ 40.有如下的函数过程：

Function Func2（a As Integer, b As Integer）As Integer Static m As Integer, I As Integer

m=0 i=2

a=i+m+l b=i+a+b Func2=m End Function

在窗体中画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click()

Dim P As Integer, k As Integer, m As Integer K=4 m=1

P=Func2(k,m) Print k,m End Sub

程序运行后，单击命令按钮，输出结果是什么？ 41．在程序中有自定义函数代码如下： Function H（j As Integer） Static b a=0 a=a+1 b=b+1 H=a*b+j End Function

在窗体中放置一个命令按钮，编写代码如下： Private Sub Commandl_click() Dim i As integer, k as integer K=4

For i =l to 3

Print H(k); Next i End Sub

单击命令按钮，执行程序，输出结果是什么？ 42.编写如下事件过程和函数过程： Private sub commandl _click() Dim abc (1 to 6 ) as single Abc(1)=10 Abc(2)=19 Abc(3)= -10 Abc(4)=3.2 Abc(5)= -5.6 Abc(6)=100 Print pp(6,abc()) End sub

Private function pp(byval n as integer, number() as single)as integer pp=number(1) for j =2to n

If number(j)

Ent function

43. 单击命令按钮执行下列程序，其输出结果是什么？ Private sub commandl_click()

Dim a as integer, b as integer, c as integer A=2 B=4 C=5

Print AAA(a,b,c) End Sub

Function BBB(x As integer, y as integer, z as integer) BBB=2*x+y+3*z

End function function aaa(x as integer, y as integer, z as integer) AAA=BBB(z,x,y)+x End function

44. 有如下函数过程：

Function funA(BuVal x As Integer, ByVal Y As Integer) As Integer Do While Y<>0 Rminder=x Mod Y X=y

Y=reminder Loop funA=x

End Function

在下列按钮单击事件中调用该函数，则该程序的运行结果是什么？

本文来源：https://www.bwwdw.com/article/8frp.html