VB复习题.docx

VB复习题.docx

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

VB复习题

复习题1

一、选择题（每题2分,共30分）

1．以下四个VB的变量名中，合法的是_________。

    A.Sum

    B.R$e

    C.Print

    D.3xy

2．在声明一个过程中必须有的是_________。

    A．Private关键字

    B．SUB关键字

    C．返回值类型说明

    D．参数

3．把Form1的标题改为“文档资料”的语句是_________。

    A．Form1.Text=“文档资料”

    B．Form1.Text=文档资料

    C．Form1.Caption=“文档资料”

    D．Form1.Title=“文档资料”

4．下面在文本框Text1内显示变量ST内容的语句是_________。

    A．ST=Text1.Text

    B．Text1.showST 

    C．Text1.Text=ST

    D．Text.Text1=ST

5．要在设计的菜单中出现分隔条需要_________。

    A．在标题框内输入"————————"

    B．在标题框内输入"—"

    C．在名称框内输入"—"

    D．在名称框内输入"&—"

6．下列选项中窗体载入事件为_________。

A.Load事件B.Click事件

C.DblClick事件D.Unload事件

7．在块结构条件语句If-Then/Endif中_________。

A.必须至少有一个Elseif语句

B.可以有任意多个ElseIf-Then语句

C.如果没有Else语句，运行时将出现错误

D.给定的条件只能是关系表达式或逻辑表达式

8．以下Case语句中错误的是_________。

A.Case10To1

B.CaseIs>10

C.CaseIs>10,Is<50

D.Case3,5,Is>10

9．对DoUntil…Loop循环，正确的是_________。

A．如果循环条件为常数0，则一次循环也不执行

B．如果循环条件为常数0，则至少执行一次循环

C．如果循环条件是不为0的常数，则至少执行一次循环

D．无论循环条件是否为"True"，则至少执行一次循环

10、从键盘上能够输入两个字符串，分别保存在变量str1、str2中。

确定第二个字符串在第一个字符串中起始位置的函数是_________。

ALeftBMid

CStringDInstr

11.模拟方形骰子投掷的可能性的表达式是_________。

A）Int（6*Rnd

（1））B）Int（1+6*Rnd

（1））

C）Int（6*Rnd

（1）-1）D）Int（7*Rnd

（1）-1）

12、引用列表框的最后一项应使用_________。

A）List1.List（List1.ListCount-1）

B）List1.List（List1.ListCount）

C）List1.List（ListCount）

D）List1.List（ListCount-1）

13.在窗体上画一个文本框（名称为Text1）和一个标签（名称为Label1），程序运行后，如果在文本框中输入文本，则标签中立即显示相同的内容。

以下可以实现上述操作的事件过程是_________。

A.PrivateSubText1_Change（）

　  　Label1.Caption=Text1.Text

  EndSub

B.PrivateSubLabel1_Change（）

　　  Label1.Caption=Text1.Text

  EndSub

C.PrivateSubText1_Click（）

　  　Label1.Caption=Text1.Text

　EndSub

D.PrivateSubLabel1_Click（）

　  　Label1.Caption=Text1.Text

  EndSub

14.以下程序段的输出结果是_________。

x=1

y=4

DoUntily＞4

　　x=x*y

y=y＋1

Loop

Printx

A.1       B.4       C.8       D.20

15.在窗体上画一个命令按钮（其名称为Commandl），然后编写如下代码：

_________。

　　PrivateSubCommandl_Click（）

　　Dima

　　a=Array（1,2,3,4）

　　I=3：

j=1

　　DoWhilei＞=0

　　s=s＋a（i）*j

　　i=i-1

　　j=j*10。

　Loop

　　Prints

　　EndSub

　　运行上面的程序，单击命令按钮，则输出结果是

　　A）4321       B）123        C）234        D）1234

二、填空题（第1-10每空1分，第11-15每空2分，共20分）

（以下1至10空，每空2分，共10分）

1．设置对象属性的方法有两种，其一是在设计阶段，在__属性窗口__中直接修改相应属性的值，其二是在应用程序运行时，通过__代码__来动态设置。

2．组合框（ComboBox）控件是___组合列表框____和___文本框__组合而成的一种控件，因而它兼有这两种控件的特性。

3．在VB程序设计中，通常采用_____PopupMenu_____方法来创建一个弹出式菜单。

4．当用户增加、删除或修改文本框（TextBox）的内容时，都会触发文本框的____Change______事件。

5.在VB中,若要使一个文本框（Text）中的内容在超过文本框的宽度时能够自动换行显示,应当将这个文本框的__MultiLine____属性的值设置为True。

6．设有如下程序语句：

ForI=1To100Step7

         S=S+1

NextI

在该循环语句中，循环体S=S+1的循环执行次数应为______15________。

7．我们可以通过设置单选按钮的____checked_______属性来改变单选按钮的状态。

8．设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从1到5，第二维下标从-2到6，则相应的数组声明语句为__DimA（1TO5，-2TO6）_。

（以下11至15空，每空2分，共10分）

9.设执行以下程序段时依次输入1、3、5，执行结果为___1____。

Dima（4）AsInteger,b（4）AsInteger

ForK=0To2

a（K+1）=Val（InputBox（"请输入数据:

"））

b（3-K）=a（K+1）

NextK

Printa（K）,b（K）

10.窗体中有图片框（Picture1）和计时器（Timer1）两个控件，运行程序时，将图片加载到图片框中，然后图片框以每2秒钟一次的速度向窗体的右下脚移动，每次向左、向右移动100twip（20分之一像素）。

请填空：

      dim x,y As Integer

PrivateSub Form_load（）

         Picture1.picture=loadPicture（“c:

\pic\ball.ico”）

    Timer1  .Interval=200

x=0

y=0

      End Sub

      Private Sub Timer1_Timer（）

       Ifx>=picture1.widthory>=picture1.heightthen

x=0

y=0

____Endif______

Picture1. left   =x+100

Picture1.top=y+100

    End Sub

三、完成程序题（每题10分，共20分）

1.程序功能：

下面的事件过程判断文本框Text1中输入的数所在区间，并在文本框Text2中输出判断结果

'--------------------------------------

PrivateSubCommand1_Click（）

Dimint1AsInteger

'**********SPACE**********

int1=Val（Text1.Text）

SelectCaseint1

Case0

Text2.Text="值为0"

'**********SPACE**********

CaseIs>=1andIs<=10

Text2.Text="值在1和10之间（包括1和10）"

'**********SPACE**********

CaseIs>10

Text2.Text="值大于10"

CaseElse

Text2.Text="值小于0"

ENDSELECT

EndSub

2、以下程序在文本框Text1中输入任一字符串，并按相反的次序显示在文本框Text2中。

PrivateSubCommand1_Click（）

DimNAsString,CASString,DASString

N=Text1.Text

M=Len（Text1.Text）

ForI=MTo1STEP-1

C=Mid（N,I,1）

D=D&C

NextI

Text2.Text=D

EndSub

四、程序设计题（每题10分，共30分）

1.该程序用于增加、修改、删除列表框中的项目，窗体中的对象如图2所示。

当我们在列表框中的项目上单击时，该项目即出现在文本框中。

单击“增加”按钮可将文本框中的内容增加到列表框中；在文本框中编辑你所选中的项目后单击“修改”按钮可用于修改你所选中的列表框中的项目；单击“删除”按钮用于删除你所选中的列表框中的项目，同时清空文本框。

请给下列事件过程填写代码。

图2

PrivateSubForm_Load（）

‘向列表框中添加下列项目。

List1.AddItem"青岛大学"

   List1.AddItem"武汉大学"

   List1.AddItem"吉林大学"

EndSub

PrivateSubList1_Click（）

   '该按钮用于将你所选中的列表框中的项目显示在文本框中

   Text1.Text=list1.___________List（List1.Listindex）______________________

EndSub

PrivateSubCommand1_Click（）

   '该按钮用于将文本框中的内容增加到列表框中

   List1.AddItem___________Text1.Text______________________

EndSub

PrivateSubCommand2_Click（）‘删除按钮

'该按钮用于删除你所选中的列表框中的项目，同时清空文本框。

__________List1.Removeitem（List1.Listindex）_________ 

Text1.Text=””

EndSub

PrivateSubCommand3_Click（）‘修改按钮

'该按钮用于修改你所选中的列表框中的项目。

______________List1.List（List1.Listindex）=inputBox（“请输入新的值：

”）___

______________空____________________

EndSub

2.编写程序用于计算N=1×2×3×…×100。

Dimiasinteger,sasDouble

s=1

Fori=1to100step1

s=s*i

Nexti

Prints

3.编写一求平均值的函数aver（x,y）。

主调程序调用函数过程求平均值并输出。

界面如下图所示。

PrivateFunctionaver（xAsDouble,yAsDouble）AsDouble

aver=（x+y）/2

EndFunction

复习题2

一、选择题（每题2分,共30分）

1．语句Dimarr（-3To5,2To6）AsInteger定义的数组元素有_______个。

A）45B）40C）11D）54

2、以下选项中，不属于标签的属性是。

A）EnabledB）CaptionC）DefaultD）Font

3、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是。

A）CaptionB）NameC）TextD）Label

4、设置一个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改变的属性是。

A）CaptionB）NameC）TextD）Value

5、以下选项中，不是VisualBasic控件的是。

A）窗体　　B）定时器　C）单选框　D）命令按钮

6、窗体Form1的Name属性是Frm1,它的单击事件过程名是。

  A）Form1_ClickB）Form_Click

C）Frm1_ClickD）Me_Click

7、若要设置定时器控件的定时时间，需设置的属性是。

　　A）Enabled　　B）Value　　C）Interval　　D）Text

8、能够改变复选框中背景颜色的属性是。

A）ValueB）FontColor

C）BackColorD）Font

9.设a=5,b=6,c=7,d=8，执行语句X=Ilf（（a＞b）And（c＞d）,10,20）后，x的值是。

　　A）10         B）20         C）30         D）200

10．以下关于PictureBox控件和Image控件的描述中，错误的选项是_________。

    A）设置Image控件的stretch属性，可使该控件根据本身的大小来调整图片的大小。

    B）PictureBox控件支持Print方法，而Image控件不支持该方法。

    C）Image控件可作为其他控件的容器。

    D）PictureBox控件和Image控件都可以利用LoadPicture函数在程序运行阶段装载需要的图片进行显示。

11.在参数传递过程中，使用关键字来修饰参数，可以使之按值传递。

A）ByValB）BYRefC）ValueD）Reference

12.Sub过程与Function过程最根本的区别是。

。

A）Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以

B）Function过程可以有参数，Sub过程不可以

C）两种过程参数的传递方式不同

D）Sub过程的过程名不能返回值，而Function过程能通过过程名返回值

13.下列循环能正常结束循环的是

A）

i=5

Do

i=i+1

LoopUntili＜0

B）

i=1

Do

i=i+2

LoopUntili=10

C）

i=10

Do

i=i+1

LoopUntilI＞0

D）

i=6

Do

i=i-2

LoopUntilI=1

14.．在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下的事件过程：

PrivateSubCommand1_Click（）

s=0

Fori=0To15

X=2*i-1

IfXMod3=0Thens=s+1

Nexti

Label1.Caption=s

EndSub

程序运行后，单击命令按钮，则标签中显示的内容为

A）1B）5C）27D）45

15．在窗体上画一个名称为Command1的命令按钮，一个名称为Label1、Label2、Label3的标签，然后编写如下的事件过程：

PrivatexAsInteger

dimyAsInteger

PrivateSubCommand1_Click（）

DimzAsInteger

n=10

z=n+z

y=y+z

x=x+z

Label1.Caption=x

Label2.Caption=y

Label3.Caption=z

EndSub

运行程序后，连续三次单击命令按钮后，则三个标签中显示的内容分别是

A）101010B）303030

C）303010D）103030

二、填空题（每空2分，共20分）

（以下1至10空，每空2分，共10分）

1.可用窗体的____print____ 方法在窗体中显示文字。

2．当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的__属性___窗口中，把此文本框的___text__属性设置成空白。

3．要想在代码中给名为txtshow的文本框赋予文本：

GOODWORK，应当编写的语句是_____txtshow.text=“GOODWORK”______。

4．Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用______Lable_____控件；若允许用户输入文本，则应使用_______TextBox______控件。

5．PictureBox控件可通过设置其_____AutoSize_____属性为True使之可自动调整大小；而Image控件可通过设置其_____stretch______属性为True，使其加载的图片能自动调整大小以适应Image。

6．已知a=3，b=4，c=5，表达式a>bandNotc>aOrc>bAndc

表达式c>aAndNotb

（以下11至15空，每空2分，共10分）

一个单击按钮过程，其作用是产生50个60～100的随机数，统计其中被6整除余2的个数，并将这些数输出。

请填空：

      PrivateSubCommand1_Click（）

        Dim x As Integer, N%

        Dim Counter As Integer

        Counter=0

         For N=1 To50

           X=Rnd（）*  Rnd（）*41+60  

           If xmod6 =2 Then

             Print x

             Counter=Count+1  

            ENDif         

            NextN      

        Print Counter

      End Sub

三、完成程序题（每题10分，共20分）

1、如果一个正整数从高位到低位上的数字递减，则称此数为降序数。

例如：

5433、887等都是降序数。

本程序当单击命令按钮时，从键盘输入一个正整数，调用numDecl过程判断输入的数是否是降序数，并在单击事件过程中输出判断结果。

PrivateSubCommand1_Click（）

DimnAsLong,flagAsBoolean

n=InputBox（"请输入一个正整数"）

CallnumDecl（n,flag）

Ifflag=trueThen

Printn;"是降序数"

Else

Printn;"不是降序数"

EndIf

EndSub

PrivateSubnumDecl（nAsLong,flagasBoolean）

DimxAsString,iAsInteger

x=Trim（Str（n））

Fori=1ToLen（x）

IfMid（x,i,1）

Nexti

Ifi=Len（x）+1Thenflag=TrueElseflag=False

EndSub

2.输入任意长度的字符串,要求将字符顺序倒置,例如,将输入的"ABCDEFG"变换成"GFEDCBA",请在空处填入相应的内容.

PrivateSubCommand1_Click（）

Dima$,i%,c$,d$

a=ImputBox$（"输入字符串"）

n=Len（a）

Fori=1Ton/2

C=Mid（a,i,1）

Mid（a,i,1）=Mid（a,n+1-i,1）

Mid（a,n+1-i,1）=c

Nexti

Printa

EndSub

四、程序设计题（每题10分，共30分）

1.用文本框显示按钮单击次数，按钮名称属性为cmdCount，文本框名称属性为txtShowCount。

布置属性窗口如图1所示，请填空完成代码。

图1

OptionExplicit

______________________

PrivateSubForm_Load（）

   nCount=0

EndSub

PrivateSub_______________（　）'按钮单击

   nCount=nCount+1

   ________________=Str（nCount）'显示

EndSub

2、编写程序用于计算N=1+3+5+…+99。

dimiasinteger,sasinteger

s=0

fori=1to99step2

s=s+i

nexti

prints

3.编写函数fun，函数的功能是：

求1到m之间的偶数之积。

DimyasDouble,iasInteger

y=1

Fori=1tom

IfiMod2=0Then

y=y*i

Endif

Nexti

fun=y