VB.Net课件Do Loop循环.ppt

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  MsgBox Result Dim N %, Result #Dim i % N = Val(InputBox(n=)) Result = 1 For i = 1 To N Result = Result * i Next i MsgBox Result 【例】：求 n! Do/Loop 循环应该在循环开始前设置初值 Do While i = N Result = Result * i  Loop i = i + 1 : i = 1 例：计算1~100内的某数的倍数及个数 Do While Loop n = 1 : Sum = 0 Do While 1 / (2 * n - 1) = 0.0000001 Sum = Sum + (-1)^(n + 1)/(2 * n - 1) n = n + 1 Loop sum = 0 : n = 1 Do While sum 10 sum = sum + 1/n n = n + 1 LOOP m = n - 2 m=3600时， 求和项结果？ 该算法循环次数未知，但循环条件已知 Exit Do语句 几种循环比较 For....to Next Do while/until ... Loop Do .... Loop While/until 循环控制条件 循环变量大于或小于终值 条件成立/不成立执行循环 条件成立/不成立执行循环 循环变量初值 在FOR语句中 在DO之前 在DO之前 使循环结束 For语句中无需专门语句 必须用专门语句 必须用专门语句 使用场合 循环次数容易确定 循环/结束控制条件易给出 循环/结束控制条件易给出