VB期末道选择题

期末VB150道选择题

1.能被对象所识别的动作与可执行的活动分别称为对象的一B。

A.方法、事件

B.事件、方法

C.事件、属性

D.过程、方法

（1分）错了！

2.一个应用程序D窗体。

A.只许有一个

B.可以没有

C.应该有两个

D.可包括多个

（1分）错了！

3.对象在响应某个事件时，计算机要执行一段程序，以完成相应的操作，这样的程序片段

叫做_B_过程。

A.方法

B.事件

C.调动

D.编译

（1分）错了！

4.以下关于事件的说法，正确的是A。

A.事件是由系统预先定义好的，能够被对象识别的动作

B.用户可以根据需要建立新的事件

C.事件的名称是可以改变的，由用户预先定义

D.不同类型的对象所能识别的事件一定不相同

（1分）错了！

5.VisualBasic中的工程文件的扩展名是D

A..reg

B..frm

C..bas

D..vbp

（1分）错了！

6.C是接收用户鼠标或键盘输入的能力。当对象具有时，可接受用

户的输入。

A.事件

B.属性

C.焦点

D.对象

(1分)错了！

7.所谓A就是使某个对象讲入活动状态(又称激活)的一种操作或动作。

A.事件

B.属性

C.方法

D.对象

(1分)错了！

8.一只白色的足球踢进球门，则白色、足球、踢、进球门是_B。

A.属性、对象、方法、事件

B.属性、对象、事件、方法

C.对象、属性、方法、事件

D.对象、属性、事件、方法

(1分)错了！

9.VisualBasic是一种面向—D的程序设计语言。

A.过程

B.用户

C.方法

D.对象

(1分)错了！

10.下面C语句,可以将列表框Listl中当前选定的列表项的值替换成、'ABC"。

A.Listl.Additem''ABC,Z,Listl.Listindex

B.Listl.Text=''ABC,z

C.Listl.List(Listl.Listindex)=''ABC,Z

D.前三项均可

(1分)错了！

11.下面所列的控件属性中，其值既能在程序设计时设定，又能在程序运行时通过赋值改

变的是一D。

A.Listl.ListCount

B.Textl.Index

C.Dirl.Path

D.Labell.Visible

(1分)错了！

12.单选按钮(OptionButton)用于一组互斥的选项中。若一个应用程序包含多组互斥条件,

可在不同的D中安排适当的单选按钮，即可实现。

A.框架控件(Frame)或图象控件(Image)

B.组合框(ComboBox)或图象控件(Image)

C.组合框(ComboBox)或图片框(PictureBox)

D.框架控件(Frame)或图片框(PictureBox)

(1分)错了！

13.以下有关对象属性的说法中正确的是Do

A.对象所有的属性都罗列在属性窗口列表

B.不同对象不可能有同名属性

C.不同对象的同名属性取值一定相同

D.对象的某些属性即可在属性窗口设置，也可以通过属性代码设置或改变。

（1分）错了！

14.用窗体的C属性来设置窗体的标题。

A.Style

B.Text

C.Caption

D.Name

（1分）错了！

15.如果要在两个菜单命令项之间加一条分隔线，可在标题文本框中键入

A.-

B.+

C.&

D.#

（1分）错了！

16.关于窗体Name属性的叙述，正确的是_D。

A.窗体Name属性可以具有与别的公共对象相同的名字

B.窗体Name属性和变量定义一样

C.窗体Name属性最长可达255个字符

D.窗体Name属性不能具有与别的公共对象相同的名字

（1分）错了！

17.窗体有•个方法可以使窗体隐藏但不从内存中卸载，该方法是C。

A.Show

B.Release

C.Hide

D.Unload

（1分）错了!

18.设在菜单编辑器中定义了一个菜单项，名为menul。为了在运行时让该菜单项变灰,

应使用的语句是Bo

A.menul.Enabled=True

B.menul.Enabled=False

C.menul.Visible=True

D.menul.Visible=False

（1分）错了！

19.当对象失去焦点时，将会发生____B事件。

A.GetFocus

B.LostFocus

C.Focus

D.SetFocus

（1分）错了！

20.要使文本框能显示多行文字，则需设定它的C属性为True。

A.Caption

B.PasswordChar

C.MultiLine

D.Seleted

（1分）错了！

21.将文本框的ScrollBars属性设置为非零值，却没有效果，原因是B。

A.文本框中没有内容

B.文本框的MultiLine属性值为False

C.文本框的MultiLine属性值为True

D.文本框的Locked属性值为True

（1分）错了！

22.当命令按钮的_A属性被设置为True时，按［Esc］键与单击该命令按钮的作用相

同。

A.Cancel

B.Default

C.Style

D.Picture

（1分）错了！

23.对于一个含有计时器控件的窗体，每经过一段由—D属性指定的时间间隔，就

会产生一个Timer事件。

A.Name

B.Enabled

C.Caption

D.Interval

（1分）错了！

24.只有当一个对象的A和属性为True时，它才能获得焦点。

A.Enabled;Visible

B.Visible;Caption

C.Visible;Name

D.Enabled;Caption

（1分）错了！

25.下列控件中，可以接收焦点的是

A.文本框

B.图像框

C.框架

D.形状

（i分）错了！

26.在3种类型的组合框中，只有_B才能接收DbICIick事件。

A.下拉式组合框

B.简单组合框

C.下拉式列表框

D.下拉式列表框和下拉式组合框

（1分）错了！

27.在运行过程中要把某控件变灰，应把D属性设置为False。

A.Default

B.Visible

C.Activate

D.Enabled

（1分）错了！

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

A.Text

B.Length

C.SelStart

D.SelText

（1分）错了!

29.某些对象有只读属性，如Name属性，这种属性在设计阶段设置，不能在运行期间改

变。以下一C属性为只读属性。

A.ControBox

B.Enabled

C.Borderstyle

D.Windowstate

（1分）错了！

30.描述X、Y中只有一个小于Z的逻辑表达式是C。

A.X<ZAndY<Z

B.X<ZOrY<Z

C.X<ZXorY<Z

D.X<Y<Z

（1分）错了！

31.下列语句运行时系统给出错误提示的是_A。

A.Print-32000-769

B.Print"lE2"+8

C.Print"AB"&128

D.Print3=2=4

（1分）错了！

32.对于某对象的SetFocus与GotFocus描述正确的是_A、

A.SetFocus是方法，GotFocus是事件

B.SetFocus是事件，GotFocus是事件

C.SetFocus是方法，GotFocus是方法

D.SetFocus是事件，GotFocus是方法

（1分）错了！

33.有应用代码:Textl.Text="VisualBasic",其中的Textl、Text和"VisualBasic”分别代表

_C_.

A,对象、值、属性

B.对象、方法、属性

C.对象、属性、值

D.属性、对象、值

（1分）错了！

34.在使用菜单编辑器创建菜单时，可在菜单名称中首字母前插入符号—B,那么

在运行程序时按Alt键和该字母键就可打开该命令菜单。

A.下划线

B.&

C.$

D.@

（1分）错了！

35.在程序中可以通过复选框和单选框按钮的B属性值来判断它们的当前状

态它。

A.Caption

B.Value

C.Checked

D.Selected

（1分）错了!

36.应用程序窗体的名称属性为Frml,窗体上有一个命令按钮，其名称属性为Cmdl,窗

体和命令按钮的Click事件过程名分别为C。

A.Form_Click()Commandl_Click

B.Frml_Click()Commandl_Clic

C.Form_Click()Cmdl_Click

D.Frml_Click()Cmdl_Click

(1分)错了！

37.在下列关于菜单的说法中，错误的是B.

A,每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件

B.除了Click事件之外，菜单项还能响应其他的如DbICIick等事件

C.菜单项的捷径键不能任意设置

D.在程序执行时，如果菜单项的Enabled属性为False,则该菜单项变成灰色，不能被用

户选择

（I分）错了！

38.在用菜单编辑器设计菜单时，必须输入的项有D。

A.快捷键

B.标题

C.索引

D.名称

（1分）错了！

39.揖数据项"China”添加到列表框（Listl）中成为第一项应使用A语句。

A.Listl.Additem"China",0

B.Listl.Additem"China",1

C.Listl.AddItem0,"China"

D.Listl.Addltem1,"China"

（1分）错了！

40.下列控件中，没有Caption属性的是B。

A.框架

B.列表框

C.复选框

D.单选按钮

（1分）错了！

41.窗体Forml的名称属性是frm,它的Load事件过程名是_B—。

A.Form-Load

B.Form_Load

C.frm_Load

D.Me_CmdOK

（1分）错了！

42.以下有关对象属性的说法中错误的是D。

A.所有的对象都具有Name（名称）属性

B.只能在执行时设置或改变的属性为执行时属性

C.对象的某些属性只能在设计时设定，不能使用代码改变

D.Enabled属性值设为False的控件对象在窗体上将不可见

（1分）错了！

43.使用D方法，可以将列表框Listl中的所有项删除掉。

A.Listl.Txt=""

B.Addltem

C.Removeitem

D.Clear

（1分）错了！

44.对正实数X的第四位小数四舍五入的VB表达式是_D。

A.0.001*Int(x+0.0005)

B.0.001*(1000*x+0.5)

C.0.001*Int(1000*x+5)

D.0.001*Int(1000*(x+0.0005))

(1分)错了！

45.设整型变量a、b的当前取值分别为200与20,以下赋值语句中不能正确执行的是_

_B_____o

A.Textl=a/b*a

B.Textl=a*a/b

C.Textl=''200,z*a/b

D.Textl=a&b&a

(1分)错了！

46.函数Cint(-3.5),Int(-3.5),Fix(-3.5)的值分别是B。

A.-3,—4,—3

B.-41-4,-3

C.-3,Y,-4

D.-4,-3,—3

(1分)错了！

47.执行语句"Printformat(5459.478,"##z##0.00")",正确的输出结果是—B。

A.5459.48

B.5,459.48

C.5,459.478

D.5,459.47

(1分)错了！

48,下列没有类型说明符的变量是A。

A.日期型

B.长整型

C.字符串型

D.货币型

(1分)错了！

49.VB表达式Sqr(a+b)人3*2中优先进行运算的是B—。

A.Sqr函数

B.+

（1分）错了!

卜列语句中不能正常执行的是一A

A.print+32758+10

B.print5+9=15

C.print"65"+12

D.print"65"&12

（1分）错了！

51.如果一个变量未指明数据类型，那么，VB默认这个变量为_A_变量。

A.变体型

B.整型

C.公共

D.字符串型

（1分）错了！

52.在窗体Forml上画两个文本框（Name属性分别为Fextl和Text2）和一个命令按钮（N

ame属性为Commandl）,程序如下。执行后结果为C。

PrivateSubCommandl_Click（）

a=Textl.Text+Text2.Text

Printa

EndSub

PrivateSubForm_load（）

Textl.Text="123"

Text2.Text="321"

EndSub

A.444

B.321123

C.123321

D.132231

（1分）错了！

53.要判断''月收入在2000元以上（含2000元）且5000元以下（不含5000元）”的职工,

应该使用的逻辑表达式是Co

A.M>2000ANDM<=5000

B.M>2000OrM<=5000

C.M>=2000ANDM<5000

D.M>=2000OrM<5000

（1分）错了！

54.下列程序的执行结果是B。

x=-6A2

PrintSgn（x）+Abs（x）+Int（x）

A.-36

B.-1

C.0

D.-72

（1分）错了！

55.下列语句执行后的输出结果是A。（一个方格表示一个空格）

Wage=26

Print"工资

PrintWage

A.工资口26

B.工资口口26

C.''工资”口26

D.''工资"□口26

（1分）错了！

56.语句Print4+5\6*7/8Mod9的值是B。

A.4

B.5

C.6

D.7

（1分）错了！

57.下列A是合法的VB变量名。

A._5a

B.我_AB

C.5name

D.Use&DASF

（1分）错了!

58.MsgBox函数返回值的类型为B。

A.整体数值

B.字符串

C.变体

D.数值或字符串

（1分）错了！

59.用于字符串连接的运算符是Do

A.&

B.+

C.And

D.A、B都可以

（1分）错了！

60.表达式（-l）*Scin（-100+Int（Rnd*100））的侑是C.

A.随机数

B.0

C.1

D.-1

（1分）错了！

61.如果a是一个正实数，对x的第3位小数四舍五入的表达式是C

A.0.01*Int(a+0.005)

B.0.01*Int(a+0.05)

C.0.01*Int(100*(a+0.005)

D.0.01*Int(100*(a+0.05))

(1分)错了！

62.不能正确表示条件''两个整型变量X和Y之一为0,但不能同时为0"的布尔表达式是_

C

A.X*Y=0And(X<>0OrY<>0)

B.(X=0OrY=0)And(X<>0OrY<>0)

C.Not((X=0OrY=0)And(X<>0OrY<>0))

D.X*Y=0AndX+Y<>0

(1分)错了！

63.函数Int(Rnd*ll)+10的徜的范围是A。

A.[10,20]

B.[0,20]

C.[10,10]

D.[10,11]

(1分)错了！

64.满足''当a的值是偶数时为0,是奇数时为1”的要求的表达式是。

A.aMod2=0

B.NotaMod2<>0

C.Not(aMod2)

D.(a\2*2-a)=0

(1分)错了！

65.VisualBasic的一行可以写多条语句，语句之间用D隔开。

A.逗号

B.分号

C.顿号

D.冒号

（1分）错了！

66.如果将布尔常量False赋值给一个整形变量，则整型变量的值为A。

A.0

B.-1

C.True

D.False

（1分）错了！

67.设a为Integer■型变量，s为Single型变量，把3.75赋值给s后，再执行下列某一语

句，则在文本框中显示的结果与执行语句a=s:Textl=a的结果相同的有—B个。

①a=InXs）:Textl=a

②a=Fix⑸:Textl=a

@a=CInt（s）:Textl=a

④a=Formats,"#####'）:Textl=a

A.1

B.2

C.3

D.4

（1分）错了！

68.i被j整除的逻辑表达式是Do

A.i/j=0

B.i\j=0

C.i<>0

D.imodj=0

（1分）错了！

69.x+y小于10且x-y要大于0的逻辑表达式是C。

A.x+y<10,x-y>0

B.（x+y<10）:（x-y）>0

C.x+y<10Andx-y>0

D.x+y<10x-y>0

（1分）错了！

70.赋值语句：a=123+MID（"123456",3,2）执行后，a变量中的值是D

A."12334"

B.123

C.12334

D.157

（1分）错了！

71.表达式Len（"123程序设计ABC"）的值是A。

A.10

B.14

C.20

D.17

（1分）错了！

72,己知A$"12345678"；,则表达式Val（Left（A,4）+Mid（A,4,2））的值为B

A.123456

B.123445

C.8

D.6

（1分）错了！

73.\、/、Mod、*四个算术运算符中，优先级别最低的是C。

A.\

B./

C.Mod

D.*

(1分)错了！

74.表达式16/4-2八5*8/4MOD5/2的值为B。

A.14

B.4

C.20

D.2

(1分)错了！

乃.语句Print"5*20"输出的结果是C。

A."5*20"

B.出现错误信息

C.5*20

D.100

(1分)错了!

76.x+y小于10且x-y大于0的逻辑表达式是C.

A.x+y<10Orx-y>0

B.(x+y)<10:(x-y)>0

C.x+y<10Andx-y>0

D.x+y<10.And.x-y>0

(1分)错了!

77.在文本框Textl中输入数字12,Text2中输入数字34,执行以下语句，只有B_

。可使文本框Text3中显示46。

A.Text3.Text=Textl.Text&Text2.Text

B.Text3.Text=Val(Textl.Text)+Val(Text2.Text)

C.Text3.Text=Textl.Text+Text2.Text

D.Text3.Text=Val(Textl.Text)&Val(Text2.Text)

(1分)错了！

78.在程序中将变量Inta、BkSt、D分别定义为Integer类型、Boolean类型、String类型

和Date类型，下列赋值语句中，正确的是B。

A.Inta="333"+"22"

B.D=#10/05/01#

C.St=5+"abc"

D.BI=#True#

(1分)错了！

79.以下C程序段可以实施X,Y变量值的变换.

A.Y=X:X=Y

B.Z=X:Y=Z:X=Y

C.Z=X:X=Y:Y=Z

D.Z=X：W=Y:Y=Z:X=Y

(1分)错了！

80.语句Print、'Int(-13.2)=";Int(-13.2)的输出结果为D.

A.Int(-13.2)=-13.2

B.Int(-13.2)=13.2

C.Int(-13.2)=-13

D.Int(-13.2)=-14

(1分)错了！

81.语句x=x+l的正确含义是—C.

A.变量X的值与X+1的值相等

B.将变量X的值存在X+1中去

C.将变量X的值加1后赋给变量X

D.变量X的值为1

(1分)错了！

82.下列语句中的语句可以用来正确地声明一个动态数组。(B)

A.PrivateA(n)AsInteger

B.DimA()AsInteger

C.DimA(,)AsInteger

D.DimA(1ton)

(1分)错了！

83.在窗体上画一个命令按钮，名称为Commandl,然后编写如下程序:

PrivateSubCommandl_Click(B)

DimaAsInteger,bAsInteger

DoWhileb<100

b=b+5

a=a+b

Ifb>20ThenExitDo

Loop

Printa,b

EndSub

程序运行后，如果单击命令按钮，则在窗体上显示的内容是。

A.5020

B.7525

C.5025

D.7520

(1分)错了！

84.有如下程序：

PrivateSubCommandl_Click(D)

score=65

selectCasescore

CaseIs<60

a$="F"

Case60To69

a$="Dn

Case70To79

a$="C"

Case80To89

a$=”B”

Caseelse

a$=nA"

EndSelect

MsgBoxa$

EndSub

程序运行后，消息对话框中显示的内容为o

A.A

B.B

C.C

D.D

(1分)错了！

85,下列程序：

PrivateSubForm_Click()

Forj=lTo15

a=a+jMod3

Nextj

Printa

EndSub

运行后输出的结果是Bo

A.1

B.15

C.90

D.120

(1分)错了！

86.在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：

PrivateSubCommandl_Click()

StaticAAsInteger

StaticBAsInteger

Cis

B=2

B=B+3

A=3+A

printA,B

EndSub

程序运行时，3次单击命令按钮Commandl后，窗体上显示的结果为A

A.35

B.66

C.95

D.33

(1分)错了！

87.在窗体中添加一个命令按钮，并编写如下程序代码：

PrivateSubCommandl_Click()

DimyAsInteger

y=0

DoWhiley<7

y=y+2

Loop

MsgBoxy

EndSub

程序运行后，消息对话框中显示C。

A.0

B.7

C.8

D.2

(1分)错了！

88.在单击窗体中的按钮Commandl第3次后，如下程序打印结果是_C—。

PrivateSubCommandl_Click()

StaticaASInteger

a=a+1

SelectCasea

Case1:Print"欢迎大家"

Case2:Print"努力就能成功

Case3:Print"希望你能通过考试”

Case4:Print"再见"

EndSelect

EndSub

A.''欢迎大家”

B.'、努力就能成功”

C."希望你能通过考试"

D.''再见"

(1分)错了！

89.下面是计算1~100奇数的和的程序，请补充完整，填空应为C。

PrivateSubCommandl_Click()

DimsAsLong,xAsInteger

s=0

Forx=Step-2

s=s+x

Nextx

Prints

EndSub

A.100To1

B.1To100

C.99To1

D.1To99

（1分）错了！

90.下列程序的输出结果是A,

DimyAsInteger

y=10

DoWhiley<>0

y=y-i

Loop

Print"y=";y

A.y=0

B.y=l

C.y=随机值

D.y=-l

（1分）错了！

91.以下程序的输出结果是B

DimiAsInteger,aAsInteger

DoWhilei<20

DoWhileTrue

IfiMod10=0Then

ExitDo

Else

i=i-l

EndIf

Loop

i=i+ll

a=a+i

Loop

Printa

A.21

B.32

C.33

D.11

（4分）错了！

92.

下列程序段的执行结果为C。

x=Int（（69-60）*Rnd+60）

SelectCasex

CaseIs>=90

Print"优秀"

Case80To89

Print"良好"

Case60To79

Print"合格"

CaseElse

Print"不合格"

EndSelect

A.优秀

B.良好

C.合格

D.不合格

（4分）错了！

93.下面程序的内层循环次数是_B.

Fori=lTO3

Forj=lTOi

Fork=jTO3

Nextk

Nextj

Nexti

A.3

B.14

C.9

D.21

（4分）错了！

94,结构化程序设计方法的核心是规定了三种基本结构：B结构、分支结构、循环

结构。

A.条件

B.顺序

C.当型

D.逻辑

（4分）错了！

95.下列循环能正常结束循环的是C。

A.i=5

Do

i=i+l

LoopUntili<0

B.i=l

Do

i=i+2

LoopUntili=10

C.i=10

Do

i=i+l

LoopUntili>0

D.i=6

Do

i=i-2

LoopUntili=l

(4分)错了！

96.语句Ifx=lTheny=l,下列说法正确的是C。

A.x=l和y=l均为赋值语句

B.x=l和y=l均为关系表达式

C.x=l为关系表达式，y=l为赋值语句

D.x=l为赋值语句，y=l为关系表达式

(4分)错了！

97.在过程中有语句ForI=NlToN2StepN3,在该循环体内有下列四条语句，其中

C会影响循环执行的次数。①N1=N1+I②N2=N2+N3③I=I+N3④N3=2*N3

A.①②

B.①②③

C.③

D.①②®®

(1分)错了！

98.执行下面的程序，单击窗体后在窗体上显示的结果是A

PrivateSubForm_Click()

DimStrlAsString,Str2AsString

DimStr3AsString,IAsInteger

Strl="e"

ForI=1To2

Str2=UCase(Strl)

Strl=Str2&Strl

Str3=Str3&Strl

Strl=Chr(Asc(Strl)+I)

NextI

PrintStr3

EndSub

A.EeFF

B.eEfF

C.EEFF

D.eeFF

(1分)错了！

99.用Msgbox"你好"，vbokonly,"Hello"显示的消息对话框窗口的标题是_D。

A.你好

B.vbokonly

C.Ok

D.Hello

(1分)错了！

100.执行以下语句后，a的值为C”

DimaAsInteger

a=l

DoUntila=100

a=a+2

Loop

A.99

B.100

C.溢出

D.101

(1分)错了！

101.表达式(7\3+l)*(18\5-1)的值是C.

A.8.67

B.7.8

C.6

D.6.67

(1分)错了！

102.表达式X+1>X是D.

A.算术表达式

B.非法表达式

C.字符串表达式

D.关系表达式

(1分)错了！

103.下列有关数组的说法中，不正确的是一B。

A.在窗体模块中不可以定义全局数据组

B.可以使用Erase语句释放所有数组所占据的存储储空间

C.语句DimX(3.6+2)AsInteger定义了一个维上界是6的一维的整型数组

D.形参数组的类型可以是定长符串类型

(1分)错了！

104.在窗体模块的通用声明处用下面的语句声明变量、数组，正确语句有B个。

①PublicA(5)AsInteger

②PublicNAsInteger

③PublicStAsString

④Privateb()AsInteger

A.2

B.3

C.4

D.1

(1分)错了！

105.对窗体编写如下代码：

OptionBase1

PrivateSubCommandl_Click()

a=Array(237z126,87,48,498)

ml=a(l)

m2=l

Fori=2To5

Ifa(i)>mlThen

ml=a(i)

m2=i

EndIf

Nexti

Printml;m2

EndSub

程序运行后，按回车键，输出结果为C_o

A.484

B.2371

C.4985

D.4984

(1分)错了！

106.在窗体上画一个命令按钮，然后编写如下事件过程：

OptionBase1

PrivateSubCommandl_Click()

DimaAsVariant

a=Array(lz2,3z4)

j=1

Fori=4To1Step-1

s=s+a(i)*j

j=j*10

Nexti

Prints

EndSub

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

A.4321

B.12

C.34

D.1234

(1分)错了！

107.程序代码如下，当单击窗体上Commandl控件时，窗体上显示的结果是_C

OptionBase1

PrivateSubCommandl_Click()

DimiAsInteger

Dimx(3,3)AsInteger

Fori=1To3

Forj=1To3

x(i,j)=(i-1)*3+j

Nextj

Nexti

Fori=1To3

Printx(i,4-i)

Nexti

EndSub

A.159

B.147

C.357

D.369

(1分)错了！

108.运行以下程序段，输出结果是(D)

Dima(lTo10)

Dimp(lTo4)

k=5

Fori=1To4

p(i)=i*2

Nexti

Fori=1To4

k=k+p(i)*2

Nexti

Printk

A.48

B.32

C.30

D.45

(1分)错了！

109.当发生Commandl_Click事件后，程序输出结果是_D

OptionBase1

PrivateSubCommandl_Click()

Dima(4,4)AsInteger,!AsInteger,sAsInteger

s=0

Fori=lTo4

Forj=lTo4

a(i,j)=(i-l)*4+j*2

Nextj

Nexti

Fori=1To4

s=s+a(i,i)

Nexti

Prints

EndSub

A.28

B.32

C.30

D.44

(1分)错了！

110.下列程序段的输出结果是B

DimiAsInteger

Dima(8)AsInteger

y=18:i=0

Do

a(i)=yMod2

i=i+1

y=y\2

LoopUntily<1

Forj=i-1To0Step-1

Printa(j);

Nextj

A.1000

B.10010

C.00110

D.10100

(1分)错了！

111.下列程序的输出结果是B。

DimiAsInteger,kAsInteger

Dima(10)AsInteger,p(3)AsInteger

k=5

Fori=0To9

a(i)=i

Nexti

Fori=0To2

P(i)=a(i*(i+1))

Nexti

Fori=0To2

k=k+p(i)*2

Nexti

Printk

A.17

B.21

C.22

D.23

(1分)错了！

112.下列程序段的执行结果是一D。

DimA(3,3)

ForM=1TO3

ForN=1TO3

IfN=MOrN=3-M+lThen

A(M,N)=1

Else

A(M,N)=0

EndIf

NextN

NextM

ForM=1TO3

ForN=1TO3

PrintA(M,N);

NextN

Print

NextM

A.100

010

001

B.111

111

111

C.000

000

000

D.101

010

101

(1分)错了！

113.如下数组声明语句，则数组a包含元素的个数有A

Dima(3,-2to2,5)

A.120

B.75

C.60

D.13

(1分)错了！

114.如下二维数组声明语句，B正确。

A.Dima[3,4]AsInteger

B.Dima(3,4)AsInteger

C.Dima(n,n)AsInteger

D.Dima(34)AsInteger

(1分)错了！

115.OptionBase1(A)

PrivateSubCommandl_Click()

Dima%(3,3)

Fori=1To3

Forj=1To3

Ifj>1Andi>1Then

a(i,j)=a(a(i-1,j-1),a(i,j-1))+1

日se

a(i,j)=i*j

EndIf

Printa(i,j);"

Nextj

Print

Nexti

EndSub

A.123

231

323

B.123

123

123

C.123

246

369

D.111

222

333

(1分)错了！

116.要分配存放如下方阵的数据，C数组声明语句能实现(不能浪费空间)。

每行三个元素，第一行为：第二行为：第三行为：

A.Dima(9)AsSingle

B.Dima(3,3)AsSingle

C.Dima(-lToI,-5To-3)AsSingle

D.Dima(-3To-1,5To7)AsInteger

(1分)错了！

117.在窗体的通用声明处有语句DimA()AsSingle,以下在某事件过程中重定义此数组的

一组正确语句是：Do

A.ReDimA(3,3)

ReDimA(4,4)AsInteger

B.ReDimA(3,3)

ReDimPreserveA(4,4)

C.ReDimA(3)

ReDimA(3,3)AsInteger

D.ReDimA(3,3)

ReDimPreserveA(3,4)

(1分)错了！

118.下列程序段的输出结果是C

DimA(5)

For1=0TO4

A(I)=I+1

M=I+1

IfM=3Then

A(M-1)=A(I-1)

日se

A(M)=A(I)

EndIf

If1=3ThenA(I+l)=A(M-4)

PrintA(I);

NextI

A.11122

B.21144

C.12245

D.22141

(1分)错了！

119.运行程序产生死循环时，按一C键可以终止程序的运行。

A.Ctrl+C

B.Ctrl+Z

C.Ctrl+Break

D.单击停止运行按钮

(1分)错了！

120.单击按钮,输出为Co

PrivateSubfun()

StaticaAsInteger

a=a+2

Printa;

EndSub

PrivateSubCommandl_Click()

DimmAsInteger

Form=lTo3

Callfun

Nextm

EndSub

A.222

B.000

C.248

D.246

(1分)错了！

121.在单击命令按钮时的输出结果是A.

PrivateSubCommandl_Click()

Dimx%,y%

x=l:y=l

Forn=lto3

z=First(xzy)

Printn,z

Nextn

EndSub

PrivateFunctionFirst%(x%,y%)

Dimn%

DoWhilen<=4

x=x+y

n=n+l

Loop

First=x

EndFunction

A.16211316

B.26131116

C.123456

D.213133

(1分)错了！

122.设有下列程序代码，在单击命令按钮时的输出结果是—B

SubSS(ByVaix,ByRefy,z)

x=x+l

y=y+i

Z=Z+1

EndSub

PrivateSubCommandl_Click()

A=l:B=2:C=3

CallSS(AZB,C)

PrintA,BZC

EndSub

A.123

B.134

C.224

D.133

(1分)错了！

123.程序运行后，如果单击命令按钮，则在文本框中显示的内容是B

PrivateSubCommandl_Click()

dimx,y,zAsInteger

x=5:y=7:z=0

textl='''z

callpl(x,y,z)

textl=str(z)

EndSub

PrivateSubpl(ByVala%,ByVaib%,c%)

c=a+b

EndSub

A.0

B.12

C.Str(z)

D.没有显示

(1分)错了！

124.当在Cmdl按钮上单击时，程序的输出是(A).

PublicFunctionFunc(a%,b%)AsInteger

StaticmAsInteger:DimiAsInteger

m=0:i=2:i=i+m+l:m=i+a+b:Func=m

EndFunction

PrivateSubCmdl_Click()

Dimk%zm%,n%

k=4:m=l:n=Func(kzm)

Printn,Func(kzm)

EndSub

A.88

B.820

C.816

D.817

(1分)错了！

125.在CmdLClick事件中有效的地址传递的调用语句是(B)

PublicSubFl(n%)

n=3*n+4

EndSub

PrivateSubCmdl_Click()

Dimn%,m%

n=3:m=4

...'调用Fl语句

EndSub

A.Fln+m

B.Flm

C.Fl5

D.Flm+5

(I分)错了！

126.调用由语句PrivateSubConvert(YAsInteger)定义的Sub过程时，以下不是按值传

递的语句是。

A.CallConvert((X))

B.CallConvert(X*l)

C.Convert(X)

D.ConvertX

(1分)错了！

127.若在应用程序中用PrivateSubSubl(Xasinteger,YasSingle)定义了子程序Subl,

调用程序中的变量i、j均为Integer型，则正确调用子程序Subl的Call语句是(B)。

①CallSubl(i,j)②CallSubl(3.1415,i)

③CallSubl(3.14,234)④CallSubl(''245",''2315)

A.@@

B.③④

C.©©③

D.无

(I分)错了！

128.在调用Sub或Function过程时，采用_B传送相应过程的变量名、数组名、常数

或表达式。

A.形式参数

B.实际参数

C.对象参数

D.数组参数

(1分)错了！

129.在程序中的不同过程之间，不能通过D进行数据传递。

①全局变量②窗体或模块级变量③形参与实参结合④静态变量

A.(D@④

B.①②③

C.@@

D.④

(1分)错了！

130.Sub过程与Function过程的本质区别是D。

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

B.Function过程可以有形参，Sub过程不能有形参

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

D.Sub过程没有返回值，Function过程能返回值

(1分)错了！

131.模块的通用声明处有如下语句，会产生错误的语句是(D)。

①ConstaasInteger=25

②PublicStAsString*8

③ReDimB(3)AsInteger

④DimConstXAsInteger=10

A.①②

B.①③

C.①②③

D.②③④

(1分)错了！

132.在过程中定义的变量，如果希望在离开该过程后，还能保持过程中局部变量的值，则

应该使用一D关键字在过程中定义局部变量。

A.Dim

B.Private

C.Public

D.Static

(1分)错了！

133.以下有关变量作用域的说明中，错误的是(A)。

A.只有在标准模块中用Public语句说明的变量才是全局变量

B.在过程中不能使用Public语句说明全局变量

C.在标准模块的通用声明处可用语句说明模块级变量

D.在窗体的通用声明处可用Private语句说明窗体级变量

(I分)错了！

134.要想在过程调用后返回两个结果，下面的过程定义语句合法的是C—。

A.SubProd(ByVain,ByVaim)

B.SubProd(n,ByVaim)

C.SubProd(n,m)

D.SubProcl(ByVain,m)

(1分)错了！

135.在语句PublicSubSort(iAsInteger)中i是一个按A传递的参数。

A.地址

B.值

C.变量

D.常量

(1分)错了!

136_.在窗体上添加一个命令按钮，名为Commands事件过程如下。执行结果是_A_

O

Subpb(b()AsInteger)

Fori=lTo4

B(i)=2*i

Nexti

EndSub

PrivateSubCommandl_Click()

Dima(lTo4)AsInteger

a(l)=5:a(2)=6:a(3)=7:a(4)=8

pba

Fori=lTo4

Printa(i);

Nexti

EndSub

A.555

51010

B.555

5510

C.5510

51010

D.555

101010

(1分)错了！

137.阅读下列程序，其输出的结果是一C。

PrivateSubCommandl_Click()

Dima(lTo3)AsInteger

Fori=lTo3

a(i)=i

Nexti

Callsubl(a)

Fori=2To3

Printa(i)

Nexti

EndSub

PublicSubsubl(a()AsInteger)

Fori=lTo3

a(i)=i*i

Nexti

EndSub

A.12

B.23

C.49

D.14

(1分)错了！

138.程序中未定义的变量均为integer,单击Commands程序的输出是(A)

PrivateSubCommandl_Click()

k=4：m=l

n=Func(k,m)

Printn,Func(k,m)

EndSub

PublicFunctionFunc(aAsInteger,bAsInteger)AsInteger

StaticmAsInteger

m=0：i=2

i=i+m+l

m=i+a+b

Func=m

EndFunction

A.88

B.820

C.816

D.817

(1分)错了！

139,给出下列程序代码，在单击命令按钮时的输出结果是A。

PrivateSubCommandl_Click()

DimxAsInteger,yAsInteger

x=l:y=l

Forn=lTO3

z=FirstFunc(x,y)

Printn,z,

Nextn

EndSub

PrivateFunctionFirstFunc(xAsInteger,yAsInteger)AsInteger

DimnAsInteger

DoWhilen<=4

x=x+y

n=n+l

Loop

FirstFunc=x

EndFunction

A.16211316

B.26131116

C.123456

D.213133

(1分)错了！

140.给出下列程序代码在第一次单击命令按钮时文本框Textl和Text2中的内容，第二次

单击命令按钮时文本框Textl和Text2的内容。(D)

DimyAsInteger

PrivateSubCommandl_Click()

DimxAsInteger

x=2

Textl.Text=SecondFunc(FirstFunc(x)zy)

Text2.Text=Fi