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