DoLoop循环.pptVIP

Visual Basic.NET程序设计 华中农业大学理学院计算机系 对只知道循环终止条件，可采用Do/Loop循环 【例】 求π的值。直到最后一项0.0000001 【例】 输入两整数，求最大公约数和最小公倍数。 求最大公约数可用辗转相除法（带余除法）： (1) 已知两数, A 除以 B 得余数 r (2) 若 r = 0，则B为最大公约数，结束；否则执行(3) (3) A ? B，B ? r，再求余数并重复执行(2) 作用是退出Do/Loop循环，执行Loop后面的语句 往往与If语句合用 如：Do While (1) Result = Result * i i = i + 1 If i N Then Exit Do TextBox1.Text = i  Loop 华中农业大学理学院计算机系 1. 当条件为True时执行循环，用 Do While 当条件为True时退出循环，用 Do Until 互为 反条件 Do While S ?? Do Until Not S Do Until S ?? Do While Not S 2. 循环体中应有改变循环条件的语句，避免死循环 说明 Dim N %, Result #Dim i % N = Val(InputBox(n=)) Result = 1