相关设计循环的结构程序.ppt

Visual Basic程序设计教程程序设计教程程序设计教程程序设计教程程序设计教程程序设计教程程序设计教程程序设计教程 * Option ExplicitPrivate Sub Command1_Click() 输入10个非负整数，求偶数和。 Dim Sum As Long, i As Integer Dim A As Integer Sum = 0 赋初值,注意位置 For i = 1 To 10 A = Val(InputBox(请输入第 i 个数:, 输入非负整数)) If A Mod 2 = 0 Then Sum = Sum + A Next i MsgBox Sum= SumEnd Sub 一个好的程序，应该为自己用于累加、累乘等的变量赋初值。 Visual Basic程序设计教程程序设计教程程序设计教程程序设计教程程序设计教程程序设计教程程序设计教程程序设计教程 * 【例5-4】 求表达式值。x、n由键盘输入。 这是一个求和的例子。 它由n项构成，能表示成Sum=Sum+Item的形式 第i项等于第i-1项乘以X/(i+1)，即Item=Item*X/(i+1) 故循环体可由Item=Item*X/(i+1)和Sum=Sum+Item构成。 初值问题：Sum初值为0，Item初值应为1。 为防止溢出，Item和Sum声明为双精度型。程序运行结果：当X=6，N分别为1、2、3时，其和分别为3、9、18。 Visual Basic程序设计教程程序设计教程程序设计教程程序设计教程程序设计教程程序设计教程程序设计教程程序设计教程 * Private Sub Command1_Click() Dim Sum As Double, Item As Double, i As Integer Dim N As Integer, X As Double N = Val(InputBox(请输入项数: )) X = Val(InputBox( X= )) Sum = 0: Item = 1 For i = 1 To N Item = Item * X / (i + 1) Sum = Sum + Item Next i MsgBox x/2!+x^2/3!+...= Sum, , 信息 End Sub Visual Basic程序设计教程程序设计教程程序设计教程程序设计教程程序设计教程程序设计教程程序设计教程程序设计教程 * 5.4.2 Exit For语句 循环中，中途退出循环，称为跳出循环。 跳出For/Next循环的语句就是Exit For。 跳出循环后，将执行Next语句后面的语句。 Exit For语句一般往往与If语句合用。如： If A = 2 Then 素数判断 For i = 2 To Int(Sqr(A)) If A Mod i = 0 Then Exit For A能被i整除,不是素数,退出For循环 Next i If i Int(Sqr(A)) Then 表示A不能被2~ Int(Sqr(A))中的数整除 Print A; 是素数 Else 此时表示程序运行是通过Exit For转出来的 Print A; 不是素数 End IfElse Print A; 不是素数End If Visual Basic程序设计教程程序设计教程程序设计教程程序设计教程程序设计教程程序设计教程程序设计教程程序设计教程 * 5.5.1 Do/Loop语句 对只知道循环终止条件，可采用Do/Loop循环 For/Next语句可改写成Do/Loop循环，反之则不然。 Do/Loop语句有五种表示形式，它们的格式为： 5.5 使用Do/Loop循环语句 Visual Basic程序设计教程程序设计教程程序设计教程程序设计教程程序设计教程程序设计教程程序设计教程程序设计教程 * 1．执行过程（1）对格式一和二，VB将先判断条件，再执行循环体。（2）对格式三和四，先执行循环体，再判断条件。循环体至少执行一次。（3）对用While的语句，当条件满足（True）时，执行循环体。（4）对用Until的语句，当条件不满足（False）时，执行循环体。