vb第二阶段复习题.docx

vb第二阶段复习题.docx

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

vb第二阶段复习题

Vb第二阶段复习题

常用标准控件

选择题1

1．要把一个命令按钮设置成无效，应设置其哪一个属性值　　　　。

A．VisibleB．EnabledC．DefaultD．Cancel

【解答】B

2．执行x$=InputBox（"请输入x的值"）时，在弹出的对话框中输入123，在列表框Listl选中第1个列表项（数据为456）。

使y的值是123456的语句是　　　　。

A．y=x$+Listl．List

（1）B．y=Val（x$）+Val（Listl．List（0））

C．y=Val（x$）+Val（Listl．List

（1））D．y=Val（x$）&Val（Listl．List（0））

【解答】D

3．要设置计时器控件的定时时间，需设置的属性是　　　　。

A．IntervalB．EnabledC．ValueD．Text

【解答】A

4．移动控件位置的组合按键是　　　　。

A．Shift键+“方向箭头”B．Alt键+“方向箭头”

C．Ctrl键+“方向箭头”D．Space键+“方向箭头”

【解答】C

5．控件名称都是系统的默认控件名，下列语句错误的是　　　　。

A．Command1.Caption=List1.Text

B．Label1.Caption=List1.List

（1）

C．List1.List

（2）=List1.Text+Str（List1.ListIndex）

D．Text1.Text=List1.Name+Text1.Caption

【解答】D

6．窗体中含有一个滚动条Hscrol1、一个标签Label1、一个形状控件Shapel。

滚动条的属性Max、Min、LargeChange、SmallChange值分别为1000、0、50、10。

形状为一个红圆。

代码如下：

PrivateSubHscroll1_Changed（）

Label1.Caption="Changed"

EndSub

PrivateSubHscroll1_Scroll（）

Label1.Caption="Changing"

Shape1.Left=Hscrol1.Value

EndSub

运行时，用户单击滚动条右端箭头但是不释放左键时，标签显示　　　　，红圆　　　　；用户拖动滑块时，标签显示　　　　，红圆　　　　。

则依次填入以上各空正确的一项是　　　　。

A．Changed、不移动、Changing、向右移动

B．Changing、不移动、Changed、向右移动

C．Changed、向右移动、Changing，不移动

D．Changing、向右移动、Changed、不移动

【解答】A

7．窗体上有一个命令按钮Command1、一个文本框Text1和一个列表框List1。

文本框用来输入要添加到列表框中的项目内容。

程序运行后，单击命令按钮，会将文本框中的内容放入列表框中。

程序如下：

PrivateSubCommandl_Click（）

Textl.Text=""

Textl.SetFocus

EndSub

程序的空白行应填写语句　　　　。

A．List1.Text=Text1.TextB．Listl.List=Textl.Text

C．Listl.AddItem=Textl.TextD．Listl.AddItem=Textl.Text

【解答】D

8．不能触发滚动条Change事件的操作是　　　　。

A．拖动滚动条中滑块B．单击滚动条中滑块

C．单击滚动条两端箭头D．单击箭头与滑块之间的滚动条

【解答】B

9．单选按钮控件（OptionButton）和复选框（CheckBox）控件都有Value属性，它们有什么区别　　　　。

【解答】OptionButton控件的属性值是逻辑类型，CheckBox控件的属性值是数值类型。

10．向列表框控件添加项目和从列表框控件中删除项目所使用的方法的格式分别是

　　　　和　　　　。

【解答】ListBox1.AddItem项目名称[顺序号]；ListBox1.RemoveItem

11．在设计阶段看得见，在运行阶段看不见的控件是　　　　控件，使用该控件时一定要用到的属性项是　　　　。

【解答】计时器；Interval

选择题2

1．下列关于属性设置的叙述错误的是　　　　。

A．一个控件具有什么属性是VisualBasic预先设计好的，用户不能改变它

B．一个控件具有什么属性值是VisualBasic预先设计好的，用户不能改变它

C．一个控件的属性既可以在属性窗口中设置，也可以用程序代码设置

D．一个控件的属性在属性窗口中设置后，还可以再利用程序代码为其设置新值

2．以下过程是标签Label1的　　　　事件。

PrviateSubLabel1_Click（）

EndSub

A.单击B.双击C.拖拽D.移动

3．下列控件中可设置滚动条是　　　　。

A.检查框（复选框）B.框架C.文本框D.标签框

4．标签所显示的内容，由　　　　属性值决定。

A.TextB.NameC.CaptionD.Alignment

5．定时器的定时间隔单位是　　　　。

A.秒B.微秒C.毫秒D.分

6．检查框（复选框）的控件名称为　　　　。

A.OptionBottonB.CheckBoxC.PictureBoxD.Image

7．若要求向文本框输入密码时，只在文本框中显示&号，则应当在此文本框的属性窗口中设置　　　　。

A.Text属性值为&B.Caption属性值为&　

C.PasswordChar属性值为空D.PasswordChar属性值为&

8．若要设置定时器的定时间隔，可通过　　　　属性来设置。

A.IntervalB.ValueC.EnabledD.Text

9．若要设置定时器的定时间隔设为5秒，应将Interval属性值设为　　　　。

A.5B.50C.500D.5000

10．若要使不可见命令按钮显示出来，可通过设置　　　　属性的值为True来实现。

A.VisibleB.EnabledC.DefaultD.Value

11．若要使定时器起作用，应将其　　　　属性设置值设为True。

A.IntervalB.ValueC.TextD.Enabled

12．若要使命令按钮失效，可设置　　　　属性为False来实现。

A.ValueB.EnabledC.VisibleD.Cancel

13．若要向列表框新增列表项，可使用　　　　方法来实现。

A.AddB.RemoveItemC.ClearD.AddItem

14．要获得垂直滚动条Vscrollbar控件所能表示的最大值，可通过调用该控件的

　　　　属性来实现。

A.ValueB.MaxC.MinD.LargeChange

15．要将命令按钮上的文字设置为“粗体”可通过设置　　　　属性值为True来实现。

A.FontItalicB.FontBoldC.FontUnderlineD.FontSize

16．要将命令按钮上的文字设置为“斜体”可通过设置　　　　属性值为True来实现。

A.FontItalicB.FontBoldC.FontUnderlineD.FontSize

17．要将命令按钮上的字体设为“隶书”，可设置　　　　的属性为“隶书”。

A.FontBoldB.BackItalicC.FontNameD.FontSize

18．以下选项中，不属于单选按钮属性的是　　　　。

A.EnabledB.CaptionC.NameD.Min

19．组合框的风格可通过　　　　属性来设置。

A.BackStyleB.BorderStyleC.StyleD.Sorted

20．标签的边框由　　　　属性的设置来决定。

A.BackColorB.BackStyleC.BorderStyleD.AutoSize

21．单选按钮的控件名称为　　　　。

A.BottonB.CheckBoxC.PictureBoxD.OptionBotton

22．单选按钮的当前状态可通过　　　　属性来访问。

A.ValueB.CheckedC.SelectedD.Caption

23．当滚动条中的滑块位置变化时，将触发其　　　　事件。

A.LostFocusB.SetFocusC.ChangeD.GetFocus

24．假定Picture1和Form1分别为图片框和窗体的名称，以下语句　　　　可清除图片框中的文本信息。

A.Picture1.clsB.Picture1.clearC.Form1.clsD.Form1.clear

25．确定一个窗体或控件的大小的属性是　　　　。

A.Width或HeightB.Width和Height

C.Top或LeftD.Top和Left

26．确定一个控件在窗体上的位置的属性是　　　　。

A.Width或HeightB.Width和Height

C.Top或LeftD.Top和Left

27．若要获得当前列表项的数目，可通过访问　　　　属性来实现。

A.ColumnsB.TextC.ListIndexD.ListCount

28．若要获得滚动条的当前值，可通过访问　　　　属性来实现。

A.TextB.ValueC.MaxD.Min

29．若要将命令按钮设置为默认按钮，可设置　　　　属性为True来实现。

A.CancelB.ValueC.EnabledD.Default

30．若要清除列表框中列表项，可使用　　　　方法来实现。

A.AddB.RemoveItemC.ClearD.AddItem

31．若要设置文本框最大可接收的字符数，可通设置　　　　属性值来实现。

A.MultilineB.LengthC.MinD.MaxLength

32．若要使标签成为透明，可通过设置　　　　属性来实现。

A.BackColorB.BackStyleC.BorderStyleD.ForeColor

33．若要使标签的大小自动与所显示的文本相适应，可通过设置　　　　属性的值为True来实现。

A.AutoSizeB.AlignmentC.ApperanceD.Visible

34．若要使只读文本框成为可编辑文本框，可通设置　　　　属性值为False来实现。

A.ReadOnlyB.UnlockC.EnabledD.Locked

35．若要在列表框中同时选择多项，可通过设置列表框对象的　　　　属性来实现。

A.ColumnsB.StyleC.MultiSelectD.List

36．用户在组合框中所输入的数据，可通过访问组合框对象的　　　　属性来获得。

A.TextB.ListC.ListindexD.ListCount

37．用鼠标选择列表框中的项目，将触发其　　　　事件。

A.ChangeB.ClickC.SelectD.ItemCheck

38．在VB窗体要设计两组单选按钮，应用　　　　控件对其分组。

A.PictureB.ImageC.LabelD.Frame

39．在运行时，若要能调用某命令按钮的Click事件过程，应将该按钮的　　　　属性设置为True。

A.VisibleB.EnabledC.DefaultD.Value

40．标签中内容的对齐方式，由　　　　属性值决定。

A.TextB.NameC.CaptionD.Alignment

41．当拖动滚动条时，将触发其　　　　事件。

A.LostFocusB.SetFocusC.ScrollD.GetFocus

42．假定Picture1,Form1，Text1，Label1分别为图片框、窗体、文本框、标签的名称，程序代码如下，单击图片框时，清除下列哪个对象的内容　　　　。

PrivateSubPicture1_Click（）

Cls

EndSub

A.Picture1B.Text1C.FormD.Label1

43．假定Picture1和Text1分别为图片框和文本框的名称，下列不正确的语句是　　　　。

A.Print25B.Picture1.Print25C.Text1.Print25D.Debug.Print25

44．若要将图片"D:

\PIC\CAR.JPG"载入到当前的图片框（PictureBox）中，应用　　　　命令。

A.LoadFileB.LoadPictureC.LoadPicD.LoadJPG

45．若要设置列表框的选择方式，可通过　　　　属性设置来实现。

A.ColumnsB.StyleC.MultiSelectD.List

46．若要设置命令按钮为图形风格的按钮，可通过将　　　　属性设置为Graphical。

A.StyleB.BorderStyleC.BackStyleD.Apperance

47．若要使命令按钮获得控制焦点，可使用　　　　方法来设置。

A.RefreshB.SetFocusC.GetFocusD.LostFocus

48．要设置Hscrollbar控件在单滚动箭头时Value属性值的变化幅度，可通过调用该控件的　　　　属性来实现。

A.ValueB.SmallChangeC.MinD.LargeChange

49．在图片框（PictureBox）中显示的图形，由对象的　　　　属性决定。

A.PictureB.ImageC.IconD.LoadPic

数组

选择题

1．下列程序

OptionBase1

PrivateSubForm_Click（）

Dima（100）

Fori=1To10

j=i*i

a（j）=j

Nexti

Printa（25）;

EndSub

程序运行时输出的结果是　　　　。

A．16B．25C．36D．出错信息

【解答】B

2．程序改错：

程序有两处错误，请改正之。

不可以删除语句，也不可以增加语句。

SubForm_Click（）

ReDima（5）

a（）=Array（26,37,15,49,7,87）

b=Famax（a）

Printb

EndSub

PrivateFunctionFamax（aa（）AsVariant）

DimbeginnoAsInteger,endnoAsInteger

DimkAsInteger

Beginno=LBound（aa）

Endno=UBound（aa）

max=aa（beginno）

Fork=beginnoToendno

Ifaa（k）>maxThenmax=aa（k）

Nextk

Famax=max

EndSub

【解答】该语句应改为：

b=Famax（a（））。

3．下列程序

OptionBase1

PrivateSubForm_Click（）

Dima

a=Array（19,17,15,13,11,9,7,5,3,11）

Fori=1To10

Ifa（i）/3=a（i）\3Ora（i）/5=a（i）\5Then

Sum=Sum+a（i）

EndIf

Nexti

Print"Sum=";Sum

EndSub

运行时输出Sum的值是　　　　。

A．27B．15C．32D．20

【解答】C

4．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：

OptionBase1

PrivateSubCommand1_Click（）

Dima（4,4）

Fori=1To4

Forj=1To4

a（i,j）=（i-1）*3+j

Nextj

Nexti

Fori=3To4

Forj=3To4

Printa（j,i）

Nextj

Print

Nexti

EndSub

程序运行后，单击命令按钮，其输出结果为　　　　。

A．69710B．710C．811D．9121013

【解答】D

5．下面程序的功能是：

程序从键盘读取40个数保存到数组A中，将一维数组A中各元素的值移到后一个元素中，而最末一个元素的值移到第一个元素中去。

然后，按每行4个数的格式输出。

请在画线处填入适当内容，将程序补充完整：

OptionBase1

PrivateSubCommand1_Click（）

Dima（40）AsInteger

Fori=1To40

a（i）=Val（InputBox（"请输入一个整数"））

Nexti

b=a（40）

Fori=　[1]　

a（i+1）=a（i）

Nexti

a

（1）=b

Fori=　[2]　

Printa（i）；

Ifi　[3]　4=0ThenPrint

Nexti

EndSub

【解答】[1]39To1Step

过程

 选择题

1．使用过程编写程序主要是为了　　　　。

A．使程序模块化B．使程序易于阅读

C．提高程序运行速度D．便于系统的编译

【解答】A

2．关于正常退出Sub和Function过程说明正确的是　　　　。

A．过程的最后一条语句是EndSub（或EndFunction），因而一定要执行到EndSub（或EndFunction）才会结束过程的执行

B．一个过程可以没有ExitSub（或ExitFunction）语句，如果有则只能有一条这样的语句

C．一个过程既可以通过ExitSub（或ExitFunction）语句结束过程的执行，也可以通过EndSub（或EndFunction）结束过程的执行

D．可以用GoTo语句来退出Sub过程

【解答】C

3．下列关于函数说明正确的是　　　　。

A．定义函数过程时，若没有用As子句说明函数的类型，则函数过程与Sub过程一样，都是无类型过程

B．在函数体中，如果没有给函数名赋值，则该函数过程没有返回值

C．函数名在过程中只能被赋值一次

D．函数过程是通过函数名返回函数值的

选项D正确。

【解答】D

4．过程调用语句中，被调用的过程一定是Sub过程的语句是　　　　。

A．CallPro1（a1,b1）B．Pro2（a2,b2）

C．PrintPro3（a3,b3）D．x=Pro4（a4,b4）

【解答】A

5．设有子过程Pro1，有一个虚参变量。

下列调用语句中，按传址方式传递数据的语句是　　　　。

A．CallPro1（a）B．CallProl（12）

C．CallPro1（a*a）D．CallProl（12+a）

【解答】A

6．下列过程定义语句中，虚参个数不确定的过程是　　　　。

A．PrivateSubPro3（xAsDouble,yAsSingle）

B．PrivateSubPro3（An（3）,Optionx,Optiony）

C．PrivateSubPro3（ByRefx,ByValy,arr（））

D．PrivateSubPro3（ParamArrayArr（））

【解答】D

7．下列程序

Dimb

PrivateSubForm1_Click（）

a=1：

b=1

Print"A=";a;",B=";b

Callmult（a）

Print"A=";a;",B=";b

EndSub

PrivateSubmult（x）

x=2*x

b=3*b

EndSub

运行后的输出结果为　　　　。

A．A=1B=1B．A=1B=1C．A=1B=1D．A=1B=l

A=1B=1A=2B=3A=1B=3A=2B=l

【解答】B

8．下列定义的函数过程正确的是　　　　。

A．PrivateFunctionF1（x,y）

DimzAsSingle

z=x+y

F1=z

EndFunction

EndSub

B．PrivateFunctionF1（x,y）AsSingle

DimxAsSingle,yAsSingle

F1=x+y

EndFunction

C．FunctionF1（xAsSingle,yAsSingle）

F1=x+y

EndFunction

D．FunctionF1（x,y）AsSingle

DimzAsSingle

z=x+y

EndFunction

【解答】C

9．程序如下：

PrivateSubForm_Click（）

DimaAsInteger,bAsInteger

a=1O:

b=20

Callff（a,b）

Printa,b

EndSub

PrivateSubff（xAsInteger,yAsInteger）

x=x+y

y=x+y

EndSub

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

A．1020B．2020C．3030D．3050

【解答】D

10．程序填空：

在程序的空白行写上适当的语句，使程序完成相应的计算。

程序的功能是：

用随机函数给数组元素赋任意3位整数。

然后计算一数组Am的元素之和。

PrivateSubForm_Click（）

DimArr1（10）AsInteger,kAsInteger,sAsInteger

Fork=0To10

　[1]　

Nextk

CallSum（Arr1（）,s）

Print"数组元素之和是:

"+Format（s）

EndSub

　[2]　

DimjAsInteger

Forj=0To10

ss=ss+Arr2（j）

Nextj

EndSub

【解答】[1]Arr1（k）=Int（（Rnd（）*1000）；

[2]PrivateSubSum（Arr2（）AsInteger,ssAsInteger）

填空题

1．以下事件过程的功能是：

从键盘输入一个实数，将其四舍五入后输出。

请在空白行填写适当的语句。

PrivateSubCommand1_Click（）

x=InputBox（"请输入一个实数"）

y=　　　　

Printy

EndSub

2．以下事件过程的功能是：

第1次单击命令按钮，输出**；第2次单击命令按钮，输出****；如此继续。

即每单击一次命令按钮，比上一次多输出2个"**"。

请在空白处填写适当的语句。

DimstrAsString

PrivateSubCommand1_Click（）

PrintStr;

EndSub

3．需要对过程名进行赋值的过程是　　　　过程。

4．如下程序，运行的结果是　　　　，函数过程的功能是　　　　。

PublicFunction