For_next语句.pptVIP

问题：从1加到100的和是多少？ 解题思路： s=s+1 VB三种结构的流程图 FOR_NEXT循环语句 FOR循环算法： For i = 1 to 100 S = S + i Next i 注意： ①循环变量的初值、终值、循环变量增量 都是数值型。 ②循环增量可正可负。如果没有设置step， 则增量为缺省值1。 注意：1、 For语句与next语句必须成对出现，而且 它们当中的“循环变量”必须是同一个变量。 2、当循环变量增量为正时，循环变量超过终值 指循环变量的值大于终值，当循环变量增量 为负时，指循环变量的值小于终值。 For_next小结： a）VB语言最后一种结构：循环。 b) FOR语句几大要素：循环变量的 初、终值及每次变化情况 c)循环变量的增量的确定 d) FOR_NEXT循环次数是运行前可 确定的 课后练习 * 100条语句 s=s+2 s=s+3 …… s=s+100 语句1 语句2 顺序结构 条件 语句1 语句2 分支结构 Y N 条件 循环体 Y N 循环结构 （Step 1） 2．格式：For 循环变量=初值 To 终值 [step 循环变量增量]循环体next 循环变量 for_next循环的执行过程：① 循环变量取初值② 循环变量与终值相比较，没有超过终值转③，否则循环结束，接着执行循环语句的后继语句③ 执行一次循环体④ 循环变量增加一个增量 循环变量=循环变量+循环变量增量⑤ 重复步骤 ②—④ 问题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 Print Next i 1、外循环 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 i End 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 Integer Dim yiyuan As Integer Dim wujiao As Integer For wuyuan = 1 To 20 For yiyuan = 1 To ① wujiao = 100 - wuyuan - ② If wuyuan * 5 + yiyuan * 1 + wujiao * 0.5 = 100 Then