VB循环结构复习学案

VB循环结构复习学案VB循环结构复习学案VB循环结构复习学案资料仅供参考文件编号：2022年4月VB循环结构复习学案版本号：A修改号：1页次：1.0审核：批准:发布日期：主题：循环结构一、考点点击：1、学会使用循环结构设计程序的基本方法。二、学习目标：1、掌握for循环语句、do……loop循环语句的格式及执行流程2、学会用循环控制结构来解决实际问题三、活动形式在教师引导下的自主学习四、考点注解：学会使用循环结构设计程序的基本方法。按条件重复执行一种操作的结构称为循环结构。循环结构有两种形式，即当型循环结构和直到型循环结构。

（1）当型循环结构：先进行判断，然后根据判断结果（真或假）再决定是否执行循环体的循环结构称为当型循环结构，如左图所示。

（2）直到型循环结构：先执行一次循环体，然后再根据判断结果（真或假）决定是否继续执行循环体的循环结构称为直到型循环结构，如下图所示。从上述两种循环结构的流程图可以看出，对于当型循环结构，程序有可能一次也不执行循环体；对于直到型循环结构，程序至少要执行一次循环体。循环语句实现循环结构。VB中循环语句有两种：Do…Loop语句和For…Next语句。

Do…Loop语句是条件型循环，当循环的执行是由条件控制，在循环的次数不确定时通常选用该语句；For语句是计数循环，在循环次数已知时选用该语句。（一）、do……loop循环先执行循环语句，再判断条件表达式的值，当条件条件表达式的值为False时继续执行循环体，直到条件为True结束循环转而执行LoopUntil后面的语句。先执行循环语句，再判断条件表达式的值，当条件条件表达式的值为True时继续执行循环体，当条件表达式的值为Ｆalse结束循环，转而执行LoopWhile后面的语句先计算条件表达式的值，当其值为False时，执行循环体中的语句序列，然后再重新计算条件表达式的值，直到条件表达式的值为True时，循环终止，执行DoUntil…Loop语句的下一条语句。先执行循环语句，再判断条件表达式的值，当条件条件表达式的值为False时继续执行循环体，直到条件为True结束循环转而执行LoopUntil后面的语句。先执行循环语句，再判断条件表达式的值，当条件条件表达式的值为True时继续执行循环体，当条件表达式的值为Ｆalse结束循环，转而执行LoopWhile后面的语句先计算条件表达式的值，当其值为False时，执行循环体中的语句序列，然后再重新计算条件表达式的值，直到条件表达式的值为True时，循环终止，执行DoUntil…Loop语句的下一条语句。先计算条件表达式的值，当其值为True时，执行循环体中的语句序列，然后再重新计算条件表达式的值，当条件表达式的值为False时，循环终止，执行Loop语句后的语句。（二）For…Next语句

在循环次数已知的情况下，采用For…Next语句实现循环结构是比较合适的选择。For…Next语句的格式如下：（三）、循环结构例题对比求1+2+3+……+100的值1、当for语句中省略step时默认值是12、在do……loop循环中要注意变量初值的设置和循环变量的增值问题五、习题训练：1.[单选题1分]在VB中，某同学要计算1+3+5+……+9的值，他应用循环结构语句如下：s=0FORi＝1TO9STEP

s=s+i请问语句中的“”代表的值是（）A、-1B、-2C、2D、12.[多选题2分]如下VisualBasic程序段，用到了哪些控制结构（）。PrivateSubcommand1_click()S=0i=16DoS=S+Ii=i+1UntilS>=100Print"i的值为:";IEndSubA、顺序结构B、循环结构C、层次结构D、选择结构3.[单选题1分].以下是一段VisualBasic程序，它的基本结构属于（）…DoS=S+Ii=i+1LoopUntilS>=100…A、顺序结构B、选择结构C、循环结构D、树型结构4.[单选题1分]执行下列VB程序段后，变量j的值为（）S=0Forj=1to10Step2S=S+jNextjA、1B、10C、11D、125.[单选题1分]有如下VB程序段，对该程序段执行过程描述正确的是（）DoS=S+1LoopA、如果S>100，则退出循环B、如果S<=100，则重复执行S=S+1C、如果S>100，则重复执行S=S+1D、不论S初值为多少，至少执行一次S=S+16.[单选题1分]在结构化程序设计中通常包含三种不同的控制结构，即：顺序结构、选择结构、循环结构。下列说法正确的是（）A、一个程序只能包含一种结构B、一个程序最多可以包含两种结构C、一个程序可以包含以上三种结构D、一个程序必须包含以上三种结构7.[单选题1分]求解S=2+4+6+8+10的VB程序如下，试问程序中的“step”表示（）。S=0Fori=2to10step2S=s+INextiA、函数B、步长C、表达式D、变量8.阅读下列程序段，程序运行后在文本框中显示的结果是PrivateSubForm_Click()DimsAsIntegerDimiAsIntegers=0Fori=1To100s=s+iNextiText1.Text=sEndSubA、5051B、5050C、10101D、101009.执行以下语句后，a的值是DimaAsIntegera=1DoWhilea<>100a=a+2LoopA、101B、溢出C、99D、10010.补充完善下列程序段①求s=2+4+6+……+100之和。DimiAsIntegerDimsAsIntegers=0Fori=2To100Step2

s=_________NextiPrints②输出100以内（包含100）能被3整除的数。DimIAsIntegerI=1Do

If

I

Mod3=0ThenPrintI

EndIfI=I+1LoopUntil_________③Functionfunc()DimiAsIntegerDimsAsIntegers=0Fori=10To100Step10s=___________Nextifunc="s="&sEndFunction④算法描述'某学校组织一次读书活动，计划购买各种各样书写笔作为奖品。'用100元买100支笔，其中钢笔每支5元，圆珠笔每支1元，铅笔1元买6支，'求可行的方案数有多少种?'注：请不要更改原程序结构，删除（1）、（2）、（3），并在对应位置填写正确的代码Functionfunc()Dimi,j,kAsInteger'i,j,k变量分别存储购买三种笔所用的总金额func=(1)Fori=0To100Forj=0To100Fork=0To100If(i+j+k)=100(2)(i/5+j+6*k)=100Thenfunc=func+1EndIfNextkNext(3)NextiEndFunction⑤PrivateSubCommand1_Click()Dimsumsum=(1)Fori=1To6k=2^isum=(2)+kNextText1.Text=sumout(sum)EndSub⑥PrivateSubCommand1_Click()s=1Fori=1To10s=s*(1)