VB课后习题答案-选择题

1、下面不是VB工作模式的是（C）

A.设计模式B.运行模式C.编模汇式D.中断模式

2、可视化编程的最大优点是（C）

A.具有标准工具箱

B.一个工程文件由若干个窗体文件组成

C.不需要编写大量代码来描述图形对象

D.所见即所得

3、下列不能打开属性窗口的操作是（C）

A.执行“视图”菜单中的“属性窗口”命令

B.按F4键C.按Ctrl+T

D.单击工具栏上的“属性窗口”按钮

4、下列可以打开立即窗口的操作是（D）

A.Ctrl+DB.Ctrl+EC.Ctrl+FD.Ctrl+G

5、VisualBasic的编程机制是（D）

A.可视化B.面向对象C.面向图形D.事件驱动

1、以F能够触发文本框Change事件的操作是（D）

A.文本框失去焦点B.文本框获得焦点

C.设置文本框的焦点D.改变文本框的内容

2、应用程序设计完成后，应将程序保存，保存的过程是（D）

A.只保存窗体文件即可

B.只保存工程文件即可

C.先保存工程文件，之后保存窗体文件

D.先保存窗体文件（或标准模块文件），之后还要保存工程文件

3、VB应用程序的运行模式是（C）

A.解释运行模式B.编译运行模式C.两者都有D.汇编模式

4、任何控件都具有的属性是（C）

A.TEXTB.CAPTIONC.NAMED.FORECOLOR

5、决定控件上文字的字体、字形、大小及效果的属性是（D）

A.TEXTB.CAPTIONC.NAMED.FONT

6、在窗体上建立了多个控件，如TEXT、LABEL1,COMMANDI,若要使程序-运行

焦点就定位在COMMAND1控件上，应将C0MMAND1控件的（B）设置为0

A.INDEXB.TABINDEXC.TABSTOPD.ENABLED

7、运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的TEXT属性进

行赋值从而改变了文本框的TEXT属性值时，将触发文本框的（D）事件

A.CLICKB.DBLCLICKC.GOTFOCUSD.CHANGE

8、在运行时，按TAB键跳过了一个可以获得焦点的控件（如文本框）,则可能是因为（D）

A.该控件的TABSTOP属性值为TRUEB.该控件的TABINDEX属性值为FALSE

C.该控件的ENABLED属性值为TRUED.该控件的ENABLED属性值为FALSE

9、为了防止用户随意将光标置于控件上，应（D）

A.将控件的TABINDEX属性设置为0

B.将控件的TABSTOP属性设置为TRUE

C.将控件的TABSTOP属性设置为FALSE

D.将控件的ENABLED属性设置为FALSE

10、若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的（D）属性

A.BACKCOLORB.BORDERSTYLE

C.FORECOLORD.BACKSTYLE

Ik如果要在文本框中输入字符时，只显示某个字符，如星号（*）,运行时，在文本框

中输入的字符仍然显示出来，而不显示星号，原因可能是（B）

A.文本框的MULTILINE属性值为TRUE

B.文本框的LOCKED属性值为TRUE

C.文本框的MULTILINE属性值为FALSE

D.文本框的LOCKED属性为FALSE

12、在运行阶段，要在文本框TEXT1获得焦点时选中文本框中所有内容，对应的事件

过程是（A）

A.PrivateSubTextl_GotFocus（）

Textl.SelStart=O

Text1,Sellength=Len（Textl.Text）

EndSub

B.PrivateSubTextl_LostFocus（）

Textl.SelStart=O

Text1.Sellength=Len（Textl.Text）

EndSub

C.PrivateSubTextl_Change（）

Textl.SelStart=O

Text1.Sellength=Len（Text1.Text）

EndSub

D.PrivateSubTextl_SetFocus（）

Textl.SelStart=O

Text1.Sellength=Len（Text1.Text）

EndSub

13>VisualBasic继承了Basic语言简单易用的语法特点，同时支持面向对象的编程机制，

其中构成其控件（对象）的三要素是（D）

A.属性、事件、事件过程B.控件、窗体、事件

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

14、决定标签（Label）显示的属性是（C）

A.TextB.NameC.CaptionD.Alignment

15、命令按钮的标题文字由（B）属性来设置。

A.TextB.CaptionC.NameD.（名称）

16、若要设置文本的显示颜色，则可用（B）属性来实现。

A.BackColorB.ForecolorC.FillColorD.Backstyle

17、在运行时，若要调用某命令钮的Click事件过程，则可设置该命令钮对象的（B）属性

为Ture来实现。

A.EnabledB.ValueC.DefaultD.Cancel

18、在运行时，若要获得用户在文本框中所选择的文本，可通过访问（D）属性来实现。

A.SelStartB.SelLenghtC.TextD.SelText

1、以下哪个是合法的变量（D）

A.rightB.abc@123C.123_abcD.abl23c

2、下列说法错误的是（B）

A.在同一模块不同过程中的变量可以同名

B.不同模块中定义的全周变量不可以同名

c.引用另一模块中的全局变量时.，必须在变量名前加模块名

D.同一模块中不同级的变量可以同名

3、把MsgBox的返回值转换为数值应该使用的函数是（D）

A.LogB.StrC.LenD.Vai

4、语句DIMAA（3,4,5）中定义的数组有（C）个元素

A.12B.60C.120D.345

5、下面程序运行后输出的结果是（B）

A$="CHINA"

B$=STRING$（3,A$）

PRINTB$

END

A.CHIB.CCCC.INAD.AAA

6、以下语句的输出结果是（C）

PrintFormat$（32548.5,"000,000.00"）

A.32548.5B.325,485.00C.032,548,50D.32,548,50

7、以下叙述中错误的是（D）

A.如果过程被定义为Static类型，则该过程中的局部变量都是Static类型

B.Sub过程中不能嵌套定义Sub过程

C.Sub过程中可以嵌套调用Sub过程

D.事件过程可以像通用过程一样由用户定义过程名

8、VisualBasic提供的OnErrorResumenext错误陷阱语句表示（C）

A.当发生错误忖，使程序转跳到语句标号为0的程序块

B.当发生错误时，不使用错误处理程序块

C.当发生错误时，忽略错误行，继续执行下一语句

D.当发生错误时，终止本过程执行，继续执行下一过程

9、在VisualBasic中，若要将控制权交给操作系统则通过（D）的语句。

A.EndB.ExitDoC.ExitSubD.DoEvents

10、在VisualBasic中语句的续行号采用（A）

A.空格与下划线B.下划线与空格C.空格与短线D.短线与空格

11、假定有以下程序段：

Fori=lto3

Forj=5to1Step-1

Printi*j

Nextj,i

则语句Printi*j的执行次数是(A)

A.15B..16C.17D.18

12、从健盘上输入两个字符串，分别保存在变量strl、str2中。确定第：个字符串在第一

个字符串中起始位置的函数是(D)

A.LeftB.MidC.StringD.Instr

13、如果将布尔常量值TRUE赋值给一个整型变量，则整型变量的值为(B)

A.0B.-1C.TRUED.FALSE

14、下列叙述不正确的是(B)

A.注释语句是非执行语句，仅对程序的内容起注释作用，它不被解释和编译

B.注释语句可以放在代码中的任何位置

C.注释语句不能放在续行符的后面

D.代码中加入注释语句的目的是提高程序的可读性

15、语句PRINT“INT(-13.2)"；INT(-13.2)的输出结果为(D)

A.INT(-13.2)=-13.2B.INT(-13.2)=13.2

C.INT(-13.2)=-13D.INT(-13.2)=-14

16、如果TAB函数的参数小于1,则打印位置在第(B)列

A.0B.1C.2D.3

17、变量未赋值时，数值型变量的值为(A)

A、0B.空C.1D.无任何值

18、下列语句中正确的是(D)

A.txt1,text+txt2.text=txt3.textB.command1,name=cmdok

C.121abeLcaption=1234D.a=inputbox("hello")

19、假设变量BOOLVAR是一个布尔型变量，则下面正确的赋值语句是(D)

A.BOOLVAR=tTRUE,B.BOOLVAR=.TRUE

C.BOOLVAR=#TRUE#D.BOOLVAR=3<4

20、以下()程序段可以实施X、Y变量值的变换(C)

A.Y=X：X=YB.Z=X：Y=Z：X=Y

C.Z=X：X=Y：Y=ZD.Z=X：W=Y：Y=Z：X=Y

21、语句PRINT“SGN(-26)="；SGN(-26)的输出结果为(D)

A.SGN(-26)=26B.SGN(-26)=-26

C.SGN(-26)=+lD.SGN(-26)=-l

22、读下面程序段，判断变量Str2的取值是(B)

DimStrl,Str2asString

Str1="University”

Str2=STRING$(3,Strl)

A.UniB.UUU

C.ityD.yyy

23、VB支持自定义数据类型，在某程序中我们定义了如下类型：

TypeStudent

numberAsstring

nameAsString

ageAsInteger

EndType

针对上述定义，如下几项用法正确的是(B)

A.S="张三"B.DimsAsStudent

s.name="张红”

C.DimsAsTypeStudentD.DimsAsType

二"张三"二"张三“

24、一个工程中包含两个名称分别为Forml、Form2的窗体，一个名称为mdlFunc的标

准模块。假定在Forml、Form2和mdlFunc中分别建立了自定义过程，其定义格式为：

Forml中定义的过程：

PrivateSubfrmfunction1()

EndSub

Form2中定义的过程：

PublicSubfrmfunction2()

EndSub

mdlFunc中定义的过程：

PublicSubmdlFunction()

EndSub

在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是（B）

A.上述三个过程都可以在工程中的任何窗体或模块中直接被调用

B.只有mdlFunction过程能够被工程中各个窗体或模块直接被调用

C.frmfunction1只能在forml中调用，而frmfunction?则可以在所有模块或窗体中被

直接调用

D.上述三个过程都只能在各自被定义的模块中直接调用

25、VB中Do……Loop结构既可以构成当型循环，也可以构成直到型循环，根据下面的

代码：

Dimi,nasInteger

n=20

i=1

Do

Printi;

i=i+2

LoopUntili>20

判断循环结构的类型和循环体的执行次数，正确的选项是（B）

A.当型循环，20次B.直到型循环，10次

C.当型循环，10次D.直到型循环，20次

26、在程序中，使用InputBox函数可以接受用户的输入，如果要把它的返回值转换为数

值型的数据，应该使用的函数是（A）

A.VaiB.Len

C.StrD.Log

27、动态数组因为在程序运行前无法确定数组的大小，所以经常根据程序的运行情况，

对数组进行重新定义，以下关于VB中动态数组的叙述中不正确的是（B）

A.可以用ReDim语句重新定义动态数组，并且可以进行多次重定义

B.首次用Dim进行动态数组声明的时候，必须指明它的类型和上下界

C.Preserve为ReDim语句的可选参数，用于保留动态数组原来的内容

D.当对动态数组使用Erase语句进行释放操作时，将释放其内存

28、VB中的控件也叫做部件或组件，主要包括三类，以下哪•项不属于VB控件的分类

（C）

A.控件B.可插入对象

C.ADO控件D.ActiveX控件

29、表达式4+5\6*7/8Mod9的值是(B)

A.4B.5C.6D.7

30、可以同时删除字符串前导和尾部空白的函数是（C）

A.LtrimB.RtrimC.TrimD.Mid

1、当程序运行时，在窗体上单击鼠标，以下哪个事件是窗体不会接收到（）

A.MouseDownB.MouseUpC.LoadD.Click

2、窗体Forml的Name属性是Frml,它的单击事件过程名是（）

A.Forml_ClickB.Form_ClickC.Frml_ClickD.Me_Click

3、用于设置通用对话框控件显示文件类型的属性是（）

A.FilterB.PathC.ParternD.FoleName

4、用于从内存删除窗体的命令是（）

A.MoveB.HideC.UnloadD.Delete

5、用于返回窗体可用区域宽度的属性是（）

A.ScaleWidthB.ScaleLeftC.ScaleHeightD.ScaleTop

6、下列关于属性设置的叙述错误的是：（）

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

B.一个控件具有什么属性是VB预先设计好的，用户可以改变

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

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

7、下列说法正确的是（）

A.对象属性只能在“属性窗口”中设置

B.一个新的工程可以在“工程窗口”中建立

C.必须先建立一个工程，才能开始设计应用程序

D.只能在“代码窗口”中编写程序代码

8、下列关于窗体上控件的基本操作错误的是（）

A.按下•次DEL键只能删除•个控件

B.按下•次DEL键可以同时删除多个控件

C.按住SHIFT键，然后单击每个要选择的控件，可以同时选中多个控件

D.按住ALT键，然后单击每个要选择的控件，可以同时选中多个控件

9、下列关于设置控件属性的叙述正确的是（）

A.用户必须设置属性值

B.所有的属性值都可以由用户随意设定

C.属性值不必一一重新设置

D.不同控件的属性项都完全一样

10、不可以通过下列()操作将焦点赋给对象

A.运行时使用TAB键B.在代码中用CALL语句调用

C.在代码中用SETFOCUS方法D.用访问键或用鼠标单击选择对象

11、要在FORM_LOAD事件过程中使用PRINT方法在窗体上输出一定的内容，应()

A.设置窗体的VISIBLE属性B.设置窗体的CAPTION

C.调用窗体的SHOW方法D.设置窗体ENABLED属性

12、下面()对象无CAPTION属性

A.FORMB.COMMANDBUTTONC.TEXTBOXD.LABEL

13、通用对话框控件和文件列表框控件中，都能根据文件的类型对要显示的文件进行筛

选过滤，后者使用()属性进行该项设置。

A.PatternB.PathC.FilterD.FileName

14、对于复选框控件chkBoy,如果在程序中设置它为选中状态，下面语句正确的是()

A.chkBoy.Checked=trueB.chkBoy.Value=true

C.chkBoy.Selected=trueD.chkBoy.Value=1

15、计时器(Timer)控件用于每隔一段时间自动触发一次Timer事件，可以有规律地重

复执行一段程序，它用于设置两次事件时间间隔的属性是()

A.IntervalB.SmallChange

C.LargeChangeD.Max

16、以下关于VB中窗体(Form)的说法中，不正确的描述为()

A.执行UnloadForm语句后，窗体Form消失，但仍在内存中

B.当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止

C.窗体的Height、width属性用于设置窗体的高和宽

D.窗体的load事件在加载窗体时发生

17、关于滚动条控件，下面说法错误的是()

A.点击滚动条的箭头，可以改变它的value值，从而引发Change事件

B.拖动滚动框，可以触发Scroll事件

C.通常，水平滚动条的值从左向右递增，垂直滚动条的值自上而下递增

D.拖动滚动框，可以触发Change事件，而且是连续触发的

18、在窗体上放置一个命令按钮，名称为Commands单击命令按钮时，执行如下事件

过程：

PriVateSubCommand1_C1ick()

a$="softwareandhardware"

b$=Right(a$,8)

c$=Mid(a$,l,8)

Msgboxa$,b$,c$,l

EndSub

则在弹Hl的信息框的标题栏中显示的信息是()

A.softWareandhardwareB.software

C.hardwafeD.出现错误

19、在多重窗体程序设计中，关键的问题是要解决不同窗体之间的衔接和窗体的显示、

关闭等问题，以下关于窗体的相关语句和方法的叙述中，错误的是()

A.Load语句用于加载指定窗体，即在内存中创建该窗体

B.Show方法兼具Load语句的功能，可以将窗体显示出来

C.Hide方法用于将窗体隐藏起来

D.Unload语句用来释放窗体，但窗体并没从内存中消

20、滚动条控件的属性中，表示取值范围最大值的属性是()

A.MaxB.LargeChange

C.MinD.Value

21、程序中如果需要检测和控制鼠标的位置和状态的改变，就需要使用鼠标事件，其中

下血哪个选项用于表示拖动事件()

A.DragDropB.MouseDown

C.MouseUpD.MouseMove

22、为了使用通用对话框进行打开文件的操作，应将通用对话框的Action属性设定为()。

A.0B.1C.2D.3

1、C2、B3、A4、C5、A6、A7、C8、A9、C10、B11、C

12、C13、A14、D15、A16、A17、D18、D19、D20、A21、C

22、B

填空题一

1当用户单击滚动条的空白处时;滑块移动的增量值山______属性决定。

Largechange

2当用ReDim语句要改变动态数组的大小时，数组元素的值会;用关键字

可保留数组元素原来的值。丢失Preserve

3为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timerl控件的

属性设置为.Interval500

4在用ShowFont方法打开通用对话框中的字体对话框前，必须先设置属性。数

值为oAction4

5已知A$="87654321",则表达式Val(Left$(A$,4)+Mid$(A$,4,2))的值为。

876554

6在刚建立工程时，使窗体上的所有控件具有相同的字体格式，应对的属

性进行设置。窗体Font

*7专门用来处理文本文件的访问模式是o顺序访问模式

8在窗体上已建立多个控件如Text1、Label!,Command1,若要使程序一运行焦点就定位

在Commandl控件上，应对Commandl控件设置____属性的值为»Tabindex0

9假定有一个通用对话框控件CommonDialogl,除了用CommonDialogl.Action=3显示颜

色对话框之外，还可以用方法显示。Showcolor

10在VB中，若要设定每个数组默认的下界固定为1,其声明语句是。

OptionBase1

II表达式3出血*131)+20产生值的范围为。20-150

12在过程体、用—方式声明的局部变量，其值可以保留至下次过程被调用。Static

13已知a=3.5,b=5.0,c=2.5,d=True,则表达式:a>=0ANDa+c>b+3ORNOTd的值是

oFalse

14不管是在窗口顶部菜单条上显示的菜单，还是隐藏的菜单，都可以方法把它们作

为弹出菜单在程序运行期间显示出来。Popupinenu

15表达式CHR(ASC("A"))的值为。"A"

填空题二

1为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timerl控件的属

性设置为。Interval500

*2VB的模块分为3类、它们是随机，顺序，二进制

*3专门用来处理文本文件的访问模式是。.txt

4列表框中的和属性是数组。listselected

*5"指定文件号为1.按写操作的方式打开A:\Myfile.txt,则需要使用代码Open

"a:\Myfile.txt"forAs#l"input

6在通用对话框中，用于返回用户所选的文件名(包括路径名)的属性是o

filename

7在文本框中，通过属性能获得当前插入点所在的位置。seistart

8复选框属性设置为2时，变成灰色，禁止用户选择。value

9产生一个"C"〜"L”范围内的大写字符表达式为。"chr(int(rnd*10+67))

10如果菜单标题的某个字母前输入一个符号，那么该字母就成了热键字母；如果在建

立菜单时在标题文本框中输入一个"",那么显示时形成一个分隔符。-(减号)

11滚动条响应的重要事件有和Change。scroll

12取字符变量S中，第5个字符起的6个字符的表达式为。mid(s,5,6)

13不管是在窗口顶部菜单条上显示的菜单，还是隐藏的菜单，都可以方法把它们作

为弹出菜单在程序运行期间显示出来。通过popupmenu

*14指定文件号为1,按读操作的方式打开A:\Myfile.txt,则需要使用代码Open

"a:\Myfile.txt"forAs#1Inpul

15表达式CHR(ASC("A"))的值为o"A"

16定时器控件只有一个Timer事件，产生Timer事件的两个条件为和

oEnabled属性为True和Interval为非0

17表达式Int(68.555*100+0.5)/100的值是。68.56

18在窗体上已建立多个控件如Textl、Label1Command1,若要使程序一运行焦点就定位

在Commandl控件匕应对Commandl控件设置Tabindex属性的值为。0

错误！嵌入对象无效。

(l)combol.additmcomboI.text(2)combo1.listcount-1

(3)val(combo1.list(i)<min(4)1(5)combol.list(i+l)

错误！嵌入对象无效。

(l)load(2)loadpicture(3)move

下列程序在程序运行时可在组合框输入若干个数值数据(用回车犍添加)，单击“交换”

按钮，找出组合框内最大数和最小数所在的位置，并把两者对调。(见图)

PrivateSubCombo1_KeyPress(KeyAsciiAsInteger)

IfKeyAscii=13Then

U)

EndIf

EndSub

PrivateSubCommandl_ClickQ

Min=W(Combol.List(0))

k=0

Max=W(Combol.List(0))

j=0

Fori=1To⑵

IfW(Combo1.List(i))<MinThen

Min=W(Combol.List(i))

⑶

EndIf

If(4)Then

Max=\&l(Combol.List(i))

j=i

EndIf

Nexti

(5)=Min

Combol.list(k)=max

EndSub

(l)combo1.additemcombo1.text(2)combo1.listcount-1(3)k=i

(4)val(combol.list(i))>max(5)combol.list(j)

下面的程序用于产生20个［0,99］中的随机整数，并将其中

的偶数打印出来。清在空白处填入相应的程序，使之完整。

Privatesubcommandl_click()

Fori=lto20

x=⑴______

Ifx/2=(2)thenprintx

Nexti

Endsub

(l)int(md*100)(2)x\2

在程序中输出20个在［10,97］中的随机整数d,每行输出4个整数。

请在空白处填入相应的程序，使之完整。"

Privatesubcommandl_click()^

Fori=lto20。

d=⑴川

printd。

If(2)thenprint。

Next

Endsub"

(l)int(rnd*88+10)(2)imod4=0

以下程序用于计算N=1+(1+3)+(1+3+5)+…+(1+3+5+…+39)。，

PrivateSubCommandlClick。/

T=0，

M=l^

Sum=0*-'

Dov

T=T+(1)

Sum=Sum+(2)，

M=M+2”

LoopWhile(3)+，

Print"Sum=Sum。

d

EndSub。

.।

(l)m(2)t(3)m<40

下面的程序的功能是找出一个最小整数，其被13、23、33整

除后余数分别为1、2、3,清在空白处填入相应的程序，使之完整。

Privatesubcommandl_click()

DimIasinteger,flagasinteger

1=35

Flag=l

Do

1=1+1

IfImod13=1andQJthen

printI

flag=0

Endif

Loopwhileflag=l

Endsub

(1)Imod23=2andImod33=3

本程序的功能是用于判断输入的正整数是否为升序数。使用输入对话框输入数据，判断

结果显示在标签框Lablel中□超格2.5分)

设正整数n=did2",如果diWdi+i(i=l,2,....,m-l)>则n是一个升序数(即右边

的数字大于等于左边的敬字)，如：1269,448是升序数，而2485不是升序数。

PrivateSubForm_Click(；

DimnAsString,flagAsBoolean

n=(1)(畸输入正整数:")

flag=(2)

Fori=1ToLen(n)-11Len(n)测试字符串长度

IfMid(n,i,1)>(3)Then

flag=False

(4)'退出

EndIf

Nexti

If(5)Then

Label1,Caption=n&11是升序数"

Else

Label1,Caption=n&"不是升序数"

EndIf

EndSub

(l)inputbox⑵true(3)mid(n,i+l,l)(4)exitfor(5)flag

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

PrivateSubCommandlClick。3

DimnAsString,cAsString,dAsStrings

n=Textl.Text4-1

m=(1)/

Fori=tnTo1step-1

c=hdid6i,i,1)*-,

d=d&(2)，

NextW

(3)=d-

EndSub。

(I)len(n)(2)c(3)textl

下面程序按每行1。个数打印出30