第05章 VB程序设计循环结构.pptVIP

. 5.5.1 Do/Loop语句—求最大公约数和最小公倍数 Private Sub Command1_Click() Dim A As Long, B As Long, R As Long A = Val(Text1.Text) B = Val(Text2.Text) R = A Mod B Do While R 0 A = B: B = R R = A Mod B Loop MsgBox 最大公约数= B MsgBox 最小公倍数= Val(Text1.Text)*Val(Text2.Text)/B End Sub 如果s在两个文本框中分别输入351和675，单击命令按钮后，得出最大公约数为27，最小公倍数为8775。 【例5-7】 编程：输入一批非负数，当输入负数时，表示输入结束。求这批非负数据的最大值、最小值和平均值。 由于输入的个数不确定，故应采用Do/Loop语句。 本题关键在于如何设置最大值、最小值的初值。 Private Sub Command1_Click() Dim X As Integer, Min As Integer, Max As Integer Dim N As Integer, Average As Single N作为计数，存放项数 X = Val(InputBox(X=)): Max = X: Min = X 最大最小值初值 N = 0: Average = 0 Do While X = 0 If X Max Then Max = X If X Min Then Min = X N = N + 1 Average = Average + X Average暂存数据和，最后再除N X = Val(InputBox(X=)) 从第2个开始输入 Loop If N 0 Then Average = Average / N Print Max=; Max, Min=; Min, Average=; Round(Average, 3) End Sub 当输入23、41、35、61、12、1、7、-1后， 运行结果：Max=61 Min=1 Average=25.714 5.5.2 Exit Do语句 Exit Do是跳出Do/Loop循环的语句 跳出循环后，将执行Loop语句后面的语句。 Exit Do语句同样也往往与If语句合用 如求阶乘的程序片断为： N = Val(InputBox(n= )) Result = 1: i = 1 Do Result = Result * i i = i + 1 : If i N Then Exit Do  Loop MsgBox N != Result While/Wend语句的作用与Do While 条件/循环体/Loop相同。 格式： While 条件 [循环体] Wend 执行过程： 先计算条件的值，若条件的值为True，执行循环体，否则执行Wend语句后面的语句。 While和Wend必须成对出现 循环体中必须要有设法改变循环条件的语句 While/Wend语句没有对应的跳出语句。 【例5-8】 编程：求π的值。有关π的级数公式为： 要求逐项累加，直到最后一项0.0000001时，求π。 因没有确定项数，故可用Do/Loop或While/Wend 可设一个变量Sign作为各项的符号，在循环中让Sign=-Sign，可以达到一次正、一次负的目的。 为达到较为精确的值，变量大多声明为双精度型 . 大学计算机基础教程 TaiYuan University of Technology 第5章 设计循环结构程序 Visual Basic 程序设计教程 循环结构又称重复结构。 本章主要介绍： 逻辑表达式 For/Next语句 Do/Loop语句 While/Wend语句 循环的嵌套使用。 循环结构是根据条件来决定某段代码是否重复执行。 循环结构中一种常用的流程可以表示如图： 条件满足就执行a块程序段 然后再进行条件判别 如果满足条件，则继续执行a块程序段 直到条件不满足，才执行a块后面的程序。 其中的a程序块段称为循环体。 条件使用逻辑表达式。 循环的另一种形式是把判断条件放在循环体之后。 循环结构中有两个基本问题需要考虑： （1）条件必须明确，能使循环过程正常结束 （2）循环体内，必要时可改变控制循环的条件 改变可能导致循环结束 改变也可能导致循环进入无休止的状态（死循