[工学]vb课件7.ppt

第6章 循环结构程序设计 【例】计算1～100奇数的平方和，用顺序结构编程. 6.1 For循环语句 讨论： 循环体（核心，要重复执行的语句序列 ）？s = s + x ^2 循环条件: 规定循环的重复条件或循环次数 6.1 For…Next循环结构(循环次数已知) 1. 格式(For循环语句) For 循环变量=初值 To 终值 [Step 步长] 语句组1 [Exit For] 语句组2 Next [循环变量] 例: 判断以下程序段的执行结果For i = 5 To 1 Step -1 Print i * i; Next i Print Print i ‘退出循环，循环变量？ Private Sub Command1_Click() Dim N%, I As Integer, Sum% N = Val(Text1.Text) Sum = 0 For I = 1 To N Sum = Sum + I Next I Label3.Caption = Sum End Sub 思考: 1. 求12+22+32+42+… +I2 …+1002 程序: Private Sub Command1_Click() Dim N %, I As Integer, F! ’F AS Long N = Val(Text1.Text) F = 1 label3.caption = F End Sub 思考: 1.求1×3 ×5 … ×I × … ×2N-1 (共N项)。 【例6-3】打印斐波那契(Fibonacci)数列的前20项6－2 斐波那契数列如下: 0，1，1，2，3，5，8，13，… 即从第三项起每一项是其前两项之和。 思考: 1. 在窗体上显示1到500之间所有能被3整除的数，每行10个数。 6.2 Do…Loop循环结构(循环次数未知) 问题: 求12+22+32+42+…小于某数N的最大值，N由用户指定。 特点:已知循环条件、未知循环次数，用Do … Loop循环结构实现 1. 格式 【例6-4】求12+22+32+42+…小于某数N的最大值，N由用户指定 2. 功能 使用While 条件: 条件为True时，执行循环体 条件为False时，退出循环 使用Until 条件: 条件为False时，执行循环体 条件为True时，退出循环 格式一、二:在循环起始处判断条件,为当型循环 格式三、四:在循环终止处判断条件, 为直到型循环 【例6-5】求 Private Sub Form_Click() J = 1:Sum = 0 Do Loop Until Term = 0.0001 Form1.FontSize = 12 设窗体的字体 CurrentY = 200 设当前显示的纵向位置 Print 运算结果为:; Sum Print 最后一项的值为:; Term End Sub 【例6-6】已知某乡镇企业现有产值 P和年增长率R ，试问多少年后，该企业的产值 P可以翻一番。翻一番后实际产值 V是多少？ 分析: P—现有产值; R—年增长率 Y—年; V—增长后的产值，初始值为P Private Sub Form_Click() P = Val(Text1.Text) 设现有产值P R = Val(Text2.Text) / 100 R—年增长率 V = P:Y = 0 Text3.Text = Y Y—年 Text4.Text = Format(V, 0.00) End Sub 【例6-7】用辗转相除法求两自然数 m，n 的最大公约数和 最小公倍数。√ 设计界面如下图所示: 通常，goto语句用于以下两种情况： ① 利用goto+ if 构成循环，见前 i＝1 123： print i i= i ＋1 if ( i＜＝100 ) then goto 123