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

編號：

時間：2021年X月X日書山有路勤為徑，學海無涯苦作舟頁碼：第1頁共79頁

選擇題0分

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

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程序代碼，可以由身高及性別計算標準體重，計算后所印出的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程序后，輸出的結果為何？

x=10:y=4

Ifx>=10Andy<6Then

Print"Happy

EndIf

Print,,Birthday,,

第1頁共79頁

編號：

時間：2021年X月X日書山有路勤為徑，學海無涯苦作舟頁碼：第2頁共79頁

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

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

X=13

X=X+10

IFX>=30THENX=X-20

PRINTX

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

)6.在VisualBasic程序語言中，下列何種指令最適合用于多重選擇結構中？

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

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

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程序后，輸出的結果為何？

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í)行結具為何？

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.下列是一個利用巢狀If判斷敘述來檢查大月(1、3、5、7、8、10、12月)之日期是否合理的

程序片段，請問空格處應填入哪一個條件式，才能判斷日期是否合理(假設變量d儲存日期

數據)？

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

第2頁共79頁

編號：

時間：2021年X月X日書山有路勤為徑，學海無涯苦作舟頁碼：第3頁共79頁

IfThen

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

Else

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

EndIf

EndIf

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

)12.在程序設計的觀念中，先測試某一條件再依結果改變執(zhí)行路徑的結構屬于

(A)循序結構(B)隨機結構(C)選擇結構(D)多元結構

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

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程序后，輸出的結果為何？

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í)行后，總共輸出幾個$?

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幫敬民撰寫一個可過濾征婚條件是否符合的程序；假設他的

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

第3頁共79頁

編號：

時間：2021年X月X日書山有路勤為徑，學海無涯苦作舟頁碼：第4頁共79頁

處應填入

Ifage<30Then

IfThen

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

EndIf

EndIf

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

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

Ifa>5Then

a=a+3

Elselfb>5Thena=a-5

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

有成對的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)提示符號時輸入任一整數，其輸出的結果不可能為下列

何者？

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語言片段程序的執(zhí)行結果為何？

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程序后，輸出的結果為何？

If+uc"<nABC"Then

PrintnYesM

第4頁共79頁

編號：

時間：2021年X月X日書山有路勤為徑，學海無涯苦作舟頁碼：第5頁共79頁

Else

PrintnNou

EndIf

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

)22.下列VisualBasic語言片段程序執(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)提示符號時輸入數值10,則輸出打印結果為:

a=InputBox(Minputdata")

b=aMod2A3

Ifa<bThenPrinta+b

Ifa>bThenPrinta-b

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

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

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

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

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頁共79頁

編號：

時間：2021年X月X日書山有路勤為徑，學海無涯苦作舟頁碼：第6頁共79頁

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

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程序后，輸出的結果為何？

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)提示符號時，若以默認值輸入，則輸出打印結果為?

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

SelectCaseprice

CaseIs<3000

pay=price

Case3000To5500

pay=price*0.95

Case5500To9000

pay=price*0.88

EndSelect

Print'Trice=price;"Pay=pay

第6頁共79頁

編號：

時間：2021年X月X日書山有路勤為徑，學海無涯苦作舟頁碼：第7頁共79頁

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

)29.執(zhí)行下列的VisualBasic程序片段后，請問第一個輸出的數據為何？

a=2

c=1

AAA:

c=c+a

Ifc<10Then

Printc

GoToAAA

Else

Printn10以內的奇數已打El完畢”

EndIf

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

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

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.某英語測驗采用1?9級的評分標準，級數愈高表示英語能力愈好。若某家補習班要使用VB

來撰寫一個程序，供學生查詢各級數所代表的英文程度，試問使用下列哪一個敘述來依據學

生輸入的級數判斷英文程度，可讓程序敘述的層次較為簡潔且易于閱讀？

(A)If-Then(B)If-Then-Else(C)SelectCase(D)巢狀If-Then-Else

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

PrivateSubForm_Activate()

score=Int(Rnd*10)+20

SelectCasescore

CaseIs<20:Print"ZM

Case20To29:Print

Case30To39:Print"X"

CaseElse:PrintnWH

EndSelect

第7頁共79頁

編號：

時間：2021年X月X日書山有路勤為徑，學海無涯苦作舟頁碼：第8頁共79頁

EndSub

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

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

s=3

Fori=1.4To2.1Step0.6

s=s+1

Nexti

PrintClnt(i)

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

)34.下列的VisualBasic程序敘述是月來計算輸入數值的絕對值，請問空格處應該填入的程序代碼

為何？

a=InputBox("請輸入數值：”)

IfThena="a

Prima&”的絕對值為“&a

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

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

較小的數存放到變數B,則空格中應填入的程序代碼為何？

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í)行結果為

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

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

DimAAsInteger,BAsInteger

A=19:B=32

If2*A>BThen

C=2

Else

C=4

EndIf

第8頁共79頁

編號：

時間：2021年X月X日書山有路勤為徑，學海無涯苦作舟頁碼：第9頁共79頁

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

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

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í)行結果為何？

If(6>5or4>5)Then

PrintMAH

Else

PrintMB"

EndIf

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

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

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語言的片段程序如下：

A=1:B=2:C=3

IfB>IThen

IfA<1Then

C=2

Else

C=4

EndIf

EndIf

第9頁共79頁

編號：

時間：2021年X月X日書山有路勤為徑，學海無涯苦作舟頁碼：第1。頁共79頁

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

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

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

N=Val(InputBox("請輸入數字”))

IfN<100Then

IfN<90Then

Print"B

Else

PrintnC

EndIf

PrintMA

EndIf

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

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

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頁共79頁

編號：

時間：2021年X月X日書山有路勤為徑，學海無涯苦作舟頁碼：第II頁共79頁

Else

IfD<=250Then

Tax=150+(D-50)*3

Else

Tax=700+(D-100)*5

EndIf

EndIf

PrintTax

試問輸出結果為

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

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

a=5

SelectCasea

Case3

b=aA1

Case5

b二a八2

EndSelect

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

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

N=6

SelectCaseN

Case1

Print"A11

Case2

Print"Bn

CaseElse

Print"C0

EndSelect

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

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

GR=1

SelectCaseGR

Case1

GR=GR+2

Case2

GR=GR+3

第11頁共79頁

編號：

時間：2021年X月X日書山有路勤為徑，學海無涯苦作舟頁碼：第12頁共79頁

CaseElse

GR=GR+6

EndSelect

PrintGR

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

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

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為下列何種結構？

(A)循序結構(B)選擇結構(C)重復結構(D)樹狀結構

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

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

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

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í)行的結果為何？

A=5

SelectCaseA

Case1

第12頁共79頁

編號：

時間：2021年x月x日書山有路勤為徑，學海無涯苦作舟頁碼：第13頁共79頁

B=A*1

Case3

B=A*2

Case5

B=A*3

EndSelect

PrintB

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

()54.下列關于程序設計或程序語言的敘述，何者正確？

(A)浮點數(floatingpoint)型態(tài)的變量不一定能精確地儲存所有數字(B)計算機運算能力愈來

愈強，算法的效率已不再重要(C)程序設計師不應該使用程序語言的內建函數(built-in

function),因為其它人所撰寫的程序不值得信賴(D)goto敘述能精確地控制程序流程，應該

多多使用

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

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

3

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

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

第13頁共79頁

編號：

時間：2021年x月x日書山有路勤為徑，學海無涯苦作舟頁碼：第14頁共79頁

3

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

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

3

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

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頁共79頁

編號：

時間：2021年X月X日書山有路勤為徑，學海無涯苦作舟頁碼：第15頁共79頁

Print"fa11

Else

Printnfbn

EndIf

EndIf

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

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

ForI=1to3

ForJ=ITo4Step3

ForK=1To5

Print

NextKJ,I

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

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

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程序語言執(zhí)行下列程序代碼后，則屏幕輸出結果是多少？

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í)行后，會印出什么？

S=10

ForA=1To5

第15頁共79頁

編號：

時間：2021年X月X日書山有路勤為徑，學海無涯苦作舟頁碼：第16頁共79頁

ForB=1ToA

S=S+1

NextB

NextA

PrintS

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

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

S=0

ForK=1to4

S=S+(KMod2)

NextK

PrintS

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

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

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語言片段程序的結果為何？

S=0

ForX=1to2

ForY=1to3

S=S+1

NextY

S=S+2

NextX

PrintS

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

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

數的工作？

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

第16頁共79頁

編號：

時間：2021年X月X日書山有路勤為徑，學海無涯苦作舟頁碼：第17頁共79頁

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

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值會變成多少？

DoWhilem<>n

DoWhilem>n:m=m-n:Loop

DoWhilem<n:n=n-m:Loop

Loop

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

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

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

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

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

For1=19To1Step-3

Print"#

NextI

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

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

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í)行后，顯示的結果為何？

s=1

第17頁共79頁

編號：

時間：2021年X月X日書山有路勤為徑，學海無涯苦作舟頁碼：第18頁共79頁

Do

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

Number=Number+1

LoopUntils>=30

PrintNumber;s

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

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

Fork=1To10

Printk

k=k+2

Nextk

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

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

(A)重復結構(B)選擇結構(C)循序結構(D)隨機結構

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

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.下列哪一個不是Do...Loop后測式循環(huán)的特色？

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

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

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

)78.下列VisualBasic程序片段執(zhí)行后，會在屏幕上出現(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頁共79頁

編號：

時間：2021年X月X日書山有路勤為徑，學海無涯苦作舟頁碼：第19頁共79頁

30WHILEX<50

40X=X+1

50S=S+X

60WEND

70PRINTS

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

-+...+50

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

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語言片段，程序順利執(zhí)行后，變量sum的值為何？

sum=1

Fori=10To2Step-3

sum=sum+I

NextI

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

)82.在下列VisualBasic程序中，請問Do...Loop循環(huán)會執(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頁共79頁

編號：

時間：2021年X月X日書山有路勤為徑，學海無涯苦作舟頁碼：第20頁共79頁

J=J+1

Wend

NextI

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

)84.執(zhí)行下列VisualBasic語言片段，程序順利執(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.欲打印整數10之所有因子，則行號30空白處應填入？

10N=10

201=0

30WhileI_____________

401=1+1

50IfNModloOThen70

60PrintI;

70Wend

80PrintN

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

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

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頁共79頁

編號：

時間：2021年X月X日書山有路勤為徑，學海無涯苦作舟頁碼：第21頁共79頁

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

1=1

ForJ=1To3

K=2*IA2

I=I+K

NextJ

PrintI

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

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

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語言片段，程序順利執(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程序計算出I______________I的值，則DoWhile后面空格中應該填入

什么內容？

PrivateSubForm_Activate()

Sum=0

1=1

第21頁共79頁

編號：

時間：2021年X月X日書山有路勤為徑，學海無涯苦作舟頁碼：第22頁共79頁

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í)行結具為何？

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語言片段程序的結果為何？

Forl=10To16

ForJ=100To105

Print"**n

NextJ

Print"*u

NextI

(A)總共印出96個星號(*)(B)總共印出91個星號(*)(C)總共印出84個星號(*)(D)

總共印出66個星號(*)

)93.執(zhí)行下列VisualBasic程序片段后，請問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.要計算1到100間能被7整除的整數個數，并顯示其結果，則以下程序中的空格應填入什么內

容？

N=0

第22頁共79頁

編號：

時間：2021年X月X日書山有路勤為徑，學海無涯苦作舟頁碼：第23頁共79頁

ForI=1To100

IfThen

N=N+1

EndIf

NextI

PRINT”個數=N

End

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

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

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.,則當離開循環(huán)時，K的值為

何？

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

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

10ForI=1To3Step1

20ForJ=1To2Step1

30Sum=Sum+I*J

40NextJ,I

50PrintSum

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

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

S=0

FOR1=1TO10

S=S+I

NEXT1

PRINTS+1

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

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

FOR1=1TO10

PRINTI;

第23頁共79頁

編號：

時間：2021年X月X日書山有路勤為徑，學海無涯苦作舟頁碼：第24頁共79頁

PRINT(I/(IMOD3));

NEXTI

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

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

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

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語言片段程序的結果為何？

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í)行后的輸出結果為何？

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語言片段程序的結果為何？

P=1

ForK=1to4Step2

P=P*K

NextK

PrintP

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

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

10sum=0：j=0

20FORI=1TO100STEP3

第24頁共79頁

編號：

時間：2021年X月X日書山有路勤為徑，學海無涯苦作舟頁碼：第25頁共79頁

30sum=sum+I

40j=j+l

50NEXTI

60PRINTj

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

)105.下列程序中，如用For…Next計算1至100的奇數和，則下列程序區(qū)1I內,應依序填入

那些數字？

10SUM=0

20ForI=_____To100StepI回"

30SUM=SUM+I

40NextI

50PrintSUM

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

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

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.要計算1到100間能被7整除的整數個數，并顯示其結果，則以下程序中的空格應填入什么

內容？

N=0

FOR1=1TO100

IFIMOD7=0THEN

N=N+1

ENDIF

NEXTI

PRINT"個數=

END

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

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

PrivateSubCommand1_Click()

第25頁共79頁

編號：

時間：2021年X月X日書山有路勤為徑，學海無涯苦作舟頁碼：第26頁共79頁

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程序的輸出結果為何？

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

FORI=3TO1STEP-1

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

NEXTI

PRINTZ$

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

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

格中要填入什么內容？

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其結果為

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

)112.下列程序