大学vb考试题库

一、单项选择题

1、与传统的程序设计语言相比,VisualBasic最突出的特点是9)。

A、结构化程序设计B、程序开发环境

C、事件驱动编程机制D、程序调试技术

2、赋值语句：a=123&MID("123456",3,2)执行后，a变量中的值是(C)。

A、"12334"B、123C、12334D、157

3、保存一个工程至少应保存两个文件，这两个文件分别是〔B〕。

A、文本文件和工程文件B、窗体文件和工程文件

C、窗体文件和标准模块文件D、类模块文件和工程文件

4、以下能在窗体Forml的标题栏中显示"VisualBasic窗体"的语句是(C)。

A、Forml.Name="VisualBasic窗体"

B、Forml.Title="VisualBasic窗体”

C、Forml,Caption="VisualBasic窗体"

D、Forml.Text="VisualBasic窗体”

5、为了装入一个VisualBasic应用程序，应当［D)

A、只装入窗体文件Lfrm)

B、只装入工程文件Lvbp)

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

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

6、赋给一个数组的数据类型一定要(A).

A、相同B、不相同C、两可D、都不对

7、下面正确的赋值语句是(C)。

A、x+y=30B、y=JI*r*rC、y=x+30D、3y=x

8、VisualBasic6.0集成环境的主窗口中不包括(Ch

A、标题栏B、菜单栏C、状态栏D、工具栏

9、以下表达中错误的选项是(C)。

A、VisualBasic是事件驱动型可视化编程工具

B、VisualBasic应用程序不具有明显的开始和结束语句

C、VisualBasic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性

D、VisualBasic中控件的某些属性只能在运行时设置

10、要使Print方法在Form_Load事件中起作用，要对窗体的(C)属性进行设置。

A、BackcolorB、ForeColor

C、AutoRedrawD、BackStyle

11、假设要使命令按钮不可操作，要对(A)属性进行设制。

A、EnabledB、Visible

C、BackColorD、Caption

12、以下表达中错误的选项是(B)。

A、一个工程中可以包含多个窗体文件

B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用

C、在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。

D、一个工程默认的启动对象是Forml

13、Cis方法可以去除窗体或图片框中的(C)内容。

A、在设计阶段使用Picture设置的背景位图

B、在设计阶段放置的控件

C、在运行阶段产生的图形和文字

D、以上均可

14、设x=3,y=5,那么以下表达式值为真的是(C)

A、(-3+5>x)And(y>0)B、(x<0)Eqv(y>0)

C、(x>y)Or(y>0)D、x>=yAndy>10

15、为了防止用户随意将光标置于控件之上，应将进行(D)设置。

A、将控件的Tabindex属性设置为0

B、将控件的TabStop属性设置为True

C、将控件的TabStop属性设置为False

D、将控件的Enabled属性设置为False

16、要判断在文本框是否按了Enter键，应在文本框的(D)事件中判断。

A、ChangeB、KeyDownC、ClickD、KeyPress

17、以下关于焦点的表达中，错误的选项是(A)。

A、如果文本框的TabStop属性为False,那么不能接收从键盘上输入的数据

B、当文本框失去焦点时，触发LostFocus事件

C、当文本框的Enabled属性为False时，其Tab顺序不起作用

D、可以用Tabindex属性改变Tab顺序

18、如果文本框的Enabled属性设为False,那么(A)。

A、文本框的文本将变成灰色，并且此时用户不能将光标置于文本框上。

B、文本框的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容。

C、文本框的文本将变成灰色，用户仍然能改变文本框中的内容。

D、文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容。

19、程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是(C)。

A、MouseDownB、MouseUp

C、LoadD、Click

20、图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是(B)。

A、AutosizeB、Stretch

C、AutoRedrawD、Appearance

21、为了防止用户随意将光标置于控件之上，应设置的属性是(D)。

A、将控件的Tabindex属性设置为0

B、将控件的TabStop属性设置为True

C、将控件的TabStop属性设置为False

D、将控件的Enabled属性设置为False

22、不管何控件，共同具有的是(B)属性。

A、TextB、Name

C、ForeColorD、Caption

23、以下关于窗体的描述中，错误的选项是(A)。

A、执行UnloadForml语句后，窗体Forml消失，但仍在内存中

B、窗体的Load事件在加载窗体时发生

C、当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止

D、窗体的Height、Width属性用于设置窗体的高和宽

24、当运行程序时，系统自动执行窗体的(A)事件过程。

A、LoadB、Click

C、UnloadD、GotFocus

25、窗体设计器是用来设计(B)。

A、应用程序的代码段B、应用程序的界面

C、对象的属性D、对象的事件

26、VisualBasic是一种面向对象的可视化程序设计语言，采取了(A)的编程机制。

A、事件驱动B、按过程顺序执行

C、从主程序开始执行D、按模块顺序执行

27、确定一个控件在窗体上的位置的属性是(D)。

A、Width或HeightB、Width和Height

C、Top或LeftD、Top和Left

28、如果要改变窗体的标题，那么需要设置的属性是(A)。

A、CaptionB、Name

C、BackColorD、BorderStyle

29、以下表达中错误的选项是(C)。

A、翻开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件

B、保存VisualBasic程序时，应分别保存窗体文件及工程文件

C、VisualBasic应用程序只能以解释方式执行

D、事件可以由用户引发，也可以由系统引发

30、以下表达中错误的选项是(B)。

A、双击鼠标可以触发DblClick事件

B、窗体或控件的事件的名称可以由编程人员确定

C、移动鼠标时，会触发MouseMove事件

D、控件的名称可以由编程人员设定

31、在VisualBasic中最根本的对象是(C)。它是应用程序的基石，是其他控件的容器。

A、文本框B、命令按钮

C、窗体D、标签

32、以下表达中正确的选项是(A)。

A、窗体的Name属性指定窗体的名称，用来标识一个窗体

B、窗体的Name属性的值是显示在窗体标题栏中的文本

C、可以在运行期间改变对象的Name属性的值

D、对象的Name属性值可以为空

33、在设计阶段，当双击窗体上的某个控件时，所翻开的窗口是(C)。

A、工程资源管理器窗口B、工具箱窗口

C、代码窗口D、属性窗口

34、VisualBasic是一种面向对象的可视化程序设计语言，采取了的编程机制是(A)。

A、事件驱动B、按过程顺序执行

C、从主程序开始执行D、按模块顺序执行

35、用来设置粗体字的属性是(C)。

A、FontltalicB、FontName

C、FontBoldD、FontSize

36、如果一个工程含有多个窗体及标准模块，那么以下表达中错误的选项是(A)。

A、如果工程中含有SubMain过程，那么程序一定首先执行该过程

B、不能把标准模块设置为启动模块

C、用Hide方法只是隐藏一个窗体，不能从内存中去除该窗体

D、任何时刻最多只有一个窗体是活动窗体

37、为了把焦点移到文本框，所使用的方法是(A)。

A、SetFocusB、Visible

C、RefreshD、GetFocus

38>INT(100*RND)产生的随机整数的闭区间是(A〕。

A、[0,99]B、[1,100]

C、[0,100]D、[1,99]

39、如果要在命令按钮上显示图形文件，应设置命令按钮的(B)。

A、Style属性和Graphics属性B、Style属性和Picture属性

C、Caption属性D、Graphics属性

40、假设要使命令按钮不可操作，要对(A)属性进行设制。

A、EnabledB、Visible

C、BackColorD、Caption

41、假定窗体的名称为Forml,那么把窗体的标题设置为"VB_Test"的语句为(B)。

A、Forml="VB_Test"B、Forml.Caption="VB_Test"

C、Forml,Text="VB_Test"D、F="VB_Test”

42、以下表达中错误的选项是(A)。

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

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

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

D、一个工程中可以含有多个标准模块文件

43、要使文本框获得输入焦点，那么应采用文本框控件的哪个方法(A)。

A、GotFocusB、LostFocus

C、KeyPressD、SetFocus

44、以下不能在“工程资源管理器〃窗口中列出的文件类型是(B)。

A、.basB、.resC、.frmD、.ocx

45、刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是(C)。

A、单项选择按钮B、图片框C、通用对话框D、文本框

46、以下表达中错误的选项是(B)。

A、双击鼠标可以触发DblClick事件

B、窗体或控件的事件的名称可以由编程人员确定

C、移动鼠标时，会触发MouseMove事件

D、控件的名称可以由编程人员设定

47、以下能够触发文本框Change事件的操作是(D)。

A、文本框失去焦点B、文本框获得焦点

C、设置文本框的焦点D、改变文本框的内容

48、以下表达中错误的选项是(C)。

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

B、窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体

C、窗体的Hide方法和Unload方法的作用完全相同

D、假设工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体

49、语句PrintAbs(-6八2)+Int(-6人2)的输出结果是(A)。

A、0B、1C,-1D、-72

50、如果将布尔常量值TRUE赋值给一个整型变量，那么整型变量的值为(B)。

A、0B、-1C、TRUED、FALSE

51、函数String(n,"str")的功能是(B)。

A、把数值型数据转换为字符串

B、返回由n个字符组成的字符串

C、从字符串中取出n个字符

D、从字符串中第n个字符的位置开始取子字符串

52、语句PrintFormat(“HelloWorld",)的输出结果是(C)。

A、helloWORLDB、helloworld

C、HELLOWORLDD、HELLOworld

53、声明符号常量应该用关键字(B)。

A、StaticB、ConstC、PrivateD、Variant

54、要强制显示声明变量，可在窗体模块或标准模块的声明段中参加语句(B)。

A、OptionBase0B、OptionExplicit

C、OptionBase1D>OptionCompare

55、以下可作为VisualBasic变量名的是(D)。

A、A#AB、4AC、?xyD、constA

56、设a=10,b=5,c=L执行语句Printa>b>c后，窗体上显示的是(B)。

A、TrueB、FalseC、1D、出错信息

57、执行x$=String(6,"124abc")后，x的值是(B)。

A、124abcB、111111C、124D,abc

58、设a=6,那么执行x=nf(a>5,-l,0)后,x的值为(D)

A、5B、6C、0D、-1

59、执行语句:c$="Glad"&Mid$(“Nicetomeetyou",5,3),那么变量c$的值为(C)。

A、NicetomeetyouB、GladNicetomeetyou

C、GladtoD、Glad

60、下面(D)是合法的字符常数。

A、ABCSB、"ABC"C>ABCD、ABC

61、对于语句Ifx=lTheny=l,以下说法正确的选项是(C)。

A、x=l和y=l均为赋值语句

B、x=l和y=l均为关系表达式

C、x=l为关系表达式，y=l为赋值语句

D、x=l为赋值语句，y=l为关系表达式

62、设有声明：DimXAsInteger,如果Sgn(X)的值为-1,那么X的值是(D)。

A、任何整数B、0C、等于0的整数D、小于0的数

63、在一行内写多条语句时，每个语句之间用(B)符号分隔。

A、，B、：C、、D、；

64、从键盘上输入两个字符串，分别保存在变量strl、str2中。确定第二个字符串在第一个字符串中起

始位置的函数是(D)。

A、LeftB、MidC、StringD、Instr

65、设$="中华人民共和国"，表达式Left(S,l)+Right(S,l)+Mid[S,3,2)的值为(B)

A、"中华民国"B、"中国人民"

C、“中共人民"D、"人民共和"

66、以下可作为VisualBasic中的变量名的是(A)。

A、FilenameB、A(A+B)C、254DD、Print

67、下面(A)是合法的变量名。

A、X_yzB、123abcC、IntegerD、X-Y

68、以下变量命名非法的是(C)o

A、xyzl23B、printaaC、booleanD、Bernald

69、设有变量声明:DimTestDateAsDate,为变量TestDate正确赋值的表达方式是(A)。

A、TextDate=#l/l/2002#

B、TestDate=#"1/1/2002”#

C、TextDate=date(“1/1/2002”)

D、TestDate=Format("m/d/yy"1/1/2002")

70、设a=2,b=3,c=4,d=5,表达式a>bANDc<=d的值是(B)。

A、TrueB、FalseC、-1D、1

71、表达式6*8Mod9的值是(B)。

A、4B、3C、6D、7

72、假设变量bool_x是一个布尔型(逻辑型)的变量，那么下面正确的赋值语句是(D)

A、bool_x=HFalseHB、bool_x=.False.

C、bool_x=#False#D>bool_x=False

73、设a="VisualBasic",下面使b="Basic"的语句是(B)。

A、b=Left(a,8,12)B、b=Mid(a,8,5)

C、b=Rigth(a,5,5)D、b=Left(a,8,5)

74、语句PrintFormat$(32548.5,"###,###.###〃)的输出结果是(B)。

A、32548.5B、32,548.5C、032,548.50D、32,548.50

75、以下声明语句中错误的选项是(D)。

A、Constvarl=123B、Dimvar2='ABC'

C、Dimx_y_z%D、Staticvar3AsInteger

76、可以同时删除字符串前导和尾部空白的函数是(C)。

A、LtrimB、RtrimC、TrimD、Mid

77、以下可为合法变量名的是(D)。

A、IntegerB、FalseC、publicD、thanksgiving

78、变量未赋值时，数值型变量的值为(A)。

A、0B、空C、1D、无任何值

79、表达式16/4-2八5*8/4Mod5\2的值为(B)。

A、14B、4C、20D、2

确的80、下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正语句是

(D)。

A、Ifsex="男"Andage<40And(duty="教授"Orduty="副教授")Thenn=n+l

B、Ifsex="男"Andage<40AndInStr(dutyJ教授")>0Thenn=n+l

C、Ifsex="男"Andage<40AndRight(duty,2)二"教授"Thenn=n+l

D、Ifsexm男"Andage<40Andduty="教授"Andduty="副教授"Thenn=n+l

81、设a=3,b=5,那么以下表达式值为真的是(B)。

A、a>=bAndb>10

B、(a>b)Or(b>0)

C、(a<0)or(b<0)

D、(-3+5>a)And(b>0)

82>执行语句a=InputBox(,,Today",nTomorrown,,,Yesterday',„,,,Daybeforeyesterday",5),将显示一个输入对

话框，在对话框的输入区中显示的信息是(A)。

A、Today

B、Tomorrow

C、Yesterday

D、DaybeforeYesterday

83、VB提供了结构化程序设计的3种根本结构，这3种根本结构是(B)。

A、递归结构，分支结构，循环结构

B、选择结构，过程结构，顺序结构

C、过程结构，输入、输出结构，转向结构

D、分支结构，循环结构，顺序结构

84、下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是

(D)o

A、Ifsex="男"Andage<40AndInStr(duty,“教授〃)>0Thenn=n+l

B、Ifsex="男"Andage<40And(duty="教授〃Orduty="副教授〃)Thenn=n+l

C、Ifsex="男〃Andage<40AndRight(duty,2)="教授〃Thenn=n+l

D、Ifsex="男"Andage<40Andduty="教授"Andduty="副教授〃Thenn=n+l

85、当语句w=nf(4>10,〃Red〃，“Green")执行后，变量w中的值是(Ch

A、Null

B、“Red〃

C、“Green"

D、-1

86、赋值语句：a=123+MID(“123456”32)执行后,a变量中的值是(D)。

A、“12334”

B、123

C、12334

D、157

87、设有语句x=InputBox("AAAA〃，“BBBB〃，“〃)，程序运行后，所产生的对话框的标题应为(C)。

A、AAAA

B、空

C、BBBB

D、出错，不能产生对话框

88、下面正确的赋值语句是(C)o

A、x+y=30

B、y=兀*r*r

C、y=x+30

D、3y=x

89、VB提供了结构化程序设计的三种根本结构，三种根本结构是(D)。

A、递归结构、选择结构、循环结构

B、选择结构、过程结构、顺序结构

C、过程结构、输入输出结构、转向结构

D、选择结构、循环结构、顺序结构

90、下面程序段求两个数中的大数，不正确的选项是［D)。

A、Max=IIf(x>y,x,y)

B、Ifx>yThenMax=xElseMax=y

C、Max=x：Ify>=xThenMax=y

D、Ify>xThenMax=y：Max=x

91>以下程序段：DimxIfxThenPrintxElsePrintx+1运行后，显示的结果是(A〕。

A、1

B、0

C、-1

D、出错

92、以下不属于vb的三种根本结构的是(C)?

A、顺序结构

B、选择结构

C、递归结构

D、循环结构

93、语句Ifx=lTheny=l,以下说法正确的选项是(C)。

A、x=l和y=l均为赋值语句

B、x=l和y=l均为关系表达式

C、x=l为关系表达式，y=l为赋值语句

D、x=l为赋值语句，y=l为关系表达式

94、赋值语句：a=123&MID(“123456”，3,2)执行后,a变量中的值是(Ch

A、“12334”

B、123

C、12334

D、157

95、下面程序段显示的结果是(A)。

Dimx

x=Int(Rnd)+5

SelectCasex

Case5

“优秀〃

Case4

Printu良好“

Case3

Print"通过〃

CaseElse

Print“不通过〃

EndSelect

A、优秀

B、良好

C、通过

D、不通过

96、为了给x,y,z这3个变量赋初值1,下面正确的赋值语句是(A)。

A、x=l：y=l：z=l

B、x=l,y=l,z=l

C、x=y=z=l

D、xyz=l

97、以下语句正确的选项是(C)

A、IfA#BThenPrint"A不等于B"

B、IfAoBThenPrintfA不等于B

C、IfAoBThenPrint”A不等于B”

D、IfA#BPrint"A不等于B"

98、设有语句x$=InputBox("输入数值〃，“0"，"例如")，程序运行后，如果从键盘上输入数值10并按

回车键，那么以下表达中正确的选项是(D)。

A、变量X的值是数值10

B、在InputBox对话框标题栏中显示的是“例如”

C、0是默认值

D、变量X的值是字符串“10”

99、运行以下程序段后，显示的结果为CB)Jl=4:J2=9IfJ1<J2ThenPrintJ2ElsePrintJI

A、4

B、9

C、13

D、49

100、InputBox函数返回值的类型为(B)。

A、数值

B、字符串

C、变体

D、数值或字符串(视输入的数据而定)

101>一个数组说明为Dima(0to5,1to5)AsInteger,那么该数组共有(C)个元素。

A、25

B、36

C、30

D、不确定

102、数组声明语句Dima(2to3,-2to2,3to5)中，数组a包含元素的个数为(C)。

A、120

B、75

C、30

D、13

103>如果在上题语句前参加OptionBasel,那么该数组共有(D)个元素。

A、15

B、16

C、13

D、不确定

104、如果有声明Dima(15)AsInteger,那么该数组共有(B)个元素。

A、15

B、16

C、13

D、不确定

105>一个数组说明为Dima(5,1to5)AsInteger,那么该数组共有(C)个元素。

A、25

B、36

C、30

D、不确定

106、在VB中，默认的数组下标的下界从0开始，要想在通用声明段界定下界，那么应使用[A)。

A、OptionBase

B、OptionExplicit

C、Explicit

D、LowBase

107、如下数组声明语句，正确的选项是(B)。

A、Dima[3,4]asInteger

B、Dima(3,4)asInteger

C、Dima(n,n)asInteger

D、Dima[3][4)asInteger

108、赋给一个数组的数据的值的类型一定要(A)。

A、相同

B、不相同

C、两可

D、都不对

109、数组的下标可取的变量类型是(A)。

A、数值型

B、字符型

C、日期型

D、可变型

110、数组声明语句Dima(Oto3,-2to2,0to5)中，数组a包含元素的个数为(A)。

A、120

B、75

C、60

D、13

111>假定有如下的Sub过程：SubS(xAsSingle,yAsSingle)t=xx=t/yy=tModyEndSub在窗体

上添加一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimaAsSingleDimbAs

Singlea=5:b=4Sa,bPrinta,bEndSub程序运行时，单击命令按钮得到的结果(D)。

A、54

B、11

C、1.254

D、1.251

112、用以下方式声明的变量，(B)可以在整个程序中通用？

A、在窗体模块用Dim进行声明

B、在窗体模块用Public进行声明

C、在窗体模块用Private进行声明

D、在窗体模块用Static进行声明

113>在窗体上添加一个命令按钮和三个标签，编写事件过程：PrivatexAsIntegerPrivateSub

Command1_Click()StaticyAsIntegerDimzAsIntegerN=10:z=N+z:y=y+z:x=x+zLabel1.Caption=x

Label2.Caption=yLabel3.Caption=zEndSub程序运行后,连续三次单击命令按钮，那么三个标签中显

示的内容分别是(A〕。

A、101010

B、303030

C、303010

D、103030

114、以下表达中错误的选项是(D)。

A、如果过程被定义为Static类型，那么该过程中的局部变量都是Static类型

B、Sub过程中不能嵌套定义Sub过程

C、Sub过程中可以嵌套调用Sub过程

D、事件过程可以像通用过程一样由用户定义过程名

115、在在窗体上添加一个命令按钮Commandl和一个文本框Textl,然后编写如下事件过程：

PrivateSubCommand1_Click()

DimxAsInteger,yAsInteger,zAsInteger

x=5

y=7

z=0

Textl.Text=n"

Callpl(x,y,z)

Text1.Text=Str(z)

EndSubPrivateSubpl(ByVaiaAsInteger,ByVaibAsInteger,cAsInteger)

c=a+b

EndSub

程序运行后，单击命令按钮得到的结果是［A)。

A、12

B、0

C、Str(z)

D、没有显示结果

116、如果在程序中要将a定义为静态变量，且为整型数，那么应使用的语句是：(B)

A、RedimaAsInteger

B、StaticaAsInteger

C、PublicaAsInteger

D、DimaAsInteger

117、以下程序的运行结果是［C)

Subsl(b()AsInteger)

Fori=1To4

b(i)=2*i

Nexti

EndSub

PrivateSubCommand1_Click()

Dima(lTo4)AsInteger

Fori=1To4

a(i)=i+5

Nexti

sia()

Fori=1To4

Printa(i)

Nexti

EndSub

A、12141618

B、6789

C、2468

D、1234

118>以下程序的运行结果是ID)。Functionf(mAsInteger)AsIntegerb=1StaticcAsIntegerb=b+1c

=c+lf=m*b*cEndFunctionPrivateSubCommand1_Click()DimaAsIntegera=2Sum=0Fori=1

To3Sum=Sum+f(a)NextiPrintSumEndSub

A、12

B、28

C、32

D、24

119、以下程序输出结果9)。

PrivateSubCommand1_Click()

Fori=1To10

GetValuei

Nexti

PrintGetValue(i)

EndSub

PrivateFunctionGetValue(ByVaiaAsInteger)StaticSAsIntegerS=S+a

GetValue=S

EndFunction

A、10

B、65

C、66

D、11

120、在过程定义的变量，假设希望在离开该过程后，还能保存过程中局部变量的值，那么应使用(D)关

键字在过程中定义局部变量。

A、Dim

B、Private

C、Public

D、Static

121、在过程定义中用(C)表示形参的传值。

A、Var

B、ByDef

C、ByVai

D、Value

122>在在窗体上添加一个命令按钮Command1和两个名称分别为Labell和Label2的标签，然后编写

如下事件过程：PrivateXAsIntegerPrivateSubCommandl_Click()X=5:y=3Call

proc(X,y)Labell.Caption=XLabel2.Caption=yEndSubSubproc(ByValaAsInteger,ByVaib

AsInteger)X=a*ay=b+bEndSub程序运行后，单击命令按钮，那么两个标签labell和label2中显

示的内容分别是(B)。

A、25,3

B、25,6

C、5,3

D、5,6

123>以下程序的运行结果是(C)oDimxAsInteger,yAsInteger,zAsIntegerSubsi(aAsInteger,bAs

Integer)

DimcAsInteger

a=2*ab=b+2c=a+b

EndSub

Subs2(aAsInteger,ByVaibAsInteger)

DimcAsInteger

a=2*a

b=b+2

c=a+b

EndSub

PrivateSubCommand1_Click()

x=4：y=：4z=6

Callsl(x,y)

Printx+y+z

Calls2(x,y)

Printx+y+z

EndSub

A、2428

B、2028

C、2018

D、2020

124、以下关于过程及过程参数的描述中，错误的选项是(C)。

A、过程的参数可以是控件名称

B、用数组作为过程的参数时，使用的是“传地址”方式

C、只有函数过程能够将过程中处理的信息传回到调用的程序中

D、窗体可以作为过程的参数

125、以下属于VisualBasic合法的数组元素是(C)

A、x8

B、x[8]

C、s(0)

D、v[8]

126、以下表达中正确的选项是(C)。

A、在窗体的Form_Load事件过程中定义的变量是全局变量

B、局部变量的作用域可以超出所定义的过程

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

该过程

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

127、假定有以下函数过程：FunctionFun(SAsString)AsStringDimsiAsStringFori=1ToLen(S)si=

UCase(Mid(S,i,1))+siNextiFun=siEndFunction在窗体上添加一个命令按钮，然后编写如下事件过

程：PrivateSubCommand1_Click()DimstrlAsString,str2AsStringstrl=InputBox("请输

入一个字符串")str2=Fun(strl)Printstr2EndSub程序运行后，单击命令按钮，如果在输

入对话框中输入字符串“abcdefg〃，单击“确定”按钮后程序在窗体上输出结果[D)。

A、abcdefg

B、gfedcba

C、GFEDCBA

D、ABCDEFG

128、假设已编写了一个Sort子过程，在该工程中有多个窗体，为了方便的调用Sort子过程，应该将该

过程放在(B)。

A、窗体模块

B、标准模块

C、类模块

D、工程

129、下面子过程语句说明合法的是[D)

A、Subfl(ByVain()AsInteger)

B、Functionfl(flAsInteger)AsInteger

C、Subfl(n()AsInteger)AsInteger

D、Functionfl(ByVainAsInteger)AsInteger

130、在过程定义的变量，假设希望在离开该过程后，还能保存过程中局部变量的值，那么应使用(D)关

键字在过程中定义局部变量。

A、Dim

B、Private

C、Public

D、Static

131、在窗体上画三个单项选择按钮，组成一个名为chkOption的控件数组。用于标识各个控件数组元素

的参数是(D)。

A、Tag

B、Index

C、Listindex

D、Name

132、假设列表框(Listl)有四个数据项，那么把数据项“China"添加到列表框的最后，应使用(D)语

句。

A、Listl.Additem3,"China"

B、Listl.Additem"China",Listl.ListlCount-1

C、Listl.Additem"China",3

D、Listl.Additem"China"

133、如果列表框(Listl)中没有被选定的工程，那么执行Listl.RemoveltemListl.Listlndex语句的结果

是(D)。

A、移去第一项

B、移去最后一项

C、移去最后参加列表的一项

D、以上都不对

134、以下表达中错误的选项是(C)。

A、在KeyUp和KeyDown事件过程中，从键盘上输入A或a被视作相同的字母(即具有相同的KeyCode)

B、在KeyUp和KeyDown事件过程中，将键盘上的“1”和右侧小键盘上的“1”视作不同的数字(具有

不同的KeyCode)

C、KeyPress事件中不能识别键盘上某个键的按下与释放

D、KeyPress事件中可以识别键盘上某个键的按下与释放

135、设组合框Combol中有3个工程，那么以下能删除最后一项的语句是(B)。

A、Combo1.RemoveitemText

B、Combo1.Removeitem2

C、Combo1.Removeitem3

D、Combo1.RemoveitemCombo1.Listcount

136、以下控件中，没有Caption属性的是(B)。

A、框架

B、列表框

C、复选框

D、单项选择按钮

137、引用列表框［Listl)最后一个数据项应使用的表达式是(C)

A、Listl.List(Listl.ListCount)

B、List1.List(ListCount)

C、List1.List(Listl.ListCount-1)

D、Listl.List(ListCount-1)

138、窗体的MouseDown事件过程Form_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAs

Single)有4个参数，关于这些参数，正确的描述是(A)。

A、通过Button参数判定当前按下的是哪一个鼠标键

B、Shift参数只能用来确定是否按下Shift键

C、Shift参数只能用来确定是否按下Alt和Ctrl键

D、参数x,y用来设置鼠标当前位置的坐标

139、复选框的Value属性为1时，表示(B)。

A、复选框未被选中

B、复选框被选中

C、复选框内有灰色的勾

D、复选框操作有错误。

140、引用列表框的最后一项应使用(A)。

A、Listl.List(Listl.ListCount-1)

B、Listl.List(Listl.ListCount)

C、List1.List(ListCount)

D、Listl.List(ListCount-1)

141、设窗体上有一个列表框控件Listl,且其中含有假设干列表项。那么以下能表示当前被选中的列表

项内容的是(D)。

A、Listl.List

B、Listl.Listindex

C、Listl.Index

D、Listl.Text

142、表示滚动条控件取值范围最大值的属性是(A)。

A、Max

B、LargeChange

C、Value

D、Max-Min

143、为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为

True,这个属性是(D)。

A、Value

B、Default

C、Cancel

D、Enabled

144、假设列表框〔Listl)有四个数据项，那么把数据项“China”添加到列表框的最后，应使用语句(D)。

A、Listl.Additem3,nChinan

B、Listl.Additem"China",Listl.ListlCount-1

C、Listl.Additem"China”,3

D、Listl.Additem"China",Listl.ListlCount

145、复选框的Value属性为2时，表示(C)。

A、复选框未被选中

B、复选框被选中

C、复选框内有灰色的勾

D、复选框操作有错误。

146、为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True,

这个属性是(A)。

A、Value

B、Default

C、Cancel

D、Caption

147、下面说法不正确的选项是［D)?

A、层菜单不允许设置快捷键

B、使菜单项中的文字具有下画线，可在标题文字前加&符号

C、一菜单项名为MenuTerm,那么语句MenuTerm.Enable=Flase将使该菜单项失效

D、希望在菜单中显示"&"符号，那么在标题栏中输入符号

148、以下表达中错误的选项是(C)。

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

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

C、调用通用对话框控件的ShowOpen方法，可以直接翻开在该通用对话框中指定的文件

D、调用通用对话框控件的ShowColor方法，可以翻开颜色对话框

149、菜单编辑器中，输入哪一个选项(A)会在菜单栏上显示文本

A、标题

B、名称

C、索引

D、访问键

150、菜单控件只有一个事件(B)

A、MouseUp

B、Click

C、DBClick

D、KeyPress

151、在用通用对话框控件建立“翻开〃或“保存〃文件对话框时，如果需要指定文件列表框所列出的

文件类型是文本文件(即.txt文件)，那么正确的描述格式是(A)。

A、“text(.txt)|(*.txt)”

B、“文本文件(.txt)|(.txt)〃

C、“text(.txt)||(*.txt)”

D、“text(.txt)(*.txt)〃

152、下面哪个属性可以控制菜单项可见或不可见(C)

A、Hide

B、Checked

C、Visible

D、Enabled

153、下面说法不正确的选项是ID)

A、层菜单不允许设置快捷键

B、使菜单项中的文字具有下画线，可在标题文字前加&符号。

C、一菜单项名为MenuTerm,那么语句MenuTerm.Enabled=Flase将使该菜单项失效。

D、希望在菜单中显示“&〃符号，那么在标题栏中输入“&〃符号。

154、下面哪个属性可以控制菜单项可见或不可见(C)?

A、Hide

B、Checked

C、Visible

D、Enabled

155、改变驱动器列表框的Drive属性将激活(A)事件。

A、Change

B、Scroll

C、KeyDown

D、KeyUp

156、在窗体上建立通用对话框需要添加的控件是(C〕

A、Data控件

B、Form控件

C、CommonDialog控件

D、VBComboBox控件

157、下面几个关键字均表示文件的翻开方式，只能进行读不能写的是(A)。

A、Input

B、Output

C、Random

D、Append

158、为建一个随机文件，其中每一条记录由多个不同数据类型的数据项组成，应使用［A)。

A、记录类型

B、数组

C、字符串类型

D、变体类型

159、以下说法错误的选项是(B)。

A、当用Write#语句写顺序文件时,文件必须以Output或Append方式翻开

B、用Open语句翻开一个文件时，对同一个文件可以用几个不同的文件号翻开

C、用Output和Append方式翻开文件时，不用将文件关闭，就能重新翻开文件

D、用Append方式翻开文件时，进行写操作，写入文件的数据附加到原来文件的后面

160>执行语句Open"Sample.dat"ForRandomAs#1Len=50后，对文件"Sample.dat"中的数据能够进行

的操作是(C)。

A、只能写不能读

B、只能读不能写

C、即可以读，也可以写

D、不能读，也不能写

b下面程序对数组a,删除数组中数组元素中某个元素

PrivateSubCommandl_Click()

Dima(),key%,i%,j%

a=Array(l,6,8,3,5,9,10,2,7,4)

key=ValQnputBox("输入要删除的值"))

Fori=0ToUBound(a)

Ifkey=a(i)Then

Forj=i+1ToUBound(a)

a(j-1)=a(j)

Nextj

ReDimPreservea(UBound(a)-1)

MsgBox("删除完成")

ExitSub

EndIf

Nexti

MsgBox("找不到要删除的元素")

EndSub

2,以下程序表示将输入的一个数插入到按递减的有序数列中，插入后使该序列仍有序

PrivateSubForm_Click()

Dima,i%,n%,m%

a=Array(19,17,15,13,11,9,7,5,3,1)

n=UBound(a)

ReDimPreservea(n+1)

m=ValQnputBox("输入欲插入的数”))

Fori=UBound(a)-1To0Step-1

Ifm>=a(i)Then

a(i+1)=a(i)

Ifi=0Thena(i)=m

Else

a(i+1)=m

ExitFor

EndIf

Nexti

Fori=0ToUBound(a)

Printa(i)

Nexti

EndSub

3,以下程序在1000〜9999之间查找满足如下条件的整数：该整数，逆向排列得到的

另一个四位数是它自身的倍数(2倍以上)。查找结果和逆向排列数分别显示在对应

的列表框

PrivateSubCommand1_Click()

DimnAsInteger

DimmAsInteger

DimiAsInteger

Fori=1000To9999

m=0

n=i

DoWhilen>0

m=m*10+nMod10

n=n\10

Loop

IfmModi=0Andm\i>1Then

list1.Additemi

list2.AddItemm&”二"&i&&m\i

EndIf

Nexti

EndSub

4,将100〜150之间的偶数，拆分成两个素数之和，最后输出格式如图。其中，prime函数判断

参数x是否为质数

PrivateFunctionprime(ByValxAsInteger)AsBoolean

prime=ture

Fori=2ToSqr(x)

IfxModi=0Then

prime=False

ExitFunction

EndIf

Nexti

EndFunction

PrivateSubForm_Load()

i=1

Forn=100To150

Fork=3Ton/2

Ifprime(k)Andprime(n-k)Then

Printi;k;"+";n-k

ExitFor

EndIf

Nextk

i=i+1

Nextn

EndSub

10,

子过程F[N,M,T)对一个四位数n整整数判断：该整数n,逆向排列获得另一个4位数m是特自身

的倍数，那么t为true

表示满足上述条件。。。

PrivateSubCommand1_Click()

DimtAsBoolean,i%,k%

textl二””

text2=

Fori=1000To9999

Callf(i,k,t)

IftThen

textl=textl&i&vbCrLf

text2=text2&k&&i&&k\i&vbCrLf

EndIf

Nexti

EndSub

Subf(ByValn%,ByRefm%,byreyftagAsBoolean)

Dimi%

Tag=False

m=0

i=n

DoWhilei>0

m=m*10+iMod10

i=i\10

Loop

IfmModn=0Andm\n>1Then

Tag=True

EndIf

EndSub

6.8.子过程MoveStrU是把字符组移动m个位置，

当Tag为Ture是左移，那么前m个字符一道字符数组尾

，例如，“abcdefghij”左移3个位置后，结果为

“defghijabc”；。。。。。

PublicSubMoveStr(a$(),m%,TagAsBoolean)

Dimi%,j%,t$

IfTagThen

Fori=1Tom

c=a(0)

Forj=0ToUBound(a)-1

a(j)=a(j+1)

Nextj

a(UBound(a))-1

Nexti

Else

Fori=1Tom

c=a(UBound(a))

Forj=UBound(a)To1Step-1

a(j)=a(j-1)

Nextj

a(0)=c

Nexti

EndIf

EndSub

69子过程CountN用来统计字符串中各数字

字符［0-9)出现的个数；主调程序对在textboxl

框输入的文本，每次单击“统计”按钮，调用该子

过程，在Labell框显示结果。

PrivateSubCommand1_Click()

Dimn(9)AsInteger,i%

CallCountN(n(),text1.Text)

list1.Clear

Fori=0To9

Ifn(i)Thenlistl.Additem”字符“&i&”出现的次数为“&n(i)

Next

EndSub

SubCountN(ByRefnum%(),ByVaisAsString)

DimcAsString*1,i%,m%,j%

Fori=0To9

num(i)=0

Nexti

m=Len(s)

Fori=1Tom

c=Mid(s,i,1)

Ifc>="0"Andc<=n9nThen

j=Val(c)

num(j)=num(j)+1

EndIf

Nexti

EndSub

6.11.以下程序中的子过程myplit。。用于实现split函数的功能，即将数字字符

s鞍分隔符“，"别离到sArry数组中，别离的个数为n。。。。

PrivateSubTextl_KeyPress(KeyAsciiAsInteger)

DimstrlAsString,num(100)AsInteger,n%,i%

IfKeyAscii=13