嵌套循环PPT学习教案

1、会计学1 嵌套循环嵌套循环 第1页/共22页 第2页/共22页 For 循环变量循环变量 = 初值初值 to 终值终值 step 步长步长 循环体循环体 Next 循环变量循环变量 第3页/共22页 第4页/共22页 2、编写程序，实现一行、编写程序，实现一行“*”的打印（如的打印（如 下）：下）： 第5页/共22页 提示：提示：把把每行每行看做一个看做一个“整体整体”， 问题就转化为：问题就变成打印问题就转化为：问题就变成打印4 个个“整体整体”，每打印完一个，需换，每打印完一个，需换 一行。一行。 即：即：For i=1 to 4 打印打印“一行一行*” Print Next i 第6页/

2、共22页 把把打印打印“一行一行*” ，用复习题，用复习题2所编写的代码所编写的代码 代替代替. 第7页/共22页 第8页/共22页 第9页/共22页 * * * * * * 第10页/共22页 2、在、在VB窗体上打印如下的图形（窗体上打印如下的图形（每行字符数不同每行字符数不同）：）： Private sub form_click( ) Dim i as integer Dim j as integer For i=_ to _ For j=_ to _ Print “*”; Next j Print Next i End sub 第11页/共22页 3、在、在VB窗体上打印如下的图形（窗

3、体上打印如下的图形（每行字符每行字符 数不同，每行起始数不同，每行起始*位置不同位置不同）：）： * * * * 这里要用到一个这里要用到一个Tab函数，此函数用来控函数，此函数用来控 制输出字符的位置制输出字符的位置 跟刚才分析方法一样，建立变量间的关系跟刚才分析方法一样，建立变量间的关系 式，如下表：式，如下表： i起始*位置（n）j 141 232 323 414 根据此表，用数学中一次函数思想（根据此表，用数学中一次函数思想（i为自变量，为自变量，j为函数值，为函数值，n为函数值）来为函数值）来 建立建立j和和i关系表达式，关系表达式，n和和i的关系表达式。从而得到的关系表达式。从而得

4、到 j = i , n = 5 i 第12页/共22页 具体代码如下：具体代码如下： Private sub form_click( ) Dim i as integer Dim j as integer For i=_ to _ Print Tab（5 - i） For j=_ to _ Print “*”; Next j Print Next i End sub 第13页/共22页 Private sub form_click( ) Dim i as integer Dim j as integer For i=_ to _ Print Tab （ ） For j=_ to _ Print

5、 “*”; Next j Print Next i End sub 第14页/共22页 * * * * * * * * * * * * * * * * * * * * Private sub form_click( ) Dim i as integer Dim j as integer For i=_ to _ Print Tab （ ） For j=_ to _ Print “*”; Next j Print Next i End sub 2i-1 第15页/共22页 * * * * * * * * * * * * * * Private sub form_click( ) Dim i as

6、 integer Dim j as integer For i=_ to _ Print Tab （ ） For j=_ to _ Print “*”; Next j Print Next i End sub 第16页/共22页 Private sub form_click( ) Dim i as integer Dim j as integer For i=_ to _ Print Tab （ ） For j=_ to _ Print “*”; Next j Print Next i End sub 第17页/共22页 思考提示：思考提示： （1）如果我们以图形的第6行为X轴的话，图形的上 半部分是否是关于下半部分对称。 （2）由于图案上下对称，上下对应的起始位置和字 符个数完全一致，所以控制输出行数的循环变量是否 也可以对称呢？ （3）以哪一行作为对称轴，外循环变量i的取值范围 应为多少？ （4）第i行的起始位置还可以为tab (i+6)吗？要用到什 么函数？