VB循环结构复习学案

信息技术复习课学案-1-主题：循环结构一、考点点击：1、学会使用循环结构设计程序的基本方法。二、学习目标：1、掌握for循环语句、do……loop循环语句的格式及执行流程2、学会用循环控制结构来解决实际问题三、活动形式在教师引导下的自主学习四、考点注解：学会使用循环结构设计程序的基本方法。按条件重复执行一种操作的结构称为循环结构。循环结构有两种形式，即当型循环结构和直到型循环结构。（1）当型循环结构：先进行判断，然后根据判断结果（真或假）再决定是否执行循环体的循环结构称为当型循环结构，如左图所示。（2）直到型循环结构：先执行一次循环体，然后再根据判断结果（真或假）决定是否继续执行循环体的循环结构称为直到型循环结构，如下图所示。从上述两种循环结构的流程图可以看出，对于当型循环结构，程序有可能一次也不执行循环体；对于直到型循环结构，程序至少要执行一次循环体。循环语句实现循环结构。VB中循环语句有两种：Do…Loop语句和For…Next语句。Do…Loop语句是条件型循环，当循环的执行是由条件控制，在循环的次数不确定时通常选用该语句；For语句是计数循环，在循环次数已知时选用该语句。（一）、do……loop循环信息技术复习课学案-2-（二）For…Next语句在循环次数已知的情况下，采用For…Next语句实现循环结构是比较合适的选择。For…Next语句的格式如下：先计算条件表达式的值，当其值为True时，执行循环体中的语句序列，然后再重新计算条件表达式的值，当条件表达式的值为False时，循环终止，执行Loop语句后的语句。先计算条件表达式的值，当其值为False时，执行循环体中的语句序列，然后再重新计算条件表达式的值，直到条件表达式的值为True时，循环终止，执行DoUntil…Loop语句的下一条语句。先执行循环语句，再判断条件表达式的值，当条件条件表达式的值为True时继续执行循环体，当条件表达式的值为Ｆalse结束循环，转而执行LoopWhile后面的语句先执行循环语句，再判断条件表达式的值，当条件条件表达式的值为False时继续执行循环体，直到条件为True结束循环转而执行LoopUntil后面的语句。信息技术复习课学案-3-（三）、循环结构例题对比求1+2+3+……+100的值1、当for语句中省略step时默认值是12、在do……loop循环中要注意变量初值的设置和循环变量的增值问题信息技术复习课学案-4-五、习题训练：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=100Printi的值为:;IEndSubA、顺序结构B、循环结构C、层次结构D、选择结构3.[单选题1分].以下是一段VisualBasic程序，它的基本结构属于（）…DoS=S+Ii=i+1LoopUntilS=100…A、顺序结构B、选择结构C、循环结构D、树型结构4.[单选题1分]执行下列VB程序段后，变量j的值为（）信息技术复习课学案-5-S=0Forj=1to10Step2S=S+jNextjA、1B、10C、11D、125.[单选题1分]有如下VB程序段，对该程序段执行过程描述正确的是（）DoS=S+1LoopUntilS100A、如果S100，则退出循环B、如果S=100，则重复执行S=S+1C、如果S100，则重复执行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=1DoWhilea100a=a+2LoopA、101B、溢出C、99D、10010.补充完善下列程序段①求s=2+4+6+……+100之和。DimiAsIntegerDimsAsIntegers=0Fori=2To100Step2s=_________NextiPrints②输出100以内（包含100）能被3整除的数。DimIAsIntegerI=1Do信息技术复习课学案-6-IfIMod3=0ThenPrintIEndIfI=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^i信息技术复习课学案-7-sum=(2)+kNextText1.Text=sumout(sum)EndSub⑥PrivateSubCommand1_Click()s=1Fori=1To10s=s*(1)Nextfunc=sText1.Text=funcout(func)EndSub⑦PrivateSubCommand1_Click()s=0Fori=1To(1)k=i/(1+(2))s=s+kNextfunc=sText1.Text=funcout(func)EndSub