VB程序设计循环结构.pptxVIP

会计学1VB程序设计循环结构 2循环结构又称重复结构。本章主要介绍：逻辑表达式For/Next语句Do/Loop语句While/Wend语句循环的嵌套使用。第1页/共51页 3循环结构是根据条件来决定某段代码是否重复执行。循环结构中一种常用的流程可以表示如图：条件满足就执行a块程序段然后再进行条件判别如果满足条件，则继续执行a块程序段直到条件不满足，才执行a块后面的程序。5.1 概述第2页/共51页 4其中的a程序块段称为循环体。条件使用逻辑表达式。循环的另一种形式是把判断条件放在循环体之后。第3页/共51页 5循环结构中有两个基本问题需要考虑：（1）条件必须明确，能使循环过程正常结束（2）循环体内，必要时可改变控制循环的条件改变可能导致循环结束改变也可能导致循环进入无休止的状态（死循环）。第4页/共51页 6循环有两种类型：计数控制控制累计执行循环体的次数次数已到则结束循环如1+2+3+…+100或98+96+94+…+4+2事态控制由某些条件决定循环结束。如计算一系列正整数之和，遇负数停止循环。也可以在一个循环过程中同时使用这两种类型第5页/共51页 7【例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) 第6页/共51页 8 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 Sub5.2 判断素数----程序第7页/共51页 9说明：程序中，也可以不设标志变量，在最后判断i是否超过终值A-1，若超过终值则表示直到循环完成，还没遇到一个能被整除的整数，即它是素数；否则它就不是素数。当A能被其中一个i整除时，A肯定不是素数，所以没有必要再测试下一个i，因此使用Exit Do退出循环。在使用Exit Do退出循环的时候，没有改变i的值，故A能被该i整除，即A可以表示成A=i*(A/i)。事实上只要判断A能否被2、3、……、Sqr(A)整除即可。第8页/共51页 10逻辑运算使用逻辑运算符VB提供了多个逻辑运算符，有：非(Not)、与(And)、或(Or)异或(Xor)、等价(Eqv)、蕴含(Imp)。1．基本格式Not为一元运算符，其它均为二元运算符。格式： Not 表达式 表达式1 逻辑运算符 表达式2 （除Not外）一个逻辑表达式可用一个或多个逻辑运算符。如：A0 And B0 And C02．数据类型逻辑运算的数据及结果均为布尔类型。5.3 进行逻辑运算第9页/共51页 113．运算方式4．优先级第10页/共51页 125．逻辑表达式举例（1）设变量Name1的值为“王小华”、变量Addr的值为“上海”，则表达式：Name1 = “王小华” Or Addr = 杭州 值：True 表达式： Name1 = “王小华” And Addr = 沪 值： False （2）写出数学表达式0x10 对应的VB表达式。VB表达式应为：