vb程序設計習題及答案第5章循環(huán)結構程序設計-資料下載頁
2025-01-14 22:15本頁面
【正文】 Next y Next xEnd Sub圖512程序運行結果Private Sub Form_Load() = True 解方程X^3+Y^3Z^3=3 單擊窗體開始End Sub程序運行結果如圖512所示：5．13 36塊磚，36人搬，男搬女搬兩個小兒抬一磚，要求一次全搬完，問男、女、小兒需若干？方程：x+y+z=36 4*x+3+y+z/2=36【參考答案】程序代碼設計Private Sub Form_Click() For x = 1 To 36 For y = 1 To 36 For z = 1 To 36 If x + y + z = 36 And 4 * x + 3 * y + z / 2 = 36 Then x。 y。 z End If Next z Next y Next xEnd SubPrivate Sub Form_Load() = True 男、女、小兒需若干 單擊窗體開始圖513程序運行結果End Sub程序運行結果如圖513所示：5．14 打印出3～100之間的所有素數(shù)（質(zhì)數(shù)）?！緟⒖即鸢浮砍绦虼a設計Private Sub Form_Click() k = 0 For n = 3 To 100 For i = 2 To n 1 If n Mod i = 0 Then Exit For Next i If i n 1 Then k = k + 1: Print Format(n, @@@@@@)。 If k = 5 Then k = 0: Print Next nEnd Sub圖514程序運行結果Private Sub Form_Load() = True 打印出3100之間的所有素數(shù) 單擊窗體開始End Sub程序運行結果如圖514所示：5．15 驗證哥德巴赫猜想：“任何一個大于6的偶數(shù)，均可以表示為兩個素數(shù)之和”，從鍵盤輸入一個大于6的偶數(shù)后，打印出所有的分解結果。【參考答案】程序代碼設計Private Sub Form_Click() n = Val(InputBox(輸入一個大于6的偶數(shù))) If n = 6 Or n Mod 2 0 Then 數(shù)據(jù)錯誤 Else For m1 = 2 To n / 2 m2 = n m1 f = 0 For i = 2 To m1 1 If m1 Mod i = 0 Then f = 1: Exit For Next i For i = 2 To m2 1 If m2 Mod i = 0 Or f = 1 Then f = 1: Exit For Next i If f = 0 Then Print m1。 m2 Next m1 End IfEnd SubPrivate Sub Form_Load() = True 打印兩個素數(shù)之和 單擊窗體開始End Sub運行結果：若輸入值為：100，則程序運行結果如圖515所示：圖515程序運行結果
試題試卷相關推薦
鄂ICP備17016276號-1