1、如果能让计算机去反复执行重复的内容,我们只要告诉重复的次数就可以啦,这个愿望能否实现呢?,能FOR-NEXT!,FOR TO STEP NEXT,FOR IA TO B STEP C NEXT I,例:For i=1 to 5Print“*”Next Iend,1、语句格式:,I是否超过B,循环变量I初值A,循环变量I=循环变量I+步长C,执行循环体的各条语句,执行NEXT语句后的下一个语句,是,否,2、执行过程:,例:输入并执行下面的程序FOR(a)I=1 TO 3PRINT a;”+”;a+1;”=“;2*a+1Next I END,执行结果I=1 0+1=1I=2 0+1=1I=3 0+
2、1=1,执行结果A=1 1+2=3A=2 2+3=5A=3 3+4=7,FOR语句与NEXT语句必须成对出现,缺一不可。当循环变量的增量为1时,可省略。在NEXT语句中,循环变量可以省略。如出现,须与FOR一致。终止循环的条件是“循环变量超过终值”,而不是“循环变量等于终值”循环变量的初值A、终值B、步长C都是数值表达式。循环变量初值和终值可以是正值、负值或零。步长可以是正值或负值,它们可以是整数或小数。,FOR IA TO B STEP C NEXT I,3、语句说明:,4、判断下程序循环次数:,FOR D4 TO 6 PRINT“D=”;DNEXT DPrint DEND,题,题,题,题,
3、题,D=4,D=5,D=6 共3次,7,4、判断下程序循环次数:,J=10K=30FOR I1 TO 10 STEP 2 PRINT I;K=K+10 PRINT KNEXT IEND,题,题,题,题,题,4、判断下程序循环次数:,FOR I1 TO 0 PRINT I;NEXT IEND,题,题,题,题,题,4、判断下程序循环次数:,FOR I9 TO 0 STEP-3 PRINT I;NEXT IEND,题,题,题,题,题,I=9,D=6,D=3,I=0 共4次,4、判断下程序循环次数:,FOR I1 TO 5 STEP 0 PRINT I;NEXT IEND,题,题,题,题,题,分别求出
4、1+2+3+4+5的连加与1*2*3*4*5的连乘积,程序调试,S=0:t=1For i=1 to 5S=s+IT=t*INextPrint s,tend,I S T 1 1 3 2 6 6 10 245 15 120,小结,1.循环的一般格式:FOR I=A TO B STEP C NEXT其中A、B、C三个数值可以由我们自行确定。,2.循环的简单化描述:FOR I=1 TO B NEXT其中B为正整数,则一共循环了 B 次。,3.以上的 I 实际是一个计数器,作业,1.计算,2.计算:S=12310,将以下程序整理到作业本,复习fornext循环,编写程序计算1+2+3+100的和。s=0
5、For i=1 to 100 s=s+iNext iPrint s,已知S=1+2+3+n,找出一个最大的整数n,使得S30000。,程序的循环结构(二)do whileLoop语句,VB学习系列 6,Do whileloop循环,Do while 语句组(循环体)Loop,已知S=1+2+3+n,找出一个最大的整数n,使得S30000。,i=0Do while s30000 i=i+1 s=s+iLoop print i-1,Do whileloop循环,Do while 语句组(循环体)Loop,用do whileloop循环编写程序计算1+2+3+100的和。,题1:Dim s,i as
6、 integer s=0 i=1 do While i=100 s=s+i loop print s,A)5050 B)5051 c)死循环 D)无穷大的数,阅读程序,写出运行结果,i始终等于1,s不断自增,题2:Dim a,s as integer n=5 s=0 do While n=1 s=s+n n=n-1 loop print s,尝试改动程序的一处地方,使程序计算1+2+3+4+5的结果。,条件n=1不成立,始终没有进入循环,假设纸的长度足够长,厚度为0.1毫米,对折一次厚度增加1倍,现在对折纸张,直到总厚度超过珠穆朗玛峰的高度为之(珠穆朗玛峰的高度为8848.13米),求对折纸张的次数。,Do whileloop循环,Do while 语句组(循环体)Loop,i=0S=0.1Do while s=8848130 i=i+1 S=s*2LoopPrint i,你估算一下?,采用For语句比Do whileLoop更加简明。一般情况下,能够预先确定循环次数时,应优先采用For语句,否则的话应该使用Do whileLoop语句,Do whileloop循环,
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1