For_next语句.ppt

问题：从1加到100的和是多少？解题思路：s=s+1 100条语句s=s+2 s=s+3 s=s+100VB三种结构的流程图语句1语句2顺序结构条件语句1语句2分支结构YN条件循环体YN循环结构FOR_NEXT循环语句FOR循环算法：For i=1 to 100S=S+iNext i（Step 1）2格式：For 循环变量=初值 To 终值 step 循环变量增量循环体next 循环变量注意：循环变量的初值、终值、循环变量增量 都是数值型。循环增量可正可负。如果没有设置step，则增量为缺省值1。for_next循环的执行过程：循环变量取初值 循环变量与终值相比较，没有超过终值转，否则循环结束，接着执行循环语句的后继语句 执行一次循环体 循环变量增加一个增量 循循环变量量=循循环变量量+循循环变量增量量增量 重复步骤 注意：1、For语句与next语句必须成对出现，而且 它们当中的“循环变量”必须是同一个变量。2、当循环变量增量为正时，循环变量超过终值 指循环变量的值大于终值，当循环变量增量 为负时，指循环变量的值小于终值。问题1：求100以内的偶数和问题2：正序和反序输出字母表问题3：计算10！10！=1*2*3*4*9*10利用循环画图形利用循环画图形基本结构基本结构For i=初值初值1 to 终值终值1 step 增量增量1 print tab（x）；）；For j=初值初值2 to 终值终值2 step 增量增量2 print 语句语句1；Next j PrintNext i1、外循环 i控制输出的行数2、tab函数控制每行第一个输出的位置3、内循环j控制每行输出的个数利用循环画图形利用循环画图形例例:完善程序并保存，是单击窗体时，在窗体上输出如下图案。完善程序并保存，是单击窗体时，在窗体上输出如下图案。*Private Sub Form_Click()Dim i As Integer Dim j As Integer Print For i=-3 To Print Tab(3);For j=1 To 3-Print Next j Print Next iEnd Sub 3 abs(i)+1“*”;穷举算法穷举算法 利用计算机高速的计算能力，我们让计算机对利用计算机高速的计算能力，我们让计算机对所有可能的答案逐个排查，将所有满足条件的答案所有可能的答案逐个排查，将所有满足条件的答案都列举出来。穷举法也可称为枚举法、列举法。都列举出来。穷举法也可称为枚举法、列举法。利用穷举法解决问题通常包括三个步骤：利用穷举法解决问题通常包括三个步骤：1、确定范围、确定范围2、验证条件、验证条件3、优化条件、优化条件适用穷举法解决的问题通常有：水仙花数、鸡兔同适用穷举法解决的问题通常有：水仙花数、鸡兔同笼、百鸡百钱问题等。笼、百鸡百钱问题等。穷举算法穷举算法例：例：将一张将一张100元面值的人民币换成若干元面值的人民币换成若干5元、元、1元、元、5角面值的人民币，但角面值的人民币，但要求要求100元换成的零钱共元换成的零钱共100张，且每种面值不少于张，且每种面值不少于1张，问张，问5元、元、1元、元、5角各多少张，请输出每种可能的组合。角各多少张，请输出每种可能的组合。Private Sub Command1_Click()Dim wuyuan As IntegerDim yiyuan As IntegerDim wujiao As IntegerFor wuyuan=1 To 20 For yiyuan=1 To wujiao=100-wuyuan-If wuyuan*5+yiyuan*1+wujiao*0.5=100 Then Print wuyuan=&wuyuan&yiyuan=&yiyuan&wujiao=&wujiao Next yiyuanNext wuyuanEnd Sub 100 yiyuan end ifFor_next小结：a）VB语言最后一种结构：循环。b)FOR语句几大要素：循环变量的 初、终值及每次变化情况 c)循环变量的增量的确定 d)FOR_NEXT循环次数是运行前可 确定的 课后练习题目答案For循环0 For循环1 For循环2For循环3For循环4图形0 图形1图形2图形3图形4穷举0穷举1穷举2穷举3穷举4