vb程序設(shè)計習(xí)題及答案第5章循環(huán)結(jié)構(gòu)程序設(shè)計-展示頁
2025-06-17 11:08本頁面
【正文】 ) Sum = Sum + f * t1 / t2 Wend xx^3/3!+x^5/5!x^7/7!+?? =。 Sum End Sub Private Sub Form_Load() = True 計算 1+X/2!+X^2/4!+?? +X^N/(2N)! End Sub 運行結(jié)果： 若 x輸入值為： ,n輸入值為 :5,則程序運行結(jié)果 如圖 55（ 2）所示。 Sum 圖 54 程序運行結(jié)果 End Sub Private Sub Form_Load() = True 計算 1!+3!+5!+?? +(2N+1)! End Sub 運行結(jié)果 : 若 n輸入的值為 5,則程序運行結(jié)果 如圖 55（ 1） 所示。 For j = 1 To 2 * k 1 *。 For j = 1 To 2 * i 1 *。 Next j Next i End Sub 程序運行結(jié)果如圖 53 所示： 5． 4 試編寫打印下面圖案的源程序。 * * * * * * * * * * * * * * * 【參考答案】 程序代碼設(shè)計 Private Sub Command1_Click() For i = 1 To 5 Tab(5 + i)。 【參考答案】 程序代碼設(shè)計 Private Sub Command1_Click() Sum = 0 For k = 1 To 500 If k Mod 2 = 0 Then Sum = Sum + k Next k 1 到 500 的偶數(shù)和為： 。第 5 章 循環(huán)結(jié)構(gòu)程序設(shè)計 5． 1 試編程序，打印出自然數(shù) 1 到 20 的立方數(shù)。 【參考答案】 程序代碼設(shè)計 Private Sub Form_Click() x, x^2 For x = 1 To 20 x, x ^ 2 Next x End Sub Private Sub Form_Load() = True 打印自然數(shù) 1 到 20 的立方數(shù) 單擊窗體開始 End Sub 程序運行結(jié)果如圖 51 所示： 5． 2 試編程序，打印出 1 到 500 之間所有偶數(shù)的和。 Sum End Sub 圖 51 程序運行結(jié)果 Private Sub Form_Load() = True 打印 1 到 500 之間所有偶數(shù)的和 End Sub 程序運行結(jié)果如圖 52 所示： 5． 3 試編寫打印下面圖案的源程序。 For j = i To 5 *。 * * * * 圖 52 程序運行結(jié)果 圖 53 程序運行結(jié)果 * * * * * * * * * * * * * * * * * * * * * 【參考答案】 程序代碼設(shè)計 Private Sub Command1_Click() For i = 1 To 4 Tab(10 i)。 Next j Next i For k = 3 To 1 Step 1 Tab(10 k)。 Next j Next k
畢業(yè)設(shè)計相關(guān)推薦
鄂ICP備17016276號-1