VB复习题old.docx

VB复习题old.docx

《VB复习题old.docx》由会员分享，可在线阅读，更多相关《VB复习题old.docx（17页珍藏版）》请在冰豆网上搜索。

VB复习题old

VB复习题

一、填空题

1．对图片框Picture1所有清除方法Cls，应写为。

（Picture1.Cls）

2．工程文件的扩展名是,窗体文件的扩展名是。

（VbpFrm）

3．循环语句ForI=30To1Step-3所进行的循环次数为。

（10）

4．设置控件背景颜色的属性是。

（BackColor）

5．表达式Ucase（Mid（“GoodLuck”,3,4））的值是。

（ODLU）

6．VisualBasic的赋值语句既可给赋值，也可给对象的赋值。

（变量属性）

7．Right（“Chinese”，3）的值为。

（ese）

8．把条件15<=x<19写成VisualBasic的关系表达式为。

（x>=15andx<19）

9.表达式Ucase（Mid（“Homework”,3,2））的值是。

（ME）

10.由Array函数建立的数组名字必须是类型。

（Variant）

11．代数式|a-b|>8的VisualBasic表达式为。

（Abs（a-b）>8）

12.扩展名为.BAS的文件称为。

（标准模块文件）

13.声明符号常量需使用语句。

（Const）

14.通用过程与事件过程不同的是。

（与对象无关）

15.要使一个命令按钮成为图形命令按钮，则应设置其属性值。

（Style）

16.在VB中设置属性值有2种方法，分别是和。

（属性窗口直接设置程序代码进行设置）

17．Left（“Chinese”，3）的值为。

（Chi）

18.扩展名为.Frm的文件称为。

（窗体文件）

19.如果要求定时器控件的Timer事件间隔0.2秒，其Interval属性应设置为。

（500）

20.设数组声明语句：

DimA（-1To2,2）AsInteger，则数组A中包括的元素有个。

（12）

21．起始语句为While的循环结构的终端语句是。

（EndDo）

22.控件数组的名字由属性指定，而数组中的每个元素由属性指定。

（NameIndex）

23．把条件T+3≠V-2且T+V>100写成VisualBasic的关系表达式为。

（T+3<>V-2AndT+V>100）

24.表达式Ucase（Mid（“HappyNewYear!

”,6,3））的值是。

（NEW）

二、单项选择题

1．与传统的程序设计语言相比，VB最突出的特点是。

（D）

A.程序开发环境B.程序调试技术C.结构化程序设计D.事件驱动编程机制

2.若要使标签控件显示时不覆盖其背景内容，要对属性进行设置。

（B）

A.ForeColorB.BackStyleC.BorderStyleD.BackColor

3．在运行时，系统自动执行启动窗体的事件过程。

（D）

A.UnLoadB.ClickC.GotFocusD.Load

4.当文本框ScrollBars属性值设置为1（有水平滚动条），却没有效果，原因是。

（C）

A.文本框的MultiLine属性为TrueB.文本框的Locked属性为True

C.文本框的MultiLine属性为FalseD.文本框中没有内容

5．表达式16/4-2^5*8/4Mod5\2的值为。

（C）

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

6．已知A$=”12345678”,则表达式Val（Left（A$,4）+Mid（A$,4,2））的值为。

（A）

A.123445B.123456C.6D.8

7．下面正确的赋值语句是。

（A）

A.y=x+30B.3y=xC.x+y=30D.y=πr2

8．下面程序段求2个数中的最大数，不正确的是。

（B）

A.Max=xB.Ify>=xThenMax=y

Ify>xThenMax=yMax=x

C.Max=IIf（x>y,x,y）D.Ifx>yThenMax=xElseMax=y

9．下列循环能正常结束的是。

（D）

A.I=6B.I=5

DoDo

I=I-2I=I+1

LoopUntilI=1LoopUntilI<0

C.I=1D.I=10

DoDo

I=I+2I=I+1

LoopUntilI=10LoopUntilI>0

10．下面程序段:

（B）

Dimx

IfxThenPrintxElsePrintx+2

运行后的结果是。

A.-2B.2C.0D.显示出错信息

11．以下程序输出结果是。

（C）

Dima

a=Array（1,2,3,4,5,6,7）

Fori=Lbound（a）ToUbound（a）

a（i）=a（i）*a（i）

Nexti

Printa（i-1）

A.0B.不确定C.49D.程序出错

12．以下程序段的执行结果是。

（D）

DimA（5）

ForI=1To5

A（I）=I*I

NextI

PrintA（I-1）

A.0B.16C.5D.25

13．列表框中的列表内容是通过属性来设置的。

（C）

A.TextB.ColumnsC.ListD.Index

14．要退出For循环，可使用的语句为。

（A）

A.ExitForB.ExitDoC.ExitSubD.Exit

15．将命令按钮Command1设置为不可见，应修改该命令按钮的属性。

（C）

A.CaptionB.ValueC.VisibleD.Enabled

16．A=1,B=190,则INT（（B-A+1）*RND+A）的结果是介于之间的数。

（B）

A.0～190B.1～190C.1～180D.0～199

17．数学式子sin40°写成VisualBasic表达式是。

（C）

A.sin40B.sin（40）C.sin（40*3.14/180）D.sin（40°）

18．可以实现从字符串任意截取字符的函数是。

（D）

A.Instr（）B.Left（）C.Right（）D.Mid（）

19．文本框中用于设定文本框中最多可接受字符个数的属性是。

（A）

A.MaxLengthB.PassworsCharC.AutoSizeD.SelLength

20．若要向列表框新增列表项，则可使用的方法是。

（B）

A.AddB.ClearC.AddItemD.Remove

21．用于从字符串右边截取字符的函数是。

（D）

A.Ltrim（）B.Trim（）C.Left（）D.Right（）

22．赋值语句a=123+MID（“123456”,3,2）执行后，a变量中的值是。

（B）

A.123B.157C.“12334”D.12334

23．赋值语句a=123&MID（“123456”,3,2）执行后，a变量中的值是。

（C）

A.123B.157C.“12334”D.12334

24．若要清除列表框的内容，可使用方法来实现。

（A）

A.ClearB.RemoveC.AddD.AddItem

25．若要使标签控件显示时不覆盖其背景内容，要对属性进行设置。

（C）

A.BorderStyleB.ForeColorC.BackStyleD.BackColor

26．数学关系3≤x<10表示成正确的VB表达式为。

（D）

A.3<=x<10B.x>=3ORx<10C.x>=3AND<10D.x>=3ANDx<10

三、读程序，写结果

1．一个窗体单击事件过程如下：

PrivateSubForm_Click（）

DimnAsInteger,xAsString

x=""

n=Val（Text1.Text）

Fori=1To3

n=n\2

x=x+Chr（Asc（"M"）+n）

Nexti

Printx

EndSub

试问：

如果Text1内已输入5，当单击窗体后，输出为[______]。

（ONM）

2．一个窗体单击事件过程如下：

PrivateSubForm_Click（）

DimaAsInteger,bAsInteger,cAsInteger

a=10:

b=6

c=a*b

Ifa>bThen

a=a+4-b

Else

b=b+5-a

EndIf

Printa,b,c

EndSub

试问：

当单击窗体后，输出为[______]。

（8660）

4．一个窗体单击事件过程如下：

PrivateSubForm_Click（）

x=Int（Rnd）+3

Ifx*x>8Theny=x*x+4

Ifx*x=9Theny=x*x*x+2

Ifx*x<8Theny=x*x+9

Printy

EndSub

试问：

当单击窗体后，输出为[______]。

（29）

5．一个窗体单击事件过程如下：

PrivateSubForm_Click（）

X=Val（Text1.Text）:

Y=Val（Text2.Text）

IfX=0OrY=0ThenPrint"不在任何象限内":

ExitSub

IfX>0AndY>0ThenPrint"INA"

IfX>0AndY<0ThenPrint"IND"

IfX<0AndY>0ThenPrint"INB"

IfX<0AndY<0ThenPrint"INC"

EndSub

试问：

如果Text1输入值为3，Text2输入值为-9，当单击窗体后，输出为[______]。

（IND）.

6．一个窗体单击事件过程如下：

PrivateSubForm_Click（）

X=Val（Text1.Text）:

Y=Val（Text2.Text）

IfX=0OrY=0ThenPrint"不在任何象限内":

ExitSub

IfX>0AndY>0ThenPrint"INA"

IfX>0AndY<0ThenPrint"IND"

IfX<0AndY>0ThenPrint"INB"

IfX<0AndY<0ThenPrint"INC"

EndSub

试问：

如果Text1输入值为-8，Text2输入值为-6，当单击窗体后，输出为[______]。

（INC）.

7．一个窗体单击事件过程如下：

PrivateSubForm_Click（）

DimnAsInteger,xAsString

x=""

n=Val（Text1.Text）

Fori=1To3

n=nMod3

x=x+Chr（Asc（"A"）+n）

Nexti

Printx

EndSub

试问：

如果Text1内已输入8，当单击窗体后，输出为[______]。

（CCC）

8．一个窗体单击事件过程如下：

PrivateSubForm_Click（）

Forn=1To3

x=x+Chr（Asc（"A"）+n）

Nextn

Printx

EndSub

试问：

当单击窗体后，输出为[______]。

（BCD）

9．一个窗体单击事件过程如下：

PrivateSubForm_Click（）

S=1

Fori=1To4

S=S*i

Nexti

PrintS,i

EndSub

试问：

当单击窗体后，输出为[______]。

（245）

10．以下为用辗转相除法求两个正数数的最大公约数的程序，请在[______]处填入适当的内容，将程序补充完整。

PrivateSubForm_Click（）

M=Val（Text1.Text）:

N=Val（Text2.Text）

A=N:

B=M

R=NModM

DoWhile（R<>0）

M=N

N=R

[______]

Loop

PrintA;",";B;"的最大公约数=";N

EndSub

（R=MModN）

11．请在[______]处填入适当的内容，将程序补充完整。

　　程序运行后，窗体上显示的输出九九乘法表结果为：

其代码是:

PrivateSubForm_Click（）

Print

Print"-------------------九九乘法表--------------------"

ForX=1To9

ForY=1To[______]

S=X*Y

PrintX;"*";Y;"=";S;

NextY

[______]

NextX

EndSub

（X,Print）

12．输入一学生成绩，评定其等级。

方法是：

90～100分为“优秀”，80～89分为“良好”，70～79分为“中等”，60～69分为“及格”，60分以下为“不合格”,请在[______]填入适当的内容，将程序补充完整。

其代码是:

x=Val（InputBox（"请输入0到100之间的分数X="））

SelectCasex

Case90To100

Print"优秀"

Case[______]

Print"良好"

Case70To79

Print"中等"

Case60To69

Print"及格"

CaseElse

Print"不及格"

EndSelect

（80To89）

13．一个窗体单击事件过程如下：

PrivateSubForm_Click（）

DimiAsInteger,kAsInteger,cAsInteger

Fori=1To5

IfiMod2=0Then

k=k+2

Else

c=c+2

EndIf

Nexti

Printk,c

EndSub

试问：

当单击窗体后，输出为[______]。

（46）

四、编程题

1．单击某个命令按钮输出3～100之间的所有奇数、奇数之和。

将奇数显示于文本框Text1中，奇数之和显示于文本框Text2中。

（P96）

2．编写打印下列图案的程序。

（P97）

3．单击第一个按钮，生成20个[0，100]之间的随机整数，显示于文本框Text1中，单击第二个按钮，求这20个随机整数中的最大数，并将其显示在文本框Text2中。

（P138）

4．用InputBox函数输入三个数，选出其中的最大数和最小数，显示于窗体上。

（P82）

5．编写求解一元二次方程

的实数根（假设

）的程序，程序界面自己设计。

（P79）

6．键盘输入a,b,c的值，判断它们能否构成三角形的三条边。

如果能够构成一个三角形，则计算三角形的面积。

（P66）

7．利用随机函数产生10个两位数，用选择法完成10个随机数据的升序排列。

（P124）

8．输入x,计算y的值

（1+2x）/3（x≥0）

y=

sin（x+4）/cos（x）（x<0）（P82）

9．输入球的半径，然后计算球的体积和表面积。

10．输出1000～2000之间奇数。

11．输入一个整数，判断奇偶性。

12．求1～101之间偶数之和。

（P85）

13．输入x,计算y的值

1+2x（x≥0）

y=

sin（x+4）（x<0）

15．输出1000～2000之间能被17整除的数。

16．已知数组有20个数，试求其中最大者（这20个数据用随机数产生）。

（P82）

17．给出两个正数数，用辗转相除法，求它们的最大公约数和最小公倍数。

（P90）

18．输入x,计算y的值

5+8x（x≥0）

y=

9sin（3x+7）（x<0）

19．输入x,计算y的值

10-5x（x≥0）

y=

7sin（2x-6）（x<0）

五．判断题

1．在程序执行的过程中，变量的值始终保持不变，常量的值随时改变。

答案：

错误。

与题目的叙述正好相反。

在程序执行的过程中，常量的值始终保持不变，变量的值随时改变。

2．在VB中，“FOR计数变量＝初值TO终值[STEP步长]”语句中的“步长”不能为0，否则造成死循环。

答案：

正确。

在VB的FOR循环中，如果步长为0，则计数变量永远也不会超过终值，所以是死循环

1.面向对象程序设计是一种以对象为基础,由事件驱动对象执行的设计方法。

（）

2.属性是用来描述和反映对象特征的参数，对象的所有属性既可以在属性窗口中设置，又可以在程序代码通过赋值实现。

3.检查框的Value属性设置为2-grayed时，检查框将变成灰色。

（）

4.InputBox函数返回的是数值型数据。

（）

5.列表框中包含了组合框的功能。

（）

6.在MDI应用程序中，每次只能有一个活动的子窗体可以进行输入/编辑。

（）

7.移动框架时框架内的控件也跟随移动，所以框架内各控件的Left和Top属性值也将分别随之改变。

（）

8.能够使命令按钮不能使用的属性是Visible。

（）

9.如果让时钟控件每半秒钟发一个Timer事件，则Interval属性应设置为0.5。

（）

１、设置属性的语句格式为：

“对象名．属性名＝属性值”．

２、若用户在键盘上按下一个键，则会产生一个单击事件（Click事件）．

３、ＶＢ的赋值语句只能给变量赋值．

４、在ＶＢ中，字符型常量应使用＂＃＂号将其括起来．

５、窗体大小只能通过鼠标拖动窗体边框来设置．

1．在定义了一个函数后，可以象调用任何一个VB内部函数一样使用它，即可以在任何表达式、语句或函数中引用它。

（）

2．VisualBasic表达式为：

1284+COS（28）（）

3．VisualBasic表达式为：

3*cos（c+d）^2或3*cos（c+d）*cos（c+d）（）

4.VB程序语言两个基本特点是：

结构化和事件驱动编程。

（）

5．二进制文件与随机文件的主要区别是：

二进制文件与随机文件类似，必须限制固定长度，可用喜欢的方式来存取文件。

（）

6在VB6.0中包括四个文件类控件，它们分别是DriveListBox控件，DirListBox控件、FileListBox控件和CommandDialog控件。

（）

7．动态菜单，就是菜单中列出了最近使用过的文件名，这部分内容是随着应用程序的运行而不断改变着的，在动行时使菜单可以增长。

（）

8．按照文件的存取方式及其组成结构可以分为两种类型：

文本文件和随机文件。

（）

9．函数过程（FunctionProcedure）用来完成特定的功能但不返回相应的结果。

（）

10．设A=3，B=4，C=5，D=6，计算表达式A>BANDC<=DOR2*A>C的值是False。

（）

1．正确

2．错误。

正确的形式是：

128/4+COS（28*3.14159/180）

3．正确

4．错误。

正确答案是：

VB的两个基本特点是：

可视化设计和事件驱动编程。

5．错误。

正确答案是：

二进制文件与随机文件类似，不必限制固定长度，可用喜欢的方式来存取文件。

6．正确

7．正确

8．错误。

正确答案是：

按照文件的存取方式及其组成结构可以分为两种类型：

顺序文件和随机文件。

9．错误。

正确答案是：

函数过程（FunctionProcedure）用来完成特定的功能并返回相应的结果。

错误。

应为True。