vb第5章循環(huán)結(jié)構(gòu)程序設(shè)計(參考版)
2025-01-15 21:45本頁面
【正文】 上交作業(yè) —使用 Ftp ? 將做完的習(xí)題保存在學(xué)號姓名第 5章文件夾下（例如： 20221111王武第 5章） ? 復(fù)制該文件夾 ? 在地址欄中輸入 ? 在打開的窗口中粘貼 ? 看到文件復(fù)制進度及學(xué)號姓名文件夾出現(xiàn)即可 。 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ù)對。 Chr(13) amp。 vbCrLf = p s = s + i n = n + 1 i = Val(InputBox(輸入數(shù)據(jù) , 提示 )) Loop pj = s / n = 總分為： amp。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。 vbCrLf = p s = s + i i = i + 2 Loop Private Sub Command2_Click() = = End Sub 附加習(xí)題 2學(xué)生多門成績 ? 從鍵盤上輸入學(xué)生的多門成績，顯示成績，（ 1）求出總分。 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 = 輸出 101～ 500之間的奇數(shù)總和： amp。 ForNext Do WhileLoop Private Sub Command1_Click() i = 101 Do While i = 500 p = p amp。 S ← 0 i 從 101到 500 步長 2 輸出 i S ← S+i 輸出 101～ 500奇數(shù)和。 附加習(xí)題 1 ? 第 1版教材習(xí)題 101～ 500之間的所有奇數(shù)，奇數(shù)之和。 1742年 6月，德國數(shù)學(xué)家哥德巴赫（ 16901764）在給彼得堡的大數(shù)學(xué)家歐拉的信中提出一個問題：任何大于 6的偶數(shù)均可以表示為兩個素數(shù)之和嗎？歐拉復(fù)信道： “ 任何大于 6的偶數(shù)均可以表示為兩個素數(shù)之和，這一猜想我還不能證明，但我確信無疑地認為這是完全正確的定理。 ? 如果做原 xt516有困難，可做下題。 正立直角三角形 xt516倒立直角三角形 ? xt516倒立、正立直角三角形。編程序在窗體上輸出的圖形如圖所示。 ? 如果做原 xt516有困難，可做下 2題。 xt516倒立、正立直角三角形 ? xt516倒立、正立直角三角形。 !...!3!2!1 nxxxx ?????? 1e xxt515平行四邊形 ? xt515平行四邊形。 或像右側(cè)簡單界面 xt510 ? xt510設(shè) s=11 22 33 … nn，求 s不大于400000時最大的 n。 xt56乘積表 ? xt56編寫程序，打出如圖 529所示的乘積表 xt58 s=1+（ 1+2） +（ 1+2+3） +…+ （ 1+2+3+…+n ） ? xt58設(shè)計程序，求 s=1+（ 1+2） +（ 1+2+3）+…+ （ 1+2+3+…+n ）的值。 xt55完全數(shù) ? 選作 xt55“完備數(shù) ” 是指一個數(shù)恰好等于它的因子之和，如 6的因子為 3，而6=1+2+3，因而 6就是完數(shù)。 xt54勾股定理 ? xt54勾股定理中 3個數(shù)的關(guān)系是： a2+b2=c2。 ? xt53數(shù)字金字塔 每行相同數(shù)字。編寫程序，打印如圖 526所示的“數(shù)字金字塔”。 Format(y, ) amp。 ? 分析 :設(shè)有 x個男人， y個女人， z個小孩。每個男人花了 3先令，每個女人花了 2先令，每個小孩花了 1先令，一共花去 50先令。 ? 分析：此題的關(guān)鍵是把任意 3位數(shù)的每一位數(shù)分離出來。在組合框中輸入號碼，按 “ 開始 ” 按鈕可以得到中獎的號碼（如圖 5－ 23所示）。 2．簡單組合框 Simple Combo ? 簡單組合框中的列表框總是被顯示出來，比列表框多了一個文本框可供輸入。 ? 編寫窗體的讀入（ Load）事件代碼： Private Sub Form_Load() 電冰箱 洗衣機 彩色電視機 組合音響 影碟機 電水壺 飲水機 微波爐 照相機 End Sub 編寫命令按鈕的 Click事件代碼： 右側(cè) List2增加 List1所選項（部分增） Private Sub Command1_Click() i = 0 Do While i If (i) = True Then (i) i Else i = i + 1 End If Loop End Sub i= 右側(cè) List2增加全部 List1項 (全部增 ) Private Sub Command2_Click() For i = 0 To (i) Next i End Sub 右側(cè) List2增加全部 List1項 (全部增 ) Private Sub Command2_Click() For i = 0 To 1 (i) Next i End Sub 右側(cè) List2刪除本身所選項 （部分刪） Private Sub Command3_Click() i = 0 Do While i If (i) = True Then (i) i Else i = i + 1 End If Loop End Sub 右側(cè) List2刪除本身全部 項（全部刪） Private Sub Command4_Click() For i = 0 To 1 (i) Next i End Sub 組合框 (ComboBox) ? 文本框 +列表框 :兼有 TextBox和 ListBox兩者的功能， ? 有 3種形式的組合框：更改控件的 Style屬性 ? 下拉組合 框： Style屬性為 0－ Dropdown Combo默認值 ? 將文本框和下拉列表框組合在一起，用戶從中列表框選擇一個選項，該選項就會進入文本框。 ? （ 4） (i)表示列表框 List1中第 i+1項的
畢業(yè)設(shè)計相關(guān)推薦
鄂ICP備17016276號-1