vb程序設(shè)計習(xí)題及答案第7章過程-展示頁
2025-06-17 11:08本頁面
【正文】 For i = 3 To 5 a1 = c a2 = a(i) b = gcd(a1, a2) c = c * a(i) / b Next i Print 最小公倍數(shù)為 ： 。 =。 【參考答案】 程序代碼設(shè)計 Private Sub Form_Click() For x = 1 To 6 Sum = 1 t = 1 n = 0 Do n = n + 1 t = t * x term = t / fact(n) Sum = Sum + term Loop Until term Print e^。 s End Sub Private Function fact(n) f = 1 For i = 1 To n f = f * i Next i fact = f End Function 程序運行結(jié)果如圖 74 所示。 End If Next i End Sub Private Function prime(n) prime = 1 圖 71 程序運行結(jié)果 For i = 2 To n 1 If n Mod i = 0 Then prime = 0: Exit For Next i End Function 程序運行結(jié)果如圖 72 所示： 7． 3 編寫程序 ,利用 Function 過程計算下式的值 : (1+2+3+… +m)+(1+2+3+… +n) y = ─────────────── (1+2+3+… +p) 【參考答案】 程序代碼設(shè)計 Private Sub Form_Click() m = Val(InputBox(輸入 m:)) n = Val(InputBox(輸入 n:)) p = Val(InputBox(輸入 p:)) y = (sum(m) + sum(n)) / sum(p) Print sum=。 【參考答案】 程序代碼設(shè)計 Private Sub Form_Click() Print 2。 要求 : (1) 每行輸出 5 個素數(shù)。第 7章 過 程 7． 1 編寫程序 ,利用 Sub 過程計算下式的值 : s=a!+b!+c! a,b,c 的值由鍵盤輸入 【參考答案】 程序代碼設(shè)計 Private Sub Form_Click() Dim s As Integer, n As Integer For i = 1 To 3 n = InputBox(n=) Call fact(n, f) s = s + f Next i Print s=。 s End Sub Private Sub fact(n, f) f = 1 For i = 1 To n f = f * i Next i End Sub 運行結(jié)果 ： 如 a、 b、 c 的值分別輸入為 6 則程序運行結(jié)果如圖 71 所示 ： 7． 2 編寫程序 ,打印 100～ 200 之間的所有素數(shù)。 (2) 利用 Function 過程判斷每個數(shù)是否為素數(shù) ,是返回 1,否則返回 0。 k = 1 For i = 3 To 100 f = prime(i) If f = 1 Then k = k + 1 If k Mod 5 = 0 Then Print i Else Print i。 y End Sub Private Fun
畢業(yè)設(shè)計相關(guān)推薦
鄂ICP備17016276號-1