實(shí)驗(yàn)五? 循環(huán)結(jié)構(gòu)程序設(shè)計(jì)

一、實(shí)驗(yàn)?zāi)康??
??? (1)掌握For語句的使用。??
??? (2)掌握Do While／Until……Loop與Do……loop While／Until兩種循環(huán)語句的使用。
??? (3)加深理解循環(huán)的概念，掌握循環(huán)的規(guī)則及其執(zhí)行過程。
??? (4)掌握多重循環(huán)的規(guī)則和程序設(shè)計(jì)方法。
(6)?學(xué)會(huì)如何控制循環(huán)條件，防止死循環(huán)或不循環(huán)。
二、相關(guān)知識(shí)
??? 如果在指定的條件下多次重復(fù)執(zhí)行一組相同的語句可以通過循環(huán)來實(shí)現(xiàn)，VB提供了下面幾種形式的循環(huán)語句：
1．Do…Loop循環(huán)語句
??? Do? While／Until<條件>???????????????????? Do
??????? 語句塊??????????????????????????????????? 語句塊
??? [Exit Do]?????????????????????????? 或???? [Exit Do]
??????? 語句塊??????????????????????????????????? 語句塊
??? Loop??????????????????????????????? Loop While／Until<條件>
2．FOR循環(huán)語句
??? For循環(huán)變量=初值To終值[Step步長(zhǎng)]
????????? 語句塊
???????? [Exit For]
???????? 語句塊
Next循環(huán)變量
3．循環(huán)嵌套應(yīng)注意的事項(xiàng)
內(nèi)循環(huán)和外循環(huán)的變量不能同名；外循環(huán)必須完全包含內(nèi)循環(huán)，不能交叉；循環(huán)的轉(zhuǎn)移遵循“允許循環(huán)內(nèi)轉(zhuǎn)移，允許轉(zhuǎn)出，禁止轉(zhuǎn)入”的原則。
三、實(shí)驗(yàn)舉例
(實(shí)例1)? 求自然數(shù)N的階乘。
??? Private Sub Form_Click()
??? Dim s As Single，n As Integer，i As Integer
??? N = InputBox(“輸入自然數(shù)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,觀察結(jié)果.
(實(shí)例2)? 求e = 1+1／1!+1／2!+1／3!+1／4!+……使精度達(dá)到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???????????? 程序運(yùn)行結(jié)果為：________。
（實(shí)驗(yàn)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(“請(qǐng)輸入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??????????? 結(jié)果為：___________。