循环结构程序设计 实验

实验五  循环结构程序设计

一、实验目的  
    (1)掌握For语句的使用。  
    (2)掌握Do While／Until……Loop与Do……loop While／Until两种循环语句的使用。
    (3)加深理解循环的概念，掌握循环的规则及其执行过程。
    (4)掌握多重循环的规则和程序设计方法。
(6) 学会如何控制循环条件，防止死循环或不循环。
二、相关知识
    如果在指定的条件下多次重复执行一组相同的语句可以通过循环来实现，VB提供了下面几种形式的循环语句：
1．Do…Loop循环语句
    Do  While／Until<条件>                     Do
        语句块                                    语句块
    [Exit Do]                           或     [Exit Do]
        语句块                                    语句块
    Loop                                Loop While／Until<条件>
2．FOR循环语句
    For循环变量=初值To终值[Step步长]
          语句块
         [Exit For]
         语句块
Next循环变量
3．循环嵌套应注意的事项
内循环和外循环的变量不能同名；外循环必须完全包含内循环，不能交叉；循环的转移遵循“允许循环内转移，允许转出，禁止转入”的原则。
三、实验举例
(实例1)  求自然数N的阶乘。
    Private Sub Form_Click()
    Dim s As Single，n As Integer，i As Integer
    N = InputBox(“输入自然数N”，  “求N的阶乘”)
    S  =  l
    i  =  1
    Do While i<=n
    S =  S  *  i
    i  = i  +  1
    Loop
  Print  ”n = ”；n,n;”!=”;s
End Sub
分别输入5,15,观察结果.
(实例2)  求e = 1+1／1!+1／2!+1／3!+1／4!+……使精度达到10-5。
    PriVate  Sub  Command1_CliCk()
    Dim  Sum  AS  Double
    Dim  t  AS  Double
    Dim  i  AS  integer
 Sum  =  1
 t  =  1
For i  =  1  TO  100
t  =  t  ／  i
sum  =  sum  + t
if  t  <  0.00001  then
       Exit  For
End  if
Next  i
MsgBox  sum
End  Sub             程序运行结果为：________。
（实验3）求sin(x)=x-x^3/3!+x^5/5!-x^7/7!+………
Private  Sub  Command1_click
    Dim  x  AS  Double
    Dim  sum AS  Double
    Dim  t  AS  double
    Dim  i  AS  integer
Sum=  0
X  =  inputBox(“请输入X的值“)
t  =  X
i =  1
DO
sum  =  sum  +  t
t  =  -t  *  X  *  X/(2*I)/(2*I+1)
I=I+1
Loop  While  Abs(t)>0.000001
Print  sum
End Sub            结果为：___________。