VB无纸化考试客观练习题

VB无纸化考试客观练习题(附正确答案)

全国计算机水平考试二级VB笔试练习(选择、判断和填空题)

^JcX^gC5gCxjc5^C5gC

一、单项选择题(1-251题)

1.以下4种描述中，错误的是—D_o

A.常量在程序执行期间其值不会发生改变

B.根据数据类型不同，常量可分为字符型常量、数值常量、日期/时间型常量和

布尔型常量

C.符号常量是用一个标识符来代表一个常数，好象是为常数取一个名字，但仍

保持常数的性质

D.符号常量的使用和变量的使用没有差别

2.下面合法的常量是—D—o

A.1/2B.'abed'C.1.2*5D.False

3.VisualBasic中可以用类型说明符来标识变量的类型，其中表示货币型的是

—C。

A.%B.#C.@D.$

4.下面—B―是不合法的整常数。

A.100B.%0100C.&H100D.&0100

5.以下关键字中，不能定义变量的是Ao

A.DeclareB.DimC.PublicD.Private

6.表达式16/4-2^5*8/4MOD5\2的值为__B__。

A.14B.4C.20D.2

7.用十六进制表示VisualBasic的整型常数时，前面要加上的符号是A—。

A.&IIB.&0C.HD.0

8.VisualBasic日期型常量的定界符是_A。

A.##13.''C.()D.{}

9.数学关系式3^x<10表示成正确的VB表达式为—B—o

A.3<=x<10B.3<=xANDx<10C.x>=3ORx<10D.3<=xAND<10

10.下面正确的赋值语句是—C—。

A.x+y=30B.pi*r*r=yC.y=x+30D.x=3y

H.\，/，Mod,*四个算术运算符中，优先级别最低的是Co

A.\B./C.ModD.*

12.表达式ASC(〃F〃)的类型是_Co

A.字符表达式B.关系表达式C.算术表达式D.逻辑表达式

13.下间语句中有非法调用的是—C—o

A.x=Sgn(-1)B.x=Fix(-l)

C.x=Sqr(-1)D.x$=Chr$(65)

14.表达式23/5.8、23\5.8、23Mod5.8的运算结果分别是—B。

A.3、3.9655、3B.3.9655、3、5C,4、4、5D.3.9655、4、3

15.如果变量a=2>b="abc"、c="acd〃、d=5,则表达式a<dORb>cANDbOc的

值为一Ao

A.TrueB.FalseC.YesD.No

16.下面不正确的赋值语句是—B—o

A.x=30-yB.y=r.rC.y=x+30D.y=x\3

17.为了给x,y,z三个变量赋初值1,下面正确的赋值语句是—A—。

A.x=l:y=l:z=lB.x=l,y=l,z=lC.x=y=z=l

D.xyz=l

18.以下4类运算符，优先级最低的是_D—。

A.算术运算符B.字符运算符C.关系运算符D.逻辑运算符

19.如果在立即窗口中依次执行下列命令：

a=8

b=9

Printa>b

则输出的结果是C。

A.1B.0C.FalseD.True

20.己知a=〃12345678〃，则表达式Left(a,4)+Mid(a,4,2)的值是—B。

A.123456B.”123445〃C.123445D.1279

21.在VisualBasic中，yl+z2=a*Sin(b*x+c)+k表达式的类型是_B____。

A.算术表达式B.关系表达式C.逻辑表达式D.字符表达式

22.下列表达式的值为真的是—Co

A.B."9">〃a〃C.〃That〃〉〃Thank"D.12>12.1

23.在下列算术运算符中，运算等级最高的是—A—o

A.取负(-)B.乘、除(*,/)C.取模(MOD)D.加I、

减(+,~)

24.如果变量a=2,b=3,c=4,d=5,表达式NOTa>bANDNOTdOc的值是—B。

A.TrueB.FalseC.1D.0

25.在一个有(1)逻辑运算、(2)算术运算、(3)关系运算混合在一起的表达

式(无括号)中，其运算顺序为—C—O

A.(1)(2)(3)B,(3)(2)(1)C.(2)(3)(1)D.(2)(1)(3)

26.表达式A%+B&+C!-用的结果为Do

A.整型B.长整型C.单精度型D.双精度型

27.下列符号中，可以用作VB变量名的是—C—o

A.c%abB.3sumC.sum3D.Len

28.在下列表达式中，正确的日期型常量是—D—。

A."12/04/01"B.12-04-2001C.{12/04/01)D.#12/04/01#

29.条件：1<X<=2或10<=X<15,在VisualBasic语言中应写成条件表达式

—A。

A.X>1ANDX<=2ORX>=10ANDX<15B.X>1ORX<=2ORX>=10ORX<15

C.X>1ORX<=2ANDX>=10ORX<15D.X>1ANDX<=2ANDX>=10ANDX<15

30.设有如下的记录类型

TypeStudent

numberAsString

nameAsString

ageAsInteger

EndType

则正确引用该记录类型变量的代码是B

A.Student,name=”张红〃B.DimsAsStudent

s.name二〃张红〃

C.DimsAsTypeStuentD.DimsAsType

s.name="张红"s.name=”张红〃

31.下列程序运行时，从键盘输入字符〃-〃,则输出结果是_A_

PrivateSubForm_Click()

op$=TnputBox(〃op二〃)

Ifop$="+"Thena=a+2

Ifop$=〃-〃Thena=a-2

Printa

EndSub

A.-2B.0C.+2D.+0

32.表达式Not(a+b=c-d)是A一。

A.逻辑表达式B.字符表达式C.算术表达式D.关系表达式

33.〃-32768〃的数据类型是_D—。

A.整型常量B.浮点型常量C.符号常量D.字符串型常量

34.在下列4个表达式中，非法的表达式形式是—C—o

A.A+B=CB.0=1C.〃ABC"+112D.1/2=0.5

35.设x=5,表达式x>=10orx<=20的值是A。

A.TrueB.FalseC.0D.表达式非法

36.下列数据类型不可能占8个字节的是—D—。

A.DateB.CurrencyC.StringD.Integer

37.下列各项不是VisualBasic的基本数据类型的是—A—°

A.CharB.StringC.IntegerD.Double

38.逻辑表达式Not〃a〃>〃b〃And9<3or9>3的值为—A。

A.TrueB.FalseC.表iA式有错D.条件不足

39.在窗体模块的声明段中声明变量时，不能使用的关键字是—D—o

A.PrivateB.PublicC.DimD.Static

40.选拔身高T超过1.7米且体重W小于62.5公斤的人，表示该条件的表达式为

—CO

A.T<=1.7AndW>=62.5B.T>1.7OrW<62.5

C.T>1.7AndW<62.5D.T<=1.7OrW>=62.5

41.在过程内部定义的局部变量，仅在声明它的—B中有效。

A.方法B.过程C.属性D.对象

42.假设A=z，GoodMorning.",B=，/Afternoon,Boys.",下列表达式中结果是“Good

Boys.〃的是_A_o

A)Left(A,5)+Right(B,5)B)Right(A,5)+Left(B,5)

C)Mid(A,l,5)+Mid(B,1,6)D)Right(A,5)+Right(B,5)

43.下列关于变体类型的描述，其中正确的是—C—o

A.变体是一种没有类型的数据

B.变体的空值就表示该变体的值为0

C.一个变量没有定义就赋值，该变量即为变体类型

D.变体是赋给变量某一种类型数据后，就不能再赋给它另一类型的数值

44.下列程序段的运行结果为—B—o

Fori=3To1Step-1

PrintSpace(5-i);

Forj=lTo2*i-l

Print〃*〃；

Nextj

Print

Nexti

A.*B.*****C.*****D.***x*

**********x*

***

45.执行PRINT18/2*3,-3^2命令后,输出结果为C___o

A.39B.3-9C.27-9D.-9

27

46.执行PRINT9.4\3.7,9.4MOD3.7命令后，输出结果为—A

A.21B.30C.220D.1

2

47.运行以下程序段后，输出结果为—C—o

x%=l/4

y%=ll/4

PRINTx%;y%

A.0.250.75B.02C.03D.13

48.窗体里有两个对象，分别是图片框Picturel和标签Label1,下面关于Print

方法的使用中，错误的一条是—D—o

A.Picturel.Print147B.Print147C.Printer.Print147D.

Label1.Print147

49.下面的—B―语句可以实现：先在窗体上输出人写字母A,然后在同一

行的第10列输出小写字母b。

A.Print〃A〃；Tab(9);“b〃B.Print"A";Tab(10);〃b"

C.Print〃A〃；SpaceCO);〃b"D.Print"A";Tab(8);"b"

50.阅读下面的程序段：

nl=InputBox(〃请输入第一个数：〃)

n2=InputBox(〃请输入第二个数：〃)

Printnl+n2

当输入分别为111和222时，程序输出为—A—o

A.111222B.222C.333D.程序出错

51.语句PrintFormat(，，HELL0，/,z，＜")的输出结果是B_。

A.HELLOB.helloC.HeD.he

52.设a=2:b=0,则语句Print(a=2)And(b=-2)的输出结果是—D。

A.TrueB.结果不确定C.-1D.False

53.以下程序段运行后，输出字符的排列顺序是—D—o

Fori=lTo6

IfiMod2=0Then

Print'r；

Else

Print〃*〃;

EndIf

Nexti

A.#*#*#B.触###C.*****D.*#*#*#

54.用MsgBox函数显示的对话框，以下叙述正确的是—D

A.该对话框有一个“确定”按钮

B.该对话框有“是"，“否”两个按钮

C.该对话框有“是”，“否”，“取消”三个按钮

D.该对话框通过选择参数可以得到以上不同的的按钮组合

55.与语句Dimabc%作用相同的语句是A。

A.DimabcAsIntegerB.DimabcAsLong

C.DimabcAsStringD.DimabcAsDate

56.设a=l,b=2,c=3,d=4,则表达式Hf(a<b,c,d：的结果为____B

A.4B.3C.2D.

57.Rnd函数不可能为下列_A,B―值。

A.0B.1C.0.1234D.0.0005

58.表达式Int(198.555*100+0.5)/100的值为—C。

A.198B.199.6C.198.56D.200

59.PrintMonth(#5/30/2005#)语句显示的结果是—C_o

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

60.若Y="welcome!",则表达式Le表(YJen(Y)T)的值是_C

A.”welcome!"B."wC.”welcome”D.

61.变量string$二〃Helloworld!:函数Trim(string)的结果

是Co

A."Hello,world!”B.〃Hello,world!”

C.”Hello,world!77D.”Hello,world!”

62.下列表达式中，表达式—A_的运算结果与其它3个不同。

A.Int(-3.5)-1.5B.Int(-4.5)+0.5

C.-Abs(-4.5)D.Fix(-4.5)-0.5

63.表达式Sgn(-2)-3.5的值是—D。

A.-1.5B.-2.5C.-3.5D.-4.5

64.函数Mid(“123456789〃，3,4)的值是—A。

A.”3456〃B.〃456〃C.3456D.456

65.要使变量x赋值为1〜100间(含1,不含100)的一个随机整数，正确的语

句是—D―o

A.x=Int(lOO*Rnd)B.x=Tnt(lOl*Rnd)

C.x=l+Int(100*Rnd)D.x=l+Int(99*Rnd)

66.VisualBasic表达式Cos(0)+Abs(1)+Int(Rnd)的值是D。

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

67.可实现从字符串任意位置截取字符的函数是_Bo

A.Instr()B.Mid()C.Left()D.Right()

68.实现将小写字母转奥成大写字母的函数是Co

A.Str()B.Upper()C.Ucase()D.Lease()

69.能实现数值格式化瑜出的函数是—D—o

A.Str()B.Mid()C.Chr()D.Format()

70.设a=6,则执行x=Hf(a>5,-l,0)后,x的值为—D—。

A.5B.6C.0D.-1

71.表达式Int(5*Rnd+l)*Int(5*Rnd-l)值的范围是—D0

A.[0,15]B.[-1,15]C.[-4,15]D.[-5,15]

72.可以同时删除字符串前导和尾部空格的函数是C_<)

A.LtrimB.RtrimC.TrimD.Mid

73.当函数MsgBox返回值为1,对应的符号常量是vbOK,那么此时表示用户做的

彳乍Ao

A.用而击亍有话框中的“确定”按钮B.用户单击了对话框中的“取消”

按钮

C.用户单击了对话框中的“是"按钮D.用户单击了对话框中的“否”按

钮

74.函数Int(Rnd*5)+l产生的随机整数的范围是—D—。

A.[0,6]B.[1,6]C.[0,5]D.[1,5]

75.在VB中，InputBox函数的默认返回值类型为字符串，用InputBox函数输入

数值型数据时，下列操作中可以有效防止程序出错的操作是—A―o

A.在函数InputBox前面使用Vai函数进行类型转换

B.在函数InputBox前面使用Str函数进行类型转换

C.在函数InputBox前面使用Value函数进行类型转换

D.在函数InputBox前面使用String函数进行类型转换

76.已知a=〃12345678〃，则表达式Right(a,4)+Mid(a,3,2)的值是—B__。

A.”123445〃B.”567834〃C.123445D.567834

77.表达式LenC123程序设计ABC〃)的值是—A—。

A.10B.14C.20D.17

78.赋值语句g=123+Mid(“123456〃，3,2)执行后，变量g中的值是—D。

A.”12334〃B.123C.12334D.157

79.如果x是一个正实数，对x的第3位小数四舍五入的表达式是—B—。

A.0.01*Int(x+0.005)B.0.01*Tnt(100*(x+0.005))

C.0.01*IntdOO*(x+0.05))D.0.01*Int(x+0.05)

80.以下程序执行后，输出的结果是_Ao

m$二〃123〃

n$="456"

k$=LCASE$(m$)

j$=UCASE$(n$)

Printk$,j$

A.123456B.!@#$%.C.4952D.3336

81.MsgBox函数的返回值的类型是—A—。

A.整型B.字符串C.逻辑值D.日期型

82.A=5,B=8,则(B-A；*Rnd+A的结果是介于A之间的数。

A.5〜8B.0〜5C.3〜5D,0〜3

83.使用下列语句：Dinx(lto10,3)AsSingle,则数组占用内存空间的字节

数是—C___0

A.132B.80C.160D.120

84.用SelectCase语句选择Ix|<二10情况的语句为：Case_B。

A.Not(-10To10)B.-10To10C.IsAbs(x)>10D.Is<-10

Or>10

85.若x=l,执行语句ZfxThenx=0Elsex=1的结果是_D。

A.实时错误B.编译错误C.x=lD.x=0

86.以下程序代码能执行的是C—。

A.Ifa=lThenb=0Elsec=0EndIf

B.Ifa=lThen:B=0:ElselfC=0Then:D=0

C.Ifa=1Then

b=0

Elselfc=0Then

d=0

EndTf

D.Ifa=1Then

b=0

ElseIfc=0

d=0

EndIf

87.下列程序段的循环结构执行后，i的输出值是_C—。

DimyasInteger

Fori=1To10Step2

y=y+i

Nexti

Printi

A.25B.10C.11D.因为y初值不知道，所以不确定

88.循环结构Fori=1To10Step1.5的执行次数是_A。

A.7B.8C.9D.10

89.下列结构中不属于循环结构的是_Co

A.For/NextB.While/WendC.With/EndWith

D.Do/Loop

90.下列结构中不属于分支结构的是—C—o

A.If/EndIfB.SelectCase/EndSelectC.With/EndWithD.

If/Else/EndIf

91.以下程序段的运行结果是—D—o

PrivateSubFormClick()

m=1

n=1

Do

m=m*n

n=n+1

LoopUntiln>4

Printm

EndSub

A.25B.45C.55D.24

92.以下程序段的运行结果是—A—o

PrivateSubForm_Click()

DimsAsLong,fAsLong

DimnAsInteger,iAsInteger

f二1

n=4

Fori=1Ton

f=f*i

s=s+f

Nexti

Print〃s=〃；s

EndSub

A.33B.34C.35D.36

93.以下程序段的运行结果是—B—。

PrivateSubFormClick()

DimIAsInteger,XAsString,YAsString

X二〃ABCDEFG〃

For1=4To1Step-1

Y=Y+Mid(X,I,1)

NextI

PrintY

EndSub

A.ABCDB.DCBAC.DEFGD.GFED

94.以下程序段的运行结果是_C_。

PrivateSubForm_Click()

DimbAsInteger,kAsInteger

b=1

Fork=1To5

b=b*k

Ifb>=15Then

ExitFor

EndIf

Nextk

Printk,b

EndSub

A.315B.212C.424D.515

95.以下程序段的运行结果是—A—o

PrivateSubForm_Click()

a=1

b=a

DoUntila>=5

X=a*b

PrintStr(a)&〃*〃&Str(b)&Str(X),

a=a+b

b=b+a

Loop

EndSub

A.1*1=12*3=6B.1*1=22*2=4C.1*1=13*3=9D.

1*1=23*2=6

96.以下程序段的运行结果是—B—o

PrivateSubFormClick()

x=〃abcdef〃

y=Asc("b")-Asc(〃a〃)

z=Len(x)

Printy,z

EndSub

A.12B.16C.22D.26

97.下面程序段运行后，显示的结果是—A—。

Dimx

IfxThenPrintxElsePrintx+1

A.1B.0C.-1D,显示出错信息

98.运行下列程序段，显示的结果是—A—o

x=Int(Rnd)+5

SelectCasex

Case5

Print〃优秀〃

Case4

Print“良好"

Case3

Print〃通过〃

CaseElse

Print”不通过〃

EndSelect

A.优秀B.嵬好C.通过D.不通过

99.下列If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的

人数，不正确的语句是—D—。

A.Ifsex="男〃Andage<40AndInStr(duty,7教授")>0Thenn=n+l

B.Ifsex="男"Andage<40and(duty=〃教授"orduty="副教授")Then

n=n+l

C.Ifsex="男"Andage<40AndRight(duty,2)=z/教授"Thenn=n+l

D.Ifsex="男"Andage<40Andduty="教授"Andduty="副教授"Then

n=n+l

100.下面分别是求两个数中的大数的四个程序段，_D__不正确。

A.Max=IIf(x>y,x,y)

B.Ifx>yThenMax=xElseMax”

C.Max=x

Ify>=xThenMax=y

D.Ify>=xThenMax二y

Max二x

101.以下正确的程序段是—B—。

A.Forx=lToStep10B.Forx=3To-3Step-3

••••••

NextxNextx

C.Forx=lTo10D.Forx=10To1

re:••

NextxNexty

Ifi=10ThenGoTore

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

A.i=5B.i=l

DODO

i=i+li=i+2

LoopUntili<0LoopUntili=10

C.i=10D.i=6

DODO

i=i+li=i-2

LoopUntili>10LoopUntili=l

103.若要退出For循环,可使用的语句为一_D_o

A.ExitB.ExitDoC.TimeD.ExitFor

104.当a=l,b=3,c=5,d=4时,执行下面一段程序后,x的值为—B

Ifa<bThen

Ifc<dThen

x=l

Else

x=2

EndIf

Else

Ifc<dThen

x=3

Else

x=4

EndIf

EndIf

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

105.执行如下程序段时，从键盘输入-5,输出的结果是—A

x=-5

s=Val（InputBox（"请输入s的值：〃））

SelectCases

Casels>0

y=x+l

CaseIs=O

y=x+2

CaseElse

y=x+3

EndSelect

Printx;y

A.-5-2B.~5~4C.-5-3D.-5~5

106.下面程序段的作用是—D—o

m=0:n=0

Fori=lTo10

x=Vai（InputBox（〃请输入x的值：〃））

Ifx>0Then

m=m+x

Elselfx<0Then

n=n+l

EndIf

Nexti

Printm,n

A,计算从键盘输入的数据之和，并统计输入数据的数目

B,分别计算从键盘输入的正数之和与负数之和

C.分别计算从键盘输入的正数和负数的个数

D.计算从键盘输入的正数之和，并统计负数的个数

107.如果从键盘输入的数据依次是1、2、3、4、5、6、7、8、9、10,下面程序

段的运行结果是—A—o

s=0

Fori=lTo10

x=Val（InputBox（"请输入x的值：〃））

Ifx/3=Int（x/3）^hen

s=s+x

EndTf

Nexti

Print〃s二〃；s

A.s=18B.s=27C.s=36D.s=54

108.在条件语句Ifx=lTheny=2中，下列说法正确是C。

A.x=l和y=2均为赋值语句B.x=l和y=2均为关系表达式

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

达式

109.统计某大学在副教授以上职称的高级职称中，女性人才总数可用语句

—D____0

A.IFA$=〃女〃ANDBS二〃副教授〃ORB$=〃教授〃THENN=N+1

B.IFB$=〃副教授〃ANDB$=〃教授〃ANDA$=〃女"THENN=N+1

C.IFB$>="副教授〃ANDA$=〃女〃THENN=N+1

D.IFA$=〃女〃AND（B$=〃副教授〃ORB$=〃教授"）THENN=N+1

110.以下程序段执行后，变量s、x的值分别为_C—。

DimsAsInteger,xAsInteger

s=10:x=1

DoWhilex<10

s=s+2

x=x+2

Loop

Prints,x

A.5011B.2010C.2011D.10

Ill.下列程序中s=s+j语句共执行了____B一次。

DimsAsInteger

DimiAsInteger,jAsInteger

Fori=1To10Step2

Forj=1To5Step2

s=s+j

Nextj

Nexti

Prints

A.10B.15C.20D.25

112.以下程序段执行后，变量x的值为—C—。

x=0

Fori=1To5

Forj=1To5

x=x+1

Nextj

Nexti

Printx

A.15B.20C.25D.30

113.下列程序中语句a=a-l执行的次数是—B—。

a=0

Forb=lTo-2Step-1

a=a-l

Nextb

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

114.以下程序段的执行结果是—D—o

Forx=lTo2

a=0

Fory=lTox+1

a=a+l

Nexty

Printa;

Nextx

A.11B.00C.12D.23

115.以下程序段的执行结果是A—。

n二0

Fori=0To1

Forj=0To1

n=n+l

Nextj

Nexti

Printn

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

116.以下程序段的执行结果是—A.

Fori=lTo4

x=2

Forj=lTo3

x=l

Fork=lTo2

x=x+3

Nextk

Nextj

Nexti

Printx

A.7B.6C.56D.72

117.用语句DimA(-3to5)AsLong定义的数组元素个数是—C

A.7B.8C.9D.10

118.如下数组声明语句,B正确。

A.Dima[3,4]asIntegerB.Dima(3,4)asInteger

C.Dima(n,n)asIntegerD.Dima{3,4}asInteger

119.以下程序运行的结果是—D

Dima

a=Array(1,3,4,5,6,7)

Fori=LBound(a)ToUBound(a)

a(i)=a(i)*a(i)

Nexti

Printa(i)

A.49B.0C.不确定D.下标越界

120.在窗体上添加一个命令按钮Command1,然后编写如下代码：

PrivateSubCommandl_Click()

DimcityAsVariant

city=Array("北京"，"上海天津"，”重庆〃)

Printcity(1)

EndSub

程序运行后，单击命令按钮，输出结果是—D—o

A.空白B.错误提示C.北京D.上海

121.以下程序运行的结果是—C

OptionBase0

PrivateSubForm_Click()

Dima

DimiAsInteger

a=Array(1,2,3,4,5,6,7,8,9)

Fori=0To3

Printa(5-i);

Nexti

EndSub

A.4321B.5432C.6543D.7654

122.在窗体上画一个命令按钮Command1,然后编写如下代码：

PrivateSubCommand1_C1ick()

Dimarrl(10),arr2(10)AsInteger

n=3

Fori=1To5

arrl(i)=i

arr2(n)=2*n+i

Nexti

Printarrl(n),arr2(n);

EndSub

程序运行后，单击命令按钮，输出结果是—B—o

A.113B.311C.133D.313

123.在窗体上画一个命令按钮Command1,然后编写如下代码：

OptionBase1

PrivateSubCommand1_C1ick()

Dimp(3)AsInteger

k=0

Fori=1To3

p(i)=i*i

k=k+p(i)

Nexti

Printk

EndSub

程序运行后，单击命令按钮，输出结果是—B—o

A.12B.14C.23D.37

124.在窗体上画一个命令按钮Command1,然后编写如下代码：

PrivateSubCommandl_Click()

Dima,s

a=Array。，2,3,4)

Fori=3To0Step-1

s=s+Trin(Str(a(i)))

Nexti

Prints

EndSub

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

A.10B.4321C.2314D.1234

125.执行下面程序后，输出的结果是_B—。

PrivateSubForm_Click()

DimM(10)

Fork=1To10

M(k)=11-k

Nextk

PrintM(k-3)

EndSub

A.2B.3C.4D.5

126.执行下面程序后，输出的结果是—B—。

PrivateSubFormClick()

Dima(10,10)AsInteger

Fori=1To10

Forj=1To10

a(i,j)=i*j

Nextj,i

Printa(2,2)+a(3,3)

EndSub

A.12B.13C.14D.15

127.在窗体上画一个命令按钮Command1,然后编写如下代码：

PrivateSubCommandl_Click()

Dimn(2to4)AsInteger

Fork=LBound(n)ToUBound(n)

n(k)=k

Printn(k);

Nextk

EndSub

程序运行后，单击命令按钮，输出结果是—C—O

A.24B.123C.234D.456

128.在窗体上添加一个命令按钮Command1,然后编写如下代码：

OptionBase1

PrivateSubCommandl_Click()

d=0:c=10

x=Array(10,12,21,32,24)

Fori=1To5

Ifx(i)>cThen

d=d+x(i)

c二x⑴

Else

d=d-c

EndIf

Nexti

Printd

EndSub

程序运行后，单击命令按钮，输出结果是_C—。

A.89B.99C.23D.77

129.以下程序段的运行结果是_D_。

PrivateSubFormClick()

Dimary(1To4)AsInteger

DimiAsInteger

DimsumAsInteger

sum=1

Fori=1To4

ary(i)=i

sum=sum+ary(i)

Nexti

Printsum

EndSub

A.8B.9C.10D.11

130.下列语句声明的数组a包含的元素个数有_A_o

Dima(3,-2to2,5)

A.120B.75C.60D.13

131.以下程序输出的结果是—C—。

OptionBase1

PrivateSubCommand1_C1ick()

Dima%(3,3)

Fori=lTo3

Forj=lTo3

a(i,j)=i*j

Printa(i,j);"";

Nextj

Print

Nexti

EndSub

A.123B.123C.123D.111

231123246222

323123369333

132.与语句Dimabc%作用相同的语句是A。

A.DimabcAsIntegerB.DimabcAsLongC.DimabcAsStringD.

DimabcAsDate

133.定义数组A(1to5,5)后，下列哪一个数组元素小存在—C—o

A.A(l,1)B.A(l,5)

C.A(0,1)D.A(5,5)

134.在VisualBasic应用程序中，以下描述正确的是—B。

A,过程的定义可以嵌套，但过程的调用不能嵌套

B.过程的定义不可以嵌套，但过程的调用可以嵌套

C.过程的定义和过程的调用均可以嵌套

D.过程的定义和过程的调用均不可以嵌套

135.在在窗体上添加一个命令按钮Command1和一个文本框Textl,然后编写如

下事件过程：

Subpl(ByVaiaAsInteger,ByVaibAsInteger,cAsInteger)

c=a+b

EndSub

PrivateSubCommand1_C1ick()

DimxAsInteger,yAsInteger,zAsInteger

x=5

y=7

z=0

Callpl(x,y,z)

Textl.Text=Str(z)

EndSub

程序运行后，单击命令按钮得到的结果是_B_o

A.0B.12C.Str(z)D.没有显示

136.假定有如下的Sub过程：

Subswapp(xAsSingle,yAsSingle)

t=x

X=t/y

y=tMody

EndSub

在窗体上添加一个命令按钮，然后编写如下事件过程:

PrivateSubCommandl_Click()

DimaAsSingle

DimbAsSingle

a=5:b=4

swappa,b

Printa,b

EndSub

程序运行时，单击命令按钮得到的结果是_D_0

A.54B.11

C.1.254D.1.251

137.运行下列程序，单击命令按钮后的结果是—C

Functionfun(aAsInteger)

b=0

Staticc

b=b+1

c=c+1

fun=a+b+c

EndFunction

PrivateSubCommandl_Click()

DimaAsInteger

a=2

Fori=1To3

Sum=Sum+fun(a)

Nexti

PrintSum

EndSub

A.24B.12C.15D.32

138.阅读程序:

Subsubp(b()AsInteger)

Fori=1To4

b(i)=2*i

Nexti

EndSub

PrivateSubCommand1_C1ick()

Dima(lTo4)AsInteger

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

subpa

Fori=1To4

Printa(i);

Nexti

EndSub

程序运行时，单击命令按钮得到的结果是_A_o

A.2468B.5678

C.10121416D.出错

139.假定有以下函数过程：

Functionfunc(aAsInteger,bAsInteger)AsInteger

func=a+b

EnclFunction

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

PrivateSubCommand1_C1ick()

p=func(10,20)

Printp;

EndSub

程序运行时，单击命令按钮得到的结果是CO

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

"0.假定有以下两个过程：

Subsi(ByVaixAsInteger,ByVaiyAsInteger)

DimtAsInteger

t=x

x=y

y=t

EndSub

Subs2(xAsInteger,yAsInteger)

DimtAsInteger

t=x

x=y

y=t

EndSub

则以下说法中正确的是Bo

A.用过程SI可以实现交换两个变量的值的操作，S2不能实现

B.用过程S2可以实现交换两个变量的值的操作，S1不能实现

C.用过程S1和S2都可以实现交换两个变量的值的操作

D.用过程S1和S2都不能实现交换两个变量的值的操作

141.假定有以下函数过程：

FunctionFun(SAsString)AsString

DimsiAsString

Fori=1ToLen(S)

si二UCase(Mid(S,i,1))+si

Nexti

Fun=si

EndFunction

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

PrivateSubCommand1ClickO

DimstrlAsString,str2AsString

strl=TnputBox：〃请输入一个字符串〃)

str2=Fun(strl；

Printstr2

EndSub

程序运行后，单击命令按钮，在输入对话框中输入字符串〃abc〃，则输出结果为

—Do

A.abcB.cbaC.ABCD.CBA

142.在窗体上添加一个命令按钮Command1和两个名称分别为Label1和Labe12

的标签，在通用声明段声明变量x,并编写如下事件过程和Sub过程：

PrivatexAsInteger

PrivateSubCommandl_Click()

x=5:y=3

Callproc(x,y)

Labell.Caption=x

Label2.Caption二y

EndSub

Subproc(ByVaiaAsInteger,ByVaibAsInteger)

x=a*a

y=b+b

EndSub

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

A.5和3B.25和3C.25和6D.5和6

143.下列程序输出结果为Ao

PrivateSubCommand1Click()

Fori=1To3