循環(huán)結構習題-文庫吧
2025-07-31 21:43 本頁面
【正文】 Dim sum As Long Dim i As Integer Dim t As Long sum = 0: t = 1 For i = 1 To 10 t = t * i sum = sum + t Next i Print 1!+2!+3!+...+10!=。 sum End Sub 求自然對數 e的近似值 ,要求其誤差小于 ， 近似公式為 : ??????????????? m1i0i i!11i!1 ... !1...3!1!211!11ei該例題涉及兩個問題： （ 1）用循環(huán)結構求級數和的問題。本例 根據某項值 (t)的精度 (要求計算精度為 ） 來控制循環(huán)的結束與否。 （ 2）累加： e=e+t 循環(huán)體外對累加和的變量清零 e=0 連乘： n=n*i 循環(huán)體外對連乘積變量置 1 n=1 級數 t 連乘積 n 累加和 e Private Sub Form_Click() Dim i%, namp。, t!, e! e = 0: n = 1 39。 e存放累加和、 n存放階乘 i = 0: t = 1 39。 i計數器、 t第 i項的值 Do While t e = e + t 39。 累加 i = i + 1 n = n * i 39。連乘 t = / n Loop Print 計算了 。 i。 項的和是 。 e End Sub 窮舉法求水仙花數 ? 水仙花數是一個三位數，它的每位數的立方和剛好等于其本身。如 153就是水仙花數 ? ? 153=1^3+5^3+3^3 思考：找出 1000之內的所有完數。 ? 完數的界定： 一個數恰好等于他的因子之和，這個數就稱為完數。如數字 6，它的因子是 3，剛好有等式： 6=1+2+3 成立，所以 6就是一個完數。 回
環(huán)評公示相關推薦
鄂ICP備17016276號-1