執(zhí)行VisualBasic程序的測(cè)試題

編號(hào)：

時(shí)間：2021年X月X日書山有路勤為徑，學(xué)海無涯苦作舟頁(yè)碼：第1頁(yè)共79頁(yè)

選擇題0分

()1.執(zhí)行下列VisualBasic語(yǔ)言片段程序的結(jié)果為何？

X=110

IfX<100Then

Y=1

Else

Y=2

IfX>120Then

Y=3

EndIf

EndIf

PrintY

(A)l(B)2(C)3(D)110

()2.下列這段BASIC程序代碼，可以由身高及性別計(jì)算標(biāo)準(zhǔn)體重，計(jì)算后所印出的Weight值為何?

Sex=

Height=170

IfSex="M”then

Weight=(Height-80)*0.7

Else

Weight=(Height-70)*0.6

EndIf

PrintWeight

(A)54(B)56(C)60(D)63

()3.執(zhí)行下列VisualBasic程序片段后，Max值為何？

A=10:B=20

IfA>BThen

Max=A

Else

Max=B

EndIf

(A)10(B)20(C)30(D)Max

()4.執(zhí)行下列VisualBasic程序后，輸出的結(jié)果為何？

x=10:y=4

Ifx>=10Andy<6Then

Print"Happy

EndIf

Print,,Birthday,,

第1頁(yè)共79頁(yè)

編號(hào)：

時(shí)間：2021年X月X日書山有路勤為徑，學(xué)海無涯苦作舟頁(yè)碼：第2頁(yè)共79頁(yè)

(A)HappyBirthday(B)Happy(C)BirthdayHappy(D)Birthday

)5.執(zhí)行下列VisualBasic程序后，輸出的結(jié)果為何？

X=13

X=X+10

IFX>=30THENX=X-20

PRINTX

(A)3(B)13(C)23(D)43

)6.在VisualBasic程序語(yǔ)言中，下列何種指令最適合用于多重選擇結(jié)構(gòu)中？

(A)Do...Loop(B)For...Next(C)OptionBase(D)Select...Case

)7.執(zhí)行下列VisualBasic程序后，輸出的結(jié)果為何？

A=1:B=2

IfA>1ThenB=B+3

PrintB

(A)l(B)2(C)3(D)5

)8.下列程序敘述中，何者可用來判斷BMI值介于18至24之間？

(A)IfBMI>=18OrBMI<=24(B)IfBMI=18AndBMI=24(C)IfBMI>=18AndBMI<=24

(D)IfBMI=18OrBMI=24

)9.執(zhí)行下列VisualBasic程序后，輸出的結(jié)果為何？

x=4:y=1

SelectCasex

CaselTo3:y=x+3*y

Case4To6:y=x+5*y

Case7To9:y=x+7*y

EndSelect

Printy

(A)5(B)9(C)10(D)12

)10.下列VisualBasic程序之執(zhí)行結(jié)具為何？

A=3:B=2:C=1

IfB<AThen

C=B+A

EndIf

PrintC

(A)C=1(B)C=2(C)C=3(D)C=5

)11.下列是一個(gè)利用巢狀I(lǐng)f判斷敘述來檢查大月(1、3、5、7、8、10、12月)之日期是否合理的

程序片段，請(qǐng)問空格處應(yīng)填入哪一個(gè)條件式，才能判斷日期是否合理(假設(shè)變量d儲(chǔ)存日期

數(shù)據(jù))？

Ifm=1Orm=3Orm=5Orm=7Orm=8Orm=10Orm=12Then

第2頁(yè)共79頁(yè)

編號(hào)：

時(shí)間：2021年X月X日書山有路勤為徑，學(xué)海無涯苦作舟頁(yè)碼：第3頁(yè)共79頁(yè)

IfThen

MsgBox("輸入的日期合理”)

Else

MsgBox("輸入的日期不合理”)

EndIf

EndIf

(A)d=1-31(B)d>=1Andd<=31(C)d<=31(D)d>=1

)12.在程序設(shè)計(jì)的觀念中，先測(cè)試某一條件再依結(jié)果改變執(zhí)行路徑的結(jié)構(gòu)屬于

(A)循序結(jié)構(gòu)(B)隨機(jī)結(jié)構(gòu)(C)選擇結(jié)構(gòu)(D)多元結(jié)構(gòu)

)13.執(zhí)行下列VisualBasic程序后，輸出的結(jié)果為何？

a=3:b=5:c=4

Ifa>bThen

Ifb>cThenPrinta;

Else

Printb;

EndIf

Printc

(A)4(B)34(C)54(D)354

)14.執(zhí)行下列VisualBasic程序后，輸出的結(jié)果為何？

Y=-l

IfY>1OrY<=-lThenPrintU1

IfY>=-lAndY<=0ThenPrintw2

IfY>0AndY<=1ThenPrint"3

PrintY+1

(A)123(B)23(C)120(D)124

)15.下歹UVisualBasic程序執(zhí)行后，總共輸出幾個(gè)$?

PrivateSubForm_Activate()

X=3\2

SelectCaseX

Case1:Print

Case2:Print"$$n

CaseElse:Printn$$$"

EndSelect

EndSub

(A)l(B)2(C)3(D)6

)16.若某家婚友社要利用VisualBasic幫敬民撰寫一個(gè)可過濾征婚條件是否符合的程序；假設(shè)他的

擇偶條件為：年齡(age)須不滿30歲且身高(h)須在165公分(含)以下。請(qǐng)問下列空格

第3頁(yè)共79頁(yè)

編號(hào)：

時(shí)間：2021年X月X日書山有路勤為徑，學(xué)海無涯苦作舟頁(yè)碼：第4頁(yè)共79頁(yè)

處應(yīng)填入

Ifage<30Then

IfThen

MsgBox("條件符合，可安排雙方見面”)

EndIf

EndIf

(A)h<=165(B)h<165(C)h>=165(D)h>165

)17.執(zhí)行下列VisualBasic程序片段，會(huì)產(chǎn)生哪一種錯(cuò)誤的訊息？

Ifa>5Then

a=a+3

Elselfb>5Thena=a-5

(A)沒有定義變量的初始值(B)變量名稱沒有意義(C)If條件式中不能使用比較運(yùn)算子(D)沒

有成對(duì)的EndIf

)18.敘述IfA>100AndB$<>MYnThenC=1ElseC=2與下列何者同等效果?

(A)IfA<=100OrB$=nYnThenC=2ElseC=1(B)IfA<=100AndB$=MY"ThenC=2ElseC

=1(C)IfNot(A<100OrB$=*'YH)ThenC=1ElseC=2(D)IfA<100AndB$="N'1ThenC=2

ElseC=I

)19.執(zhí)行下列VisualBasic程序片段，出現(xiàn)提示符號(hào)時(shí)輸入任一整數(shù)，其輸出的結(jié)果不可能為下列

何者？

j=InputBox(Minputnumber")

a=Sgn(j)

SelectCasea

Case-1:Print"A"

Case0:Print"B"

Case1:PrintnCn

Case2:Print"DH

EndSelect

(A)A(B)B(C)C(D)D

)20.下列VisualBasic語(yǔ)言片段程序的執(zhí)行結(jié)果為何？

A=1:B=2

IfA<BThenA=B

IfA>=BThenB=A-1

Print"A=A;u,"B=B

(A)A=1,B=1(B)A=1,B=2(C)A=2,B=1(D)A=2,B=2

)21.執(zhí)行下列VisualBasic程序后，輸出的結(jié)果為何？

If+uc"<nABC"Then

PrintnYesM

第4頁(yè)共79頁(yè)

編號(hào)：

時(shí)間：2021年X月X日書山有路勤為徑，學(xué)海無涯苦作舟頁(yè)碼：第5頁(yè)共79頁(yè)

Else

PrintnNou

EndIf

(A)0(B)Yes(C)No(D)l

)22.下列VisualBasic語(yǔ)言片段程序執(zhí)行后，何者正確？

a=5

b=10

If(aMod2=0)Then

a=a+1

Elself(bMod2=0)Then

b=b+2

Else

a=a+2

b=b+1

EndIf

(A)a=6(B)a=7(C)b=11(D)b=12

)23.執(zhí)行下列VisualBasic程序片段，出現(xiàn)提示符號(hào)時(shí)輸入數(shù)值10,則輸出打印結(jié)果為:

a=InputBox(Minputdata")

b=aMod2A3

Ifa<bThenPrinta+b

Ifa>bThenPrinta-b

(A)0(B)8(C)ll(D)18

)24.在SelectCase敘述中，下列有關(guān)Case子句的用法，何者錯(cuò)誤？

(A)Case0To10(B)CaseIs>10(C)CaseIs>10AndIs<50(D)Case3,5,Is>10

)25.執(zhí)行下列VisualBasic程序后，輸出的結(jié)果為何？

X=1:Y=2:Z=3

X=Z:Y=Z:Z=Y

PrintUX+Z=

SelectCaseX+Z

CaseIs=Y

PrintY

CaseIs>Y

PrintZ

CaseElse

PrintX+Y

EndSelect

(A)X+Z=9(B)X+Z=6(C)X+Z=4(D)X+Z=3

第5頁(yè)共79頁(yè)

編號(hào)：

時(shí)間：2021年X月X日書山有路勤為徑，學(xué)海無涯苦作舟頁(yè)碼：第6頁(yè)共79頁(yè)

)26.下列VisualBasic程序之執(zhí)行結(jié)吳為何？

D=400

IfD<=100Then

Fare=D*2

Else

IfD<=300Then

Fare=200+(D-100)*3

Else

Fare=800+(D-300)*5

EndIf

EndIf

PrintFare

(A)400(6)800(C)ll00(D)1300

)27.執(zhí)行下列VisualBasic程序后，輸出的結(jié)果為何？

a=2

Ifa>0Then

SelectCasea=a+2

Case2

PrintMA"

Case4

Print"B"

CaseElse

PrintMC"

EndSelect

EndIf

(A)A(B)B(C)C(D)0

)28.執(zhí)行下列VisualBasic程序片段，出現(xiàn)提示符號(hào)時(shí)，若以默認(rèn)值輸入，則輸出打印結(jié)果為?

price=Val(InputBox("輸入價(jià)格”,,5500))

SelectCaseprice

CaseIs<3000

pay=price

Case3000To5500

pay=price*0.95

Case5500To9000

pay=price*0.88

EndSelect

Print'Trice=price;"Pay=pay

第6頁(yè)共79頁(yè)

編號(hào)：

時(shí)間：2021年X月X日書山有路勤為徑，學(xué)海無涯苦作舟頁(yè)碼：第7頁(yè)共79頁(yè)

(A)Pay=24928(B)Pay=5225(C)Price=3000(D)Price=5600

)29.執(zhí)行下列的VisualBasic程序片段后，請(qǐng)問第一個(gè)輸出的數(shù)據(jù)為何？

a=2

c=1

AAA:

c=c+a

Ifc<10Then

Printc

GoToAAA

Else

Printn10以內(nèi)的奇數(shù)已打El完畢”

EndIf

(A)1(B)3(C)5(D)7

)30.執(zhí)行下列VisualBasic程序，結(jié)果為何？

S=(3-1.5)\2

SelectCaseS

CaseIs<1:

Print"AH

CaseIs=1

Print'B'

CaseIs>1

Print"C"

EndSelect

(A)A(B)B(C)C(D)D

)31.某英語(yǔ)測(cè)驗(yàn)采用1?9級(jí)的評(píng)分標(biāo)準(zhǔn)，級(jí)數(shù)愈高表示英語(yǔ)能力愈好。若某家補(bǔ)習(xí)班要使用VB

來撰寫一個(gè)程序，供學(xué)生查詢各級(jí)數(shù)所代表的英文程度，試問使用下列哪一個(gè)敘述來依據(jù)學(xué)

生輸入的級(jí)數(shù)判斷英文程度，可讓程序敘述的層次較為簡(jiǎn)潔且易于閱讀？

(A)If-Then(B)If-Then-Else(C)SelectCase(D)巢狀I(lǐng)f-Then-Else

)32.執(zhí)行下列VisualBasic程序后，輸出結(jié)果為何？

PrivateSubForm_Activate()

score=Int(Rnd*10)+20

SelectCasescore

CaseIs<20:Print"ZM

Case20To29:Print

Case30To39:Print"X"

CaseElse:PrintnWH

EndSelect

第7頁(yè)共79頁(yè)

編號(hào)：

時(shí)間：2021年X月X日書山有路勤為徑，學(xué)海無涯苦作舟頁(yè)碼：第8頁(yè)共79頁(yè)

EndSub

(A)W(B)X(C)Y(D)Z

)33.執(zhí)行下列VisualBasic程序片段后，輸出結(jié)果為何？

s=3

Fori=1.4To2.1Step0.6

s=s+1

Nexti

PrintClnt(i)

(A)3(B)4(C)5(D)6

)34.下列的VisualBasic程序敘述是月來計(jì)算輸入數(shù)值的絕對(duì)值，請(qǐng)問空格處應(yīng)該填入的程序代碼

為何？

a=InputBox("請(qǐng)輸入數(shù)值：”)

IfThena="a

Prima&”的絕對(duì)值為“&a

(A)a>0(B)a=0(C)a<0(D)a<>0

)35.下列這段BASIC程序代碼將變數(shù)A與B的數(shù)值依據(jù)大小重新調(diào)整，把較大的數(shù)存放到變數(shù)A,

較小的數(shù)存放到變數(shù)B,則空格中應(yīng)填入的程序代碼為何？

IFB>ATHEN

B=A

A=H

ENDIF

(A)B=H(B)A=B(C)H=A(D)H=B

)36.10X=2

20IFX>=3THENX=X+2

30PRINTX

40END

上述之程序執(zhí)行結(jié)果為

(A)2(B)3(C)4(D)5

)37.執(zhí)行下列VisualBasic語(yǔ)言的程序片段后，變量C的值為何?

DimAAsInteger,BAsInteger

A=19:B=32

If2*A>BThen

C=2

Else

C=4

EndIf

第8頁(yè)共79頁(yè)

編號(hào)：

時(shí)間：2021年X月X日書山有路勤為徑，學(xué)海無涯苦作舟頁(yè)碼：第9頁(yè)共79頁(yè)

(A)C=1(B)C=2(C)C=3(D)C=4

)38.求執(zhí)行下列BASIC程序后，印出a的結(jié)果為何?

a=0:j=2

IFa>jTHEN

a=a+2

ELSE

a=a+1

ENDIF

a=a*j

PRINTa

(A)0(B)l(C)2(D)4

)39.下列程序的執(zhí)行結(jié)果為何？

If(6>5or4>5)Then

PrintMAH

Else

PrintMB"

EndIf

(A)B(B)A(C)6(D)4

)40.以下程序片斷執(zhí)行后，結(jié)果何者正確？

A=3:B=4

IFA+3<5ORB-2<1THEN

A=A+2

B=B-1

ELSE

A=A-2

B=B+1

ENDIF

(A)A=3(B)A=5(C)B=3(D)B=5

)41.BASIC語(yǔ)言的片段程序如下：

A=1:B=2:C=3

IfB>IThen

IfA<1Then

C=2

Else

C=4

EndIf

EndIf

第9頁(yè)共79頁(yè)

編號(hào)：

時(shí)間：2021年X月X日書山有路勤為徑，學(xué)海無涯苦作舟頁(yè)碼：第1。頁(yè)共79頁(yè)

上述程序執(zhí)行后，下列何者正確？

(A)C=1(B)C=2(C)C=3(D)C=4

)42.請(qǐng)問下列BASIC程序，如果輸入為85,則執(zhí)行的結(jié)果為何？

N=Val(InputBox("請(qǐng)輸入數(shù)字”))

IfN<100Then

IfN<90Then

Print"B

Else

PrintnC

EndIf

PrintMA

EndIf

(A)BA(B)CA(C)B(D)C

)43.下列VisualBasic程序片段的執(zhí)行結(jié)果為何？

s=3000

Ifs>=1000Ands<3000Then

Print“打九折”

Else

Ifs>=3000Then

Print"打八五折”

Else

Print"無折扣”

EndIf

EndIf

(A)輸出“打九折”(B)輸出“打八五折”(C)輸出“打八折"①)輸出“無折扣”

)44.執(zhí)行下列VisualBasic程序片段后，C的值為何？

A=30:B=15

IfA>BThen

C=A-B

Else

C=B-A

EndIf

(A)7(B)15(C)30(D)45

)45.執(zhí)行下列VisualBasic程序：

D=300

IfD<=100Then

Tax=D*2

第10頁(yè)共79頁(yè)

編號(hào)：

時(shí)間：2021年X月X日書山有路勤為徑，學(xué)海無涯苦作舟頁(yè)碼：第II頁(yè)共79頁(yè)

Else

IfD<=250Then

Tax=150+(D-50)*3

Else

Tax=700+(D-100)*5

EndIf

EndIf

PrintTax

試問輸出結(jié)果為

(A)600(B)900(C)1200(D)1700

)46.執(zhí)行下列VisualBasic程序片段的結(jié)果后，b的值為何？

a=5

SelectCasea

Case3

b=aA1

Case5

b二a八2

EndSelect

(A)5(B)25(C)125(D)130

)47.在BASIC語(yǔ)言中執(zhí)行以下的程序代碼后，屏幕輸出的數(shù)據(jù)為何?

N=6

SelectCaseN

Case1

Print"A11

Case2

Print"Bn

CaseElse

Print"C0

EndSelect

(A)A(B)B(C)C(D)ABC

)48.下列VisualBasic程序之執(zhí)行結(jié)昊為何？

GR=1

SelectCaseGR

Case1

GR=GR+2

Case2

GR=GR+3

第11頁(yè)共79頁(yè)

編號(hào)：

時(shí)間：2021年X月X日書山有路勤為徑，學(xué)海無涯苦作舟頁(yè)碼：第12頁(yè)共79頁(yè)

CaseElse

GR=GR+6

EndSelect

PrintGR

(A)l(B)3(C)9(D)21

)49.下列VisualBasic的程序，其輸El結(jié)果為何？

X=20

SelectCaseX/10

Case0

Print”A

Case1

Print"B

CaseElse

PrintnC

EndSelect

(A)B(B)C(C)BC(D)ABC

)50.IF...THEN...ELSE為下列何種結(jié)構(gòu)？

(A)循序結(jié)構(gòu)(B)選擇結(jié)構(gòu)(C)重復(fù)結(jié)構(gòu)(D)樹狀結(jié)構(gòu)

)51.下列何種程序語(yǔ)法是多選一的程序執(zhí)行流程？

(A)SelectCase敘述(B)WhileWend敘述(C)If敘述(D)ForNext敘述

)52.執(zhí)行下面的VisualBasic程序代碼后，輸出的數(shù)據(jù)為何？

PrivateSubForm_Activate()

X=5\2

SelectCaseX

Case1

print,,smair,

Case2

print"medium'1

CaseElse

print"large*'

EndSelect

EndSub

(A)error(B)large(C)medium(D)small

)53.下列程序執(zhí)行的結(jié)果為何？

A=5

SelectCaseA

Case1

第12頁(yè)共79頁(yè)

編號(hào)：

時(shí)間：2021年x月x日書山有路勤為徑，學(xué)海無涯苦作舟頁(yè)碼：第13頁(yè)共79頁(yè)

B=A*1

Case3

B=A*2

Case5

B=A*3

EndSelect

PrintB

(A)5(B)10(C)15(D)20

()54.下列關(guān)于程序設(shè)計(jì)或程序語(yǔ)言的敘述，何者正確？

(A)浮點(diǎn)數(shù)(floatingpoint)型態(tài)的變量不一定能精確地儲(chǔ)存所有數(shù)字(B)計(jì)算機(jī)運(yùn)算能力愈來

愈強(qiáng)，算法的效率已不再重要(C)程序設(shè)計(jì)師不應(yīng)該使用程序語(yǔ)言的內(nèi)建函數(shù)(built-in

function),因?yàn)槠渌怂珜懙某绦虿恢档眯刨?D)goto敘述能精確地控制程序流程，應(yīng)該

多多使用

()55.程序中「Fora=5To終值Slep增加值」之「終值」應(yīng)為何？

(A)-2(B)-1(C)1(D)2

3

()56.程序中「Fora=5To終值Slep增力口值」之「增加值」應(yīng)為何？

(A)-2(B)-1(C)l(D)2

第13頁(yè)共79頁(yè)

編號(hào)：

時(shí)間：2021年x月x日書山有路勤為徑，學(xué)海無涯苦作舟頁(yè)碼：第14頁(yè)共79頁(yè)

3

)57.以下哪一種敘述在撰寫程序時(shí)可使用來處理多維數(shù)組

(A)IfThen敘述(B)巢狀的ForNexi循環(huán)(C)Selectcase敘述①)GoTo敘述

3

)58.下列VisualBasic程序片段，執(zhí)行后的結(jié)果為何?

X=1:Y=150:Z=56.25

B=Z/(Y/100)A2

If(XMod2<>0)Then

IfB<26Then

Printnman

Else

Print”mb”

EndIf

Else

IfB<24Then

第14頁(yè)共79頁(yè)

編號(hào)：

時(shí)間：2021年X月X日書山有路勤為徑，學(xué)海無涯苦作舟頁(yè)碼：第15頁(yè)共79頁(yè)

Print"fa11

Else

Printnfbn

EndIf

EndIf

(A)fa(B)fb(C)ma(D)mb

)59.使用BASIC程序語(yǔ)言執(zhí)行下列程序代碼后，則屏幕輸出多少個(gè)*符號(hào)?

ForI=1to3

ForJ=ITo4Step3

ForK=1To5

Print

NextKJ,I

(A)12個(gè)(B)15個(gè)(C)20個(gè)(D)30個(gè)

)60.下列這段BASIC程序代碼執(zhí)行后，所印出的X值結(jié)果為何？

x=o

ForY=1To10Step2

ForZ=10To1Step-3

IfY=ZThen

X=X+1

EndIf

NextZ

NextY

PrintX

(A)0(B)2(C)ll(D)20

)61.使用BASIC程序語(yǔ)言執(zhí)行下列程序代碼后，則屏幕輸出結(jié)果是多少？

X=9

Y=5

Z=6

IF(XModY)>ZThen

Print(YModX)

Else

Print(YModZ)

ENDIF

(A)0(B)l(C)4(D)5

)62.以下VisualBasic程序執(zhí)行后，會(huì)印出什么？

S=10

ForA=1To5

第15頁(yè)共79頁(yè)

編號(hào)：

時(shí)間：2021年X月X日書山有路勤為徑，學(xué)海無涯苦作舟頁(yè)碼：第16頁(yè)共79頁(yè)

ForB=1ToA

S=S+1

NextB

NextA

PrintS

(A)15(B)25(C)35(D)40

)63.執(zhí)行下列VisualBasic語(yǔ)言片段程序的結(jié)果為何？

S=0

ForK=1to4

S=S+(KMod2)

NextK

PrintS

(A)2(B)4(C)6(D)10

)64.以下VisualBasic程序執(zhí)行后，會(huì)印出什么？

X=1

Sum=0

WhileX<20

IfX<1()Then

Sum=Sum+X

EndIf

X=X*2

Wend

PrintSum

(A)7(B)10(C)15(D)31

)65.執(zhí)行下列VisualBasic語(yǔ)言片段程序的結(jié)果為何？

S=0

ForX=1to2

ForY=1to3

S=S+1

NextY

S=S+2

NextX

PrintS

(A)4(B)6(C)10(D)30

)66.下列哪一個(gè)VisualBasic敘述，適合用來處理程序中某段須重復(fù)執(zhí)行，但無法事先確定執(zhí)行次

數(shù)的工作？

(A)For-Next(B)Do-Loop(C)Select-Case(D)If-Then

第16頁(yè)共79頁(yè)

編號(hào)：

時(shí)間：2021年X月X日書山有路勤為徑，學(xué)海無涯苦作舟頁(yè)碼：第17頁(yè)共79頁(yè)

)67.下列程序執(zhí)行后，顯示的結(jié)果為何？

C=2

ForI=1To10

IfIMod2=0ThenC=C+I

NextI

PrintC

(A)57(B)55(C)32(D)30

)68.若01=20、n=18執(zhí)行下列程序后，m值會(huì)變成多少？

DoWhilem<>n

DoWhilem>n:m=m-n:Loop

DoWhilem<n:n=n-m:Loop

Loop

(A)1(B)2(C)4(D)8

)69.關(guān)于For...Next敘述，下列何者正確？

(A)For的遞增值若為1或-1,則Step可省略不寫(B)Next后面的控制變量可省略不寫(C)For

的終值不得小于初值(D)For的初值若為1,則可省略不寫

)70.下列VisualBasic程序片段執(zhí)行后，會(huì)在屏幕上出現(xiàn)幾個(gè)#號(hào)？

For1=19To1Step-3

Print"#

NextI

(A)6(B)7(C)8(D)9

)71.下列程序執(zhí)行后，顯示的結(jié)果為何？

F=4:G=6:G=GModF

ForI=1ToG

F=F*I

NextI

PrintF

(A)2(B)4(C)6(D)8

)72.下列程序執(zhí)行后，L的值為多少？

L=10

DoUntilNot(L<25OrL>=50)

IfL<25ThenL=L+50

IfL>=50ThenL=L-10

Loop

(A)60(B)55(C)45(D)40

)73.下列程序執(zhí)行后，顯示的結(jié)果為何？

s=1

第17頁(yè)共79頁(yè)

編號(hào)：

時(shí)間：2021年X月X日書山有路勤為徑，學(xué)海無涯苦作舟頁(yè)碼：第18頁(yè)共79頁(yè)

Do

S=(s+1)*(s+2)

Number=Number+1

LoopUntils>=30

PrintNumber;s

(A)1020(B)23(C)256(D)512

)74.執(zhí)行下列VisualBasic語(yǔ)言片段，程序順利執(zhí)行后，變量k的值為何？

Fork=1To10

Printk

k=k+2

Nextk

(A)0(B)10(C)ll(D)13

)75.在結(jié)構(gòu)化程序設(shè)計(jì)中的哪一種結(jié)構(gòu)，如果條件沒設(shè)好很容易造成無窮循環(huán)：

(A)重復(fù)結(jié)構(gòu)(B)選擇結(jié)構(gòu)(C)循序結(jié)構(gòu)(D)隨機(jī)結(jié)構(gòu)

)76.下列哪一組(a,b,c)的組合可以讓以下程序代碼打印5個(gè)"*"?

I=a

DoUntilI<b

Print"*H

I=I+c

Loop

(A)(l,5,2)(B)(3,8,1)(C)(l,5,-l)(D)(18,10,-2)

)77.下列哪一個(gè)不是Do...Loop后測(cè)式循環(huán)的特色？

(A)最少會(huì)執(zhí)行1次循環(huán)敘述(B)先判斷條件式，再依條件式成立與否，決定是否要執(zhí)行循環(huán)

敘述(C)Do-LoopWhile循環(huán)是釜件式成立時(shí)，繼續(xù)執(zhí)行循環(huán)敘述(D)Do-LoopUntil循環(huán)是條

件式成立時(shí)，跳離循環(huán)

)78.下列VisualBasic程序片段執(zhí)行后，會(huì)在屏幕上出現(xiàn)幾顆星“☆”？

Fork=6To10Step3

j=l

DoWhilej<=k

Print

j=j+l

Loop

Nextk

(A)100(B)40(C)24(D)15

)79.下面程序可完成之工作為何？

10S=0

20X=1

第18頁(yè)共79頁(yè)

編號(hào)：

時(shí)間：2021年X月X日書山有路勤為徑，學(xué)海無涯苦作舟頁(yè)碼：第19頁(yè)共79頁(yè)

30WHILEX<50

40X=X+1

50S=S+X

60WEND

70PRINTS

(A)計(jì)算2+3+4+...+50(B)計(jì)算1+2+3+...+49(C)計(jì)算2+3+4+...+51(D)計(jì)算1+2+3

-+...+50

)80.下列程序執(zhí)行后，顯示的結(jié)果為何？

s=0:X=1

Do

ForY=IToX

S=S4-1

NextY

X=X+1

LoopWhileX<=10

Prints

(A)36(B)45(C)55(D)66

)81.執(zhí)行下列VisualBasic語(yǔ)言片段，程序順利執(zhí)行后，變量sum的值為何？

sum=1

Fori=10To2Step-3

sum=sum+I

NextI

(A)I(B)22(C)31(D)51

)82.在下列VisualBasic程序中，請(qǐng)問Do...Loop循環(huán)會(huì)執(zhí)行幾次？

total=0:Counter=1

Do

total=total+Counter

Counter=Counter+1

Iftotal>10ThenExitDo

LoopWhileCounter<=10

(A)20(B)15(C)10(D)5

)83.下列程序執(zhí)行后，SUM的值為多少？

Sum=0

Forl=10To20

J=15

WhileJ<=20

Sum=Sum+1

第19頁(yè)共79頁(yè)

編號(hào)：

時(shí)間：2021年X月X日書山有路勤為徑，學(xué)海無涯苦作舟頁(yè)碼：第20頁(yè)共79頁(yè)

J=J+1

Wend

NextI

(A)44(B)55(C)66(D)77

)84.執(zhí)行下列VisualBasic語(yǔ)言片段，程序順利執(zhí)行后，打印K的值為何？

K=0

ForI=1To5

ForJ=I+2To4

K=K+1

NextJ

K=K-1

NextI

PrintK

(A)0(B)-l(C)-2(D)-3

)85.欲打印整數(shù)10之所有因子，則行號(hào)30空白處應(yīng)填入？

10N=10

201=0

30WhileI_____________

401=1+1

50IfNModloOThen70

60PrintI;

70Wend

80PrintN

(A)>N(B)>=N(C)>N/2(D)<=N/2

)86.使用VisualBasic程序語(yǔ)言執(zhí)行下列程序代碼后，所得結(jié)果為何？

Sum=0

J=1

DoWhileJ<5

IfJMod2=1Then

Sum=3*Sum

Else

Sum=Sum+J

EndIf

J=J+1

Loop

PrintSum

(A)10(B)18(C)23(D)30

第20頁(yè)共79頁(yè)

編號(hào)：

時(shí)間：2021年X月X日書山有路勤為徑，學(xué)海無涯苦作舟頁(yè)碼：第21頁(yè)共79頁(yè)

)87.下列程序執(zhí)行后，顯示的結(jié)果為何？

1=1

ForJ=1To3

K=2*IA2

I=I+K

NextJ

PrintI

(A)440(B)882(C)903(D)44205

)88.下列程序執(zhí)行后，顯示的結(jié)果為何？

X=1

DoWhileX<10

X=X*2

IfX>6Then

X=X-1

Else

X=X+1

EndIf

Loop

PrintX

(A)13(B)12(C)11(D)10

)89.執(zhí)行下列VisualBasic語(yǔ)言片段，程序順利執(zhí)行后，變量sum的值為何？

Dimi,j,sumAsInteger

i=I：j=l

DoWhilei<5

DoWhile.j<5

j=j+l

Loop

i=i+1

Loop

sum=i+j

(A)10(B)15(C)225(D)345

)90.欲利用下面VisualBasic程序計(jì)算出I______________I的值，則DoWhile后面空格中應(yīng)該填入

什么內(nèi)容？

PrivateSubForm_Activate()

Sum=0

1=1

第21頁(yè)共79頁(yè)

編號(hào)：

時(shí)間：2021年X月X日書山有路勤為徑，學(xué)海無涯苦作舟頁(yè)碼：第22頁(yè)共79頁(yè)

C=1

DoWhile_______________

Sum=Sum+C

C=(-1/2)*C

1=1+1

Loop

PrintSum

EndSub

(A)I<4(B)I<5(C)I<6(D)I<7

)91.下列VisualBasic程序之執(zhí)行結(jié)具為何？

Sum=0

ForI=3To50Step3

Sum=Sum+I

NextI

PrintI;",Sum

(A)51,408(B)50,408(C)50,624(D)51,624

)92.執(zhí)行下列VisualBasic語(yǔ)言片段程序的結(jié)果為何？

Forl=10To16

ForJ=100To105

Print"**n

NextJ

Print"*u

NextI

(A)總共印出96個(gè)星號(hào)(*)(B)總共印出91個(gè)星號(hào)(*)(C)總共印出84個(gè)星號(hào)(*)(D)

總共印出66個(gè)星號(hào)(*)

)93.執(zhí)行下列VisualBasic程序片段后，請(qǐng)問S=?

DimS,IAsInteger

S=10

1=0

Do

1=1+1

S=S-1

LoopUntilI>3

(A)4(B)5(C)6(D)7

)94.要計(jì)算1到100間能被7整除的整數(shù)個(gè)數(shù)，并顯示其結(jié)果，則以下程序中的空格應(yīng)填入什么內(nèi)

容？

N=0

第22頁(yè)共79頁(yè)

編號(hào)：

時(shí)間：2021年X月X日書山有路勤為徑，學(xué)海無涯苦作舟頁(yè)碼：第23頁(yè)共79頁(yè)

ForI=1To100

IfThen

N=N+1

EndIf

NextI

PRINT”個(gè)數(shù)=N

End

(A)I/7=0(B)IMOD7=0(C)N(D)N-l

)95.執(zhí)行下述VisualBasic程序片段后，請(qǐng)問Textl和Text2控件分別會(huì)顯示什么數(shù)據(jù)？

x=0

DoWhilex<10

x=(x-2)*(x+1)

n=n+1

Lx)op

Text1.Text=n

Text2.Text=x

(A)4和88(B)3和10(C)2和4(D)l和0

)96.在VisualBasic的程序中有一循環(huán)敘述為fForK=lTo12Step3.,則當(dāng)離開循環(huán)時(shí)，K的值為

何？

(A)12(B)13(C)14(D)15

)97.依序執(zhí)行下列敘述，其輸出結(jié)果為何？

10ForI=1To3Step1

20ForJ=1To2Step1

30Sum=Sum+I*J

40NextJ,I

50PrintSum

(A)6(B)9(C)12(D)18

)98.執(zhí)行下述VisualBasic程序，PRINT敘述的執(zhí)行結(jié)果是什么？

S=0

FOR1=1TO10

S=S+I

NEXT1

PRINTS+1

(A)55(B)66(C)65(D)20

)99.執(zhí)行以下之程序代碼：

FOR1=1TO10

PRINTI;

第23頁(yè)共79頁(yè)

編號(hào)：

時(shí)間：2021年X月X日書山有路勤為徑，學(xué)海無涯苦作舟頁(yè)碼：第24頁(yè)共79頁(yè)

PRINT(I/(IMOD3));

NEXTI

在出現(xiàn)錯(cuò)誤訊息前屏幕打印數(shù)據(jù)為

(A)l23(B)11223(C)l1213(D)l12133

)100.完成下列BASIC程序以打印出1+2+3+…+99+100的總和結(jié)果，要加入那一行敘述？

s=o

ForJ=1To100

NextJ

PrintS

(A)S=1+2+…+J(B)S+J=S(C)S=S+J(D)S=J

)1()1.執(zhí)行下列VisualBasic語(yǔ)言片段程序的結(jié)果為何？

S=0

X=1

ForK=1to4

s=s+x

X=X*2

NextK

PrintS

(A)4(B)7(C)15(D)30

)102.下歹ijVisualBasic程序執(zhí)行后的輸出結(jié)果為何？

F=1:G=6:G=G-F

FORI=1TOG

F=F*I

NEXTI

PRINTF

(A)720(B)6(C)24(D)120

)103.執(zhí)行下列VisualBasic語(yǔ)言片段程序的結(jié)果為何？

P=1

ForK=1to4Step2

P=P*K

NextK

PrintP

(A)3(B)4(C)10(D)24

)104.以下BASIC程序執(zhí)行結(jié)果為何？

10sum=0：j=0

20FORI=1TO100STEP3

第24頁(yè)共79頁(yè)

編號(hào)：

時(shí)間：2021年X月X日書山有路勤為徑，學(xué)海無涯苦作舟頁(yè)碼：第25頁(yè)共79頁(yè)

30sum=sum+I

40j=j+l

50NEXTI

60PRINTj

(A)1717(B)1700(C)33(D)34

)105.下列程序中，如用For…Next計(jì)算1至100的奇數(shù)和，則下列程序區(qū)1I內(nèi),應(yīng)依序填入

那些數(shù)字？

10SUM=0

20ForI=_____To100StepI回"

30SUM=SUM+I

40NextI

50PrintSUM

(A)1,1(B)2,2(C)l,2(D)2,l

)106.使用VisualBasic(VB)程序語(yǔ)言執(zhí)行下列程序代碼后，結(jié)果為何？

T=0

ForI=1To100

IfIMod9=0Then

T=T+I

EndIf

NextI

PrintMT=T

(A)T=495(B)T=550(C)T=594(D)T=5050

)107.要計(jì)算1到100間能被7整除的整數(shù)個(gè)數(shù)，并顯示其結(jié)果，則以下程序中的空格應(yīng)填入什么

內(nèi)容？

N=0

FOR1=1TO100

IFIMOD7=0THEN

N=N+1

ENDIF

NEXTI

PRINT"個(gè)數(shù)=

END

(A)I(B)IMOD7(C)N(D)N-1

)108.執(zhí)行下列VisualBasic程序片段，程序順利執(zhí)行后，打印N的值為何？

PrivateSubCommand1_Click()

第25頁(yè)共79頁(yè)

編號(hào)：

時(shí)間：2021年X月X日書山有路勤為徑，學(xué)海無涯苦作舟頁(yè)碼：第26頁(yè)共79頁(yè)

N=O

ForK=-5.9To5Step2

IfK<0Then

N=N+Int(K)

EndIf

NextK

PrintN

EndSub

(A)-11.7(B)-21(C)-9(D)-12

)109.下列VisualBasic程序的輸出結(jié)果為何？

X$二“234“:Z$="5M

FORI=3TO1STEP-1

Z$=Z$+RIGHT$(X$,I)

NEXTI

PRINTZ$

(A)12345(B)5234344(C)51234234(D)523434

)110.在BASIC語(yǔ)言中利用下述程序計(jì)算出(1*2)-(2*3)+(3*4)-(4*5)+(5*6)的值,則空

格中要填入什么內(nèi)容？

T=0:S=1

FORN=1TO5

T=T+S*N*(N+1)

S=________________

NEXTN

PRINTT

END

(A)-l+S(B)S-2(C)N-S(D)-l*S

)111.依序執(zhí)行下列敘述S=0:ForI=1To10:S=S+I:NextI:PrintS;I其結(jié)果為

(A)4510(B)5510(C)4511(D)5511

)112.下列程序