VB语言程序设计试题库

精选试题

VB语言程序设计试题库

编制:

审核:

出版:

VB程序设计

一、判断题

1.同一Form窗体中的各控件可以相互重叠，其显示的上下层次的次序不可以调

整。（X）

2.一个对象的若能识别多个事件，我们只能对其中一个事件编程（）

3.单选按钮与复选框对象的Value属性类型不同，且只能取值True和False0

（V）

4.事件过程由某个用户事件或系统事件触发执行，它不能被其他过程调用。

（）

5.图片框的Move方法不仅可以移动图片框，而且还可以改变该图片框的大小，

同时也会改变该图片框有关属性的值。（V）

6."A=B=C”是一个合法的VisualBasic语句。（）

7.当在一个简单组合框的文本框中输入一个它的列表框中没有的条目时，组合

框会自动把这一条目添加到它的列表框中。（）

8.VisualBasic程序的运行可以从Main（）过程启动，也可以从某个窗体启动。

（V）

9.在图片框中放置的控件既可以在该图片框内移动，也可以移出该图片框外。

（）

10.对于文件系统控件，当驱动器控件Drivel中的驱动器符改变时，文件夹列表

控件Dirl中显示的文件夹也作相应的改变，可以在Drivel中的Change事件中使

用如下命令。Dirl.Path=Drivel.Drive（V）

11.滚动条控件可作为用户输入数据的一种方法。（V）

12.单选按钮控件和复选框控件都具有Value属性，它们的作用完全相同。（）

13.静态变量是一种局部变量，当原过程再次被执行时，静态变量的初值是上一

次过程调用后的值。（V）

14.VisualBasic提供的几种标准坐标系统的原点都是在绘图区域的左上角,如果

要把坐标原点放在其他位置，则需使用自定义坐标系统。（V）

15.注释语句REM可自成一语句。（J）

16.用鼠标选中某菜单控件时，触发Click事件；而用键盘选中该菜单控件时，

触发KeyPress（）

17.组合框兼有文本框和列表框两者的功能，用户可以通过键人文本或选择列表

中的项目来进行选择。（V）

18.当定时器控件的Interval属性值设置为0时，会连续不断地激发Timer事件。

（）

19.执行程序x=0:for1=2to10step-2:x=x+10:nextI后x的值为0。（V）

2.句“FontName="宋体""与"="宋体"”的作用完全相同，无一例外。（）

21局变量只能在窗体的通用区内用Public或global定义。（）

22.在盘驱动器列表框Drivel的Change事件过程中，代码DirLPath=Drivel.

Drive的作用是：当Drivel的驱动器改变时，Dirl的目录列表随不同驱动器作相

应改变。（V）

23.直到型循环至少能执行一次循环体。（V）

24.Variant是一种特殊的数据类型，Variant类型变量可以存储除定长字符串数据

及自定义类型外的所有系统定义类型的数据。Variant类型变量还可具有Empty、

Error和Null等特殊值。（V）

25.如果一个菜单项的Visible属性为False,则它的子菜单也不会显示。（V）

26.运行程序后在同一窗体上不可能同时选中两个单选钮。（）

27.窗体的Enabled属性值为False时，该窗体上的按钮、文本框等控件就不会

对用户的操作做出反应。（V）

28.定时器的interval属性值为0时，不会发生timer事件。（J）

29.框架控件和形状控件都不能响应用户的鼠标的单击事件。（）

30.在一个窗体的代码中不能使用Unload语句来卸载本窗体，即一个窗体只能由

其他窗体卸载。（）

31.移动图片框时，以该图片框为载体的各控件的Left和Top属性值不变。

（V）

二.单选题

32.组合框的Change（）事件在下列那种情况下发生（C）

A、在程序改变控件的大小时发生B、用户在下拉列表中改变选项时发

生

C、用户在编辑文本区内容时发生D、当程序改变组合框的Style属性时

发生

33.为了使标签框的中的文字能自动折行，必须同时设置下面两个属性为True。

（D）

A、Caption和AutoSizeB、AutoSize和Aligment

C>Visible和EnableD、AutoSize和WordWarp

34.如果希望文件列表框只显示可执行文件，应该修改（B）属性。

A、PatternB、FilterC、PathD、FileName

35.为了使某个命令按钮处于不可用状态，应该设置该命令按钮的属性。（B）

A、DefaultB、EnabledC、CancelD、Tabindex

36.通用对话框控件的返回值FileName表示所选择文件的（B）。

A、路径名B、全名C、文件主名D、文件扩展名

37.关于单选按钮和复选框，下列说法正确的是：（C）

A、单选按钮和复选框的Value属性值可能是0或1

B、同一窗体上的单选按钮只能有一个处于选中状态

C、复选框不支持DblClick事件

D、单选按钮选中状态的改变只能由用户进行，而不能由程序设置

38.下列控件中哪个控件没有Change事件（D）

A、滚动条B、目录列表框C、标签D、单选按钮

39.菜单项显示分隔线是通过设置（A）属性来实现的。

A、CaptionB、VisibleC、CheckedD、Enabled

40.运行时组合框控件Combi中所选择的表项，可以表示为（C）。

A、B、C、D、

41.要使Shape控件以实心方式填充，应该设置其（B）属性。

A、FillColorB、FillStyleC、BackStyleD、Shape

42晌文本框中输入一个字符，下列事件不会发生。（C）

A、ChangeB、KeyPressC、GotFocusD、KeyDown

43.下面关于框架、复选框和单选钮的叙述，正确的是。（B）

A、框架没有Caption属性，而复选框和单选钮都有Caption属性

B、一个框架中的复选框有可以多个被选中

C、一个窗体中单选钮有且只有一个可以被选中

A、可以把窗体中已存在的单选钮拖到框架中，成为框架中的一员

44用户在窗体上单击时，将先后触发该窗体的（D）

A、MouseDown事件、Click事件、MouseMove事件、MouseUp事件

B、Click事件、MouseDown事件、MouseUp事件、MouseMove事件

C、MouseDown事件、Click事件、MouseUp事件、MouseMove事件

D、MouseDown事件、MouseUp事件、Click事件、MouseMove事件

45.下面方法不属于列表框和组合框。（A）

A>CisB、AdditemC、GetFocusD、Removeitem

46.在图片框控件Picture1上坐标（x,y）处画一个绿色点，写作（D）。

A、Pset（x,y）,Rgb（0,255,0）B、（x,y）,Green

C、Pset（x,y）,vbGreenD、（x,y）,vbGreen

47.下面关于滚动条和计时器控件的叙述，其中错误的是。（B）

A、当滚动条的Value值改变时，发生Change事件

B、当拖动滚动条时，释放鼠标时发生Scroll事件

C、计时器控件在运行时是不可见的

D、计时器和滚动条控件都有Enable属性

48.单击滚动条两端的任一个滚动箭头，将触发该滚动条的（C）事件。

A、ScrollB、KeyDownC、ChangeD、Dragover

49.设置某子菜单项的Caption（标题）属性为“画图（&D）"，Shortcut（快捷

键）属性为“Ctrl+L”。启动工程时，下面不会触发该子菜单的Click事件。

（D）

A、打开主菜单，按D键B、直接按Ctrl+L键

C、用鼠标单击该子菜单项D、打开主菜单，按Alt+D

50.要改变控件的宽度，应修改该控件的（C)属性。

A、TopB、LeftC、WidthD、Height

51.顺序文件有三种打开方式，下面种不是。（A）

A、RandomB、InputC^OutputD、Append

52.（C）对象不能作为控件的容器。

A>FormB、PictureBoxC>ShapeD^Frame

53.将命令按钮Command1设置为不可见，应修改命令按钮的（A）属性。

A>VisibleB>ValueC、CaptionD^Enabled

54.下列数据类型中，占用内存最小的是（B)o

A、BooleanB、ByteC、IntegerD、Single

55.（D）对象具有Clear方法。

A、图片框B、窗体C、复选框D、列表框

56.一个对象可以执行的动作和可被对象识别的动作分别称为（B）o

A、事件、方法B、方法、事件

C、属性、方法D、过程、事件

57.已知A、B、C中C最小，则判断A、B、C可否构成三角形3条边长的逻

辑表达式是(B)o

A、A>=BAndB>=CAndC>0B、A+OBAndB+C>A

AndC>0

C、(A+B>=COrA-C<=C)AndC>0D、A+B>CAndA-B>C

AndC>0

58.将通用对话框CommonDialogl的类型设置成“另存为”对话框，可调用该控

件的的（B）方法。

A、ShowOpenB、ShowSaveC、ShowColorD、

ShowFont

59.下面（C）是日期型常量。

A、“12/19/99"B.12/19/99C、#12/19/99#D>{12/19/

99}

60.重新定义图片框控件的坐标系统，可采用该图片框的（A）方法。

A、ScaleB^ScaleXC、ScaleYD、SetFocus

61.D对象不具有Caption属性。D

A、LabelB、OptionC、FormD、Timer

62.Integer类型的变量可存的最大整数是（D）。

A、255B、256C、32768D、32767

63.要改变控件的宽度，应修改该控件的（C）属性。

A、TopB、LeftC、WidthD、Height

64.对于窗体级变量，以下说法错误的有：（B）

A、所在窗体的各子程序都可以访问

B、其他窗体的子程序不能访问

C、所在窗体的子程序能访问用Private定义的窗体级变量

D、一定要在所在窗体的通用区内定义

65.在窗体R）rml的Click事件过程中有以下语句：（C）

Label1.Caption=""VisualBasic”若本语句执行之前，标签控件的Caption

属性为默认值，则标签控件的Name属性和Caption属性在执行本语句之前的值

分别为。

A、“Label”、“Label”B、“Labeil“、"VisualBasic”

C、“Label1"、"Label1"D、Caption、”Label”

66.下面关于变量的作用域和生存周期的描述正确的是（C）

A、全局变量可在窗体的通用区内定义

B、窗体级变量与静态变量具有相同的作用域和生存周期

C、同一过程中用“Dim”定义的局部变量和用“Static”定义的局部变量具有相同

的作用域

D、同一过程中用“Dim”定义的局部变量和用“Static”定义的局部变量具有相同

的生存周期

67.一个菜单项是不是一个分隔条，由（B）属性决定。

A、Name（名称）B、CaptionC.EnabledD、Visible

类型的变量可存的最大整数是。（D）

A-、255B、256C、32768D、32767

69.下面（B）对象在运行时一定不可见。

A、LineB、TimerC、TextD、Option

70.形状控件所显示的图形不可能是（D）。

A、圆B、椭圆C、圆角正方形D、等边三角

形

71.以下（A）方式打开的文件只能读不能写。

A、InputB、OutputC、RandomD、Append

72.对象不具有Caption属性。（D）

A、LabelB、OptionC、FormD、Timer

73.由Fork=35TOOStep3：Nextk循环语句控制的循环次数是（A）

A、0B、12C、-11D、-10

74.以下（A）方式打开的文件只能读不能写。

A、InputB、OutputC、RandomD^Append

75.由Fork=35TOOStep3：Nextk循环语句控制的循环次数是(A)

A、0B、12C、-11D、-10

76.想要改变控件在窗体中的左右位置，可以修改该控件的(B)属性。

A、TopB、LeftC、WidthD、Right

77.要在文件列表框中显示不同类型的文件可以通过设置(A)属性

A、PatternB、PathC、FilenameD、Listindex

78.窗体的DrawWidth属性值设置为大于1时，下列(C)属性会失去作用

A、BackcolorB、FillStyleC>DrawstyleD>Fillcolor

79.如果在图片框上使用绘图方法绘制一个圆，则图片框的(A)属性不会对

该圆的外观产生影响。

A、BackcolorB、ForeColorC>DrawWidthD、Drawstyle

80.菜单编辑器中呈现以下状态，程序运行后下列(D)操作无法执行“复制”

功能

B、直接按下Ctrl+C

C、鼠标单击“复制”菜单项

D、“Alt+E”——)“Alt+C”

三.填空题

81.VB的字符串运算符有+和&两种,其中运算符两边的表达式类型必

须为字符型的运算符是&。?

82.设x=6,y=4,z=7,下面表达式的值是truex>vandy>x-zorx<yandnot2*y>z

83.设n是一个自然数，那么求n的位数L的表达式可以是L=len(str(n))-l。

[例如：若n=12345,则L=5]

84.在打开某窗体时，初始化该窗体中的各控件，应选用10ad事件。

85.滚动条的当前值用value—表示。

86.设x为大于零的实数，则大于x的最小奇数的VisualBasic表达式是

((Int(x)+1)\2)*2+1(或((Fix(x)+1)\2)*2+1)。

87.在代码设计中，为了给某控件的BackColor属性赋一个颜色值，可以有三种

方法获得颜色，它们分别是QBColor。函数、颜色常数和—RGBS函数。

88.al和a2之中有且只有一个与a3的值相等，相应的VisualBasic逻辑表达式是

a1=a3Xora2=a3(或a1=a3Anda<>a3Oral<>a3Anda2=a3)。

89.以图片框Picture1的中心为圆心，以1000为半径在Picture1上画一个圆的方

法是_2,2）,1000。

90.设init的初值为10,则由下列循环语句控制的循环次数是0。

DoWhileinit>=5

Init=init-1

Loop

91.窗体的Enabled属性值为False时,该窗体上的按钮、文本框等控件

就不会对用户的操作做出反应。

92.在VisualBasic中，变量从它的作用范围来看。可分为全局变量、模块级变

量和局部变量3种。

93.VisualBasic提供了对文件的三种存取方式，分别是Input、output

和Append。

94.8语句（800,1000）,500的含义是以图片框Picturel中的（以0,1000）为圆心，

以500为半径画一个圆。

95用VisualBasic开发应用程序的"三步曲"是：界面设计、属性设置

和代码设计一。

96.在VB中.若要产生一消息框.则可用函数msgbox来实现。

97.已知n为一个三位正整数，写出求n中十位数的VisualBasic表达式（n\10）

mod10

98.若要获得用户在驱动器列表控件中所选择的驱动器，可通过访问该对象的一

Drive属性来实现。

99.表达式（\2）*7Mod的运行结果是—2。

100.目录列表框（DirListBox）中，当前文件夹对应项目的Listindex属性值为_

101.利用Line方法可以画_直线一、矩形和实心矩形.o

102.VisualBasic的菜单可分为.下拉式一菜单和弹出式菜单两种。

103.在VisualBasic中，文件列表框和通用对对话框控件具

有Filename属性。

104.在VB中.用于产牛输入对话框的函数是Inputbox,其返回值类型为

字符型,若要利用该函数接收数值型的数据，则可利用Vai函数对

其返回值进行转换而得到。？

105用PictureBox和Image控件装载图形图像时，为了使图形图像与所在的控

件大小相等，可以改变

106.形状的Shape属性可以取6个值,分别代表各种不同的形状。

107.如果在图片框上使用绘图方法绘制一个圆，则图片框的Backcolor属性不

会对该圆的外观产生影响。PictureBox的stretch属性和Image的一

autosize属性。

108.求a与b之积除以c的余数，用VB表达式为mod((a*b)/c)。

109.VisualBasic常见控件中可以作为其他控件容器的控件有框架.和一图片

110.VisualBasic的菜单可在一菜单编辑器_中设计完成。若要使某项菜单在运

行时不可见.可设置该菜单对象的Visible属性为False来实现；若要使

某项菜单在运行时失效.则应设置菜单项对象Enabled属性为False。

111.在代码设计中，为了使定时器Timerl能处于关闭状态，使系统不响应它的

Timer。事件，可以设置=False或=0。

112.表达式Chr(Asc("R”)-Asc("A")+Asc("a"))的值是—r-。

113.PrintMid$(Str$(-1234),3.2)的结果为23。

程序阅读题

四、阅读下列程序，写出运行结果。

1、程序1

PrivateSubCommand1_Click()

DimxAsInteger,sAsInteger

x=Val(InputBox("请输入一个正整数二"))

Ifx<5Then

S=S*X

Else

S=S+X

EndIf

="s=n+Str(s)

EndSub

程序运行时连续3次单击Command1,且设输入的数是5,2和4时，分别写出

文本框的值。

2、程序2

PrivateSubForm_Click()

?

w=3

Fork=2To6Step2

“w二"；w,"k="；k

w=w+1

Nextk

“W二"；w,"k="；k

EndSub

写出程序运行时单击窗体后，Forml上的输出结果。

3、程序3

PrivateSubForm_Click()

DimxAsString

DimiAsInteger,nAsInteger

x="ABCDEFGHKL"

n=Len(x)

Fori=nTo1Step-2

Tab(20-i);Mid(x,i,1)

Nexti

EndSub

写出程序运行时单击窗体后，Forml上的输出结果。

4、程序4

DimaAsInteger,yAsInteger

PrivateSubForm_Load()

Open"c:\KForOutputAs#1

Close#1

EndSub

PrivateSubCommand1_Click()

Open"c:\"ForAppendAs#1

Callaa(5)

y=y+a

Print#1,ny=n;y,"a=n;a

Close#1

EndSub

Subaa(iAsInteger)

x=1

DoUntilx>i

a二a+x

x=x+3

Loop

EndSub

写出程序运行时连续3次单击Command1后，文件的最终结果。

程序阅读题答案：1.

s=5

s=10

s=40

2.

w=3k=2

w=4k=4

w=5k=6

w=6k=8

3.

H

F

D

B

4.

y=5a=5

y=15a=10

y=30a=15

五.程序填空题

仔细阅读下列各小题的程序说明和相应的程序，在每小题提供的若干可选答案

中，挑选一个正确答案。

1.【程序说明】

本程序求3〜100之间的所有素数(质数)并统计个数，同时将这些素数从小到

大依次写入顺序文件e：\,素数的个数显示

在窗体Forml_Eo

【程序】

PrivateSubCommand1_Click()

DimcountAsInteger,flagAsBoolean

DimtiAsInteger,t2AsInteger

(1)

count=0

Forti=3To100

flag=True

Fort2=2ToInt(Sqr(tl))

If(2)Thenflag=False

Nextt2

(3)

count=count+1

Write#l,tl

EndIf

Nexttl

(4)Close#1

EndSub

(1)A>Opene:\ForOutputAs#1

B、Opene:\ForInputAs#1

C>Opene:\ForOutputAs#2

D、Opene:\ForOutputAs#1

(2)A、t2\tl=0B>tlModt2=0C>tl\t2=0D、t2Mod11=0

⑶A、IfflagThenB>Ift2>tlThen

C^If2ThenD、Ift2>int(sqr(tl))Then

(4)A、"素数个数："；count

B、Print#］"素数个数：”;Count

C、"素数个数："；count

D、"素数个数："：Count

2.［程序说明］

由输入对话框输入n(设n为大于零且小于30的自然数)，计算下列表达式并

在标签框Label1上显示。

1/(1*2)+1/(2*3)+1/(3*4)+.....+l/(n*(n+l))

【程序】

PrivateSubForm_Click()

DimnAsInteger,sumAsDouble,kAsInteger

Do(5)

n=Val(InputBox(“n="，“请重输”))

Loop

sum=0

(6)

Do

k=k+1

sum=(7)

LoopUntilk>=n

="Sum"+Str(sum)

EndSub

(5)A、Whilen<=0orn>=30B>Whilen<=0Andn>=30

C、Untiln>0Orn<30D.Untiln>=0andn<=30

⑹A、k=2B、k=lC、K=-lD、k=0

(7)A、l/(k*(k+l))B、l/(k-l)*k

C、sum+l/(k*(k+l))D、sum+l/k*(k+l)

3.【程序说明】

本程序用于处理文本框中的内容，假设文本框中有偶数个字符。要求将文本框从

头尾至中间依次各取字符，组成一个新的字符串str2,并在窗体上输出。

如:="",则Str2=""

【程序】

PrivateSubForm_Click()

DimStrlAsString,Str2AsString

Strl=

Str2=""

m=0

Do(8)

Str2=Str2+(9)

Str2=Str2+(10)

m=m+1

Loop

Str2

EndSub

(8)A、WhilemC>Untilm>Len(Strl)/2D.Untilm<Len(Strl)/2

(9)A、Mid(strl,m,l)Mid(str1,len(str1)-m,1)

C、Mid(m,Strl,l)D、Mid(Strl,m+1,D

(10)A、Mid(str1,len(str1)-m+1,1)

B、Mid(strl,m,l)

C、Mid(str1,len(str1)-m,1)

D、Mid(strl,len(str1)-m+1,1)

程序填空题答案：DBACADCADC

六、程序填空题

1.下面是一个求n!的自定义函数代码。

PrivateFunctionJC(nAsInteger)AsLong

DimResultAsLong

Ifp=1Then

Result=1

Else

Result=(1)

EndIf

JC二(2)

EndFunction

2.下面的程序完成以下功能：单击窗体上的“测试”(Commandl)按钮，出现一

个输入框，要求输入一串字符，将该字符串中的非字母字符删除后，显示在窗体

中的一个文本框(Textl)中。

PrivateSubCommand1_Click()

DimStl,St2AsString

DimChAs(3)

DimLAsInteger

Stl=InputBox("请输入一串字符"，"字符串输入”)

L=(4)

St2=""

Fori=1ToL

Ch=Mid(Stl,i,1)

If(Ch>"A"And(5))Or(Ch>"a"AndCh<"z")Then

St2=St2+Ch

EndIf

Nexti

=(6)

EndSub

3.下面的程序完成以下功能：窗体上有两个命令按钮“产生”(Command1)和“排

序”(Command2)。单击“产生”按钮时，随机产生10个［1,20］范围内的整数放

在数组A中，并在窗体上输出。单击“排序”按钮时，用选择法排序这10个数并

输出。

DimA(10)AsInteger

PrivateSubCommand1_Click()

DimiAsInteger

Randomize

Print"排序前的数列："

Fori=1To10

A(i)=(7)

PrintStr(A(i))+nn;

Nexti

Print

EndSub

PrivateSubCommand2_Click()

Dimi,j,Min,TempAsInteger

Print

Print"选择排序后的数列："

Fori=1To9

Min=A(i)

Forj=(8)To10

IfA(j)<MinThen

Temp=A(j)

A(j)=(9)

Min=Temp

EndIf

Nextj

A(i)=Min

(10)

Fori=1To10

PrintStr(A(i))+"

Nexti

Print

EndSub

程序填空题答案：(1)n*Jc(n-l)⑵result⑶string(4)len(str)(5)

ch<"z"(6)st2(7)int(Rnd*20)+l(8)1+1(9)min(10)nexti

七、程序填空题

1.程序说明：利用一个计时器，一个标签框和两个命令按钮制作一个动态秒表,

单击“结束"命令按钮，秒表结束计时，并在标签框显示运行时间，如“运行

了0小时2分10秒”。(假设对象的属性都在程序代码中设定)一个动态秒

程序代码如下

DimxAsLong

DimhAsInteger,mAsInteger,sAsInteger

PrivateSubForm_Load()

Forml.Caption="动态秒表(小时:分:秒)”

Command1.Caption="开始［&S『

Command?.Caption=”结束［&E］”

Label1.Alignment=2

Label1.Caption=n0:0:0n

Timer1.Interval=(1)

Timer1.Enabled=False

x=0

EndSub

PrivateSubCommand1_Click()

(2)

EndSub

PrivateSubCommand2_Click()

Timer1.Enabled=False

x=(3)

Label1.Caption二"运行了“+Str(h)+“小时”+Str(m)+“分”+Str(s)+"秒”

EndSub

PrivateSubTimerl_Timer()

x=x+1

h=(4)

m二(xMod3600)\60

s=(5)

Label1.Caption=Str(h)++Str(m)++Str(s)

EndSub

2.程序说明：己知自然对数的底数e的级数表示如下：

e=l+l/(l!)+l/(2!)+...+l/(n!)+...

本程序利用函数过程fact()求e,其中的绝对值小于IE-8的项被忽略。程序代

码如下

PrivateFunctionfact(mAsInteger)AsSingle'求m!的函数

DimxAsSingle,iAsInteger

x=1

Fori=1Tom

X=(6)

Nexti

fact=x

EndFunction

PrivateSubForm_Click()

DimeAsSingle,itemAsSingle

DimnAsInteger

e=1:n=(7)

Do

n=n+1

item=(8)

e二e+item

LoopWhile(9)

程序填空题答案：(D^1000⑵、Timer1.Enabled=True或Time1=True

(3)、0(4)、x\3600(5)、xMod60⑹、x*I

⑺、0⑻、l/fact(n)⑼、Abs(item)>=0.00000001

八、1.分别写出下面两段程序执行三次后的结果。

PrivateSubDimi,jAs

Form_Click()DimiAsIntegerPrivate

IntegerStaticjAsSub

Integerj=j+1i=i+Form_Click()j=j

1Print"i=";Str(i),+1i=i+1Print

"j=";Str(j)EndSub"i="；Str(i),"j=";

Str①EndSub

参考答案:

1左：右：

1=1