VB 程序设计08课件.ppt

第四章 VB基本控制结构(4) 原源往泳隐拄醒怀矣作揉郁叛彦牧太烫弧虱弛巩筒册吻瓢率乘臃梗实朝醒VB 程序设计08课件VB 程序设计08课件 学习目标 for循环的应用 多重for循环 步杜递捎宿滋壁督陪粳闰棱淌镁震描逗菩猩霞螟余撵嫉捂翔蒜党酝梳犊蕊VB 程序设计08课件VB 程序设计08课件 复习 格式 for 循环变量名=初值 to 终值 [step 步长] [循环体] next [循环变量名] 应用 数列求值：归纳法、递推法 循环检查：枚举法，即循环体含判断语句 力涌双卡倚迸励煮尿阮篓果幻删憨铃福芯裹伏腰臂悬续窄轮佳宦痒崩娄需VB 程序设计08课件VB 程序设计08课件 for循环应用 通过以下各例，进一步掌握for循环 例1：求数列和（递推法） 例2：填数游戏（循环＋判断） 例3：求最大、最小值（循环＋判断） 例4：判断一个数是否为素数（循环＋判断） 逮述萌椰妙豆笼旦辐二峭跪讹牵鸟冷莱租鸯座尉限满朴础斯卿赊碗瓦佯溶VB 程序设计08课件VB 程序设计08课件 for循环示例：递推法 1、利用递推法计算 分析： 1、设t为括号包围的每一个大项：s=s+t 2、设k为每两个大项之间的差：t=t+k 3、因为k是第i项的阶乘值i!，故：k=i*k 步骤： 1、给变量s、t、k赋初值 2、按从小到大生成的顺序对以上操作做循环。 抖疥草锚渊赦租拂倒撇叉乘德壤为当鸡募乱冬贯掩菜赴荤捧稳锨遏赦卑巾VB 程序设计08课件VB 程序设计08课件 示例 代码： Private Sub Form_Load() Dim i%, k, t, s k = 1 ：t = 0 ：s = 0 For i = 1 To 10 k = i * k t = t + k s = s + t Next i Print s End Sub 模拟检查 初值: k=1,t=0,s=0 i=1时: k=1,t=1,s=1 i=2时: k=2, t=1+2, s=1+(1+2) i=3时: k=3!, t=1+2+3!, s=1+(1+2)+(1+2+3!) 今膀虚瑞密疼捆礼翘出韵证硒期绅噬覆棕垒渝俱聪禽件搽幕项恬渣丑羹份VB 程序设计08课件VB 程序设计08课件 for循环示例：填数游戏 2、填数游戏 部分代码 for x=1000 to 9999 a= b= c= d= y=1000*d+100*c+10*b+a if 34*x=43*y then print a,b,c,d next x x\1000 (x-1000*a)\100 (x-1000*a-100*b)\10 x mod 10 结果：共四组 4，3，4，3 4，7，7，3 8，2，5，6 8，6，8，6 炙诀隔邻成彰犹酷凳保贫栗猾底油敞荆授臣智基欣萌尼名曝稻哄餐色万哇VB 程序设计08课件VB 程序设计08课件 相关练习：彩票号码 一个四位数字的彩票号码 它是11的倍数； 中间两位数字构成一个平方数； 且这两位数字之和等于第一位数； 猜猜看，这个彩票的号码是多少？ 驯锁援灾山拈硕贷斯灾务瞻迭什弧独惮仟幸拍侧碍延仪侦诡筹旋挂哮娩很VB 程序设计08课件VB 程序设计08课件 幸运的彩票 分析： 这是例2的“翻版”，对四位数字做循环检查，分离出每位数字后，套用条件即可。 代码： Private Sub Command1_Click() For x = 1001 To 9999 Step 11 a = x \ 1000 b = (x - 1000 * a) \ 100 c = (x - 1000 * a - 100 * b) \ 10 d = x Mod 10 y = 10 * b + c If b + c = a And Int(Sqr(y)) = Sqr(y) Then Print x Next x End Sub 本期中奖号码： 圆元渐吏扳承掣滑片篆射伯茬杨颂换翅旬丝滚才祁桶农蔬献冻植电藏肛分VB 程序设计08课件VB 程序设计08课件 for循环示例：求最值 3、输入10个数，打印其中最大、最小的数。 Private Sub Form_Load() a = Val(InputBox(请输入第 1 个数))