VB無紙化考試客觀練習題

VB無紙化考試客觀練習題(附正確答案)

全國計算機水平考試二級VB筆試練習(選擇、判斷和填空題)

一、單項選擇題(1-251題)

1.以下4種描述中，錯誤的是—D_o

A.常量在程序執(zhí)行期間其值不會發(fā)生改變

B.根據(jù)數(shù)據(jù)類型不同，常量可分為字符型常量、數(shù)值常量、日期/時間型常量和

布爾型常量

C.符號常量是用一個標識符來代表一個常數(shù)，好象是為常數(shù)取一個名字，但仍

保持常數(shù)的性質(zhì)

D.符號常量的使用和變量的使用沒有差別

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

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

3.VisualBasic中可以用類型說明符來標識變量的類型，其中表示貨幣型的是

—CO

A.%B.nC.@D.$

4.下面—B—是不合法的整常數(shù)。

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

5.以下關(guān)鍵字中，不能定義變量的是—A—o

A.DeclareB.DimC.PublicD.Private

6.表達式16/4-2^5*8/4MOD5\2的值為—B。

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

7.用十六進制表示VisualBasic的整型常數(shù)時，前面要加上的符號是—A—。

A.&HB.&0C.HD.0

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

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

9.數(shù)學關(guān)系式3^x<10表示成正確的VB表達式為—B—o

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

10.下面正確的賦值語句是—C—o

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

11.\,/,Mod,*四個算術(shù)運算符中，優(yōu)先級別最低的是—C—?

A.\B./C.ModD.*

12.表達式ASCC'F")的類型是_Co

A.字符表達式B.關(guān)系表達式C.算術(shù)表達式D.邏輯表達式

13.下面語句中有非法調(diào)用的是—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的運算結(jié)果分別是—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—o

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

D.xyz=l

18.以下4類運算符，優(yōu)先級最低的是—D—o

A.算術(shù)運算符B.字符運算符C.關(guān)系運算符D.邏輯運算符

19.如果在立即窗口中依次執(zhí)行下列命令：

a=8

b二9

Printa>b

則輸出的結(jié)果是—C—O

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.算術(shù)表達式B.關(guān)系表達式C.邏輯表達式D.字符表達式

22.下列表達式的值為真的是C°

A."A">"a"B."9"〉"a"C."That">"Thank"D.12>12,1

23.在下列算術(shù)運算符中，運算等級最高的是—A―o

A.取負(-)B.乘、除(*,/)C.取模(MOD)D.力口、

減(+,-)

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

A.TrueB.FalseC.1D.0

25.在一個有(1)邏輯運算、(2)算術(shù)運算、(3)關(guān)系運算混合在一起的表達

式(無括號)中，其運算順序為—C—O

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

26.表達式AMB&+CLD#的結(jié)果為D—。

A.整型B.長整型C.單精度型D.雙精度型

27.下列符號中，可以用作VB變量名的是_Co

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

28.在下列表達式中，正確的日期型常量是_D_o

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

29.條件：1<X<=2或10<=X<15,在VisualBasic語言中應(yīng)寫成條件表達式

—Ao

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

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

30.設(shè)有如下的記錄類型

TypeStudent

numberAsString

nameAsString

ageAsInteger

EndType

則正確引用該記錄類型變量的代碼是—B.

A.Student.name="張紅"B.DimsAsStudent

s.name="張紅"

C.DimsAsTypeStuentD.DimsAsType

s.name="張紅"s.name="張紅"

31.下列程序運行時，從鍵盤輸入字符則輸出結(jié)果是A

PrivateSubForm_Click()

op$=InputBox("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.算術(shù)表達式D.關(guān)系表達式

33.”-32768”的數(shù)據(jù)類型是—D—。

A.整型常量B.浮點型常量C.符號常量D.字符串型常量

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

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

35.設(shè)x=5,表達式x>=10orx<=20的值是—A。

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

36.下列數(shù)據(jù)類型不可能占8個字節(jié)的是…Do

A.DateB.CurrencyC.StringD.Integer

37.下列各項不是VisualBasic的基本數(shù)據(jù)類型的是—A。

A.CharB.StringC.IntegerD.Double

38.邏輯表達式NotAnd9<3or9>3的值為—A。

A.TrueB.FalseC.表達式有錯D.條件不足

39.在窗體模塊的聲明段中聲明變量時，不能使用的關(guān)鍵字是—D—o

A.PrivateB.PublicC.DimD.Static

40.選拔身高T超過1.7米且體重W小于62.5公斤的人，表示該條件的表達式為

—C0

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

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

41.在過程內(nèi)部定義的局部變量，僅在聲明它的—B中有效。

A.方法B.過程C.屬性D.對象

42.假設(shè)A="GoodMorning.",B="Afternoon,Boys.",下列表達式中結(jié)果是"Good

Boys."的是—A__o

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

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

43.下列關(guān)于變體類型的描述，其中正確的是—Co

A.變體是一種沒有類型的數(shù)據(jù)

B.變體的空值就表示該變體的值為0

C.一個變量沒有定義就賦值，該變量即為變體類型

D.變體是賦給變量某一種類型數(shù)據(jù)后，就不能再賦給它另一類型的數(shù)值

44.下列程序段的運行結(jié)果為—B—o

Fori=3To1Step-1

PrintSpace(5-i);

Forj=lTo2*iT

Print〃*〃；

Nextj

Print

Nexti

A.*B.*****c.D.*****

************

********

45.執(zhí)行PRINT18/2*3,-3,2命令后，輸出結(jié)果為—_c.

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

27

46.執(zhí)行PRINT9.4\3.7,9.4MOD3.7命令后，輸出結(jié)果為—A。

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

2

47.運行以下程序段后，輸出結(jié)果為—C—。

x%=l/4

y%=ll/4

PRINTx%;y%

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

48.窗體里有兩個對象，分別是圖片框Picturel和標簽Labell,下面關(guān)于Print

方法的使用中，錯誤的一條是—D—o

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

Labell.Print147

49.下面的—B―語句可以實現(xiàn)：先在窗體上輸出大寫字母A,然后在同一

行的第10列輸出小寫字母b。

A.Print"A";Tab⑼；"b"B.Print"A”;Tab(10);"b"

C.Print"A";Space(10);"b"D.Print"A”;Tab(8);"b"

50.閱讀下面的程序段：

nl=InputBox("請輸入第一個數(shù)：”)

n2=InputBox("請輸入第二個數(shù)：”)

Printnl+n2

當輸入分別為111和222時，程序輸出為—Ao

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

51.語句PrintFormat("HELLO","<")的輸出結(jié)果是__B___。

A.HELLOB.helloC.HeD.he

52.設(shè)a=2:b=0,則語句Print(a=2)And(b=-2)的輸出結(jié)果是—D。

A.TrueB.結(jié)果不確定C.-1D.False

53.以下程序段運行后，輸出字符的排列順序是—D—o

Fori=lTo6

IfiMod2=0Then

Print

Else

Print

EndIf

Nexti

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

54.用MsgBox函數(shù)顯示的對話框，以下敘述正確的是—D—o

A.該對話框有一個“確定”按鈕

B.該對話框有“是"，“否”兩個按鈕

C.該對話框有“是”，“否”，“取消”三個按鈕

D.該對話框通過選擇參數(shù)可以得到以上不同的的按鈕組合

55.與語句Dimabc%作用相同的語句是___A。

A.DimabcAsIntegerB.DimabcAsLong

C.DimabcAsStringD.DimabcAsDate

56.設(shè)a=l,b=2,c=3,d=4,則表達式IIf(a<b,c,d)的結(jié)果為B—。

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

57.Rnd函數(shù)不可能為下列_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#)語句顯示的結(jié)果是—C_o

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

60.若Y="welcome!”,則表達式Left(Y,Len(Y)T)的值是—C。

A.”welcome!"B."w"C."welcome"D.

61.變量string$="Hello,world!”,函數(shù)Trim(string)的結(jié)果

是Co

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

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

62.下列表達式中，表達式—A—的運算結(jié)果與其它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.函數(shù)Mid(“123456789”,3,4)的值是—A。

A."3456"B."456"C.3456D.456

65.要使變量x賦值為1?100間(含1,不含100)的一個隨機整數(shù)，正確的語

句是—D—o

A.x=Int(100*Rnd)B.x=Int(101*Rnd)

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

66.VisualBasic表達式Cos(0)+Abs(l)+Int(Rnd)的值是-D__。

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

67.可實現(xiàn)從字符串任意位置截取字符的函數(shù)是_Bo

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

68.實現(xiàn)將小寫字母轉(zhuǎn)換成大寫字母的函數(shù)是—C―<,

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

69.能實現(xiàn)數(shù)值格式化輸出的函數(shù)是_D—。

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

70.設(shè)a=6,則執(zhí)行x=Hf(a>5,-l,0)后，x的值為—D—。

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

71.表達式Int(5*Rnd+l)*Int(5*RndT)值的范圍是—D。

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

72.可以同時刪除字符串前導和尾部空格的函數(shù)是—C—。

A.LtrimB.RtrimC.TrimD.Mid

73.當函數(shù)MsgBox返回值為1,對應(yīng)的符號常量是vbOK,那么此時表示用戶做的

操作是—A—o

A.用戶單擊了對話框中的“確定”按鈕B.用戶單擊了對話框中的“取消”

按鈕

C.用戶單擊了對話框中的“是"按鈕D.用戶單擊了對話框中的“否”按

鈕

74.函數(shù)Int(Rnd*5)+l產(chǎn)生的隨機整數(shù)的范圍是—D。

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

75.在VB中，InputBox函數(shù)的默認返回值類型為字符串，用InputBox函數(shù)輸入

數(shù)值型數(shù)據(jù)時，下列操作中可以有效防止程序出錯的操作是—A—o

A.在函數(shù)InputBox前面使用Vai函數(shù)進行類型轉(zhuǎn)換

B.在函數(shù)InputBox前面使用Str函數(shù)進行類型轉(zhuǎn)換

C.在函數(shù)InputBox前面使用Value函數(shù)進行類型轉(zhuǎn)換

D.在函數(shù)InputBox前面使用String函數(shù)進行類型轉(zhuǎn)換

76.已知a="12345678〃,則表達式Right(a,4)+Mid(a,3,2)的值是—B。

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

77.表達式Len(“123程序設(shè)計ABC")的值是—A—。

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

78.賦值語句g=123+Mid(“123456”,3,2)執(zhí)行后，變量g中的值是—D。

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

79.如果x是一個正實數(shù)，對x的第3位小數(shù)四舍五入的表達式是—B—o

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

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

80.以下程序執(zhí)行后，輸出的結(jié)果是—A—o

m$="123”

n$="456"

k$=LCASE$(m$)

j$=UCASE$(n$)

Printk$,j$

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

81.MsgBox函數(shù)的返回值的類型是A。

A.整型B.字符串C.邏輯值D.日期型

82.A=5,B=8,則(B-A)*Rnd+A的結(jié)果是介于_A之間的數(shù)。

A.5?8B.0~5C.3?5D.0?3

83.使用下列語句：Dimx(lto10,3)AsSingle,則數(shù)組占用內(nèi)存空間的字節(jié)

數(shù)是Co

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執(zhí)行語句IfxThenx=0Elsex=1的結(jié)果是_D。

A.實時錯誤B.編譯錯誤C.x=lD.x=0

86.以下程序代碼能執(zhí)行的是—C―o

A.Ifa=lThenb=0Elsec=0EndIf

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

C.Ifa=1Then

b=0

Elselfc=0Then

d=0

EndIf

D.Ifa=1Then

b=0

ElseIfc=0

d=0

EndIf

87.下列程序段的循環(huán)結(jié)構(gòu)執(zhí)行后，i的輸出值是—C—o

DimyasInteger

Fori=1To10Step2

y=y+i

Nexti

Printi

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

88.循環(huán)結(jié)構(gòu)Fori=1To10Step1.5的執(zhí)行次數(shù)是—A。

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

89.下列結(jié)構(gòu)中不屬于循環(huán)結(jié)構(gòu)的是—C—o

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

D.Do/Loop

90.下列結(jié)構(gòu)中不屬于分支結(jié)構(gòu)的是—C-o

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

If/Else/EndIf

91.以下程序段的運行結(jié)果是—D—o

PrivateSubForm_Click()

m=1

n=1

Do

m=m*n

n=n+1

LoopUntiln>4

Printm

EndSub

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

92.以下程序段的運行結(jié)果是—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.以下程序段的運行結(jié)果是—B—。

PrivateSubForm_Click()

DimIAsInteger,XAsString,YAsString

X=〃ABCDEFG〃

ForI=4To1Step-1

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

NextI

PrintY

EndSub

A.ABCDB.DCBAC.DEFGD.GFED

94.以下程序段的運行結(jié)果是_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.以下程序段的運行結(jié)果是—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.以下程序段的運行結(jié)果是_Bo

PrivateSubForm_Click()

x=〃abcdef〃

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

z=Len(x)

Printy,z

EndSub

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

97.下面程序段運行后，顯示的結(jié)果是_Ao

Dimx

IfxThenPrintxElsePrintx+1

A.1B.0C.-1D.顯示出錯信息

98.運行下列程序段，顯示的結(jié)果是_Ao

x=Int(Rnd)+5

SelectCasex

Case5

Print〃優(yōu)秀〃

Case4

Print〃良好〃

Case3

Print〃通過〃

CaseElse

Print〃不通過〃

EndSelect

A.優(yōu)秀B.良好C.通過D.不通過

99.下列If語句統(tǒng)計滿足性別為男、職稱為副教授以上、年齡小于40歲條件的

人數(shù)，不正確的語句是—D.

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

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

n=n+l

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

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

n=n+l

100,下面分別是求兩個數(shù)中的大數(shù)的四個程序段，—D—不正確。

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

B.Ifx>yThenMax=xElseMax=y

C.Max=x

Ify>=xThenMax=y

D.Ify>=xThenMax=y

Max=x

101.以下正確的程序段是—B—o

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

NextxNextx

C.Forx=lTo10D.Forx=10To1

re:,,

NextxNexty

Ifi=10ThenGoTore

102.下列循環(huán)能正常結(jié)束的是_C____o

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循環(huán)，可使用的語句為—D—o

A.ExitB.ExitDoC.TimeD.ExitFor

104.當a=l,b=3,c=5,d=4時，執(zhí)行下面一段程序后，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.執(zhí)行如下程序段時，從鍵盤輸入-5,輸出的結(jié)果是—A

x=-5

s=Val（InputBox（"請輸入s的值：”））

SelectCases

CaseIs>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.計算從鍵盤輸入的數(shù)據(jù)之和，并統(tǒng)計輸入數(shù)據(jù)的數(shù)目

B.分別計算從鍵盤輸入的正數(shù)之和與負數(shù)之和

C.分別計算從鍵盤輸入的正數(shù)和負數(shù)的個數(shù)

D.計算從鍵盤輸入的正數(shù)之和，并統(tǒng)計負數(shù)的個數(shù)

107.如果從鍵盤輸入的數(shù)據(jù)依次是1、2、3、4、5、6、7、8、9、10,下面程序

段的運行結(jié)果是—A—o

s=0

Fori=lTo10

x=Val（InputBox（"請輸入x的值：”））

Ifx/3=Int（x/3）Then

s=s+x

EndIf

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均為關(guān)系表達式

C.x=l為關(guān)系表達式，y=2為賦值語句D.x=l為賦值語句，y=2為關(guān)系表

達式

109.統(tǒng)計某大學在副教授以上職稱的高級職稱中，女性人才總數(shù)可用語句

—Do

A.IFA$="女"ANDB$="副教授"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.以下程序段執(zhí)行后，變量s、x的值分別為C。

DimsAsInteger,xAsInteger

s=10:x=1

DoWhilex<10

s=s+2

x=x+2

Loop

Prints,x

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

111.下列程序中s=s+j語句共執(zhí)行了—B_次。

DimsAsInteger

DimiAsInteger,jAsInteger

Fori=1To10Step2

Forj=1To5Step2

s=s+j

Nextj

Nexti

Prints

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

112.以下程序段執(zhí)行后，變量x的值為—C—o

x=0

Fori=1To5

Forj=1To5

x=x+1

Nextj

Nexti

Printx

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

113.下列程序中語句a=a-l執(zhí)行的次數(shù)是—B。

a二0

Forb=lTo-2Step-1

a=a-l

Nextb

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

114.以下程序段的執(zhí)行結(jié)果是_Do

Forx=lTo2

a=0

Fory=lTox+1

a=a+l

Nexty

Printa;

Nextx

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

115.以下程序段的執(zhí)行結(jié)果是—A—o

n=0

Fori=0To1

Forj=0To1

n=n+1

Nextj

Nexti

Printn

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

116.以下程序段的執(zhí)行結(jié)果是—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定義的數(shù)組元素個數(shù)是—C

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

118.如下數(shù)組聲明語句,B正確。

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

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

119.以下程序運行的結(jié)果是—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.在窗體上添加一個命令按鈕Commandl,然后編寫如下代碼：

PrivateSubCommand1_C1ick()

DimcityAsVariant

city二Array(〃北京〃，〃上?！?，〃天津〃，〃重慶〃)

Printcity(1)

EndSub

程序運行后，單擊命令按鈕，輸出結(jié)果是—D____。

A.空白B.錯誤提示C.北京D.上海

121.以下程序運行的結(jié)果是—C—o

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.在窗體上畫一個命令按鈕Commandl,然后編寫如下代碼：

PrivateSubCommand1_C1ick0

Dimarrl(10),arr2(10)AsInteger

n=3

Fori=1To5

arrl(i)=i

arr2(n)=2*n+i

Nexti

Printarrl(n),arr2(n);

EndSub

程序運行后，單擊命令按鈕，輸出結(jié)果是—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

程序運行后，單擊命令按鈕，輸出結(jié)果是—B—o

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

124.在窗體上畫一個命令按鈕Command1,然后編寫如下代碼：

PrivateSubCommand1_C1ick()

Dima,s

a=Array(1,2,3,4)

Fori=3To0Step-1

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

Nexti

Prints

EndSub

程序運行后，單擊命令按鈕，輸出結(jié)果是—B―o

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

125.執(zhí)行下面程序后，輸出的結(jié)果是—B—。

PrivateSubForm_Click()

DimM(10)

Fork=1To10

M(k)=11-k

Nextk

PrintM(k-3)

EndSub

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

126,執(zhí)行下面程序后，輸出的結(jié)果是___B_o

PrivateSubForm_Click()

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,然后編寫如下代碼：

PrivateSubCommand1_C1ick()

Dimn(2to4)AsInteger

Fork=LBound(n)ToUBound(n)

n(k)=k

Printn(k);

Nextk

EndSub

程序運行后，單擊命令按鈕，輸出結(jié)果是—C—O

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

128.在窗體上添加一個命令按鈕Command1,然后編寫如下代碼：

OptionBase1

PrivateSubCommand1_C1ick()

d=0:c=10

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

Fori=1To5

Ifx(i)>cThen

d=d+x(i)

c=x(i)

Else

d=d-c

EndIf

Nexti

Printd

EndSub

程序運行后，單擊命令按鈕，輸出結(jié)果是—C—。

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

129.以下程序段的運行結(jié)果是_D_。

PrivateSubForm_Click()

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.下列語句聲明的數(shù)組a包含的元素個數(shù)有A。

Dima(3,-2to2,5)

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

131.以下程序輸出的結(jié)果是—Co

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.定義數(shù)組A(1to5,5)后，下列哪一個數(shù)組元素不存在—C-o

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

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

134.在VisualBasic應(yīng)用程序中，以下描述正確的是—B。

A.過程的定義可以嵌套，但過程的調(diào)用不能嵌套

B.過程的定義不可以嵌套，但過程的調(diào)用可以嵌套

C.過程的定義和過程的調(diào)用均可以嵌套

D.過程的定義和過程的調(diào)用均不可以嵌套

135.在在窗體上添加一個命令按鈕Command1和一個文本框Textl,然后編寫如

下事件過程：

Subpl(ByValaAsInteger,ByValbAsInteger,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

程序運行后，單擊命令按鈕得到的結(jié)果是—B—o

A.0B.12C.Str(z)D.沒有顯示

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

Subswapp(xAsSingle,yAsSingle)

t=x

x=t/y

y=tMody

EndSub

在窗體上添加一個命令按鈕，然后編寫如下事件過程:

PrivateSubCommand1Click()

DimaAsSingle

DimbAsSingle

a=5:b=4

swappa,b

Printa,b

EndSub

程序運行時，單擊命令按鈕得到的結(jié)果是—D_o

A.54B.11

C.1.254D.1.251

137.運行下列程序，單擊命令按鈕后的結(jié)果是—C

Functionfun(aAsInteger)

b=0

Staticc

b=b+1

c=c+1

fun=a+b+c

EndFunction

PrivateSubCommand1_C1ick()

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

PrivateSubCommandl_Click()

Dima(lTo4)AsInteger

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

subpa

Fori=1To4

Printa(i);

Nexti

EndSub

程序運行時，單擊命令按鈕得到的結(jié)果是_Ao

A.2468B.5678

C.10121416D.出錯

139.假定有以下函數(shù)過程：

Functionfunc(aAsInteger,bAsInteger)AsInteger

func=a+b

EndFunction

在窗體上添加一個命令按鈕，然后編寫如下事件過程：

PrivateSubCommandl_Click()

p=func(10,20)

Printp;

EndSub

程序運行時，單擊命令按鈕得到的結(jié)果是_CO

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

140.假定有以下兩個過程：

Subsi(ByVaixAsInteger,ByVaiyAsInteger)

DimtAsInteger

t=x

x=y

y=t

EndSub

Subs2(xAsInteger,yAsInteger)

DimtAsInteger

t=x

x=y

y=t

EndSub

則以下說法中正確的是—B—o

A.用過程S1可以實現(xiàn)交換兩個變量的值的操作，S2不能實現(xiàn)

B.用過程S2可以實現(xiàn)交換兩個變量的值的操作，S1不能實現(xiàn)

C.用過程S1和S2都可以實現(xiàn)交換兩個變量的值的操作

D.用過程S1和S2都不能實現(xiàn)交換兩個變量的值的操作

141.假定有以下函數(shù)過程：

FunctionFun(SAsString)AsString

DimsiAsString

Fori=1ToLen(S)

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

Nexti

Fun=si

EndFunction

在窗體上添加一個命令按鈕，然后編寫如下事件過程：

PrivateSubCommand1_C1ick()

DimstrlAsString,str2AsString

strl=InputBox(〃請輸入一個字符串〃)

str2=Fun(strl)

Printstr2

EndSub

程序運行后，單擊命令按鈕，在輸入對話框中輸入字符串〃abc〃，則輸出結(jié)果為

—Do

A.abcB.cbaC.ABCD.CBA

142.在窗體上添加一個命令按鈕Command1和兩個名稱分別為Label1和Labe12

的標簽，在通用聲明段聲明變量x,并編寫如下事件過程和Sub過程：

PrivatexAsInteger

PrivateSubCommand1_C1ick()

x=5:y=3

Callproc(x,y)

Label1.Caption=x

Label2.Caption=y

EndSub

Subproc(ByVaiaAsInteger,ByVaibAsInteger)

x=a*a

y=b+b

EndSub

程序運行后，單擊命令按鈕，則兩個標簽中顯示的內(nèi)容分別是—B—o

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

143.下列程序輸出結(jié)果為—A—o

PrivateSubCommand1_C1ick()

Fori=1To3

GetValue(i)

Nexti

PrintGetValue(i)

EndSub

PrivateFunctionGetValue(ByVaiaAsInteger)

dimsAsInteger

s=s+a

GetValue=s

EndFunction

A.4B.5C.10D.11

144.以下程序的運行結(jié)果是_Co

DimxAsInteger,yAsInteger,zAsInteger

Subs2(aAsInteger,ByVai