VB練習(xí)題集匯編

VB課程練習(xí)題集

第五章選擇分支與循環(huán)

姓名班級序號成績

知識點回顧題：

1.要退出For...Next循環(huán)，可使用的語句是()。

A.ExitB.ExitFor

C.EndDoD.ExitDo

2、閱讀以下程序段，寫出運(yùn)行結(jié)果：

privateSubformclick()

a=150

b=100

ifa>bthen

print〃較大數(shù)是：〃；a

else

print〃較大數(shù)是：〃;b

endif

EndSub

運(yùn)行結(jié)果：

3、閱讀以下程序段，寫出運(yùn)行結(jié)果：

x=8

Fori=3to5

printx,

Nexti

運(yùn)行結(jié)果：

4、閱讀以下程序段，寫出運(yùn)行結(jié)果：

s=0

Fori=10to4Step-3

s=s+i

Nexti

?.〃〃

prints=;s

運(yùn)行結(jié)果：

5、閱讀以下程序段，寫出運(yùn)行結(jié)果：

s=l

Dowhiles<10

s=s+s

Loop

Print

運(yùn)行結(jié)果：

6、閱讀以下程序段，寫出運(yùn)行結(jié)果：

s=l

fori=10to4step-3

s=s*i

Printi,s

nexti

運(yùn)行結(jié)果：

7.閱讀下列程序并寫出運(yùn)行結(jié)果

OptionExplicit

PrivateSubCommandl_Click()

DimSAsInteger

DimiAsInteger

S=1

Fori=1To5

S=S*i

Nexti

PrintS

EndSub

8.閱讀下列程序并寫出運(yùn)行結(jié)果

S=O:T=O

ForX=1To3

ForY=1To3

S=S+1

NextY

T=T+1

NextX

PrintS;T

9、閱讀下列程序并寫出運(yùn)行結(jié)果

DimiAsInteger,jAsInteger,kAsInteger

k=0

Fori=0To10Step3

Forj=1To10

Ifj>5Thenk=k+4:ExitFor

k=k+1

Nextj

Printi,k

Ifi>8ThenExitFor

Nexti

Printi,k

10.閱讀下列程序并寫出運(yùn)行結(jié)果

PrivateSubCommandl_Click()

x=0

DoWhilex<50

x=(x+2)*(x+3)

n=n+1

Loop

Text1.Text=Str(n)

Text2.Text=Str(x)

EndSub

11.閱讀下列程序并寫出運(yùn)行結(jié)果

PrivateSubCommandl_Click()

DimSumiAsInteger,Sum2AsInteger

Sumi=0:Sum2=1

Fori=1To4

Forj=1Toi

Sum2=Sum2*j

Nextj

Sumi=Sumi+Sum2

Nexti

PrintSumi

EndSub

12.閱讀下列程序并寫出運(yùn)行結(jié)果

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

13.閱讀下列程序并寫出運(yùn)行結(jié)果

Fori=1To3

Forj=1Toi

Fork=jTo3

A=A+1

Nextk

Nextj

Nexti

14.執(zhí)行下面程序段后，變量x的值為。

x=5

Fori=lTo20step2

x=x+I\5

Nexti

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

15.下面程序運(yùn)行后，單擊命令按鈕，依次在輸入對話框中輸入5、4、3、2、1、-1,

則輸出結(jié)果為。

PrivateSubCommand1_C1ick()

x=0

DoUntilx=-l

a=InputBox(〃請輸入A的值：〃)

a=Val(a)

b=InputBox(〃請輸入B的值：〃)

b=Vai(b)

x=InputBox(〃請輸入X的值：〃)

x=Val(x)

a=a+b+x

Loop

Printa

EndSub

A、2B、3C、14D、15

16.執(zhí)行下面程序段后，變量a的值為o

Fori=lTo3

Forj=lToi

Fork=jTo3

a=a+l

Nextk

Next

Nexti

A、3B、9C、14D、21

17.下面程序運(yùn)行后，單擊命令按鈕，在兩個文本框中顯示的值分別為

PrivateSubCommand1_C1ick()

x=0

DoWhilex<50

x=(x+2)*(x+3)

n=n+l

Loop

Textl.Text=Str(n)

Text2.Text=Str(x)

EndSub

A、1和0B、2和72C、3和50D、4和168

18.執(zhí)行下面程序后，變量x的值為o

PrivateSubCommand1_C1ick()

Forj=lTo5

a=a+j

Nextj

x=j

MsgBoxx

EndSub

A、4B、5C、6D、17

19.以下程序的循環(huán)次數(shù)是。

PrivateSubCommand1Click()

Forj=8To35Step3

Printj;

Nextj

EndSub

A、10B、9C、27D、28

20.以下程序的輸出結(jié)果是o

PrivateSubCommandl_Click()

a=100

Do

s=s+a

a=a+l

LoopUntila>100

printa

EndSub

A、100B、120C、201D、101

21.當(dāng)輸入4時，以下程序的輸出結(jié)果是o

PrivateSubCommandl_Click()

x=InputBox(x)

Ifx^2<15Theny=l/x

Ifx^2>15Theny=x^2+l

Printy

EndSub

A、4B、17C、18D、0.25

22.運(yùn)行下面程序后，在彈出的消息窗口中顯示的是o

PrivateSubFormClickO

Dimcounter

counter=0

Whilecounter<20

counter=counter+l

Wend

MsgBoxcounter

EndSub

A、0B、21C、20D、19

23.運(yùn)行下面程序后，在窗體中顯示的是o

PrivateSubForm_Click()

a$二〃*〃：b$二〃$〃

Fork=lTo3

x$=String$(Len(a$)+k,b$)

Printx$;

Nextk

Print

EndSub

A、*********B、*$*$*$

C、1*$2*$3*$D、$$$$$$$$$

24.運(yùn)行下面程序后，在彈出的消息窗口中顯示的是

PrivateSubFormClick()

score=Int(Rnd)+5

SelectCasescore

Case5

a$二〃Good”

Case4

a$=〃0k〃

Case3

a$=zzPass，/

CaseElse

a$二〃Bad〃

EndSelect

MsgBoxa$

EndSub

A、BadB、PassC、OkD、Good

25.運(yùn)行下面程序后，在彈出的消息窗口中顯示的是o

PrivateSubForm_Click()

k=0

DoWhilek<70

k=k+2

k=k*k+k

a=a+k

Loop

MsgBoxa

EndSub

A、64B、72C、78D、148

26.請用正確的內(nèi)容填空。下面程序的作用是利用隨機(jī)函數(shù)產(chǎn)生10個(1?200)之間的隨

機(jī)整數(shù)，打印其中7的整數(shù)倍的數(shù)并求其和。

PrivateSubForm_Click()

Fori=lTo10

x=Int(Rnd*200+l)

If⑶Then

kl=kl+x

Printx

EndIf

Nexti

Print

Print"kl=";kl

EndSub

27.請用正確的內(nèi)容填空。以下程序找出50以內(nèi)所有能構(gòu)成直角三角形的整數(shù)組。

PrivateSubFormClickO

Fora=lTo50

Forb=aTo50

c=Sqr(a*a+b*b)

If(4)ThenPrinta;b;c

Nextb

Nexta

Print

EndSub

28.請用正確的內(nèi)容填空。以下程序計算1+1/3+1/5+…+1/(2N+1),直至"(2N+1)小于

10-4o

PrivateSubFormClick()

Sum=l:n=l

Do

n=(6)

term=l/n

Sum=Sum+term

Ifterm<0.0001Then(7)

Loop

Print〃N=〃；n

Print"sum二〃;Sum

EndSub

29.請用正確的內(nèi)容填空。以下程序的功能是統(tǒng)計字符串a(chǎn)中出現(xiàn)字符串b的次數(shù)，然后

輸出。

PrivateSubFormClick()

a$=z，ABCDEHGABCDEFABCDEABCDABCABAzz

b$二〃AB〃

c=InStr(a$,b$)

x=0

Whilec<>0

x=x+l

a$=Mid$(a$,(8)+2)

c=InStr(a$,b$)

Wend

⑼

EndSub

30.請用正確的內(nèi)容填空。下面程序的功能是通過InputBox對話框接受一個二進(jìn)制數(shù)，

并把它轉(zhuǎn)換成一個十進(jìn)制數(shù)，結(jié)果顯示在窗體中。

PrivateSubForm_Click()

b=InputBox(〃請輸入一個二進(jìn)制數(shù)〃)

m=Len(b)

Forj=(10)

dec二dec*2+(11)(Mid(b,j,1))

Nextj

Printb;〃轉(zhuǎn)換后的十進(jìn)制數(shù)為：〃;dec

EndSub

31、閱讀以下程序段，寫出運(yùn)行結(jié)果：

i=l

t=0

dowhilei<=100

i=i*2

t=t+l

loop

printi,t

運(yùn)行結(jié)果：

32、閱讀以下程序段，寫出運(yùn)行結(jié)果:

a=3

a=a+1

b=a

a=b+1

printa,b

print“a="；a,?b="；b

運(yùn)行結(jié)果：

33、閱讀以下程序段，寫出運(yùn)行結(jié)果:

a=1

b=2

printa,b

a=a+b

b=a+b

printa,b

運(yùn)行結(jié)果：

34、閱讀以下程序段，寫出運(yùn)行結(jié)果:

x=1

y=2

ifx>ythen

printx,y

else

printy,x

運(yùn)行結(jié)果：

35、閱讀以下程序段，寫出運(yùn)行結(jié)果:

x=2

y=2

ifx>2then

y=x*x

endif

printx,y

運(yùn)行結(jié)果：

二級真題:

第六章數(shù)組

姓名班級序號成績

知識點回顧題：

1.設(shè)某個程序中要用到一個二維數(shù)組，要求數(shù)組名為A,類型為字符串類型，第一維下

標(biāo)從1到5,第二維下標(biāo)從-2到6,則相應(yīng)的數(shù)組聲明語句

為?

答案：DimA(1To5,-2To6)AsString

2.在運(yùn)行下面程序時會顯示出錯信息，出錯的原因是o

PrivateSubForm_Click()

x=5

Dima(x)

Form=lTo6

a(m-l)=m+l

Nextm

EndSub

A、第四行數(shù)組元素a(nrl)下標(biāo)超過下界

B、第二行數(shù)組說明語句不能用變量來定義下標(biāo)

C、第四行不能用循環(huán)變量m進(jìn)行運(yùn)算

D、程序無錯，可能是計算機(jī)病毒

3.用下面的語句所定義的數(shù)組的元素個數(shù)是()。

DimA(-1To3)AsInteger

A.2

B.3

C.4

D.5

答案：D

4.下列一維數(shù)組說明語句錯誤的是(c)

A)Dimb(l00)AsDouble

B)Dimb(-5To0)AsByte

C)Dimb(-10To-20)AsInteger

D)Dimb(5To5)AsString

5.二數(shù)組說明語句Dimd(-lTo2,5)AsString定義的數(shù)組元素的個數(shù)為(24)

6.PrivateSubForm_Click()

DimA(1To5)AsInteger

DimbAsInteger

Forb=1To5

A(b)=b

Nextb

Text1.Text=A(b-2)

EndSub

文本框Textl的結(jié)果是：

答案：程序運(yùn)行后，單擊Commandl按鈕，文本框Textl的結(jié)果是：4

7.PrivateSubCommandl_Click()

DimA(1To4)AsInteger

DimbAsInteger

Forb=1To4

A(b)=b

Nextb

Textl.Text=A(b-2)

EndSub

答案：運(yùn)行結(jié)果：Textl顯示3

8.以下程序的輸出結(jié)果是。

OptionBase1

PrivateSubCommand1_C1ick()

Dima(10),p(3)AsInteger

k=5

Fori=lTo10

a(i)=i

Nexti

Fori=lTo3

p(i)=a(i*i)

Nexti

Fori=lTo3

k=k+p(i)*2

Nexti

Printk

EndSub

A、33B、28C、35D、37

9..以下程序的輸出結(jié)果是o

OptionBase1

PrivateSubCommandl_Click()

Dima

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

J=1

Fori=3To0Step-1

s=s+a⑴*j

j=j*10

Nexti

Prints

EndSub

A、4321B、12C、34D、1234

10.下面程序的輸出結(jié)果是0

PrivateSubForm_Click()

Dima(10)

Fori=lTo10

a(i)=i"2

Nexti

Printa(i-l)

EndSub

A、99B、100C、101D、98

IL運(yùn)行下面程序后，在彈出的消息窗口中顯示的是。

PrivateSubForm_Click()

DimWeek,Day

Week=Array(Mon,Tue,Wed,Thu,Fri,Sat,Sun)

Day=Week(2)

Day=Week(4)

MsgBoxDay

EndSub

A、FirB、TueC、WedD、Thu

12.請用正確的內(nèi)容填空。下面程序運(yùn)行后，輸出的結(jié)果是如下矩陣：

4710

5811

6912

PrivateSubForm_Click()

Dima(3,3)

Forj=lTo3

Fork=lTo3

a(j,k)=()

Printa(j,k);

Nextk

Print

Nextj

EndSub

13.請用正確的內(nèi)容填空。下面程序運(yùn)行后，輸出的結(jié)果是：

PrivateSubFormClick()

Fori=lTo4

PrintTab(10+i);

Forj=lTo8

Print

()

Print

Nexti

EndSub

14.請用正確的內(nèi)容填空。以下程序用隨機(jī)函數(shù)模擬擲骰子，統(tǒng)計擲50次骰子出現(xiàn)

各點的次數(shù)。

PrivateSubFormClick()

Dimd(6)

Fori=lTo50

n=()

d(n)=d(n)+l

Nexti

Fori=To6

Printi;"點出現(xiàn)“；d(i);"次"

Nexti

EndSub

15.請用正確的內(nèi)容填空。下面程序用“冒泡”法將數(shù)組a中的10個整數(shù)按升序排

列。

OptionBase1

PrivateSubForm_Click()

Dima

a=Array(678,45,324,528,439,387,87,875,273,823)

Fori=lTo9

For,j=(12)To10

If(13)Then

t=a(i):a(i)=a(j):a(j)=t

EndIf

Nextj

Nexti

Fori=lTo10

Printa(i);

Nexti

EndSub

二級真題:

第七章過程

姓名班級序號成績

1、關(guān)于過程的作用域的說明正確的有（ABC）

1）全局級過程的作用域為整個工程

2）某個窗體模塊中定義的全局級過程，若被該過程外部模塊調(diào)用，必須在該過程名稱之

前加上窗體的名稱

3）不同模塊中定義的模塊級別過程可以同名

2.Sub過程與Function過程最根本的區(qū)別是。

答案：Sub過程的過程名不能返回值，而Function過程能夠通過過程名返回值。

第八章文件

1.VisualBasic根據(jù)計算機(jī)訪問文件的方式將文件分為（A）?

A.順序文件、隨機(jī)文件和二進(jìn)制文件

B.文本文件和數(shù)據(jù)文件

C.數(shù)據(jù)文件和可執(zhí)行文件

D.ASCII文件和二進(jìn)制文件

2.如果準(zhǔn)備向隨機(jī)文件中寫入數(shù)據(jù)，常用的語句是（C）。

A.Print#l,rec

B.Write#l,rec

C.Put#l,rec

D.Get#l,rec

VB考試客觀練習(xí)題(附答案)

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

1.以下4種描述中，錯誤的是_D_。

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

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

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

性質(zhì)

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

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

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

3.VisualBasic中可以用類型說明符來標(biāo)識變量的類型，其中表示貨幣型的是—C—。

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

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

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

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

A.DeclareB.DimC.PublicD.Private

6.表達(dá)式16/4-2-5*8/4MOD5\2的值為—B__。

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

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

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

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

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

9.數(shù)學(xué)關(guān)系式3Wx<10表示成正確的VB表達(dá)式為—Bo

A.3<=x<10B.3<=xANDx<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ùn)算符中，優(yōu)先級別最低的是—C—o

A.\B./C.ModD.*

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

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

13.下面語句中有非法調(diào)用的是—C—o

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

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

14.表達(dá)式23/5.8、23\5.8、23Mod5.8的運(yùn)算結(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,則表達(dá)式a<dORb>cANDbOc的值為—A?

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=lD.xyz=l

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

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

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

a=8

b=9

Printa>b

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

A.1B.0C.FalseD.True

20.已知a="12345678”,則表達(dá)式Left(a,4)+Mid(a,4,2)的值是—B。

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

21.在VisualBasic中，yl+z2=a*Sin(b*x+c)+k表達(dá)式的類型是_B。

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

22.下列表達(dá)式的值為真的是_Co

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

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

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

-)

24.如果變量a=2,b=3,c=4,d=5,表達(dá)式NOTa>bANDNOTd〈>c的值是_B__0

A.TrueB.FalseC.1D.0

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

中，其運(yùn)算順序為—C—O

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

26.表達(dá)式A%+B&+C!-D#的結(jié)果為__D—。

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

27.下列符號中，可以用作VB變量名的是—C―o

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

28.在下列表達(dá)式中，正確的日期型常量是—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)寫成條件表達(dá)式—A。

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

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

A.Student,name二〃張紅〃B.DimsAsStudent

s.name二〃張紅〃

C.DimsAsTypeStuentD.DimsAsType

s.name二〃張紅〃s.name二〃張紅〃

31.下列程序運(yùn)行時，從鍵盤輸入字符〃-〃，則輸出結(jié)果是_Ao

PrivateSubForm_Click()

op$=InputBox(〃op二〃)

Ifop$=〃+〃Thena=a+2

Ifop$=〃-〃Thena=a-2

Printa

EndSub

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

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

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

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

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

34.在下列4個表達(dá)式中,非法的表達(dá)式形式是__C—。

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

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

A.TrueB.FalseC.0D.表達(dá)式非法

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

A.DateB.CurrencyC.StringD.Integer

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

A.CharB.StringC.IntegerD.Double

38.邏輯表達(dá)式Not"a">"b"And9<3or9>3的值為—A__。

A.TrueB.FalseC.表達(dá)式有錯D.條件不足

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

A.PrivateB.PublicC.DimD.Static

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

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.z/,B=/，Afternoon,Boys.",下列表達(dá)式中結(jié)果是"GoodBoys.

的是一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.下列關(guān)于變體類型的描述，其中正確的是―C—。

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

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

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

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

44.下列程序段的運(yùn)行結(jié)果為—B—0

Fori=3To1Step-1

PrintSpace(5-i);

Forj=lTo2*i-l

Print

Nextj

Print

Nexti

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

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

********

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

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

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

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

47.運(yùn)行以下程序段后，輸出結(jié)果為__Co

x%=l/4

y%=ll/4

PRINTx%;y%

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

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

用中，錯誤的一條是—D—。

A.Picturel.Print147B.Print147C.Printer.Print147D.Label1.Print147

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

輸出小寫字母b。

A.Print"A”;Tab(9);"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

當(dāng)輸入分別為111和222時，程序輸出為—A□

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

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

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.以下程序段運(yùn)行后，輸出字符的排列順序是―D—。

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,則表達(dá)式IIf(a<b,c,d)的結(jié)果為__B—。

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

57.Rnd函數(shù)不可能為下列—B—值。

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

58.表達(dá)式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!”,則表達(dá)式Left(Y,Len(Y)T)的值是_C。

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

61變.量string$="Helloworld!"，函數(shù)Trim(string)的結(jié)果是___C

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

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

62.下列表達(dá)式中，表達(dá)式A—的運(yùn)算結(jié)果與其它3個不同。

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

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

63.表達(dá)式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)的一個隨機(jī)整數(shù)，正確的語句是—D—□

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

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

66.VisualBasic表達(dá)式Cos(0)+Abs(1)+Int(Rnd)的值是_D_____□

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

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

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—o

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

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

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

71.表達(dá)式Int(5*Rnd+l)*Int(5*Rnd-l)值的范圍是―D。

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

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

A.LtrimB.RtrimC.TrimD.Mid

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

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

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

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

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

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

時，下列操作中可以有效防止程序出錯的操作是_—A_o

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

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

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

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

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

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

77.表達(dá)式LenC123程序設(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ù)四舍五入的表達(dá)式是—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_,,

m$="123”

n$="456"

k$=LCASE$(m$)

j$=UCASE$(n$)

Printk.$,j$

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

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

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ù)是—C

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

84.用SelectCase語句選擇|x|<=10情況的語句為：Case_B。

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

85.若x=l,執(zhí)行語句IfxThenx=0Elsex=1的結(jié)果是—D。

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

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

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

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)的是—Co

A.For/NextB.While/WendC.With/EndWithD.Do/Loop

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

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

91.以下程序段的運(yùn)行結(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.以下程序段的運(yùn)行結(jié)果是_Ao

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

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.以下程序段的運(yùn)行結(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.以下程序段的運(yùn)行結(jié)果是—A.

PrivateSubForm_Click()

a=1

b=a

DoUntila>=5

X=a*b

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

a=a+b

b