循环.docx

循环.docx

《循环.docx》由会员分享，可在线阅读，更多相关《循环.docx（9页珍藏版）》请在冰豆网上搜索。

循环

循环

1for循环

格式：

for变量名=初值to终值[step]

循环体

[exitfor]

next[循环变量名]

1）y=0

fori=0tome!

x

y=y+2*i+1

nexti

msgboxy

窗体中文本框（名为x）中输入3

则输出结果：

______

2）.sum=0

fori=10to1step-2

sum=sum+i

nexti

msgboxsum

程序的输出结果：

______

3）s=5

fori=2.6to4.9step0.6

s=s+i

nexti

msgboxs

4.）s=0

fori=1to10step2

s=s+1

i=i*2

nexti

msgboxs

5）dimb,k

fork=1to6

b=23+k

nextk

msgboxb+k

6）

a=1

fori=1to3

selectcasei

case1,3

a=a+1

case2,4

a=a+2

endselect

nexti

msgboxa

7）s="ABBACDDCBA"

fori=6to2step-2

x=mid（s,i,i）

y=left（s,i）

z=right（s,i）

z=x&y&z

nexti

msgboxz

输出结果：

___

8）dimstrasstring,kasinteger

str="ab"

fork=len（str）to1step-1

str=str&chr（asc（mid（str,k,1））+k）

nextk

msgboxstr

输出结果：

___

9）dimnumasinteger

dimaasinteger

dimbasinteger

dimiasinteger

fori=1to10

num=inputbox（"请输入"）

ifint（num/2）=num/2then

a=a+1

else

b=b+1

endif

nexti

msgbox（"运行结果a="&str（a）&"b="&

str（b））

程序功能：

A）输入10个数累加和

B）输入10个数余数累加和

c）输入10个数，分别统计奇数个数，偶数个数

D）输入10个数，分别统计整数和非整数个数

2.do---while（或until）---loop语句

1>dowhile条件

循环体

[exitdo]

loop

2>do

循环体

[exitdo]

loopwhile条件

202.5

若变量i的初值为8，则下列循环语句中循环体的执行次数为

dowhilei<=17

i=i+281012141618

loop

a）3次b）4次c）5次d）6次

256.10

某个窗体已编写以下事件过程。

打开窗体运行后，单击窗体，消息框的输出结果为___

privatesubform_click（）

dimkasinteger,nasinteger,masinteger

n=10:

m=1:

k=1

dowhilek<=n

m=m*2

k=k+1

loop

msgboxm

endsub

260.33

以下程序段运行结构后，变量x的值为

x=2

y=4

do

x=x*y

y=y+1

loopwhiley<4

A）2B）4C）8D）20

234.11

在窗体中有一个命令按钮（名称为run35）单击该按钮从键盘接收学生成绩，如果输入的成绩不在0到100分之间，则要求重新输入；如果输入的成绩正确，则进入后续程序处理。

run35命令按钮的click的事件代码如下：

privatesubrun35_click（）

dimflagasboolean

result=0

flag=true

dowhileflag

result=val（inputbox（"请输入成绩"））

ifresult>=0andresult<=100then

______

else

msgbox"成绩输入错误,重输"

endif

rem成绩输入正确后的程序代码略

endsub

程序中有一空白处，需要填入一条语句使程序完成其功能。

下列选项中错误的语句是

a）flag=falseb）flag=notflag

c）flag=trued）exitdo

3>dountil条件

循环体

[exitdo]

loop

4>do

循环体

[exitdo]

loopuntil条件

D212.9题

在VBA中，错误的循环结构是

a）dowhile条件B）dountil条件

循环体循环体

loooploop

c）dountild）do

循环体循环体

looop条件loopwhile条件

D256.33题

假定有以下循环结构

dountil条件

循环体

loop

A）如果"条件"值为0，则一次循环体也不执行

B）如果"条件"值为0，则至少执行一次循环体

C）如果"条件"值不为0,则至少执行一次循环体

D）不论"条件"是否为"真"，至少执行一次循环

D211.5题

设有如下过程

x=1

do

x=x+2

loopuntil____

A）x<=7B）x<7C）x>=7D）x>7

D249.19题

VBA的DO---WHILE或until循环结构中，可以实现循环提前结束的语句是

A）endforB）enddo

C）exitforD）exitdo

D203.10题

运行下列程序，输入数据8、9、3、0后，窗体中显示结果是

privatesubform_click（）

dimsubasinteger,masinteger

sum=0

do

m=inputbox（"输入m"）

sum=sum+m

loopuntilm=0

msgboxsum

endsub

A）0B）17C）20D）21

D204.15题

在窗体上有一个命令按钮command1,编写事件代码如下：

privatesubcommand1_click（）

dimyasinteger

y=0

do

y=inputbox（"y="）

if（ymod10）+int（y/10））=10then

debug.printy;

loopuntily=0

endsub

打开窗体运行后，单击命令按钮，依次输入10，37，50，55，64，20，28，19，-19，0立即窗口上输出的结果是

A）375564281919

B）105020

C）1050200

d）3755642819

3.while-----wend循环

while条件

循环体

wend