《VB程序设计第五章.pptVIP

Visual Basic 程序设计教程 5.3 循环结构 例【5-9】 输入一个班的学生成绩，统计其中的及格人数，并计算出全班的平均分。学生人数不定，输入负数就截止，设全班人数不超过50人。 解题思路：利用For－Next循环、inputbox输入成绩，若输入成绩小于零，则退出循环，在循环内求出累计总成绩，以及及格人数。 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 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 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 5.3 循环结构 5.3.2 While－Wend循环 While又称当循环，根据某一条件进行判断，决定是否执行循环。 格式： While 条件 [循环体] Wend 开始 计算“条件”值 条件为“真”？ 循环体 结束 Y N 功能：当给定的条件为真时，执行循环体； 说明： ⑴While循环语句首先对“条件”进行测试， 然后决定是否执行循环体； ⑵若“条件”总是成立，则不停地执行循环 体，构成“死循环”。 ⑶当循环可以嵌套，不允许交叉； Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 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 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 5.3 循环结构 5.3.3 DO－Loop循环 格式1： Do [While | Until条件] [循环体] [Exit Do] Loop 格式2： Do [循环体] [Exit Do] Loop [While | Until条件] 功能： 当循环“条件”为真（While条件）或直到指定的循环结束“条件”为真之前(Until条件)重复执行循环体。 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 5.3 循环结构 说明： ⑴Whil