2.3.3循环结构-for语句

2.3.3

循环结构—for语句第三节程序的基本结构温故而知新

程序编写一般有几种基本结构？

一、顺序结构----顺序执行二、选择结构----if语句多分支case语句三、循环结构？？大家一起玩游戏猜字母我的游戏我做主怎么控制猜字母的范围和次数呢？Fori=1To3Randomizeascii=Int((67-65+1)*Rnd+65)s=Chr(ascii)Ifs=Text1.TextThenMsgBox"恭喜你猜对了",vbExclamationEndElseMsgBox"很遗憾，你还有"&3-i&"次机会"j=MsgBox("进入下一轮游戏，还用这个字母继续猜？",vbYesNo,"友情提示")EndIfPrintsNexti你能举些关于循环的例子吗？一天24小时循环人体血液循环水循环卫星绕地球火箭发射小程序体验代码有重复语句吗，怎么简化呢？PrivateSubCommand1_Click()Label1.FontSize=20Label1.ForeColor=vbRedLabel1.Caption="发射倒计时5秒"Sleep(1000)ClsLabel1.Caption="发射倒计时4秒"Sleep(1000)ClsLabel1.Caption="发射倒计时3秒"Sleep(1000)ClsLabel1.Caption="发射倒计时2秒"Sleep(1000)ClsLabel1.Caption="发射倒计时1秒"Sleep(1000)ClsMsgBox"火箭发射成功！"EndSub自主探究Forn=5To1Step-1Label1.Caption="发射倒计时"&n&"秒"Sleep(1000)ClsNextnn=__to__step-1Label1.Caption="发射倒计时"&n&"秒"Sleep(1000)ClsNextn512024/2/1013认识新知1、格式：For循环变量

=

初值To

终值［Step步长］

［循环体］Next［循环变量］循环变量的增量①赋值②比较③执行④+步长2、说明：(1)For与Next必须成对出现，Next必须位于For语句之后。(2)循环变量必须是数值型，且最好为整型变量。(3)For循环分递增循环和递减循环两种。递增循环：当初值小于等于终值，步长值>0。递减循环：当初值大于等于终值，步长值<0。思考：步长值能否为0？答案：不能！步长值为0是死循环！！(4)当步长值=1时，［Step步长值］部分可以省略

。(5)Next后面的变量可以省略

，For、Next后面的循环变量是同一个。(6)可以在循环体中的任何位置放置任意个ExitFor语句，随时退出循环体。注：本节课先讲解For递增循环的相关内容。2024/2/1014Fori=1To5Step1Printi;NextiFori=5To1Step-2Printi;NextiFori=1To5Step1Printi;Nexti等同于Fori=1To5Printi;NextiFori=1To5Step1Printi;Nexti等同于Fori=1To5Step1

Printi;Next2024/2/1015

For循环变量=初值To终值[Step步长值] <循环体>Next[循环变量]3、For…next循环的执行：1、将初值赋给循环变量2、判断循环变量值是否小于等于终止值若为真（True），则执行循环语句，而后转到3执行

若为假（False），则转到4执行3、将变量的值加上步长值，而后返回2执行4、循环结束，顺序执行Next后面的语句2024/2/1016循环变量赋初值循环变量<=终值循环体循环变量加上一个步长TrueFalse①赋值②比较③执行④+步长4、流程图：2024/2/10171）For循环语句是“先判断后执行”。2）For语句和Next语句必须成对出现，缺一不可。3）每次循环，循环变量的值都会发生变化。当退出循环后，循环变量的值保持退出时的值。4）循环次数计算公式为：循环次数=Int（（终值-初值）/步长）+1注意：第几次循环x与终值比较2024/2/1018

Forx=1To10Step3printx,

Nextx

X为循环变量11<1017104<10427<10310=10413>105停止分析:例1：例题讲解2024/2/1019在窗体上显示10行*（每行10个*）顺序结构PrintString(10,"*")PrintString(10,"*")PrintString(10,"*")PrintString(10,"*")PrintString(10,"*")PrintString(10,"*")PrintString(10,"*")PrintString(10,"*")PrintString(10,"*")PrintString(10,"*")循环结构forn=1to10PrintString(10,"*")nextn'n是循环控制变量Forn=1To10'n的初值1，终值10，每循环1次增加1PrintString(10,"*")'循环体语句Nextn'循环结束小试牛刀-修改程序

例2:求S=1+2+3+…10，把结果显示在窗体上。

2024/2/1020累加器

s=s+i旧值。前n项之和新加的数…s=s+i1+2

3s=s+i1+2+…910s=s+i

1

2

s=0Fori=1To10s=s+iNexti

Print"s=";s'累加器初值为0'累加器，在原有和的基础上每次加一个数程序执行结果是：s＝55分析:s=s+i

0

1第一次循环第二次循环第三次循环第十次循环i=2i=3i=4i=11i=1i<=10i<=10i<=10i<=10i>10退出循环2024/2/10211.完善程序。编程计算1+4+7+10+…+100的值。

DimsAsInteger,iAsIntegers=0Fori=____To____step____

s=s+iNextiPrints13100热身练习，我能行！你能说出s=s+1执行了几次吗？(100-1)/3+1=34例3：计算s=5！(5*4*3*2*1)的值。PrivateSubCommand1_Click()DimsAsInteger,nAsInteger

s=____

Forn=__To__Step__s=_____

NextnLabel2.Caption=sEndSub2024/2/1022小结：累加和初值s=0；累乘积初值s=1。上机操作2024/2/10231、以下是一段VisualBasic程序，它的基本结构属于()…Fori=0to100s=s+iNexti…A、顺序结构B、选择结构C、循环结构D、树型结构挑战自我：

2、在VB程序中有以下程序段，语句Print"VB"的执行次数是()Fori=1To3Step2Print"VB"NextiA、1B、2C、3 D、4BC2024/2/10244、下列程序段中，循环体执行的次数是()，Fori=2To8Step2i=i+iNextiA、2B、3C、4D、55、在上题中，循环结束时，i的值是（）

。A、8 B、10C、14D、12AC3、在VB中，假定有以下程序段:Fori=3To1Print"VB"Nexti则语句Print“VB”的执行次数是:()A、出错B、2C、1D、0D2024/2/1025核心代码快速入门：Circle(x,y),r,vbcolor

1.画圆就要确定圆心和半径，画圆函数里参数x、y即代表圆心所在点的横、纵坐标，r代表半径，vbcolor即画圆线条的颜色哦，可自选，比如vbred是红色，vbblue是绿色，很简单吧2.Circle(Width/2,Height/2),100,vbBlue就是以当前窗体正中心为圆心，以100长为班级画蓝色圆3.请大家打开老师发送的文件夹“画圆”，按要求画10个同心圆！4.把代码改为for语句兴趣小组--画圆2024/2/1026课堂小结：1、本节课主要学习了For…Next循环的基本语法，并使用该循环结构编写简单的程序，解决实际问题。2、探讨了相关的难点问题：循环体执行过程中时，循环变量的值；循环结束时循环变量的值；循环体执行的次