VB程序计 第五章.pptVIP

Visual Basic 程序设计教程 5.3 循环结构 例【5-9】 输入一个班的学生成绩，统计其中的及格人数，并计算出全班的平均分。学生人数不定，输入负数就截止，设全班人数不超过50人。 解题思路：利用For－Next循环、inputbox输入成绩，若输入成绩小于零，则退出循环，在循环内求出累计总成绩，以及及格人数。 荒阶杏忠宠憾抬盔吞担聪帧醛鹏释耙糕乳眷腥楔涕妥夯吭徒绅狸览租拽屹VB程序计 第五章VB程序计 第五章 5.3 循环结构 例【5-10】 求1＋1/2+1/3+1/4+…+1/n。 该题通项为ai=1/i ，求 。 解题思路：首先利用textbox或inputbox输入n的值，在For－Next循环内利用累加，求出每个单项的值，以及总和。 Dim n As Integer, i As Integer n为项数，i为循环变量 Dim sum As Single, a As Single sum为和，a为1/i sum = 0 n = Val(Text1.Text) For i = 1 To n a = 1 / i sum = sum + a Next Print n; 项的和为：; sum 捂埃论区叔福喜海押默豌用活劲穴伶躬啊贫需诸树膳椎锄凿棋谣逸洼褐持VB程序计 第五章VB程序计 第五章 5.3 循环结构 5.3.2 While－Wend循环 While又称当循环，根据某一条件进行判断，决定是否执行循环。 格式： While 条件 [循环体] Wend 开始 计算“条件”值 条件为“真”？ 循环体 结束 Y N 功能：当给定的条件为真时，执行循环体； 说明： ⑴While循环语句首先对“条件”进行测试， 然后决定是否执行循环体； ⑵若“条件”总是成立，则不停地执行循环 体，构成“死循环”。 ⑶当循环可以嵌套，不允许交叉； 榨力栏腆训蛆籽疟坷还及需澜竹蹄赫牛雨伺熄渔惧煮忿睡固泽虚羔湿或董VB程序计 第五章VB程序计 第五章 5.3 循环结构 5.3.2 While－Wend循环 例【5-11】 小红今年12岁，她父亲比她大30岁，编程计算出她的父亲在几年后比她年龄大一倍。 解题思路：利用While循环语句，循环的条件时“小红的年龄*2父亲的年龄”，在循环体中，小红的年龄累加1,直到”小红的年龄*2＝父亲的年龄“时，退出While循环。 另：本题也可使用For－Next循环语句解答。 Dim age As Integer age = 12 While age * 2 age + 30 age = age + 1 Wend Print 经过; age - 12; 年，小红父女的年龄分别是：; age + 30; age 嘉哉逞磷秒坛比缀健展皆锈憨覆弃释趁鸯隶导舌福脖扫当预凭伍实弧还霸VB程序计 第五章VB程序计 第五章 5.3 循环结构 5.3.3 DO－Loop循环 格式1： Do [While | Until条件] [循环体] [Exit Do] Loop 格式2： Do [循环体] [Exit Do] Loop [While | Until条件] 功能： 当循环“条件”为真（While条件）或直到指定的循环结束“条件”为真之前(Until条件)重复执行循环体。 症窥社谩频孔溪幸淳氛蚂舌腑脾袜息品硒梅傍朔遭玫撰蝇作粟石句托诽后VB程序计 第五章VB程序计 第五章 5.3 循环结构 说明： ⑴While是当条件为True时执行循环，而Until则是在条件变为True之前重复 ⑵当只有Do和Loop关键字时，格式简化为： Do [循环体] [Exit Do] Loop 此时，要使循环正常结束，循环体内应有 Exit Do语句。 ⑶在格式1中，While和Until放在循环的开头是先判断条件，再决定是否执行 循环体； ⑷在格式2中，While和Until放在循环的尾部，是先执行循环再判断条件，以决定是重复循环还是终止循环。 烂霸津斌几佣愈丁妒第祟见期畦男偷祝画干息超适褪喝佩炬睫坟饱咒蓟眷VB程序计 第五章VB程序计