计算机基础第04章VB.ppt

* Else b = 200 End If Text2.Text = b End Sub Private Sub Command2_Click() End End Sub * 4.4.4 循环结构程序设计 VB支持的循环结构有： For...Next循环 Do...Loop循环 特点:重复相同或相似的操作步骤 结构:循环体—要重复执行的语句序列。 循环控制部分—规定循环的重复条件或重复次数，确定循环范围的语句。 * 1 For…Next循环结构 格式: For 循环变量 = 初值 To 终值 [Step 步长] 语句组1 [ Exit For ] 语句组2 Next [循环变量] 循环体 * 功能: * 说明: （1）“循环变量”、“初值”、“终值”和“步长”为数值型。 （2）“步长”可正可负，也可以省略。 步长0时，必须: 初值=终值 循环结束条件:循环变量的值终值 步长0时，必须: 初值= 终值 循环结束条件:循环变量的值终值 （3）Exit For语句用于强制退出循环体。 （4）Next语句中的“循环变量”必须与For语句中的“循环变量”一致，也可以省略。 * 【例4-16】　求1+2+3+…+n的值。 分析：求取一系列有规律的数据之和通常用“累加”的方法来实现。 累加: 引入一个存放“和”值的变量，如Sum。首先设置该变量值为0，然后通过循环重复执行： Sum = Sum + I（和值=和值+累加项） 每循环一次，累加项的值按一定规律变化，如本例中的累加项 I 在循环过程中按1、2、3…n的规律变化，即实现把所有的累加项的值加到总和上。 * Command1 界面设计： Text1 Label3 * 流程图： F 0?Sum ,1?I IN? I+1?I Sum+I?Sum T 输入N 输出Sum * 代码设计： Private Sub Command1_Click() Dim N As Integer, I As Integer, _ Sum As Integer N = Val(Text1.Text) Sum = 0 For I = 1 To N Sum = Sum + I Next I Label3.Caption = Sum End Sub * 练习：输入N值,求 1×2×3×…×N (即N！) 代码： Private Sub Command1_Click() Dim N As Integer, I As Integer, Fact As Long N = Val(Text1.Text) Fact= 1 For I = 1 To N Fact = Fact * I Next I Label3.Caption = Fact End Sub 累乘分析: 初始化: Fact=1 循环体: Fact=Fact × I (I=1,2,3…N) * 2 Do…Loop循环结构 Do While 条件 [语句组1] [Exit Do] [语句组2] Loop 格式一： 条件？ 循环体 T F 当 “条件”成立，执行循环体， “条件”不成立，退出循环。 先判断条件，再执行循环体，因此循环体有可能一次也不执行。 * 【例4-17】使用Do While-Loop语句计算S=1+2+3+……100的值 。 Private Sub Command1_Click( ) Dim S As Integer, I As Integer S = 0 I = 0 Do While I = 100 S = S + I I = I + 1 Loop Print 1+2+3+……+100=, S End Sub * 【例4-18】1990年世界人口约为50亿，按年增长率1％计算，求到哪一年世界人口将突破100亿大关？ 分析：该问题无法直接确定循环次数，故选用Do-Loop循环语句实现。 Private Sub Form_click() Dim year As Integer, rate As Single, p As Single y