DO循环例题(带答案).doc

【例14】 编程计算0200之间所有偶数之和。前面我们用For循环编写过类似的程序。(用多种格式改写) 前测型Private Sub Form_Click()Dim X%, S% S = 0 X = 2 Do While X 200 S = S + X X = X + 2 Loop Print SEnd Sub后测型Private Sub Form_Click()Dim X%, S% S = 0 X = 2 Do S = S + X X = X + 2 Loop While X 200 Print SEnd Sub【例15】 求两个整数的最大公约数（辗转相除法）、最小公倍数Private Sub Form_Click()A = Val(InputBox(请输入第一个数)B = Val(InputBox(请输入第二个数)C = A * BR = A Mod BDo While R 0A = BB = RR = A Mod BLoopPrint 最大公约数为 & BPrint 最小公倍数为 & C / BEnd Sub【例16】 编写程序用键盘输入一个大于2的整数，并判断该数是否是素数。(用DOLOOP格式写) Private Sub Form_Click() Dim i As Integer, m As Integer, A As Integer m = Val(InputBox(请输入一个大于2的整数) A = Int(Sqr(m) i = 2 Do While i A Then MsgBox m & 是素数 Else MsgBox m & 不是素数 End IfEnd SubDO循环求和问题：1. 编写程序计算S的值，直到最后一项小于10-4为止（要求将存放结果的变量类型定义成单精度型） S=+ Private Sub Form_Click() Dim s!, i%, t! s = 0 i = 1 Do t = 1 / (i * (i + 1) s = s + t i = i + 2 Loop Until t 0.0001 Print sEnd Sub2. 编写程序计算S的近似值，直到最后一项的绝对值小于10-5次方为止，并用PRINT方法输出计算结果。其中S=1- + - + +(-1)K+1Private Sub Form_Click() Dim s!, i&, t! s = 0 i = 1 Do t = (-1) (i + 1) / i s = s + t i = i + 1 Loop Until Abs(t) 0.00001 Print sEnd Sub3. 利用公式可以求出自然对数的底e的近似值，要求累加到最后一项的值小于0.000001为止。Private Sub Form_Click() Dim e!, i%, t! e = 1: i = 1: t = 1 Do t = t * i e = e + 1 / t i = i + 1 Loop Until 1 / t 0.000001 Print eEnd Sub4. 编写程序计算S的近似值，直到最后一项的绝对值小于10-6为止（要求将存放结果的变量类型定义成单精度型） S=+ 答案1：Private Sub Form_Click() Dim s!, i%, t! s = 0: i = 2: t = 1 Do t = t * (i - 1) * i s = s + 1 / t i = i + 2 Loop Until 1 / t 0.000001 Print sEnd Sub答案2： Private Sub Form_Click() Dim s!, i%, t! s = 0: i = 2 Do t = 1 For x = 1 To i