嵌套循环只是课件.ppt

《嵌套循环只是课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、嵌套循环代码PrivateSubForm_click()Dimi,jAsIntegerDimsAsStringPrintTab(34);"九九乘法表"Fori=1To9Forj=1Tois=j&"×"&i&"="&i*jPrintTab((j-1)*9+1);s;NextjPrintNextiEndSub复习：循环结构也称重复结构，它的作用是使一段程序能重复执行，被重复执行的部分称为循环体。但重复一般都是有条件的，即在满足FOR语句中的条件下才执行循环体，否则退出循环体。“FOR－NEXT”语句的语句格式：For循环变量=

2、初值to终值step步长循环体Next循环变量应用循环结构的具体实例:1、完善程序，使得程序运行时，单击命令按钮后在窗体中显示1到100之间的奇数和：Privatesubcommand1_click()DimSasintegerDimiasintegerS=_____Fori=1to100step________NextiprintsEndsub2、编写程序，实现一行“*”的打印（如下）：*****Privatesubform_click()DimjasintegerForj=___to___Print“*”;（；有什么作

3、用？）NextjEndsub提出问题:若要在VB窗体输出如下的图形，该如何实现？********************提示：把每行看做一个“整体”，问题就转化为：问题就变成打印4个“整体”，每打印完一个，需换一行。即：Fori=1to4打印“一行*”PrintNexti把打印“一行*”，用复习题2所编写的代码代替.Fori=1to4Forj=1to5Print“*”;NextjPrintNexti由此总结二重循环语句格式：for循环变量=初值to终值step步长for循环变量=初值to终值step步长循环体next循环变

4、量next循环变量进一步分析程序代码：Fori=1to4Forj=1to5Print“*”;NextjPrintNexti进一步分析i的变化范围是1到4，即为外循环变量，用来控制打印的行数；j的变化范围是1到5，即为内循环变量，用来控制每行打印的字符数，这样内外循环变量（i，j）就有了实际意义，即i控制行数，j控制每行字符数。二重循环执行过程：外循环每执行一次，内循环执行一遍1、请大家上机练习，用二重循环打印一个6行5列的“*”图形Privatesubform_click()DimiasintegerDimjasinteg

5、erFori=__to__Forj=__to__Print“*”;NextjPrintNextiEndsub显然这里的矩阵图形是一个规则的图形（每行字符数相同），如果是一个三角形（每行字符数不同）如何打印呢？******************************2、在VB窗体上打印如下的图形（每行字符数不同）：***************Privatesubform_click()DimiasintegerDimjasintegerFori=__to__Forj=__to__Print“*”;NextjPr

6、intNextiEndsub3、在VB窗体上打印如下的图形（每行字符数不同，每行起始*位置不同）：**********这里要用到一个Tab函数，此函数用来控制输出字符的位置跟刚才分析方法一样，建立变量间的关系式，如下表：i起始*位置（n）j141232323414根据此表，用数学中一次函数思想（i为自变量，j为函数值，n为函数值）来建立j和i关系表达式，n和i的关系表达式。从而得到j=i,n=5–i具体代码如下：Privatesubform_click()DimiasintegerDimjasintegerFori=_

7、_to__PrintTab（5-i）Forj=__to__Print“*”;NextjPrintNextiEndsub练习:1、在vb窗体打印如下图形：******************************Privatesubform_click()DimiasintegerDimjasintegerFori=__to__PrintTab（）Forj=__to__Print“*”;NextjPrintNextiEndsub2、在vb窗体打印如下图形：****************Privatesubform_cl

8、ick()DimiasintegerDimjasintegerFori=__to__PrintTab（）Forj=__to__Print“*”;NextjPrintNextiEndsub2i-13、打印如下图形：*********Privatesubform_click()DimiasintegerDi