循环.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
升级会员 