执行VisualBasic程序的测试题

编号：

时间：2021年X月X日书山有路勤为径，学海无涯苦作舟页码：第1页共79页

选择题0分

()1.执行下列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.执行下列VisualBasic程序片段后，Max值为何？

A=10:B=20

IfA>BThen

Max=A

Else

Max=B

EndIf

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

()4.执行下列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.执行下列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.执行下列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.执行下列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程序之执行结具为何？

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.在程序设计的观念中，先测试某一条件再依结果改变执行路径的结构属于

(A)循序结构(B)随机结构(C)选择结构(D)多元结构

)13.执行下列VisualBasic程序后，输出的结果为何？

a=3:b=5:c=4

Ifa>bThen

Ifb>cThenPrinta;

Else

Printb;

EndIf

Printc

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

)14.执行下列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程序执行后，总共输出几个$?

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.执行下列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.执行下列VisualBasic程序片段，出现提示符号时输入任一整数，其输出的结果不可能为下列

何者？

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语言片段程序的执行结果为何？

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.执行下列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语言片段程序执行后，何者正确？

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.执行下列VisualBasic程序片段，出现提示符号时输入数值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.执行下列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程序之执行结吴为何？

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.执行下列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.执行下列VisualBasic程序片段，出现提示符号时，若以默认值输入，则输出打印结果为?

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.执行下列的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.执行下列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.执行下列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.执行下列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

上述之程序执行结果为

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

)37.执行下列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.求执行下列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.下列程序的执行结果为何？

If(6>5or4>5)Then

PrintMAH

Else

PrintMB"

EndIf

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

)40.以下程序片断执行后，结果何者正确？

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页

上述程序执行后，下列何者正确？

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

)42.请问下列BASIC程序，如果输入为85,则执行的结果为何？

N=Val(InputBox("请输入数字”))

IfN<100Then

IfN<90Then

Print"B

Else

PrintnC

EndIf

PrintMA

EndIf

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

)43.下列VisualBasic程序片段的执行结果为何？

s=3000

Ifs>=1000Ands<3000Then

Print“打九折”

Else

Ifs>=3000Then

Print"打八五折”

Else

Print"无折扣”

EndIf

EndIf

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

)44.执行下列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.执行下列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.执行下列VisualBasic程序片段的结果后，b的值为何？

a=5

SelectCasea

Case3

b=aA1

Case5

b二a八2

EndSelect

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

)47.在BASIC语言中执行以下的程序代码后，屏幕输出的数据为何?

N=6

SelectCaseN

Case1

Print"A11

Case2

Print"Bn

CaseElse

Print"C0

EndSelect

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

)48.下列VisualBasic程序之执行结昊为何？

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.下列何种程序语法是多选一的程序执行流程？

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

)52.执行下面的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.下列程序执行的结果为何？

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)型态的变量不一定能精确地储存所有数字(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循环(C)Selectcase叙述①)GoTo叙述

3

)58.下列VisualBasic程序片段，执行后的结果为何?

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程序语言执行下列程序代码后，则屏幕输出多少个*符号?

ForI=1to3

ForJ=ITo4Step3

ForK=1To5

Print

NextKJ,I

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

)60.下列这段BASIC程序代码执行后，所印出的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程序语言执行下列程序代码后，则屏幕输出结果是多少？

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程序执行后，会印出什么？

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.执行下列VisualBasic语言片段程序的结果为何？

S=0

ForK=1to4

S=S+(KMod2)

NextK

PrintS

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

)64.以下VisualBasic程序执行后，会印出什么？

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.执行下列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叙述，适合用来处理程序中某段须重复执行，但无法事先确定执行次

数的工作？

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

第16页共79页

编号：

时间：2021年X月X日书山有路勤为径，学海无涯苦作舟页码：第17页共79页

)67.下列程序执行后，显示的结果为何？

C=2

ForI=1To10

IfIMod2=0ThenC=C+I

NextI

PrintC

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

)68.若01=20、n=18执行下列程序后，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程序片段执行后，会在屏幕上出现几个#号？

For1=19To1Step-3

Print"#

NextI

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

)71.下列程序执行后，显示的结果为何？

F=4:G=6:G=GModF

ForI=1ToG

F=F*I

NextI

PrintF

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

)72.下列程序执行后，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.下列程序执行后，显示的结果为何？

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.执行下列VisualBasic语言片段，程序顺利执行后，变量k的值为何？

Fork=1To10

Printk

k=k+2

Nextk

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

)75.在结构化程序设计中的哪一种结构，如果条件没设好很容易造成无穷循环：

(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后测式循环的特色？

(A)最少会执行1次循环叙述(B)先判断条件式，再依条件式成立与否，决定是否要执行循环

叙述(C)Do-LoopWhile循环是釜件式成立时，继续执行循环叙述(D)Do-LoopUntil循环是条

件式成立时，跳离循环

)78.下列VisualBasic程序片段执行后，会在屏幕上出现几颗星“☆”？

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.下列程序执行后，显示的结果为何？

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.执行下列VisualBasic语言片段，程序顺利执行后，变量sum的值为何？

sum=1

Fori=10To2Step-3

sum=sum+I

NextI

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

)82.在下列VisualBasic程序中，请问Do...Loop循环会执行几次？

total=0:Counter=1

Do

total=total+Counter

Counter=Counter+1

Iftotal>10ThenExitDo

LoopWhileCounter<=10

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

)83.下列程序执行后，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.执行下列VisualBasic语言片段，程序顺利执行后，打印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程序语言执行下列程序代码后，所得结果为何？

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.下列程序执行后，显示的结果为何？

1=1

ForJ=1To3

K=2*IA2

I=I+K

NextJ

PrintI

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

)88.下列程序执行后，显示的结果为何？

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.执行下列VisualBasic语言片段，程序顺利执行后，变量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程序之执行结具为何？

Sum=0

ForI=3To50Step3

Sum=Sum+I

NextI

PrintI;",Sum

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

)92.执行下列VisualBasic语言片段程序的结果为何？

Forl=10To16

ForJ=100To105

Print"**n

NextJ

Print"*u

NextI

(A)总共印出96个星号(*)(B)总共印出91个星号(*)(C)总共印出84个星号(*)(D)

总共印出66个星号(*)

)93.执行下列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.执行下述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的程序中有一循环叙述为fForK=lTo12Step3.,则当离开循环时，K的值为

何？

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

)97.依序执行下列叙述，其输出结果为何？

10ForI=1To3Step1

20ForJ=1To2Step1

30Sum=Sum+I*J

40NextJ,I

50PrintSum

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

)98.执行下述VisualBasic程序，PRINT叙述的执行结果是什么？

S=0

FOR1=1TO10

S=S+I

NEXT1

PRINTS+1

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

)99.执行以下之程序代码：

FOR1=1TO10

PRINTI;

第23页共79页

编号：

时间：2021年X月X日书山有路勤为径，学海无涯苦作舟页码：第24页共79页

PRINT(I/(IMOD3));

NEXTI

在出现错误讯息前屏幕打印数据为

(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.执行下列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程序执行后的输出结果为何？

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

FORI=1TOG

F=F*I

NEXTI

PRINTF

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

)103.执行下列VisualBasic语言片段程序的结果为何？

P=1

ForK=1to4Step2

P=P*K

NextK

PrintP

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

)104.以下BASIC程序执行结果为何？

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的奇数和，则下列程序区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)程序语言执行下列程序代码后，结果为何？

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.执行下列VisualBasic程序片段，程序顺利执行后，打印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.依序执行下列叙述S=0:ForI=1To10:S=S+I:NextI:PrintS;I其结果为

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

)112.下列程序