vb程序設計習題及答案第7章過程-在線瀏覽
2024-08-01 11:08本頁面
【正文】 ction sum(n) s = 0 For i = 1 To n s = s + i Next i sum = s End Function 運行結(jié)果： 如輸入 m 值為： 20， n 值為： 15， p 值為： 10 則程序運行結(jié)果如圖 73 所示： 7． 4 編寫 Function 過程計算 n!,調(diào)用該函 數(shù)過程計算下式的值 : S=1+1/(1+4!)+1/(1+4!+7!)+… +1/(1+4!+… +19!) 【參考答案】 程序代碼設計 Private Sub Form_Click() s = 0 t = 0 For i = 1 To 19 Step 3 圖 72 程序運行結(jié)果 圖 73 程序運行結(jié)果 t = t + fact(i) s = s + 1 / t Next i Print s=。 x x2 x3 xn 75 計算 ex = 1 + ─ + ─ + ─ + … + ─ 1! 2! 3! n! xn 設 x=1， 2， 3， 4， 5， 6 時，分別打印 ex 的值 ,要求精度─ n! 用 Function 過程計算 n!,調(diào)用該過程 ,計算上式的值。 x。 Sum Next x End Sub Private Function fact(n) f = 1 For i = 1 To n f = f * i Next i fact = f End Function 圖 74 程序運行結(jié)果 程序運行結(jié)果如圖 75 所示： 7． 6 編寫兩個 Function 過程 ,分別計算 40， 16， 34， 26， 52 的最大公約數(shù)和最小公倍數(shù)。 c For i = 3 To 5 d = gcd(d, a(i)) Next i Print 最大公約數(shù)為 ： 。 a， b 的值由鍵盤輸入。 t End Sub Private Function f(x) If x 0 Then f = Cos(2 * x) ElseIf x = 3 Then f = Int(6 * x * x 5 * x + 1) Else f = Exp(3 x) End If End Function 運行結(jié)果： 如 a、 b 的值分別輸入為 3 和 5 則程序運行結(jié)果如圖 77 所示。 【參考答案】 說明： 采用隨機函數(shù) Rnd 產(chǎn)生 20 個 1～ 20 之間 的隨機整數(shù)，存放在數(shù)組 a 中。 Next j Print Next i For i = 1 To 5 Call hd(a(), i, m) Print 第 。 行 。 a(i, m)。 m。 j。 最大元素是 :。 位置在第 。 行 Next j End Sub Private Sub hd(x() As Integer, i, m) Max = x(i, 1) m = 1 For j = 2 To 4 If x(i, j) Max Then Max = x(i, j) m = j End If Next j End Sub Private Sub
畢業(yè)設計相關(guān)推薦
鄂ICP備17016276號-1