vb程序设计课件第9讲-do循环培训课件.pptVIP

第九讲 Do...Loop循环;主要内容： Do/Loop语句;对只知道循环终止条件，可采用Do/Loop循环;1. 当条件为True时执行循环，用 Do While 当条件为True时退出循环，用 Do Until;Dim N %, Result #Dim i % N = Val(InputBox(n=)) Result = 1 For i = 1 To N Result = Result * i Next i MsgBox Result;例：计算1~100内的某数的倍数及个数;【例】 求π的值。直到最后一项0.0000001;检查顺序： 1. 求出待加的项 2. 累加 3. 将项数基数增加，定位于下一项;sum = 0 : n = 1 Do While sum 10 sum = sum + 1/n n = n + 1 LOOP;【例】 输入两整数，求最大公约数和最小公倍数。 求最大公约数可用辗转相除法（带余除法）： (1) 已知两数, A 除以 B 得余数 r (2) 若 r = 0，则B为最大公约数，结束；否则执行(3) (3) A ? B，B ? r，再求余数并重复执行(2);作用是退出Do/Loop循环，执行Loop后面的语句 往往与If语句合用 如：Do While (1) Re