vb第5章循環(huán)結(jié)構(gòu)程序設(shè)計(jì)-資料下載頁(yè)
2025-01-12 21:45本頁(yè)面
【正文】 ? 選做 xt55 xt51 ? xt51編寫(xiě)程序，計(jì)算 2+4+6+…+100 之和 xt52人口增長(zhǎng)問(wèn)題 ? xt5 2我國(guó)在有人口 13億，設(shè)年增長(zhǎng)率為 1%，編寫(xiě)程序，計(jì)算多少年后增加到 20億 xt53數(shù)字金字塔 ? xt53數(shù)字金字塔。編寫(xiě)程序，打印如圖 526所示的“數(shù)字金字塔”。 xt53數(shù)字金字塔 每行相同數(shù)字 ? 如果做原 xt53有困難，可做下題。 ? xt53數(shù)字金字塔 每行相同數(shù)字。 ? 編寫(xiě)程序，打印如圖所示的“數(shù)字金字塔” （提示 每行數(shù)字與行值都相同） 。 xt54勾股定理 ? xt54勾股定理中 3個(gè)數(shù)的關(guān)系是： a2+b2=c2。編寫(xiě)程序，輸出 20以內(nèi)滿足此關(guān)系的整數(shù)組合（如圖 527所示），例如 5就是一個(gè)整數(shù)組合。 xt55完全數(shù) ? 選作 xt55“完備數(shù) ” 是指一個(gè)數(shù)恰好等于它的因子之和，如 6的因子為 3，而6=1+2+3，因而 6就是完數(shù)。編制程序，找出2～ 1000之間的全部 “ 完備數(shù) ” 。 xt56乘積表 ? xt56編寫(xiě)程序，打出如圖 529所示的乘積表 xt58 s=1+（ 1+2） +（ 1+2+3） +…+ （ 1+2+3+…+n ） ? xt58設(shè)計(jì)程序，求 s=1+（ 1+2） +（ 1+2+3）+…+ （ 1+2+3+…+n ）的值。 xt59 ? xt59設(shè) s=1 2 3 … n，求 s不大于400000時(shí)最大的 n。 或像右側(cè)簡(jiǎn)單界面 xt510 ? xt510設(shè) s=11 22 33 … nn，求 s不大于400000時(shí)最大的 n。 或像右側(cè)簡(jiǎn)單界面 xt513百錢(qián)買(mǎi)百雞 ? xt513 我國(guó)古代數(shù)學(xué)家張丘建在“算經(jīng)”里提出一個(gè)世界數(shù)學(xué)史上有名的百雞問(wèn)題：雞翁一，值錢(qián)五，雞母一，值錢(qián)三，雞雛一，值錢(qián)一，百錢(qián)買(mǎi)百雞，問(wèn)雞翁、母、雛各幾何？ xt514計(jì)算 e ? xt514利用 ex的下述近似公式計(jì)算 e（直到最后一項(xiàng)小于 106為止）。 !...!3!2!1 nxxxx ?????? 1e xxt515平行四邊形 ? xt515平行四邊形。編程序在窗體上輸出的圖形如圖所示。 xt516倒立、正立直角三角形 ? xt516倒立、正立直角三角形。編程序在窗體上輸出的圖形如圖所示。 ? 如果做原 xt516有困難，可做下 2題。 xt516正立直角三角形 ? xt516倒立、正立直角三角形。編程序在窗體上輸出的圖形如圖所示。 ? 如果做原 xt516有困難，可做下題。 正立直角三角形 xt516倒立直角三角形 ? xt516倒立、正立直角三角形。編程序在窗體上輸出的圖形如圖所示。 ? 如果做原 xt516有困難，可做下題。 倒立直角三角形 xt517哥德巴赫猜想 ? 選作 xt517驗(yàn)證 “ 哥德巴赫猜想 ” 。 1742年 6月，德國(guó)數(shù)學(xué)家哥德巴赫（ 16901764）在給彼得堡的大數(shù)學(xué)家歐拉的信中提出一個(gè)問(wèn)題：任何大于 6的偶數(shù)均可以表示為兩個(gè)素?cái)?shù)之和嗎？歐拉復(fù)信道： “ 任何大于 6的偶數(shù)均可以表示為兩個(gè)素?cái)?shù)之和，這一猜想我還不能證明，但我確信無(wú)疑地認(rèn)為這是完全正確的定理。 ” 這就是至今尚未被證明的哥德巴赫猜想。 附加習(xí)題 1 ? 第 1版教材習(xí)題 101～ 500之間的所有奇數(shù)，奇數(shù)之和。 （用多種形式的循環(huán)完成） S ← 0 i 從 101到 500 步長(zhǎng) 2 輸出 i S ← S+i 輸出 101～ 500奇數(shù)和。 S ← 0 i 從 101到 500 步長(zhǎng) 2 輸出 i S ← S+i 輸出 101～ 500奇數(shù)和。 S ← 0 i ← 101 當(dāng) i=500 輸出 i S ← S+i i ←i +2 輸出 101～ 500奇數(shù)和。 ForNext Do WhileLoop Private Sub Command1_Click() i = 101 Do While i = 500 p = p amp。 Str(i) amp。 vbCrLf = p s = s + i i = i + 2 Loop = 輸出 101～ 500之間的奇數(shù)總和： amp。 Str(s) End Sub Private Sub Command1_Click() For i = 101 To 500 Step 2 p = p amp。 Str(i) amp。 vbCrLf = p s = s + i Next i = 輸出 101～ 500之間的奇數(shù)總和： amp。 Str(s) End Sub i = 101 Do While i = 500 p = p amp。 Str(i) amp。 vbCrLf = p s = s + i i = i + 2 Loop Private Sub Command2_Click() = = End Sub 附加習(xí)題 2學(xué)生多門(mén)成績(jī) ? 從鍵盤(pán)上輸入學(xué)生的多門(mén)成績(jī)，顯示成績(jī)，（ 1）求出總分。（ 2）求平均分（提示：循環(huán)次數(shù)未知，循環(huán)條件。Inputbox時(shí)輸入數(shù)據(jù) 1表示不再錄入數(shù)據(jù)） S ← 0 輸入學(xué)生成績(jī) i 當(dāng) i1 輸出成績(jī) i S ← S+i:n=n+1 輸入學(xué)生成績(jī) i 輸出總分，平均分 為什么兩次輸入學(xué)生成績(jī) i，有何不同？ 標(biāo)簽 文本框 z51sum Private Sub Command1_Click() i = Val(InputBox(輸入數(shù)據(jù) , 提示 )) Do While i 1 p = p amp。 Str(i) amp。 vbCrLf = p s = s + i n = n + 1 i = Val(InputBox(輸入數(shù)據(jù) , 提示 )) Loop pj = s / n = 總分為： amp。 Str(s) amp。 Chr(13) amp。 平均分為： amp。 Str(pj) End Sub 以下題目不作要求 xt57對(duì)調(diào)數(shù) ? xt57 xt511 1～ 1000之間的全部“同構(gòu)數(shù)” ? xt511找出 1～ 1000之間的全部“同構(gòu)數(shù)” xt512求出所有小于或等于 100的自然數(shù)對(duì) ? xt512編制程序，求出所有小于或等于 100的自然數(shù)對(duì)。自然數(shù)對(duì)是指兩個(gè)自然數(shù)的和與差都是平方數(shù)，如 8與 17的和 8+17=25與其差 178=9都是平方數(shù)，則 8和 17稱自然數(shù)對(duì)。 上交作業(yè) —使用 Ftp ? 將做完的習(xí)題保存在學(xué)號(hào)姓名第 5章文件夾下（例如： 20221111王武第 5章） ? 復(fù)制該文件夾 ? 在地址欄中輸入 ? 在打開(kāi)的窗口中粘貼 ? 看到文件復(fù)制進(jìn)度及學(xué)號(hào)姓名文件夾出現(xiàn)即可
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號(hào)-1