vb控制结构综合练习

控制结构

一、选择题

1.VB 的3种结构化程序设计的3种基

本结构是________。

A)选择结构、过程结构、顺序结构 B)递归结构、选择结构、顺序结构 C)过程结构、转向结构、递归结构 D)选择结构、顺序结构、循环结构 2.用If 语句表示分段函数

33

11

()11x x f x x x ?-≥=?+

Ifx>=1Thenf=s^3-1

B)Ifx>=1Thenf=x^3-1

Ifx<1Thenf=x^3+1

C)Ifx>=1Thenf=x^3-1

f=x^3+1

D)Ifx<1Thenf=x^3+1Else

F=x^3-1

3.执行下面的程序段后显示结果是________。

PrivateSubForm_Click() Dimm

IfmThenPrintmElsePrintm+1

EndSub

A)0 B)1 C)”” D)False

4．设a=6，则执行x=IIf(a>5,-1,0)后，x 的值为________。 A)5 B)6 C)0 D)–1

5．下面程序段的运行结果是________。 cj=85

Ifcj>90Thendj="A" Ifcj>80Thendj="B" Ifcj>70Thendj="C" Ifcj>60Thendj="D" Ifcj<60Thendj="E" Print"dj=";dj

A)dj=B B)dj=C C)dj=D D)dj=E 6．下列语句正确的是________。 A)IfK<3*NAndk>NThenN=k^3 B)IfK<3*NAndk>NThenN=k3 C)IfK<3*N:k>NThenN=k^3 D)IfK<3*NAndk>NThenN=k**3 7．设X=2.0，y=8.0，z=6.0，L=True ，则下列VisualBasic 表达式中值为True 的是________。 A)X+Z>YANDL

B)NOT(YNOTL C)NOTLOR(L=Y+X=Z) D)Y+X>=Z+XAND(LANDFALSE) 8．要判断”月收入在2000元以上（含2000元）且5000元以下（不含5000

元）”的职工，应使用的逻辑表达式是________。

A)M>=2000ANDM<=5000

B)M>=2000ORM<=5000

C)M>=2000ANDM<5000

D)M>=2000ORM<5000

9．下列程序段的执行结果为________。

x=Int((69-60)*Rnd+60)

SelectCasex

CaseIs>90

Print"优秀"

Case80To89

Print"良好"

Case60To79

Print"合格"

CaseElse

Print"不合格"

EndSelect

A)优秀 B)良好 C)合格 D)不合格

10．在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：运行结果________。

PrivateSubCommand1_Click()

ForI=1To4

ForJ=0ToI

PrintChr(65+I);

NextJ

Print

NextI

EndSub

单击命令按钮后，运行结果________。

A)BB B)A

CCC BB

DDDD CCC

EEEEE DDDD

C)B D)AA

CC BBB

DDD CCCC

EEEE DDDDD

11．在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

PrivateSubCommand1_Click()

DimiAsInteger,nAsInteger

Fori=0To50

i=i+3

n=n+1

Ifi>10ThenExitFor

Next

Text1.Text=Str(n)

EndSub

程序运行后，单击命令按钮，在文本框中显示的值是________。

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

12．在窗体上画一个命令按钮，然后编写如下事件过程：

PrivateSubCommand1_Click()

Fori=1To4

x=4

Forj=1To3

x=3

Fork=1To2

x=x+6

Nextk

Nextj

Nexti

Printx

EndSub

程序运行后，单击命令按钮，输出结果是________。

A)7 B)15 C)157 D)538

13．阅读下面的程序段：

Fori=1To3

Forj=1Toi

Fork=jTo3

a=a+1

Nextk

Nextj

Nexti

执行上面的三重循环后，a的值为________。A)3 B)9 C)14 D)21

14．在窗体上画一个文本框（其Name 属性为Text1），然后编写如下事件过程：

PrivateSubForm_Load()

Text1.Text=""

Text1.SetFocus

Fori=1To10

Sum=Sum+i

Nexti

Text1.Text=Sum

EndSub

上述程序的运行结果是________。

A)在文本框Text1中输出55

B)在文本框Text1中输出0

C)出错

D)在文本框Text1中输出不定值

15．有如下程序：

a=10

b=4

Forj=1To20Step-2

a=a+5

b=b+4

Nextj

Printa;b

运行后，输出的结果是________。

A)104 B)6024 C)11044 D)5540

16．有如下程序：

d$=""

a$="abcde"

Fori=Len(a)To1Step-1

d=d+Mid(a,i,1)

Nexti

Printd$

运行后，输出的结果是________。

A)abcde B)edcba C)acebd

D)ecadb

17．在Command1_Click事件程序的功能是：按顺序读入10名学生4门课程的成绩。计算出每位学生的平均分并输出，程序如下：

DimnAsInteger,kAsInteger

DimscoreAsSingle,sunAsSingle,ave AsSingle

sum=0#

Forn=1To10

Fork=1To4

score=InputBox("请输入一门课的成绩")

sum=sum+score

Nextk

ave=sum/4

print"第";n;"个人的平均成绩为：";ave Nextn

上述程序运行后结果不正确，调试中发现有一条语句出现在程序中的位置不正确。这条语句是________。

A)sum=0# B)sum=sum+score

C)ave=sum/4 D)print"第";n;"人的均分：";ave

18．下列程序的输出结果是________。

DimyAsInteger

y=10

Whiley<>0

y=y-1

Wend

Print"y=";y

A)y=0 B)y=1 C)y=随机值D)y=-1

19．以下程序的输出结果是________。

DimmAsInteger

m=1

Whilem<=3

m=m+1

Printm;

Wend

A)2 B)23 C)234 D)2345

20．下面的程序运行结果是________。

PrivateSubForm_Click()

m=0

DoUntil0

m=m+1

Ifm>10ThenExitDo

Loop

Printm

EndSub

A)0 B)10 C)11 D)出错

21．下面程序运行语句Printm执行的次数是________。

PrivateSubForm_Click()

DimmAsInteger,nAsInteger

m=0

Do

m=m+1

Forn=10To1Step-3

m=m+n

Printm

Nextn

LoopWhilem<50

EndSub

A)4 B)8 C)12 D)16

22．在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

PrivateSubCommand1_Click()

DimxAsInteger,nAsInteger

x=1

n=0

DoWhilex<20

x=x*3

n=n+1

Loop

Text1.Text=Str(x)

Text2.Text=Str(n)

EndSub

程序运行后，单击命令按钮，在两个文本框中显示的值分别是________。

A)15和1B)27和3C)195和3D)600和4

23．在窗体上画两个文本框（其Name 属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程：

PrivateSubCommand1_Click()

x=0

DoWhilex<50

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

n=n+1

Loop

Text1.Text=Str(n)

Text2.Text=Str(x)

EndSub

程序运行后，单击命令按钮，在两个文本框中显示的值分别为________。

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

168

24．在窗体上画一个命令按钮，然后编写如下事件过程：

PrivateSubCommand1_Click()

x=0

DoUntilx=-1

a=InputBox("请输入A的值")

a=Val(a)

b=InputBox("请输入B的值")

b=Val(b)

x=InputBox("请输入x的值")

x=Val(x)

a=a+b+x

Loop

Printa

EndSub

程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为________。

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

二、填空题

1．执行下面的程序，当输入的值为5时输出为________。

PrivateSubForm_Click()

DimxAsSingle

x=InputBox("X")

Ifx<0Then'

y=1:Printy

ElseIfx>=0Then

y=2:Printy

ElseIfx>=1Then

y=3:Printy

Else

y=4:printy

EndIf

EndSub

2．下面的程序将从InputBox输入对话框得到的3个数按从大到小输出。阅读程序并填空。如果程序运行时分别输入12.3、35.8和25.7三个数，则输出为________。

PrivateSubForm_Click()

DimaAsInteger,bAsInteger,cAsI nteger

a=InputBox("输入一个数")

b=InputBox("输入一个数")

c=InputBox("输入一个数")

Ifb>aThen

d=a:a=b:b=d

EndIf

Ifc>aThen

d=a:a=c:c=d

EndIf

Ifc>bThen

EndIf

Printa;b;c

EndSub

3．下列程序运行时，单击窗体，执行结果为______________________________。

说明：在窗体上有一个Label控件，名为lblDate。

DimYAsInteger,DAsInteger,W1AsInt eger

DimRqAsDate

DimW2AsString

PrivateSubForm_Click()

Rq=Date

Y=Year(Rq):m=Month(Rq):d=Day( Rq)

W1=Weekday(x)

SelectCaseW1

Case1

W2="日"

Case2

W2="一"

Case3

W2="二"

Case4

W2="三"

Case5

W2="四"

Case6

W2="五"

Case7

W2="六"

EndSelect

lbldate.Caption="今天是"&Y&"年"&M&"月"&D&"日"&W2

EndSub

4．执行下面的程序段后，s的值为____________。

a=5

Fori=2.6To4.9Step0.6

s=s+1

Nexti

5．下面是一个体操评分程序。20位评委，除去一个最高分和一个最低分，计算平均分（设满分为10分）。

Max=0

Min=10

Fori=1To20

n=Val(InputBox"请输入分数")

If______________ThenMax=n

If______________ThenMin=n

s=s+n

Nexti

s=______________

p=s/18

Print"最高分";Max,"最低分";Min

Print"最后得分:";p

6．下面程序的功能是求1到100的平方和，如果平方和超过了1000则跳出循环，输出此时的和S。

ForI=1To100

s=s+i*i

Ifs>1000Then

______________

EndIf

nexti

abc:Prints

7．以下程序段的输出结果是____________。

num=0

Whilenum<=2

num=num+1

Printnum

Wend

8．以下程序段的输出结果是____________。

DimjAsInteger,sAsInteger

Do

s=s+j

j=j+1

LoopUntilj=5 Print"s=";s

9．以下程序段，程序运行后，要求执行4次循环。

x=1

Do

x=x+1

print15

loopUntil___________

10．下列程序运行后，内层循环的循环总次数___________。

Forx=1to4

Fory=1tox

Printy

Nexty

Nextx

四、程序阅读题

1．写出下面程序的运行结果。

PrivateSubForm_Click()

DimsAsInteger,kAsInteger,mAsI nteger,nAsInteger

s=1

Form=1To3

Forn=mTo3

Fork=nTomStep-1

s=s*k

Nextk,n,m

Prints

EndSub

2．写出下面程序的运行结果。PrivateSubForm_Click()

Fori=3To1Step-1

PrintSpc(10-i);

Forj=1To2*i-1

Print"*";

Nextj

Print

Nexti

EndSub

3．写出下面程序的运行结果。PrivateSubForm_Click()

Fori=1To4

x=4

Forj=1To3

x=3

Fork=1To2

x=x+6

Nextk

Nextj

Nexti

printx

EndSub

4．写出下面程序的运行结果。PrivateSubForm_Click()

m=0

Do

m=m+1

Ifm>10ThenExitDo

LoopUntilm<10

Printm

EndSub

5．写出下面程序的运行结果。

PrivateSubForm_Click()

DimmAsInteger,nAsInteger

m=10

Do

m=m+n

Forn=10Tomstep-1

m=m+n

Nextn

LoopWhilem<50

Printm;n

EndSub

6．写出下面程序的运行结果。

PrivateSubForm_Click()

DimmAsInteger,nAsInteger,kAsI nteger

m=1:n=a:k=5

DoWhilem<=k*n

m=m*n

n=n+1

Printm;n

Loop

Printm;n

EndSub

7．写出下面程序的运行结果。

DimiAsInteger,aAsInteger

DoWhilei<20

DoWhileTrue

IfiMod10=0Then

ExitDo

Else

i=i-1

EndIf

Loop

i=i+11:a=a+i

Loop

Printa

五、程序填空题

1．下面的程序段是检查输入的文字段中大括号是否配对，并显示相应的结果。本程序在文本框中边输入，边统计大括号的个数，以输入回车符作为输入结束标志，然后显示结果。

Dimcount1%,strAsString

PrivateSubText1_KeyPress(KeyAsci iAsInteger)

str=

Ifstr="{"Then

count1=count1+1

ElseIfstr="}"Then

EndIf

IfKeyAscii=13Then

IfThen

Print"左右大括号配对"

ElseIfThen

Print"左大括号多"；count1;"个"

Else

Print"右大括号多"；-count1;"个"

EndIf

EndIf

EndSub

2．阅读下面分段函数及其程序，请填空：

0(10)

220(100)

20(020)

300.5(2040)

50(4050)

0(50)

x

x x

x

y

x x

x x

x

<-

?

?+-≤<

?

?≤<

?

=?

-≤<

?

?-≤<

?

≤

??

DimxAsSingle,yAsSingle

x=inputBox("请输入x")

If(x<-10)Then

y=0#

ElseIf(x<0)Then

y=2*x+20

ElseIf()Then

y=20

ElseIf(x<40)Then

ElseIf(x<50)Then

y=50-x

y=0

EndIf

Print"X=";x;"Y=";y

3．随机产生0~100的整数作为某门功课的分数，按0~59、60~69、70~89、90~100划分为不及格、及格、良好、优秀4个层次，阅读程序并填空。

PrivateSubForm_Click()

Dimm

m=Int(101*Rnd)

Printm

Printm

SelectCasem

Case(此空不能超过5个字符)

Print"不及格"

Case6

Print"良好"

Case7,8

Print"良好"

CaseElse

Print"优秀"

EndSelect

EndSub

4．下面的程序输入X的值，按以下公

式求Y值。

100

100010 400100

X X

Y X X

X

--≤<

?

?

=+≤≤

?

?<≤

?

PrivateSubCommand1_Click()

X=Val(Text1.Text)

SelectCaseX

Case

Print"X<-100ORX>200"

Case

Y=100-X

Case

Y=100+X

Case

Y=400

EndSelect

Text2.Text=Y

EndSub

5．以下程序是利用公式

1111

4*()

1357

π=-+-+来计算π的

值。其中，变量k表示当前符号项，t

表示当前项，n表示当前项的序号，要

求精度控制在0.00001内。试分析程

序，完成空格处填的内容。

DimpiAsSingle,tAsSingle

DimnAsSingle,kAsSingle

pi=0:n=1

k=1:t=1

DoWhile()

pi=pi+t

k=-k

t=

n=n+1

Loop

pi=

Print"pi=";pi

6．下列程序的功能是输出的前20项，按每行5个数的形式输出。

Fibonacci数列：F1=1,F2=1,Fn=Fn-1+Fn-2(n>=2)

DimaAsInteger,bAsInteger

DimcAsInteger,iAsInteger

a=1:b=1:i=3

Printa,b,

DoWhile(i<=20)

c=a+b

a=b

b=c

IfThen Print

EndIf

Loop

7.以下程序用于计算N=1+（1+3）+（1+3+5）…（1+3+..+39)

PrivateSubCommand1_Click()

T=0:M=1:Sum=0

Do

T=T+

Sum=Sum+

M=M+2

LoopWhile

Print“Sum=";Sum

EndSub

8.36块砖，36人搬，男搬4，女搬3，2个小儿抬1砖，要求1次全搬完，问需男、女、小儿各多少人？

ForMale=1To9

ForFemale=1To12

ForBoy=2To36Step2

IfBoy+Female+Male=36_

And Then

PrintMale,Femalem,Boy

EndIf

Nextboy,female,male

9.以下程序输入N个书名，并显示书名中含有连续3个字母COM的书

PrivateSubCommand1_Click()

n=Val(InputBox("请输入数量："))

Fori=1Ton

bookname=InputBox("请输入书名：")

l=Len

Ifl>=3Then

If ThenPrintbookname

EndIf

Nexti

EndSub

10.输出20个在开区间（10，87）中的随机整数，每行输出4个整数

PrivateSubCommand1_Click()

ForI=1To100

r=

Printr;

If ThenPrint

NextI

EndSub

11.输入两个正整数M、N，求它们的最大公约数，显示于Label3中。

PrivateSubCommand1_Click()

M=Val(Text1.Text)

N=Val(Text2.Text)

A=M:B=N

R=MModN DoWhile

M=N:N=R

R=

Loop

Label3.Caption= EndSub