vb程序設(shè)計習(xí)題及答案第5章循環(huán)結(jié)構(gòu)程序設(shè)計(已修改)
2025-01-26 22:15 本頁面
【正文】 第5章 循環(huán)結(jié)構(gòu)程序設(shè)計5．1 試編程序，打印出自然數(shù)1到20的立方數(shù)?！緟⒖即鸢浮砍绦虼a設(shè)計Private Sub Form_Click() x, x^2 For x = 1 To 20 x, x ^ 2 Next xEnd SubPrivate Sub Form_Load() = True 打印自然數(shù)1到20的立方數(shù) 單擊窗體開始End Sub圖51 程序運行結(jié)果程序運行結(jié)果如圖51所示：5．2 試編程序，打印出1到500之間所有偶數(shù)的和?！緟⒖即鸢浮砍绦虼a設(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ù)和為：。 SumEnd SubPrivate Sub Form_Load() = True 打印1到500之間所有偶數(shù)的和 圖52 程序運行結(jié)果End Sub程序運行結(jié)果如圖52所示：5．3 試編寫打印下面圖案的源程序。 * * * * * * * * * * * * * * *【參考答案】程序代碼設(shè)計Private Sub Command1_Click() For i = 1 To 5 Tab(5 + i)。 For j = i To 5 *。 Next j Next iEnd Sub程序運行結(jié)果如圖53所示：圖53 程序運行結(jié)果5．4 試編寫打印下面圖案的源程序。 * * * * * * * * * * * * * * * * * * * * * * * * *【參考答案】程序代碼設(shè)計Private Sub Command1_Click() For i = 1 To 4 Tab(10 i)。 For j = 1 To 2 * i 1 *。 Next j Next i For k = 3 To 1 Step 1 Tab(10 k)。 For j = 1 To 2 * k 1 *。 Next j 圖54 程序運行結(jié)果 Next kEnd Sub程序運行結(jié)果如圖54所示：5．5 編寫程序，計算下面表達式的值（1）1!+3!+5!+……+(2N+1)!【參考答案】程序代碼設(shè)計Private Sub Command1_Click() n = Val(InputBox(請輸入N值)) Sum = 1 term = 1 For k = 3 To 2 * n + 1 Step 2 term = term * (k 1) * k Sum = Sum + term Next k 1!+3!+5!+……+(2N+1)!=。 Sum圖55（1）程序運行結(jié)果End SubPrivate Sub F
試題試卷相關(guān)推薦
鄂ICP備17016276號-1