2024年vb期末考试题库

VB复习备考題壹、單项选择題

1、与老式的程序设计語言相比,VisualBasic最突出的特點是（C）。

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、如下能在窗体Form1的標題栏中显示"VisualBasic窗体"的語句是（C）。

A、Form1.Name="VisualBasic窗体"

B、Form1.Title="VisualBasic窗体"

C、Form1.Caption="VisualBasic窗体"

D、Form1.Text="VisualBasic窗体"

5、為了装入壹种VisualBasic应用程序，应當（D）

A、只装入窗体文献（.frm）

B、只装入工程文献（.vbp）

C、分别装入工程文献和原则模块文献（.bas）

D、分别装入工程文献、窗体文献和原则模块文献

6、赋給壹种数组的数据类型壹定要（A）。

A、相似B、不相似C、两可D、都不對

7、下面對的的赋值語句是（C）。

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

8、VisualBasic6.0集成环境的主窗口中不包括（C）。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、壹种工程默认的启動對象是Form1

13、Cls措施可以清除窗体或图片框中的(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、假如文本框的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、执行UnloadForm1語句後，窗体Form1消失，但仍在内存中

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、FontItalicB、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、假定窗体的名称為Form1,则把窗体的標題设置為“VB_Test”的語句為(B)。

A、Form1=“VB_Test”B、Form1.Caption=“VB_Test”

C、Form1.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=1，执行語句Printa>b>c後，窗体上显示的是(B)。

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

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

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

58、设a=6，则执行x=IIf(a>5,-1,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、ABC$B、"ABC"C、'ABC'D、ABC

61、對于語句Ifx=1Theny=1，下列說法對的的是（C）。

A、x=1和y=1均為赋值語句

B、x=1和y=1均為关系体現式

C、x=1為关系体現式，y=1為赋值語句

D、x=1為赋值語句，y=1為关系体現式

62、设有申明：DimXAsInteger,假如Sgn(X)的值為-1，则X的值是(D)。

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

63、在壹行内写多条語句時，每個語句之间用(B)符号分隔。

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

64、從键盘上输入两個字符串，分别保留在变量str1、str2中。确定第二個字符串在第壹种字符串中起始位置的函数是(D)。

A、LeftB、MidC、StringD、Instr

65、设S="中华人民共和国"，体現式Left（S,1）+Right（S,1）+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）。

A、xyz123B、printaaC、booleanD、Bernald

69、设有变量申明:DimTestDateAsDate,為变量TestDate對的赋值的体現方式是(A)。

A、TextDate=#1/1/#

B、TestDate=#“1/1/”#

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

D、TestDate=Format(“m/d/yy”,“1/1/”)

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="False"B、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、如下申明語句中錯误的是(B)。

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

C、Dimx_y_z%D、Staticvar3AsInteger

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

A、LtrimB、RtrimC、TrimD、Mid

77、下列可為合法变量名的是(D)。

A、Integer

B、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+1

B、Ifsex="男"Andage＜40AndInStr(duty,"专家")＞0

Thenn=n+1

C、Ifsex="男"Andage＜40AndRight(duty,2)="专家"

Thenn=n+1

D、Ifsex="男"Andage＜40Andduty="专家"Andduty="副专家"Thenn=n+1

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","Tomorrow","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）。

A、Ifsex=“男”Andage＜40AndInStr(duty,“专家”)＞0

Thenn=n+1

B、Ifsex=“男”Andage＜40And(duty=“专家”Orduty=“副专家”)

Thenn=n+1

C、Ifsex=“男”Andage＜40AndRight(duty,2)=“专家”

Thenn=n+1

D、Ifsex=“男”Andage＜40Andduty=“专家”Andduty=“副专家”Thenn=n+1

85、當語句w=IIf(4>10,”Red”,“Green”)执行後，变量w中的值是（C）。

A、Null

B、“Red”

C、“Green”

D、-1

86、赋值語句：a=123+MID(“123456”,3,2)执行後，a变量中的值是（D）。

A、“12334”

B、123

C、12334

D、157

87、设有語句x=InputBox(“AAAA”，“BBBB”，“”),程序运行後，所产生的對话框的標題应為(C)。

A、AAAA

B、空

C、BBBB

D、出錯，不能产生對话框

88、下面對的的赋值語句是（C）。

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：If

y＞=xThenMax=y

D、Ify＞xThenMax=y：Max=x

91、下列程序段：Dim

xIf

x

Then

Printx

Else

Printx+1运行後，显示的成果是（A）。

A、1

B、0

C、-1

D、出錯

92、如下不属于vb的三种基本构造的是（C）？

A、次序构造

B、选择构造

C、递归构造

D、循环构造

93、語句Ifx=1Theny=1,下列說法對的的是（C）。

A、x=1和y=1均為赋值語句

B、x=1和y=1均為关系体現式

C、x=1為关系体現式，y=1為赋值語句

D、x=1為赋值語句，y=1為关系体現式

94、赋值語句：a=123&MID(“123456”,3,2)执行後，a变量中的值是（C）。

A、“12334”

B、123

C、12334

D、157

95、下面程序段显示的成果是（A）。

Dimx

x=Int(Rnd)+5

SelectCase

x

Case5

“优秀”

Case4

Print“良好”

Case3

Print“通過”

CaseElse

Print“不通過”

EndSelect

A、优秀

B、良好

C、通過

D、不通過

96、為了給x,y,z這3個变量赋初值1，下面對的的赋值語句是（A）。

A、x=1：y=1：z=1

B、x=1,y=1,z=1

C、x=y=z=1

D、xyz=1

97、下列語句對的的是（C）

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

B、IfA<>BThenPrintfA不等于B

C、IfA<>BThenPrint"A不等于B"

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

98、设有語句x$=InputBox(“输入数值”，“0”，“示例”),程序运行後，假如從键盘上输入数值10并按回車键，则下列论述中對的的是(D)。

A、变量X的值是数值10

B、在InputBox對话框標題栏中显示的是“示例”

C、0是默认值

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

99、运行下列程序段後，显示的成果為（

B）J1=4:J2=9IfJ1<J2ThenPrintJ2ElsePrintJ1

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,-2

to2,3to5)中，数组a包括元素的個数為(C)。

A、120

B、75

C、30

D、13

103、假如在上題語句前加入OptionBase1，则该数组共有（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、Dim

a[3,4]

as

Integer

B、Dim

a(3,

4)

as

Integer

C、Dim

a(n,n)

as

Integer

D、Dim

a[3][4)

as

Integer

108、赋給壹种数组的数据的值的类型壹定要（

A）。

A、相似

B、不相似

C、两可

D、都不對

109、数组的下標可取的变量类型是（A）。

A、数值型

B、字符型

C、曰期型

D、可变型

110、数组申明語句Dima(0to3,-2

to2,0to5)中，数组a包括元素的個数為(A)。

A、120

B、75

C、60

D、13

111、假定有如下的Sub過程：SubS(xAsSingle,yAsSingle)t=xx=t/yy=tModyEndSub在窗体上添加壹种命令按钮，然後编写如下事件過程：PrivateSubCommand1_Click()DimaAsSingleDimbAsSinglea=5:b=4Sa,bPrinta,bEndSub程序运行時，單击命令按钮得到的成果（D）。

A、5

4

B、1

1

C、1.25

4

D、1.25

1

112、用如下方式申明的变量，（B）可以在整個程序中通用？

A、在窗体模块用Dim進行申明

B、在窗体模块用Public進行申明

C、在窗体模块用Private進行申明

D、在窗体模块用Static進行申明

113、在窗体上添加壹种命令按钮和三個標签，编写事件過程：PrivatexAsIntegerPrivateSubCommand1_Click()StaticyAsIntegerDimzAsIntegerN=10:z=N+z:y=y+z:x=x+zLabel1.Caption=xLabel2.Caption=yLabel3.Caption=zEndSub程序运行後，持续三次單击命令按钮，则三個標签中显示的内容分别是（A）。

A、10

10

10

B、30

30

30

C、30

30

10

D、10

30

30

114、如下论述中錯误的是(D)。

A、假如過程被定义為Static类型，则该過程中的局部变量都是Static类型

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

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

D、事件過程可以像通用過程同样由顾客定义過程名

115、在在窗体上添加壹种命令按钮Command1和壹种文本框Text1，然後编写如下事件過程：

PrivateSubCommand1_Click()

DimxAsInteger,yAsInteger,zAsInteger

x=5

y=7

z=0

Text1.Text=""

Callp1(x,y,z)

Text1.Text=Str(z)

EndSubPrivateSubp1(ByValaAsInteger,ByValbAsInteger,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）

Subs1(b()AsInteger)

Fori=1To4

b(i)=2*i

Nexti

EndSub

PrivateSubCommand1_Click()

Dima(1To4)AsInteger

Fori=1To4

a(i)=i+5

Nexti

s1a()

Fori=1To4

Printa(i)

Nexti

EndSub

A、12

14

16

18

B、6

7

8

9

C、2

4

6

8

D、1

2

3

4

118、如下程序的运行成果是（

D）。Functionf(mAsInteger)AsIntegerb=1StaticcAsIntegerb=b+1c=c+1f=m*b*cEndFunctionPrivateSubCommand1_Click()DimaAsIntegera=2Sum=0Fori=1To3Sum=Sum+f(a)NextiPrintSumEndSub

A、12

B、28

C、32

D、24

119、下列程序输出成果（C

）。

PrivateSubCommand1_Click()

Fori=1To10

GetValuei

Nexti

PrintGetValue(i)

EndSub

PrivateFunctionGetValue(ByValaAsInteger)StaticSAsIntegerS=S+a

GetValue=S

EndFunction

A、10

B、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、下面說法不對的的是（D）

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、不能讀，也不能写

四、编程題

1、求100以内的素数。

2、從键盘输入任意長度的字符串，规定将字符次序倒置，例如，将输入的“ABCDEFG”变换成“GFEDCBA”。

3、计算0~200之间所有能被11或5整除的数之和

4、输入壹年份，判断它与否為闰年，并显示有关信息。（判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除）

5、已知x,y,z3個变量中寄存了3個不壹样的数，比较它們的大小并進行调整，使得x<y<z。

6、求s=a+aa+aaa+...aaaaa（n個a），其中a和n的值随机产生，a的范围是[1,9]的整数，n的范围是[5,10]。如a=3,n=6,则s=3+33+333+3333+33333+333333。编程确定n和a的值，并计算s。

7、计算100~300之间所有能被3和7整除的数之和。

8、编程求200--400范围内5的倍数或7的倍数之和。(壹种数假如同步是7和5的倍数，则只能加壹次。)

9、找出被3、5、7除，余数為1的最小的5個正整数。

10、某次歌曲大奖赛，有7個评委。假如分别输入7個评委對某個参赛者的打分数，按照去掉壹种最高分和壹种最低分的计算措施，求出该参赛者的平均得分。

11、编程显示100~500之间所有的水仙花数之和。(水仙花数是3位数，其各位数之和等于该数自身)

12、随机产生壹种三位正整数，然後逆序输出，产生的数与逆序数同步显示。例如，产生246，输出是642。

13、從键盘输入三角形的三条边a，b，c的值，根据其数值，判断能否构成三角形。

14、已知数组a()，编程删除a中第5個元素。数组a中的元素分别為{12，6，4，89，75，63，100，20，31}。

15、随机生成壹种整型的二维数组，范围在[10,20]之间，以上三角形式输出该数组。

16、运用随机函数生成壹种4×4的矩阵(即二维矩阵),范围是[20,50]内的整数,输出每行中的最大值和下標。

17、运用随机函数生成壹种4×4的矩阵(即二维矩阵),范围是[40,80]内的整数，求它的最大值及所對应的下標。

18、输入壹系列字符串，编程求出長度最大的字符串并输出其所對应的次序。

19、运用随机函数生成壹种4×4的矩阵(即二维矩阵),范围是[20,50]内的整数,输出该矩阵所有数据之和

20、输入壹系列字符串，将字符串按递減次序排列。請编程实現。

21、随机产生10個[30,100]内的整数，求最大值、最小值和平均值。

22、定义三個4×4的二维数组A,B,C，A和B中的元素均随机生成，数组A的范围是1～20，数组B的范围是100～200，数组C是A和B相乘得到的。請编程生成并输出A,B,C。

23、随机产生15個小写字母，放在字符数组中。提醒：c=chr(int(rnd*26+97))

24、随机产生10個[30,100]内的整数，求最大值及所對应的下標。

25、定义三個4×4的二维数组A,B,C，A和B中的元素均随机生成，数组A的范围是1～20，数组B的范围是100～200，数组C是A和B相加得到的。請编程生成并输出A,B,C。

26、运用随机函数生成壹种4×4的矩阵(即二维矩阵),范围是[20,50]内的整数，求它的两条對角线上元素之和。

27、运用随机函数生成壹种4×4的矩阵(即二维矩阵),范围是[40,80]内的整数，求它的最小值及所對应的下標。

28、随机生成壹种整型的二维数组，范围在[10,20]之间，如下三角形式输出该数组。

29、有10個评委對歌手進行打分（分数寄存在A数组中）规定编程计算歌手平均得分（按去掉壹种最高分和壹种最低分的计算措施计算）。a=Array(98,97,95,91,90,99,93,94,93,96)

30、编程输出n行杨辉三角图形，n由键盘输入。

31、申明壹种整型的二维数组a(1to4,1to4)，用随机函数产生各元素，范围介于[1,20]之间，编程将第1行和第3行對应元素互换。

32、随机产生15個大写字母，放在字符数组中。提醒：c=chr(int(rnd*26+65))

33、编写壹种過程计算并输出区间[100，1000]内所有素数的和(规定判断素数使用過程（函数或子過程）来实現。调用该過程。(提醒：只能被1和自身整除的自然数称為素数。)

34、随机产生10個1~100的正整数放入数组，显示产生的数，求最大值、最小值、平均值。

35、已知壹维数组a()中的元素已排序，分别為{12，15，21，25，27，35，36，39，48，52}，编程将30插入数组a，并使a仍然有序。

37、申明壹种整型的二维数组a(1to4,1to4)，用随机函数产生各元素，范围介于[1,20]之间，编程将第2行和第4行對应元素互换。

38、随机产生10個[30,100]内的整数，求最小值及所對应的下標。

39、编写壹种判断素数的通用過程（函数或子程序）。调用该過程，计算并输出区间[1000，1100]内所有素数的和。(提醒：只能被1和自身整除的自然数称為素数。)

40、编壹子過程ProcMin,求壹维数组a中的最小值，子過程的形参自已确定。

41、编壹种冒泡排序法子過程，對已知的若干整数按递減次序排列。提醒：子過程的形式為subsort1(a%())。

42、编壹种选择排序法子過程，對已知的若干整数按递減次序排列。提醒：子過程的形式為subsort1(a%())。

43、编壹种选择排序法子過程，對已知的若干整数按递增次序排列。提醒：子過程的形式為subsort1(a%())。

44、编壹种冒泡排序法子過程，對已知的若干整数按递增次序排列。提醒：子過程的形式為subsort1(a%())。

45、编壹种冒泡排序法子過程，對已知的若干整数按递增次序排列。提醒：子過程的形式為subsort1(a%())。

<PIXTEL_MMI_EBOOK_>2

1、求100以内的素数。

PrivateSubCommand1_Click()

DimiAsInteger,mAsInteger,tagAsBoolean

j=0

Form=2To100

tag=True：Fori=2Tom-1

If(mModi)=0Thentag=False

Nexti

IftagThen

Printm;"

";

j=j+1

Ifj=10Thenj=0:Print

EndIf：Nextm

EndSub

2、從键盘输入任意長度的字符串，规定将字符次序倒置，例如，将输入的“ABCDEFG”变换成“GFEDCBA”。

PrivateSubCommand1_Click()

Dima$,I%,c$,d$,n%

a=InputBox("输入字符串")

n=Len(a)

ForI=1ToInt(n/2)

c=Mid(a,I,1)

Mid(a,I,1)=Mid(a,n-I+1,1)

Mid(a,n-I+1,1)=c

NextI

Printa

EndSub

3、计算0~200之间所有能被11或5整除的数之和

、PrivateSubForm_click()

Dimi%,sum%

Print

Fori=0To200

IfiMod5=0OriMod11=0Thensum=sum+i

Nexti

Print"0~200之间所有能被5或100整除的数之和為:",sum

EndSub

4、输入壹年份，判断它与否為闰年，并显示有关信息。（判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除）

PrivateSubCommand2_Click()

Dimy%

y=Year(Now)

IfyMod4=0AndyMod100<>0OryMod400=0Then

MsgBox(y&"年是闰年")

Else:MsgBox(y&"年是平年")

EndIf

EndSub

5.输入xyz三個数，按從大到小显示。

PrivateSubCommand1_Click()

Dimx!,y!,z!

x=InputBox("inputx")

y=InputBox("inputy")

z=InputBox("inputz")

Print"

x

y

z"

Print"排序前";x;"

";y;"

";z

Ifx<yThent=x:x=y:y=t:

Ifx<zThent=x:x=z:z=t:

Ify<zThent=y:y=z:z=t:

Print"排序後"&x&"

"&y&"

"&z

EndSub

6、求s=a+aa+aaa+...aaaaa（n個a），其中a和n的值随机产生，a的范围是[1,9]的整数，n的范围是[5,10]。如a=3,n=6,则

s=3+33+333+3333+33333+333333。编程确定n和a的值，并计算s。

PrivateSubCommand1_Click()

Dims!,t!,i!,a%,n%

a=Int(Rnd*9+1)

n=Int(Rnd*6+5)

t=0:s=0

Print"a=";a,"n=";n

Fori=1Ton

t=t*10+a

s=s+t

Printt;

Nexti

Print

Print"s=";s

EndSub

9、找出被3、5、7除，余数為1的最小的5個正整数。

PrivateSubCommand1_Click()

Dimcountn%,n%

countn=0

n=1

Do

n=n+1

IfnMod3=0AndnMod5=0AndnMod7=0Then

Printn

countn=countn+1

EndIf

LoopUntilcountn=5'或whilecountn<5

EndSub

10、某次歌曲大奖赛，有7個评委。假如分别输入7個评委對某個参赛者的打分数，按照去掉壹种最高分和壹种最低分的计算措施，求出该参赛者的平均得分。

PrivateSubCommand1_Click()

Dimmark!,aver!,i%,max1!,min1!

aver=0

Fori=1To7

mark=InputBox("输入第"&i&"位评為打得分")

Ifi=1Then

max1=mark:min1=mark

Else

Ifmark<min1Then

min1=mark

ElseIfmark>max1Then

max1=mark

EndIf

EndIf

aver=aver+mark

Nexti

aver=(aver-mark1-min1)/5

Printaver

EndSub

11、编程显示100~500之间所有的水仙花数之和。(水仙花数是3位数，其各位数之和等于该数自身)

程序：PrivateSubCommand1_Click()

Dimi%,j%,k%,sxh,m!

m=0

Fori=1To4

Forj=1To9

Fork=0To9

sxh=i*100+j*10+k

Ifsxh=i^3+j^3+k^3Then

m=sxh+m

EndIf

Nextk

Nextj

Nexti

Print"m=";m

EndSub

13、從键盘输入三角形的三条边a，b，c的值，根据其数值，判断能否构成三角形。

PrivateSubCommand1_Click()

Dimx%,y%,z%

x=Val(InputBox("inputx"))

y=Val(InputBox("inputx"))

z=Val(InputBox("inputx"))

Ifx+y>zAndx+z>yAndz+y>xThen

MsgBox("能构成三角形")

Ifx=yAndy=zThen

MsgBox("是等边三角形")

ElseIfx=yOry=zOrz=xThen

MsgBox("是等腰三角形")

ElseIfSqr(x*x+y*y)=zOrSqr(y*y+z*z)=xOrSqr(x*x+z*z)=yThen

MsgBox("是直角三角形")

Else:MsgBox("是其他三角形")

EndIf

Else:MsgBox("不能构成三角形"):EndIf

EndSub14、已知数组a()，编程删除a中第5個元素。数组a中的元素分别為{12，6，4，89，75，63，100，20，31}。

PrivateSubForm_Click()

Dima(),i%,n%

a=Array(12,6,4,89,75,63,100,20,31)

n=UBound(a)

Fori=0Ton

Printa(i);

Nexti

Print

Fori=5Ton

a(i-1)=a(i)

Nexti

n=n-1

ReDimPreservea(n)

Fori=0Ton

Printa(i);

Nexti

Print

End

21、随机产生10個[30,100]内的整数，求最大值、最小值和平均值

。程序代码如下：

PrivateSubForm_Click()

Dima(1To10)AsInteger,i%,maxa%,mina%,avera!

Fori=1To10

a(i)=Int(Rnd*71+30)

Nexti

mina=a(1)

maxa=a(1)

avera=a(1)

Fori=2To10

Ifa(i)>maxaThenmaxa=a(i)

Ifa(i)<minaThenmina=a(i)

avera=avera+a(i)

Nexti

Fori=1To10

Printa(i);

Nexti

Print

Print"max=";maxa,"min=";mina,"aver=";avera/10

EndSub22、定义三個4×4的二维数组A,B,C，A和B中的元素均随机生成，数组A的范围是1～20，数组B的范围是100～200，数组C是A和B相乘得到的。請编程生成并输出A,B,C。

PrivateSubForm_Click()

Dima%(1To4,1To4),b%(1To4,1To4),c%(1To4,1To4)

Print"数组A"

Fori=1To4

Forj=1To4

a(i,j)=Int(Rnd*20+1)

PrintTab(j*4);a(i,j);

Nextj

Print

Nexti

Print"数组B"

Fori=1To4

Forj=1To4

b(i,j)=Int(Rnd*100+100)

PrintTab(j*6);b(i,j);

Nextj

Print

Nexti

'Print"数组C";

'Fori=1To4

'Forj=1To4

'c(i,j)=b(i,j)*a(i,j)

'PrintTab(j*4);c(i,j);

'Nextj

'Print

'Nexti

Print"数组C";

Fori=1To4

Forj=1To4

c(i,j)=b(i,j)+a(i,j)

PrintTab(j*6);c(i,j);

Nextj

Print

Nexti

EndSub

30、编程输出n行杨辉三角图形，n由键盘输入。

程序代码如下：

SubCommand1_Click()

Dimn%,i%,j%

n=Val(Text1)

Dima%(1To1000,1To1000)

Fori=1Ton

a(i,1)=1

Nexti

Fori=1Ton

a(i,i)=1

Nexti

Forj=2Toi-1

Fori=3Ton

a(i,j)=a(i-1,j-1)+a(i-1,j)

Nexti

Picture1.Print;

Nextj

Picture1.PrintTab(j*n);a(i,j)

Fori=1Ton

Forj=1Toi

Picture1.Printa(i,j);"";

Nextj

Picture1.Print

Nexti

EndSub

33、编写壹种過程计算并输出区间[100，1000]内所有素数的和(规定判断素数使用過程（函数或子過程）来实現。调用该過程。(提醒：只能被1和自身整除的自然数称為素数。)

Functionsushu%(ByValx%)

Dimm%,TagAsBoolean,i%

m=Val(x)

Tag=True

Fori=2Tom-1

If(mModi)=0ThenTag=False

Nexti

IfTagThensushu=x

EndFunction

PrivateSubCommand1_Click()

Dimi%,k%

Fori=100To1000

Ifsushu(i)ThenList1.AddItemi

Nexti

Sum=0

Fork=0ToList1.ListCount-1

Sum=Sum+Val(List1.List(k))

Nextk

Label1="［100，1000］内所有素数和為:"&Sum

EndSub

35、已知壹维数组a()中的元素已排序，分别為{12，15，21，25，27，35，36，39，48，52}，编程将30插入数组a，并使a仍然有序。

程序代码如下：

PrivateSubForm_load()

Dima(),i%,k%,x%,n%

a=Array(1,4,7,9,12,14,23,56)

n=UBound(a)

Fori=0Ton

List1.AddItema(i)

Nexti

EndSub

PrivateSubcommand1_Click()

x=Val(Text1)

Fork=0ToList1.ListCount-1

Ifx<Val(List1.List(k))ThenExitFor

Nextk

List1.AddItemx,k

EndSub

41、编壹种冒泡排序法子過程，對已知的若干整数按递減次序排列。提醒：子過程的形式為subsort1(a%())。

SubSort1(a())

DimiMin%,i%,j%,t%

Fori=0ToUBound(a)-1

Forj=0ToUBound(a)-1-i

Ifa(j)>a(j+1)Thent=a(j):a(j)=a(j+1):a(j+1)=t

Nextj

Nexti

Fori=0ToUBound(a)

Printa(i);

Nexti

Print

EndSub

PrivateSubForm_Click()

Dimb()

Print"排序前"

b=Array(56,32,79,21,5,69,98,14,3,15)

Fori=0ToUBound(b)

Printb(i);

Nexti

Print

Print"排序後"

CallSort1(b())

EndSub

42、编壹种选择排序法子過程，對已知的若干整数按递減次序排列。提醒：子過程的形式為subsort1(a%())。

SubSort1(a())

DimiMin%,i%,j%,t%

Fori=0ToUBound(a)-1

iMin=i

Forj=i+1ToUBound(a)

Ifa(j)<a(iMin)TheniMin=j

Nextj

t=a(i):a(i)=a(iMin):a(iMin)=t

Nexti

Fori=0ToUBound(a)

Printa(i);

Nexti

Print

EndSub

PrivateSubForm_Click()

Dimb(),i%

Print"排序前"

b=Array(56,32,79,21,5,69,98,14,3,15)

Fori=0ToUBound(b)

Printb(i);

Nexti

Print

Print"排序後"

CallSort1(b())

EndSub

43、编壹种选择排序法子過程，對已知的若干整数按递增次序排列。提醒：子過程的形式為subsort1(a%())。

PrivateSubCommand1_Click()

DimiA(1To10)

n=6

iA(1)=8:iA(2)=6:iA(3)=9:iA(4)=3:iA(5)=2:iA(6)=7

Fori=1Ton-1

'進行n-1遍比较

iMin=i

'對第i遍比较時，初始假定第i個元素最小

Forj=i+1Ton

'在数组i~n個元素中选最小元素的下標

IfiA(j)<iA(iMin)TheniMin=j

Nextj

t=iA(i)

'i~n個元素中选出的最小元素与第i個元素互换

iA(i)=iA(iMin)

iA(iMin)=t

Fork=1Ton

PrintiA(k);

Nextk

Print

Nexti44、编壹种冒泡排序法子過程，對已知的若干整数按递增次序排列。提醒：子過程的形式為subsort1(a%())。

PrivateSubCommand1_Click()

DimiA(1To10)

n=6

iA(1)=8:iA(2)=6:iA(3)=9:iA(4)=3:iA(5)=2:iA(6)=7

Print"冒泡法排序数据变化過程"

Print"

8,6,9,3,2,7"

Print"-----------------------------"

Fori=1Ton-1

'進行n-1遍比较

'對第i遍比较時，初始假定第i個元素最小

Forj=nToi+1Step-1

'在数组i~n個元素中选最小元素的下標

IfiA(j)<iA(j-1)Then

t=iA(j)

iA(j)=iA(j-1)

iA(j-1)=t

EndIf

Nextj

Print"i=";i;Spc(i*3-3);

Fork=iTon

PrintiA(k);

Nextk

Print

Nexti

EndSub

31、申明壹种整型的二维数组a(1to4,1to4)，用随机函数产生各元素，范围介于[1,20]之间，编程将第1行和第3行對应元素互换。

PrivateSubForm_Click()

Dima%(1To4,1To4),i%,j%

Print"排序前"

Fori=1To4

Forj=1To4

a(i,j)=Int(Rnd*20+1)

PrintTab(j*4);a(i,j);

Nextj

Print

Nexti

Print"排序後"

Forj=1To4

t=a(1,j):a(1,j)=a(3,j):a(3,j)=t

Nextj

Fori=1To4

Forj=1To4

PrintTab(j*4);a(i,j);

Nextj

Print

Nexti

EndSub38、随机产生10個[30,100]内的整数，求最小值及所對应的下標。

21．随机产生30~100（包括30、100）中的拾個正整数，求最大值、最小值、平均值，并显示整個数组的值和成果。

PrivateSubForm_Click()

Dima(1To10)AsInteger,i%,maxa%,mina%,avera!

Fori=1To10

a(i)=Int(Rnd*71+30)

Nexti

mina=a(1)

maxa=a(1)

avera=a(1)

Fori=2To10

Ifa(i)>maxaThenmaxa=a(i)

Ifa(i)<minaThenmina=a(i)

avera=avera+a(i)

Nexti

Fori=1To10

Printa(i);

Nexti

Print

Print"max=";maxa,"min=";mina,"aver=";avera/10

EndSub

15、随机生成壹种整型的二维数组，范围在[10,20]之间，以上三角形式输出该数组。

28、随机生成壹种整型的二维数组，范围在[10,20]之间，如下三角形式输出该数组。

15、随机生成壹种整型的二维数组，范围在[10,20]之间，以上三角形式输出该数组。（下三角、所有元素）Dima%(4,4),i%,j%

PrivateSubForm_load()

Fori=0To4

Forj=0To4

a(i,j)=Int(Rnd*11+10)

Nextj

Nexti

EndSub

PrivateSubCommand1_Click()

Picture1.Cls

Fori=0To4

Forj=0To4

Picture1.Printa(i,j);"";

Nextj

Picture1.Print

Nexti

EndSub

PrivateSubCommand2_Click()

Picture2.Cls

Fori=0To4

Forj=iTo4

Picture2.Printa(i,j);"";

Nextj

Picture2.Print

Nexti

EndSub

PrivateSubCommand3_Click()

Picture3.Cls

Fori=0To4

Forj=0Toi

Picture3.Printa(i,j);"";

Nextj

Picture3.Print

Nexti

EndSub

29、有10個评委對歌手進行打分（分数寄存在A数组中）规定编程计算歌手平均得分（按去掉壹种最高分和壹种最低分的计算措施计算）。a=Array(98,97,95,91,90,99,93,94,93,96)

10、某次歌曲大奖赛，有7個评委。假如分别输入7個评委對某個参赛者的打分数，按照去掉壹种最高分和壹种最低分的计算措施，求出该参赛者的平均得分。

PrivateSubForm_Click()

Dima(6)AsInteger,i%,t%,s!,max%,min%,imin%,imax%

Randomize

Fori=0To6

a(i)=InputBox("输入评委所打的分数")

'也可以用随机数产生

'a(i)=Int(Rnd*31+70)

Nexti

Fori=0To6

Printa(i);

Nexti

Print

imax=0:max=a(0)

Fori=1To6

Ifa(i)>=maxThenmax=a(i):imax=i

Nexti

t=a(0):a(0)=a(imax):a(imax)=t

imin=6:min=a(6)

Fori=0To5

Ifa(i)<=minThenmin=a(i):imin=i

Nexti

t=a(6):a(6)=a(imin):a(imin)=t

Print"除去最高分和最低分之後的分数"

Fori=1To5

Printa(i);

Nexti

Fori=1To5

s=s+a(i)

Nexti

Print

Print"该参赛者的平均得分為";s/5

EndSub12、随机产生壹种三位正整数，然後逆序输出，产生的数与逆序数同步显示。例如，产生246，输出是642。

PrivateSubCommand1_Click()

Text1=Int(Rnd*900+100)

EndSub

PrivateSubCommand2_Click()

Dimx%,x1%,x2%,x3%

x=Val(Text1)

x1=xMod10

x2=(xMod100)\10

x3=x\100

Text2=x1*100+x2*10+x3