vb程序設(shè)計(jì)習(xí)題及答案第5章循環(huán)結(jié)構(gòu)程序設(shè)計(jì)-閱讀頁
2025-01-29 22:15本頁面
【正文】 b) Then str1 = 不能構(gòu)成三角形 Else str1 = 任意三角形 End If = str1End Sub圖58程序運(yùn)行結(jié)果程序運(yùn)行結(jié)果如圖58所示。5．9 一個(gè)球從10米的高處落下，它每次反彈的高度為前一次下落高度的2/3，編寫程序計(jì)算球第10次落地時(shí)運(yùn)動(dòng)的總路程。 s。對(duì)一個(gè)分?jǐn)?shù)化簡，實(shí)際是要尋找分子N與分母M的最大公因子。 m amp。 nEnd Sub程序運(yùn)行結(jié)果如圖510所示：圖510 程序運(yùn)行結(jié)果5．11 幼兒園的小朋友分吃一堆糖果。到第十天一看，只剩一顆糖果?！緟⒖即鸢浮砍绦虼a設(shè)計(jì)Private Sub Form_Click() num = 1 For k = 9 To 1 Step 1 num = (num + 1) * 2 Next k 糖果數(shù)為。Private Sub Form_Load() = True 計(jì)算糖果數(shù) 單擊窗體開始End Sub程序運(yùn)行結(jié)果如圖511所示：5．12 求解方程X3+Y3Z3=3，其中X、Y、Z均為正整數(shù)，且X、Y、Z均≥1，同時(shí)X、Y、Z均≤6。 y。Private Sub Form_Load() = True 解方程X^3+Y^3Z^3=3 單擊窗體開始End Sub程序運(yùn)行結(jié)果如圖512所示： y。Private Sub Form_Load() = True 男、女、小兒需若干 單擊窗體開始圖513程序運(yùn)行結(jié)果End Sub程序運(yùn)行結(jié)果如圖513所示：【參考答案】程序代碼設(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, )。圖514程序運(yùn)行結(jié)果Private Sub Form_Load() = True 打印出3100之間的所有素?cái)?shù) 單擊窗體開始End Sub程序運(yùn)行結(jié)果如圖514所示：【參考答案】程序代碼設(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。Private Sub Form_Load() = True 打印兩個(gè)素?cái)?shù)之和 單擊窗體開始End Sub運(yùn)行結(jié)果：若輸入值為：100，則程序運(yùn)行結(jié)果如圖515所示：圖515程序運(yùn)行結(jié)果160
試題試卷相關(guān)推薦
鄂ICP備17016276號(hào)-1