VB面向对象程序设计（山东联盟）知到智慧树章节测试课后答案2024年秋鲁东大学

VB面向对象程序设计（山东联盟）知到智慧树章节测试课后答案2024年秋鲁东大学第一章单元测试

一个应用程序________窗体。

A:只许有一个

B:可以没有

C:可包括多个

D:应该有两个

答案:可包括多个

在一个工程中可以有多个__________。

A:机器代码文件

B:工程文件

C:资源文件

D:窗体文件

答案:窗体文件工程资源管理器窗口标题栏下的________按钮用于切换到“窗体编辑窗口”，显示和编辑正在设计的窗体。

A:“查看代码”按钮

B:“切换文件夹”按钮

C:“查看对象”按钮D:“查看文件夹”按钮

答案:“查看对象”按钮在一个工程中可以有多个__________。

A:标准模块文件B:工程文件

C:资源文件

D:机器代码文件

答案:标准模块文件在代码窗口中，当从对象列表框中选择了某一对象后，在______中会列出适用该对象的事件。

A:属性窗口

B:事件列表框

C:过程框

D:布局窗口

答案:过程框

保存一个工程至少应保存两个文件，这两个文件分别是_______。

A:窗体文件和工程文件

B:类模块文件和工程文件

C:窗体文件和标准模块文件

D:文本文件和工程文件

答案:窗体文件和工程文件

工程文件的扩展名是________。

A:frx

B:bas

C:frm

D:vbp

答案:vbp

窗体文件的扩展名是________。

A:vbg

B:vbp

C:frm

D:bas

答案:frm

标准模块文件的扩展名是________。

A:frm

B:vbp

C:bas

D:frx

答案:bas

VisualBasi的MSDN帮助窗口最明显的特征是________。

A:具有MicrosoftOffice应用程序窗口风格B:具有Windows风格

C:保持了浏览器的特征

D:与VisualBasic编辑窗口相似

答案:保持了浏览器的特征

VisualBasic窗体设计器的主要功能是________。

A:编写源程序代码

B:显示文字C:建立用户界面

D:画图

答案:建立用户界面

第二章单元测试

设有一名称为txtName的文本框，则下列能使其具有输入焦点的语句是________。

A:txtName.SetFocusB:txtName=SetFocus

C:txtName.SetFocus=TrueD:Focus=True

答案:txtName.SetFocus

下列说法中错误的是________。

A:一个对象可以识别一个或多个事件B:事件是VisualBasic预置的，且能够被对象识别的动作C:事件过程是指响应某个事件后执行的一段程序代码D:VisualBasic是采用对象驱动编程机制的语言

答案:VisualBasic是采用对象驱动编程机制的语言在运行时，如果按Tab键跳过了一个可以获得焦点的控件（如文本框），其原因可能是________。

A:该控件的TabStop属性值为FalseB:该控件的TabStop属性值为TrueC:该控件的Locked属性值为TrueD:该控件的Enabled属性值为True

答案:该控件的TabStop属性值为False

设窗体上有一个文本框Text1，程序代码中有以下赋值语句（假定用到的控件和变量都存在），其中错误的是________。

A:Text1.MaxLength=30B:Text1.Caption=89C:Text1.FontBold=True

D:Text1.Text=89

答案:Text1.Caption=89

假定Picture1和Text1分别为图片框和文本框的名称，则下列语句中错误的是________。

A:Picture1.Print100B:Text1.Print100C:Debug.Print100D:Print100

答案:Text1.Print100

在设计阶段，当双击窗体上的某个控件时，所打开的窗口是_______。

A:布局窗口

B:代码窗口

C:工具箱窗口

D:工程资源管理器窗口

答案:代码窗口

一个可执行的VB应用程序至少要包括一个_______。

A:标准模块

B:类模块

C:窗体模块

D:辅助模块

答案:窗体模块

下列叙述中错误的是_______。

A:事件可以由用户引发，也可以由系统引发

B:保存VisualBasic程序时,应分别保存窗体文件及工程文件

C:打开一个工程文件时,系统自动装入与该工程有关的窗体文件

D:VisualBasic应用程序只能以解释方式执行

答案:VisualBasic应用程序只能以解释方式执行

用户可通过_______模拟的屏幕小图像来布置应用程序界面。

A:快捷菜单

B:立即窗口C:窗体设计器D:窗体布局窗口

答案:窗体布局窗口

在窗体上添加一个文本框，名称为text1，然后编写如下的load事件过程，则程序的运行结果是__________。PrivateSubForm_LoadText1.Text=""Text1.SetFocusFork=1to5t=t*kNextkText1.Text=tEndSub

A:出错

B:在文本框中显示120

C:文本框中仍为空

D:在文本框中显示1

答案:出错

保存一个工程至少应保存两个文件，这两个文件分别是__________。

A:类模块文件和工程文件B:窗体文件和标准模块文件

C:文本文件和工程文件

D:窗体文件和工程文件

答案:窗体文件和工程文件

标签控件能够显示文本信息，文本内容只能用__________属性来设置。

A:AlignmentB:Visible

C:BorderStyle

D:Caption

答案:Caption

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

A:Password属性值为空

B:Caption属性值为*

C:Passwordchar属性值为*

D:Text属性值为*

答案:Passwordchar属性值为*

若要使用户不能修改文本框TextBox1中显示的内容，应设置__________属性。

A:Locked

B:ScrollBar

C:PassWordChar

D:MultiLine

答案:Locked

能够获得一个文本框中被选取文本的内容的属性是__________。

A:SelStartB:Text

C:LengthD:Seltext

答案:Seltext

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()

Move500,500EndSub程序运行后，单击命令按钮，产生的结果为________。

A:将窗体向左、上方向各移动500B:将窗体移动到距屏幕左边界、上边界各500的位置C:将命令按钮移动到距窗体左边界、上边界各500的位置D:将命令按钮向左、上方向各移动500

答案:将窗体移动到距屏幕左边界、上边界各500的位置在设计阶段，通过属性窗口为命令按钮的Picture属性装入一个图形，但没有显示，其原因是________。

A:按钮的Default属性值为FalseB:没有用按钮的DisabledPicture属性装入图形

C:按钮的Enabled属性值为False

D:按钮的Style属性值为0

答案:按钮的Style属性值为0

对于命令按钮，下列说法中正确的是________。

A:Default属性设置为True时，表示按Esc键与单击该命令按钮作用相同

B:支持DblClick事件

C:通过Picture属性可以给命令按钮指定一个图形

D:Cancel属性设置为True时，表示按Enter键与单击该命令按钮作用相同

答案:通过Picture属性可以给命令按钮指定一个图形

以下叙述中，错误的是________。

A:当文本框失去焦点时，触发其LostFocus事件

B:在设计阶段不能调整通用对话框控件的大小

C:可以将计时器控件的Enabled属性设置为False，使其不能自动触发Timer事件D:如果文本框的TabStop属性值为False，则不能接收从键盘上输入的数据

答案:如果文本框的TabStop属性值为False，则不能接收从键盘上输入的数据下列叙述中不正确的是_______。

A:注释语句可以单独写在一行B:注释语句是非执行语句，仅对程序的有关内容起注释作用

C:向程序代码中加入注释语句的目的是提高程序的可读性

D:注释语句可以放在程序代码中的任何位置

答案:注释语句可以放在程序代码中的任何位置

第三章单元测试

如果要在任何新建的模块中自动插入OptionExplicit语句，则应采用下列__________

操作步骤。

A:在“工具”菜单中选取“选项”命令，打开选项对话框，单击“编辑器选项卡”选中“要求变量声明”选项B:在“编辑”菜单中执行“插入文件”命令C:在“工程”菜单中执行“添加文件”命令D:在“工具”菜单中执行“插入文件”命令

答案:在“工具”菜单中选取“选项”命令，打开选项对话框，单击“编辑器选项卡”选中“要求变量声明”选项声明一个变量为局部变量应该用__________。

A:PrivateB:StaticC:PublicD:Global

答案:Private以下能作为VisualBasic变量名的是__________。

A:E-12B:12.5C:E1D:12-E

答案:E1数学表达式3≤x<10在VB中的逻辑表达式为__________。

A:x>=3ORx<10B:3<

=xAND<

10C:3<

=x<

10D:3<

=xANDx<

10

答案:3<

=xANDx<

10下列选项中，为字符串常量的是__________。

A:＂6／12／2001＂B:#6，12，2001#C:6／12／2001D:6，12，2001#

答案:＂6／12／2001＂用户自定义数据类型时，其成员不能是__________。

A:货币型和日期型B:定长字符串和数组C:变长字符串D:变长字符串和货币型

答案:变长字符串若要处理一个值为50000的整数，应采用哪种VB基本数据类型描述更合法？__________

A:LongB:SingleC:IntegerD:String

答案:Long下面__________是合法单精度型变量。

A:sum%B:num!C:xinte$D:mm#

答案:num!下面__________是不合法的整常数

A:%100B:100C:&H100D:&O100

答案:%100

假设变量intVar是一个整型变量，则执行赋值语句intVar="2"+3之后，变量intVar的值是__________。

A:2B:3C:5D:23

答案:5下列各声明语句中错误的是________。

A:DimTestAsString='计算机等级考试'B:ConstCountry='English'C:Staticv1D:PublicSumAsInteger

答案:DimTestAsString='计算机等级考试'设a=4，b=5，c=6，执行语句：Printa<bAndb<c

，窗体上显示的是________。

A:FalseB:True

C:0D:出错信息

答案:True

以下说法中，正确的是________。

A:利用关系表达式x/2=Int(x/2)不能判断变量x的值为偶数B:表达式Chr(Asc('A'))=UCase('a')的值为FalseC:表达式Int(Rnd())的值是0D:表达式-10Mod3的值为1

答案:表达式Int(Rnd())的值是0设有如下的记录类型：PrivateTypeEmployee

numAsString

nameAsStringEndType则下列语句中正确的是________。

A:DimeAsEmployeeB:E='Tom'C:DimeAsTypeEmployeeD:DimeAsEmployee='1001'&'John'

答案:DimeAsEmployeeVisualBasic中，日期"1999年6月18日"的表达形式为________。

A:#6/18/1999#B:{1999/6/18}C:1999/6/18D:{6/18/1999}

答案:#6/18/1999#执行语句PrintSgn(-2^3)+Abs(Int(-12.2)Mod100Sqr(100))的输出结果为________。

A:1

B:2C:4

D:3

答案:2表达式(-1)*Sgn(-100+Int(Rnd*100))的值是________。

A:0B:1C:随机数D:-1

答案:1下列逻辑表达式中，能正确表示条件"x和y都是奇数"的是________。

A:xMod2=1AndyMod2=1B:xMod2=0OryMod2=0C:xMod2=0AndyMod2=0D:xMod2=1OryMod2=0

答案:xMod2=1AndyMod2=1表达式Int(Rnd()*11)+10的值的范围是________。

A:整数10~20（不含10和20）B:整数10~20（含10和20）C:整数0~20（含0和20）D:整数0~11（含0和11）

答案:整数10~20（含10和20）若变量P的值为-3，则-P^2的值是________。

A:9B:6C:-9D:-6

答案:-9VisualBasic数据类型中，占用内存最小的是________。

A:IntegerB:ByteC:BooleanD:Single

答案:Byte

下面是VisualBasic合法变量名的是________。

A:10BB:PrintAC:B#CD:Debug

答案:PrintA

以下不是VisualBasic合法常量的是________。

A:'a'B:&O12C:&H12&D:#1/20/2014#

答案:'a'

第四章单元测试

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

Command1_Click()

DimiAs

Integer

DimnumAs

Integer

DimnAs

Integer

n=0

Randomize

Fori=1To10

num=Int(Rnd

*10)+1

SelectCase

num

Mod2

Case1

ExitFor

Case0

Printnum

n=n+1

EndSelect

Nexti

Print"n=";nEndSub下面有关描述中正确的是________。

A:当num的值为偶数时，则For循环将被终止B:程序运行过程中，变量num共被赋值10次C:变量n的作用是累计自过程运行开始到结束所产生的偶数个数D:num的值是1~11之间的整数

答案:变量n的作用是累计自过程运行开始到结束所产生的偶数个数在窗体上画一个名称为Command1的命令按钮，并编写如下程序代码：PrivateConstNUMAsInteger=10PrivateSubCommand1_Click()

DimaAsInteger,bAsInteger

a=1

b=NUM

DoUntilb>NUM

a=a*NUM

b=b+1

Loop

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

A:100B:21C:10D:1

答案:10已知文本框Text1中输入了一篇英文短文，并编写了如下程序段：

Str_x=Text1.Text

n=Len(Str_x)

m=0

t=0

Fori=1

To

n

w=UCase(Mid(Str_x,i,1))

Ifw>="A"Andw<="Z"Then

Ift=0Thenm=m+1

t=t+1

Else

t=0

EndIf

Next

Printm该程序段的功能为统计并输出英文短文中________。

A:字母的个数B:大写字母的个数C:首字母大写的单词的个数D:单词的个数

答案:单词的个数

设窗体上有文本框Text1和命令按钮Command1，并编写了下面的过程：PrivateSub

Command1_Click()

ch$=""

x%=

Val(Text1.Text)

k=2

Fork=2

To

x/2

IfxModk=0Then

ch=ch&""&k

EndIf

Nextk

PrintchEndSub程序运行后，在文本框中输入28，单击命令按钮，则输出是________。

A:1

3

5

7

9

11

13B:14

7

4

2C:2

4

7

14D:2

4

6

8

10

12

14

答案:2

4

7

14设有如下程序段：DimxAsIntegerx=Val(InputBox("输入变量x的值"))SelectCasex

Case________________

Print"*"

CaseElse

Print"#"EndSelect以上程序段的功能是，当变量x的值在5到10之间，或者大于20时，输出"*"，其它情况输出"#"，则程序中横线处应填入的内容是________。

A:5To10:x>20B:5-10Orx>20C:5To10,Is>20D:x>=5Andx<=10=""or=""x="">20

答案:5To10,Is>20设a、b、c为整型变量，其值分别为4、5、6。以下程序段的输出结果是________。a=b:b=c:c=aPrinta;b;c

A:5

6

4B:4

5

6C:5

6

5D:6

5

4

答案:5

6

5以下Case子句中错误的是________。

A:Case0To10B:CaseIs>10AndIs<50C:Case3,5,Is>10D:CaseIs>10

答案:CaseIs>10AndIs<50有如下程序代码：PrivateSubForm_Click()

X=8

IfX>8Then

Print"X>8"

ElseIfX<

10

Then

Print"X<10"

ElseIfX=8

Then

Print"X=8"

EndIfEndSub运行程序，单击窗体，输出结果是________。

A:X=8B:X<10

X=8C:不确定D:X<

10

答案:X<

10在窗体上画一个名称为Label1的标签，然后编写如下事件过程：PrivateSubForm_Click()

DimSAsInteger

S=0

Fori=1To15

x=2*i-1

IfxMod3=0

Then

S=S+1

EndIf

Nexti

Label1.Caption=SEndSub运行程序，单击窗体，标签中显示的是________。

A:27B:5C:1

D:45

答案:5执行下面的程序段后，x的值为________。x=5Fori=1to20Step2x=x+i5Nexti

A:23B:24C:22D:21

答案:21

在窗体中画一个命令按扭，然后编写以下事件过程：PrivateSubCommand1_Click()Fori=1to4x=4Forj=1to3x=3Fork=1to2k=k+6NextkNextjNextiPrintxEndSub程序执行结果为________。

A:3B:157

C:15D:158

答案:3对语句

Ifx=1Theny=1,下列说法正确________。

A:x=1和y=1均为赋值语句B:x=1和y=1均为关系表达式C:x=1是关系表达式，y=1是赋值语句D:x=1是赋值语句，y=1是关系表达式

答案:x=1是关系表达式，y=1是赋值语句设有如下程序：PrivateSubCommand1_Click()DimsumAsDouble,xAsDoublesum=0Fori=1To5x=n/in=n+1sum=sum+xNextEndSub该程序通过For

循环计算一个表达式的值，这个表达式是________。

A:1/2+2/3+3/4+4/5B:1+1/2+2/3+3/4C:1+1/2+1/3+1/4+1/5D:1+1/2+2/3+3/4+4/5

答案:1/2+2/3+3/4+4/5在窗体上画一个名称为Command1的命令按扭和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程:PrivateSubCommand1_Click()n%=Text1.TextSelectCasenCase1to20x=10Case2,4,6x=20CaseIs<10x=30Case10x=40EndSelectText2.Text=xEndSub程序运行后，如果在文本框Text1中输入10，然后单击命令按扭，则在Text2中显示的内容是________。

A:10B:30C:40D:20

答案:10以下叙述中，错误的是________。

A:有语句：x=InputBox("输入：","输入整数")，则该语句打开的对话框的标题是"输入整数"B:可以用MsgBox函数输出一条信息

C:InputBox函数的返回值类型由用户在输入对话框中输入数据的类型决定D:MsgBox函数的返回值为一整数

答案:InputBox函数的返回值类型由用户在输入对话框中输入数据的类型决定在DoWhile...Loop循环结构中Loop语句的作用是________。

A:转移到DoWhile语句行，开始下一次判断和循环B:该语句在DoWhile...Loop循环结构中不起任何作用C:终止循环，将控制转移到本循环结构Loop后面的第一条语句继续执行

D:退出循环，返回到程序开始处

答案:转移到DoWhile语句行，开始下一次判断和循环设a=6，则执行x=IIf(a<6,-1,0)后，x的值是________。

A:0

B:-1

C:6

D:5

答案:0

第五章单元测试

在窗体模块的通用声明段中声明变量时，不能使用__________关键字。

A:DimB:StaticC:PublicD:Private

答案:Static使用ReDimPreserve可以改变数组__________。

A:所有维的大小B:第一维的大小C:改变维数和所有维的大小D:最后一维的大小

答案:最后一维的大小下列关于ReDim的说法中错误的是__________。

A:ReDim语句只能改变元素的个数，但不能改变数组的维数。B:可以用ReDim语句直接定义数组。C:ReDim语句可以改变数组类型。D:在一个程序中，可以多次用Redim语句定义同一个数组。

答案:ReDim语句可以改变数组类型。以Dimx(6，2To5)来声明一个二维数组，错误的选项是__________。

A:UBound(x,2)的返回值是5B:LBound(x,1)的返回值是0C:UBound(x,1)的返回值是6D:LBound(x,2)的返回值是1

答案:LBound(x,2)的返回值是1下面的数组声明语句中正确的是__________。

A:Dima[3;4]AsIntegerB:DimA[3,4]AsIntegerC:DimA(3,4)AsIntegerD:DimA(3;4)AsInteger

答案:DimA(3,4)AsInteger语句Dimabc(-2To4,0To4,5)AsLong定义的三维数组，其数组元素有__________。

A:96个B:112个C:140个D:210个

答案:210个下面的数组声明语句中正确的是__________。

A:Dimgg[1To5,1To5]AsStringB:Dimgg[1,5]AsStringC:Dimgg(1To5)AsStringD:Dimgg[1:5,1:5]AsString

答案:Dimgg(1To5)AsString用Dimb(-2To4)AsString

语句所定义的数组元素个数是__________个。

A:4B:7C:2D:6

答案:7定义10个单精度实型一维数组正确的语句是__________。

A:OptionBase1：Dima(9)B:Dim#(9)C:Dima(9)AsSingleD:Dima(10)AsInteger

答案:Dima(9)AsSingle以下属于VisualBasic合法的数组元素是__________。

A:s(0)B:v[8]C:x[8]D:x8

答案:s(0)在窗体上画一个名称为Command1的命令按钮，然后编写如下程序代码：OptionBase1Dimarr()AsIntegerPrivateSubCommand1_Click()

DimiAsInteger,jAsInteger

DimsAsInteger

ReDimarr(4,2)

s=0

Fori=1To3

Forj=1To2

arr(i,j)=i+j

Nextj

Nexti

ReDimPreservearr(4,4)

Forj=3To4

arr(3,j)=j+10

Nextj

Fori=1To4

s=s+arr(i,i)

Nexti

PrintsEndSub程序运行过程中，当单击Command1时，输出结果为________。

A:18B:19C:0D:程序出错

答案:19运行如下程序

PrivateSubCommand1_Click()

Dima(5,5)AsInteger

Fori=1To5

Forj=1To4

a(i,j)=i*2+j

Ifa(i,j)/7=a(i,j)

7Then

n=n+1

EndIf

Nextj

Next

Printn

EndSub则n的值是________。

A:2B:4

C:3D:5

答案:3若在窗体上画了一个名称为List1的列表框，并编写了如下事件过程：PrivateSubForm_Load()

List1.AddItem"数学"

List1.AddItem"物理"

List1.AddItem"化学"

List1.AddItem"外语"

List1.AddItem"语文"EndSubPrivateSubForm_Click()

List1.RemoveItem1

List1.RemoveItem2End

Sub运行程序后，单击窗体，则列表框中显示的项目是________

A:物理外语语文B:化学外语语文C:数学化学语文D:数学外语语文

答案:数学化学语文设窗体上有一个列表框控件List1，含有若干列表项。以下能表示当前被选中的列表项内容的是________。

A:List1.TextB:List1.ListC:List1.IndexD:List1.ListIndex

答案:List1.Text假定列表框List1中没有被选中的项目，则执行List1.RemoveItemList1.ListIndex语句的结果是________。

A:删除第一项B:删除最后加入列表中的一项C:出错D:删除最后一项

答案:出错设组合框Combo1中有5个项目，则以下能删除最后一项的语句是________。

A:Combo1.RemoveItem5B:Combo1.RemoveItem4C:Combo1.RemoveItemCombo1.ListCount+1D:Combo1.RemoveItemCombo1.ListCount

答案:Combo1.RemoveItem4设在程序开始处有语句：OptionBase0，则下面定义的数组中正好有12个元素的是________。

A:Dima%(-6To6)B:Dima%(12)C:Dims%(3,2)D:Dims%(3,4)

答案:Dims%(3,2)

在窗体上画一个名称为List1的列表框和一个名称为Text1的文本框，然后编写如下两个事件过程：PrivateSubForm_Load()

List1.AddItem"100"

List1.AddItem"200"

List1.AddItem"300"

List1.AddItem"400"

Text1.Text=""EndSubPrivateSubList1_DblClick()

a=List1.Text

Printa+Text1.TextEndSub程序运行后，在文本框中输入"500"，然后双击列表框中的"400"，则输出结果为________。

A:0

B:500400C:900D:400500

答案:400500设窗体上有一个名称为Option1的单选按钮数组（其下标从0开始），共有4个单选按钮，并有下面事件过程：PrivateSubOption1_Click(IndexAsInteger)

n=Index

IfIndex<3Thenn=n+1

PrintOption1(n).CaptionEndSub程序运行时，单击其中一个单选按钮，则在窗体上显示的是________。

A:被选中的单选按钮的标题B:被选中单选按钮的下一个按钮的标题，但如果选中的是最后一个，则显示该单选按钮的标题C:被选中单选按钮的上一个按钮的标题，但如果选中的是最前面的一个，则显示最后面按钮的标题D:被选中单选按钮的下一个按钮的标题，但如果选中的是最后一个，则显示最前面一个单选按钮的标题

答案:被选中单选按钮的下一个按钮的标题，但如果选中的是最后一个，则显示该单选按钮的标题

在窗体上画一个名称为Command1的命令按钮和一个名称为Label1的标签，然后编写如下程序代码：OptionBase0PrivateSubCommand1_Click()

Dima(5)AsInteger,nAsInteger

Fori=0To5

a(i)=i

n=n+a(i)

Nexti

Label1=nEndSub运行程序，单击命令按钮，在标签中显示的内容是________。

A:20B:15C:5D:10

答案:15在窗体上画一个名称为Command1的命令按钮，然后编写如下程序代码：OptionBase1PrivateSubCommand1_Click()

Dima(5)AsString

DimiAsInteger

DimbAsVariant

Fori=LBound(a)ToUBound(a)

a(i)=Chr(Asc("a")+(26-i))

Nexti

ForEachbIna

Printb;

NextEndSub程序运行时，单击Command1，则输出结果是________。

A:abcdeB:出错C:zyxwvD:12345

答案:zyxwv在窗体上画一个列表框List1、一个组合框Combo1和一个文本框Text1，编写如下程序代码：PrivateSubForm_Load()

List1.AddItem"111"

List1.AddItem"222"

List1.AddItem"333"

Combo1.AddItem"444"

Combo1.AddItem"555"

Combo1.AddItem"666"

Text1.Text=""EndSub程序运行后，如果单击窗体，要求在文本框中显示"222555"，以下能实现该操作的事件过程是________。

A:PrivateSubForm_Click()

Combo1.ListIndex=2

List1.ListIndex=2

Text1.Text=List1.Text+Combo1.TextEndSubB:PrivateSubForm_Click()

Text1.Text=List1.ListIndex(1)+Combo1.ListIndex(1)EndSubC:PrivateSubForm_Click()

Combo1.ListIndex=1

List1.ListIndex=1

Text1.Text=List1.Text+Combo1.TextEndSubD:PrivateSubForm_Click()

Text1.Text=List1.ListIndex(2)+Combo1.ListIndex(2)EndSub

答案:PrivateSubForm_Click()

Combo1.ListIndex=1

List1.ListIndex=1

Text1.Text=List1.Text+Combo1.TextEndSub组合框兼有两种控件的特性，这两种控件是________。

A:复选框和单选按钮B:列表框和文本框

C:标签和文本框D:标签和列表框

答案:列表框和文本框

下列说法中正确的是________。

A:用Array函数可以对任何数组初始化B:语句Dimx[1To5]AsDouble能够定义一个一维数组xC:当按下键盘上任意键时都会触发KeyPress事件D:用Erase语句可以清除静态数组中各元素的值，但不释放其所占的内存空间

答案:用Erase语句可以清除静态数组中各元素的值，但不释放其所占的内存空间列表框控件List1中已有若干个列表项，以下能表示被选中列表项内容的表达式是________。

A:List1.ListIndexB:List1.List(List1.ListIndex)C:List1.List(ListIndex)D:List1(List1.ListIndex)

答案:List1.List(List1.ListIndex)

第六章单元测试

定义过程的格式中，Static关键字的作用是指定过程中的局部变量在内存中的存储方式。若使用了Static关键字，则__________。

A:每次调用此过程，该过程中的局部变量都会被重新初始化B:每次调用此过程时，该过程中的局部变量的值保持在上一次调用后的值

C:定义了该过程中定义的局部变量为“自动”变量D:在本过程中使用到的，在其他过程中定义的变量也为Static型

答案:每次调用此过程时，该过程中的局部变量的值保持在上一次调用后的值

在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用__________关键字在过程中定义局部变量。

A:DimB:StaticC:PrivateD:Public

答案:Static根据变量的作用域，可以将变量分为3类，分别为__________。

A:局部变量、模块变量和窗体变量

B:局部变量、模块变量和标准变量C:局部变量、标准变量和全局变量

D:局部变量、模块变量和全局变量

答案:局部变量、模块变量和全局变量

下列关于过程叙述不正确的是__________。

A:无论过程传值调用还是过程传址调用，参数传递都是双向的B:过程的传址调用是将实参在内存的地址传递给形参C:过程的传值调用是将实参的具体值传递给形参D:过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的

答案:无论过程传值调用还是过程传址调用，参数传递都是双向的要想从子过程调用后返回两个结果，下面子过程语句说明合法的是__________。

A:Subf2(ByValn%,ByValm%)B:Subf1(n%,ByValm%)C:Subf1(ByValn%,m%)D:Subf1(n%,m%)

答案:Subf1(n%,m%)下列定义为abc的过程定义语句中正确的是__________。

A:DimSubabc(x,y)B:PrivateSubabc(x,y)AsInteger

C:Subabc(x,y)

D:Publicabc(x,y)

答案:Subabc(x,y)

有如下函数过程：

Functiongys(ByValXAsInteger,ByValYAsInteger)AsInteger

DoWhileY<>0reminder=XModYX=YY=reminderLoopgys=XEndFunction以下调用函数的事件过程，该程序的运行结果是__________。PrivateSubCommand7_Click()DimaAsIntegerDimbAsIntegera=100b=25X=gys(a,b)PrintXEndSub

A:25

B:50

C:100

D:0

答案:25

已知过程定义的首行为Subsum(aAsInteger,bAsInteger)，则下面过程调用语句中正确的是________。

A:sumx;yB:sum(x,y)C:Callsum(x;y)D:sumx,y

答案:sumx,y设有如下程序代码：Dima%Publicb%,c%PrivateSubForm_Click()

Dimb%

Printa;b;cEndSubPrivateSubForm_Load()

Dima%

a=5

b=8

c=10EndSub运行程序时单击窗体，则在窗体上显示的是________。

A:0

0

10B:5

8

10C:5

0

10D:0

8

10

答案:0

0

10设有以下程序片段：Publicx%Privatey$PrivateSubCommand1_Click()

Dima

……EndSub

PrivateSubCommand2_Click()

Staticb

……EndSub在Command1_Click过程中无法访问的变量是________。

A:aB:bC:yD:x

答案:b编写如下程序代码：PrivateSubCommand1_Click()

Constn=5

Dimarrx(n)AsInteger

Fori=1To5

arrx(i)=i*i

Nexti

Callswap(arrx(),n)

Fori=1Ton

Printarrx(i);

NextEndSub

PublicSubswap(a()AsInteger,kAsInteger)

Fori=1Tok/2

t=a(i)

a(i)=a(k-i+1)

a(k-i+1)=t

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

A:4

1

9

25

16

B:1

4

9

4

1C:25

16

9

4

1

D:1

4

9

16

25

答案:25

16

9

4

1

如果在过程A中用语句：Callproc(a,b)调用下面的过程PrivateSubproc(bAsInteger,ByValaAsInteger)

a=a+1

b=b*2EndSub则调用结束后的结果是________。

A:过程A中变量b的值变为原有值的2倍B:过程A中变量a的值变为原有值的2倍，b的值等于原有值加1C:过程A中变量a的值变为原有值的2倍D:过程A中变量b的值变为原有值的2倍，a的值等于原有值加1

答案:过程A中变量a的值变为原有值的2倍在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写以下程序代码：PrivateSubsub1(ByRefd(),ByRefm1AsInteger)

DimiAsInteger

m1=d(LBound(d))

Fori=LBound(d)+1ToUBound(d)

Ifm1<d(i)Thenm1=d(i)

NextiEndSubPrivateSubCommand1_Click()

Dimn1AsInteger

n1=-1

Dimdata()

data=Array(10,20,-20,50,15,-5)

Callsub1(data(),n1)

Text1.Text=n1EndSub程序运行过程中，当单击命令按钮Command1时，则在文本框Text1中显示的结果为________。

A:50B:0C:-5D:-1

答案:50有以下程序代码：PrivateSubCommand1_Click()

Printfun(10),fun(5)EndSubPrivateFunctionfun(nAsInteger)AsInteger

Statict

Fork=1Ton

t=t+k

Nextk

fun=tEndFunction执行Command1_Click过程产生的输出是________。

A:15

55B:55

15C:55

70D:15

70

答案:55

70以下叙述中错误的是________。

A:标准模块文件的扩展名是.bas，工程文件的扩展名是.vbpB:一个工程中可以包含一个或多个窗体，但不能包含其他模块C:保存程序时，应分别保存窗体文件和工程文件D:打开一个工程文件时，系统自动装入与该工程有关的窗体文件

答案:一个工程中可以包含一个或多个窗体，但不能包含其他模块以下叙述中错误的是________。

A:一个VisualBasic应用程序可以包含一个或多个工程B:一个Sub过程内不能嵌套定义另一个Sub过程C:VisualBasic应用程序只能以解释方式执行D:MsgBox函数的返回值与在对话框中所单击的按钮有关，为一整数

答案:VisualBasic应用程序只能以解释方式执行要求函数的功能是：从参数str字符串中删除所有参数ch所指定的字符，返回实际删除字符的个数，删除后的字符串仍在str中，为此某人编写了函数DelChar如下：FunctionDelChar(strAsString,chAsString)AsInteger

Dimn%,st$,c$

st=""

n=0

Fork=1ToLen(str)

c=Mid(str,k,1)

Ifc=chThen

st=st&c

Else

n=n+1

EndIf

Nextkstr=st

DelChar=nEndFunction并用下面的Command1_Click()过程观察函数调用结果PrivateSubCommand1_Click()

ch$=Text1.Text

PrintDelChar(ch,"x"),chEndSub发现结果有错误，程序代码需要修改，以下正确的修改方案是________。

A:删掉语句str=stB:把语句PrintDelChar(ch,'x'),ch改为PrintDelChar(ch,'x')：PrintchC:把语句If

c=ch

Then改为If

c<>ch

ThenD:把语句DelChar=n改为DelChar=st

答案:把语句If

c=ch

Then改为If

c<>ch

Then如果窗体模块A中有一个过程：PrivateSubProc()

……EndSub则下面叙述中错误的是________。

A:在窗体模块B中可以调用此过程B:在标准模块中不能调用此过程C:窗体模块A中任何其他过程都可以调用此过程D:在窗体模块B中可以有与此相同名称的过程

答案:在窗体模块B中可以调用此过程以下关于VB文件的叙述中，正确的是________。

A:一个.vbp文件只能含有一个标准模块文件B:一个.vbg文件中可以包括多个.vbp文件C:标准模块文件的扩展名是.frmD:类模块文件的扩展名为.bas

答案:一个.vbg文件中可以包括多个.vbp文件下面叙述中正确的是________。

A:一个工程中只能有一个标准模块B:一个工程由一个窗体模块和一个标准模块组成C:窗体模块中包含本窗体的所有事件过程，标准模块中包含本标准模块的所有事件过程D:一个窗体是一个窗体模块

答案:一个窗体是一个窗体模块以下叙述中错误的是________。

A:打开一个工程文件时，系统自动装入与该工程有关的窗体文件B:标准模块文件的扩展名是.bas，工程文件的扩展名是.vbpC:一个工程中可以包含一个或多个窗体，但不能包含其他模块D:保存程序时，应分别保存窗体文件和工程文件

答案:一个工程中可以包含一个或多个窗体，但不能包含其他模块以下叙述中错误的是________。

A:在标准模块中不能定义过程B:标准模块文件是纯代码文件C:标准模块文件的扩展名是.basD:在标准模块中声明的全局变量可以在整个工程中使用

答案:在标准模块中不能定义过程下面有关标准模块的叙述中，错误的是________。

A:标准模块中的全局变量可以被工程中的任何模块引用B:标准模块中的Private过程不能被工程中的其他模块调用C:标准模块的文件扩展名为.basD:标准模块不完全由代码组成，还可以有窗体

答案:标准模块不完全由代码组成，还可以有窗体下面关于标准模块的叙述中错误的是________。

A:标准模块中可以声明全局变量B:一个工程中可以含有多个标准模块

C:标准模块中可以包含一个SubMain过程，但此过程不能被设置为启动过程D:标准模块中可以包含一些Public过程

答案:标准模块中可以包含一个SubMain过程，但此过程不能被设置为启动过程在标准模块中用Public关键字定义的变量，其作用域为________。

A:所有窗体B:整个工程C:本模块所有过程D:所有标准模块

答案:整个工程以下叙述中错误的是________。

A:窗体和标准模块需要分别保存为不同类型的磁盘文件B:在一个窗体文件中用Private定义的通用过程可以被其他窗体调用C:全局变量可以在标准模块中定义D:一个工程中可以包含多个窗体文件

答案:在一个窗体文件中用Private定义的通用过程可以被其他窗体调用下列关于标准模块的叙述中，错误的是________。

A:标准模块文件的扩展名为.bacB:标准模块可以在某个窗体中建立C:标准模块是一个纯代码文件D:标准模块中的Public过程可以被不同窗体的程序调用

答案:标准模块文件的扩展名为.bac以下关于VB文件的叙述中，错误的是________。

A:一个工程只有一个工程文件B:工程文件的扩展名为.frmC:标准模块文件不属于任何一个窗体D:一个工程可以有多个窗体文件

答案:工程文件的扩展名为.frm以下关于VB文件的叙述中，正确的是________。

A:一个工程文件只能含有一个标准模块文件B:类模块文件的扩展名为.bas

C:VB应用程序可以被编译为.exe文件D:标准模块文件的扩展名是.frm

答案:VB应用程序可以被编译为.exe文件如果在窗体模块中所有程序代码的前面有语句：Dimx

，则x是________。

A:局部变量

B:静态变量

C:窗体级变量D:全局变量

答案:窗体级变量如果将数组名作为函数调用的实参，则传递给形参的是________。

A:数组最后一个元素的值B:数组第一个元素的地址C:数组全部元素的值D:数组第一个元素的值

答案:数组第一个元素的地址

第七章单元测试

下列不能作为“容器”（即可以在其中放置其他控件）的是________。

A:窗体B:框架C:组合框

D:图片框

答案:组合框

下列叙述中错误的是________。

A:文本框控件支持Change事件

B:图片框可以作为控件的容器

C:可以使用Print方法在图片框上输出文字

D:由于直线控件没有Move方法，所以直线控件在运行阶段不能移动

答案:由于直线控件没有Move方法，所以直线控件在运行阶段不能移动

用于设置计时器事件产生间隔的属性是________。

A:Index

B:Value

C:IntervalD:Tag

答案:Interval设形状控件的Width与Height属性的值相等。下面叙述中正确的是________。

A:呈现的图形一定是圆B:呈现的图形一定是正方形

C:呈现的图形一定是矩形D:呈现的图形一定不是矩形

答案:呈现的图形一定不是矩形

设窗体上有2个框架，每个框架中有若干个单选按钮，下面叙述中正确的是________。

A:窗体上所有单选按钮中只有1个可以被选中

B:每个框架中都有一个单选按钮可以被选中C:如果某个框架的Enabled属性为True，则里面单选按钮的Enabled属性也都为TrueD:如果某个框架的Enabled属性为False，则里面的单选按钮一定都是未选中状态

答案:每个框架中都有一个单选按钮可以被选中在计时器控件中，Interval属性的作用是________。

A:决定是否响应用户的操作

B:设置计时器与窗体上边界之间的距离

C:设置产生计时器事件的间隔D:决定计时器事件产生的次数

答案:设置产生计时器事件的间隔决定对象拖放模式的属性是________。

A:DragIconB:DragModeC:DragOverD:DragDrop

答案:DragMode下列关于键盘事件的说法中，正确的是________。

A:大键盘上的"1"键和数字键盘上的"1"键的KeyCode码相同B:按下键盘上的任意一个键，都会引发KeyPress事件

C:KeyDown和KeyUp的事件过程中有KeyAscii参数D:大键盘上"4"键的上档字符是"$"，当同时按下Shift和大键盘上的"4"键时，KeyPress事件过程的

答案:大键盘上"4"键的上档字符是"$"，当同时按下Shift和大键盘上的"4"键时，KeyPress事件过程的在刚建立的EXE工程中，工具箱窗口中没有的控件是________。

A:形状B:通用对话框C:驱动器列表框D:图像框

答案:通用对话框下面说法中错误的是________。

A:在设计阶段，把已复制到剪贴板上的图像粘贴到图片框或图像框中，可以将该图片装入图片框或图像框B:为使名称为Timer1的计时器控件能每隔2秒触发一次Timer事件，则在程序代码中应写的语句是Timer1.Interval=2000C:为使显示到图像框中的图像能根据图像框的大小自动缩放，则应将图像框的Stretch属性值设置为TrueD:可以将计时器控件的Enabled属性设置为False，使其不能触发Timer事件

答案:在设计阶段，把已复制到剪贴板上的图像粘贴到图片框或图像框中，可以将该图片装入图片框或图像框要使图片框P1中显示当前路径下的图片文件img1.jpg，则应使用的语句是________。

A:P1.Picture="img1.jpg"

B:P1.Picture=LoadPicture("img1.jpg")

C:LoadPicture("img1.jpg")D:P1.Image="img1.jpg"

答案:P1.Picture=LoadPicture("img1.jpg")

窗体上有1个名称为List1、含有3个项目的列表框，1个名称为Text1的文本框，以及1个Interval属性值为1000的计时器控件Timer1。某人编制了以下程序，希望程序运行时，每隔1秒，List1中的3个项目能够依次在Text1中循环显示。

PrivateSubTimer1_Timer()

DimiAsInteger

Text1.Text=List1.List(i)

i=i+1

Ifi=List1.ListCountThen

i=0

EndIfEndSub运行程序，发现有错误。以下正确的修改是________。

A:将If语句的条件修改为i<=List1.ListCount

B:将语句Text1.Text=List1.List(i)与i=i+1交换位置

C:将Interval属性值改为100D:将语句DimiAsInteger修改为StaticiAsInteger

答案:将语句DimiAsInteger修改为StaticiAsInteger

在窗体上有一个Picture1图片框，没有加载图片，在当前文件夹下有一个位图文件pic02.bmp，并有下面的程序代码：DimHasPicAsBooleanPrivateSubPicture1_Click()

IfHasPicThen

Picture1.Picture=LoadPicture("")

Else

Picture1.Picture=LoadPicture("pic02.bmp")

EndIf

HasPic=NotHasPicEndSub关于这个程序运行时，下面叙述中正确的是________。

A:第一次单击图片框，会清空图片框，再单击图片框，则在其中显示一个图片B:第一次单击窗体，会在图片框中显示一个图片，再单击窗体，则删除图片C:第一次单击窗体，会清空图片框，再单击窗体，则在图片框中显示一个图片

D:第一次单击图片框，会在其中显示一个图片，再单击图片框，则删除图片

答案:第一次单击图片框，会在其中显示一个图片，再单击图片框，则删除图片以下叙述中错误的是________。

A:如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见B:如果要在菜单中添加一条分隔线，则应将该菜单项的Caption属性设置为"-"C:在菜单标题中，由"&"所引导的字母指明了该菜单项的访问键D:下拉式菜单和弹出式菜单都用菜单编辑器建立

答案:如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见窗体上有Text1、Text2两个文本框，并有以下过程：PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)

DimchAsString

ch=LCase(Chr(KeyCode))

Text2.Text=Chr(Asc(ch)+2)EndSub程序运行时，在Text1中输入了字母"D"，则Text2中显示的是________。

A:DB:dC:fD:F

答案:f设窗体上有一个标签Label1，并编写了下面的过程PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

IfButton=1Then

Label1="X="&X&"

Y="&Y

EndIfEndSub程序运行后的效果是________。

A:当移动鼠标时，鼠标的位置坐标会同步显示在标签中B:当按下鼠标左键时，鼠标的位置坐标会同步显示在标签中C:当按下鼠标右键并移动鼠标时，鼠标的位置坐标会同步显示在标签中D:当按下鼠标左键并移动鼠标时，鼠标的位置坐标会同步显示在标签中

答案:当按下鼠标左键并移动鼠标时，鼠标的位置坐标会同步显示在标签中程序运行时，当用鼠标点击滚动条两端的箭头按钮时，不会产生的结果是________。

A:激活Scroll事件

B:改变Value属性的值C:激活Change事件D:滚动框移动

答案:激活Scroll事件

当复选框的Value属性值为1时，表示________。

A:该复选框不可用B:选中该复选框

C:没有选中该复选框

D:该复选框不可见

答案:选中该复选框

以下关于图片框控件的说法中，正确的是________。

A:用cls方法可以清除图片框中装入的图片B:为使图像能自动适应图片框的大小，应将图片框的Stretch属性设置为FalseC:可以通过调用图片框的Print方法在图片框中输出文本D:清空图片框控件中图形的方法之一是将其Picture属性的值设置为Null

答案:可以通过调用图片框的Print方法在图片框中输出文本当复选框控件被选中（即复选框控件内显示"√"标记）时，其Value属性的值为________。

A:True

B:False

C:1D:0

答案:1设有一名称为mnuBold的下拉菜单项，程序运行时，希望达到如下效果：当第一次单击该菜单项时，其标题左侧显示"√"，当第二次单击该菜单项时，其标题左侧的"√"消失，依此交替进行，......。则应在mnuBold_Click事件过程中书写的语句是________。

A:mnuBold.Checked=FalseB:mnuBold.Checked=IIf(mnuBold.Checked,True,False)

C:mnuBold.Checked=TrueD:mnuBold.Checked=NotmnuBold.Checked

答案:mnuBold.Checked=NotmnuBold.Checked

下列与鼠标拖放操作无关的是________。

A:Drag方法B:DragDrop事件C:KeyPress事件D:DragOver事件

答案:KeyPress事件在窗体上画一个名称为Text1的文本框，然后编写以下事件过程：PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)

If_________________Then

Text1.SelStart=0

Text1.SelLength=Len(Text1.Text)

EndIfEndSub要求程序运行时，若输入焦点在Text1上，按下组合键Ctrl+A可以选取Text1内所有的文本，则在横线处应填入的表达式是________。

A:Text1.KeyCode=65AndText1.Shift=2B:Text1.KeyCode="A"AndText1.Shift="Ctrl"C:KeyCode=65AndShift=2D:KeyCode="A"AndShift="Ctrl"

答案:KeyCode=65AndShift=2程序运行时若单击水平滚动条上滚动块右边的空白处，则其Value属性值的变化量为________。

A:Min属性的值

B:LargeChange属性的值C:SmallChange属性的值D:Max属性的值

答案:LargeChange属性的值下列叙述中，正确的是________。

A:组合框是组合文本框和列表框的特性而成的控件，所以它具有二者的全部属性

B:框架控件的标题不能在程序运行过程中修改

C:文本框可以显示多行文本D:标签中显示的文本在运行阶段不能改变

答案:文本框可以显示多行文本对于通用对话框控件，下列说法中错误的是________。

A:用保存文件对话框可以指定一个文件，由程序使用

B:DefaultEXT和DialogTitle属性只用于打开对话框，不能用于保存对话框C:用打开文件对话框可以指定一个文件，由程序使用D:用通用对话框控件可以建立打开文件对话框，也可以建立保存文件对话框

答案:DefaultEXT和DialogTitle属性只用于打开对话框，不能用于保存对话框为了在程序运行时弹出一个菜单，程序中应使用________。

A:所单击控件的PopupMenu方法B:窗体的PopupM