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