VB程序设计课件第9讲-Do循环讲课教案.ppt

第九讲 Do...Loop循环;主要内容： Do/Loop语句;对只知道循环终止条件，可采用Do/Loop循环;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) Result = Result * i i = i + 1 If i N Then Exit Do TextBox1.Text = i  Loop;几种循环比较 ; 1 111 11111 1111111 111111111;1．Do … Loop的各种格式，while和until的区别 2. 多项式累加，找前后项的关系，设定初值 3. 利用循环和space、trim、mid、str函数打印图形