设计循环结构程序.pptVIP

循环结构又称重复结构。 本章主要介绍： 逻辑表达式 For/Next语句 Do/Loop语句 While/Wend语句 循环的嵌套使用。 循环结构是根据条件来决定某段代码是否重复执行。 循环结构中一种常用的流程可以表示如图： 条件满足就执行a块程序段 然后再进行条件判别 如果满足条件，则继续执行a块程序段 直到条件不满足，才执行a块后面的程序。 其中的a程序块段称为循环体。 条件使用逻辑表达式。 循环的另一种形式是把判断条件放在循环体之后。 循环结构中有两个基本问题需要考虑： （1）条件必须明确，能使循环过程正常结束 （2）循环体内，必要时可改变控制循环的条件 改变可能导致循环结束 改变也可能导致循环进入无休止的状态（死循环）。 循环有两种类型： 计数控制 控制累计执行循环体的次数 次数已到则结束循环 如1+2+3+…+100或98+96+94+…+4+2 事态控制 由某些条件决定循环结束。 如计算一系列正整数之和，遇负数停止循环。 也可以在一个循环过程中同时使用这两种类型 【例5-1】 设计一个判断素数的程序。若不是素数，要求分解为a*b的形式 控件：1个文本框和1个命令按钮 事件：命令按钮的Click。 首先要了解什么是素数。 素数是指除了1和自身外，不能被其它整数整除的正整数。 判断A是否为素数的基本方法是： 将A分别除以2、3、……、A-1，若都不能整除，则它为素数。 判断A被i整除可以采用表达式： A Mod i = 0 或：A / i = A \ i 或：A / i = Int(A /i) Option ExplicitPrivate Sub Command1_Click() Dim A As Long, i As Integer A存放要判断的数。i取值为2～A-1 Dim Flag As Boolean Flag作素数标志，False时，表示不是素数 A = Val(Text1.Text) Flag = True 先设A是素数，当A2或能被i整除时，再置为False If A 2 Then Flag = False A2，不是素数 Else i = 2 Do While i = A-1 If A Mod i = 0 Then Flag = False: Exit Do A能被i整除,则不是素数 i = i + 1 Loop End If If Flag Then MsgBox A 是素数, , 信息 Else A表示成两数之积 MsgBox A 不是素数 Chr(13) A = i * A/i, , 信息 End IfEnd Sub 说明： 程序中，也可以不设标志变量，在最后判断i是否超过终值A-1，若超过终值则表示直到循环完成，还没遇到一个能被整除的整数，即它是素数；否则它就不是素数。 当A能被其中一个i整除时，A肯定不是素数，所以没有必要再测试下一个i，因此使用Exit Do退出循环。 在使用Exit Do退出循环的时候，没有改变i的值，故A能被该i整除，即A可以表示成A=i*(A/i)。 事实上只要判断A能否被2、3、……、Sqr(A)整除即可。 逻辑运算使用逻辑运算符 VB提供了多个逻辑运算符，有： 非(Not)、与(And)、或(Or) 异或(Xor)、等价(Eqv)、蕴含(Imp)。 1．基本格式 Not为一元运算符，其它均为二元运算符。格式： Not 表达式 表达式1 逻辑运算符 表达式2 （除Not外） 一个逻辑表达式可用一个或多个逻辑运算符。如：A0 And B0 And C0 2．数据类型 逻辑运算的数据及结果均为布尔类型。 3．运算方式 4．优先级 5．逻辑表达式举例 （1）设变量Name1的值为“王小华”、变量Addr的值为“上海”，则表达式：Name1 = “王小华” Or Addr = 杭州 值：True 表达式： Name1 = “王小华” And Addr = 沪 值： False （2）写出数学表达式0x10 对应的VB表达式。VB表达式应为： x 0 And x 10 （3）描述Name1的值不等于“王小华”的表达式。该表达式可写为：Name1 王小华 或： Not Name1 = 王小华 （