實驗五? 循環結構程序設計

一、實驗目的??
??? (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? ?????? 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??????????? 結果為：___________。