【正文】 l sender As , ByVal e As ) Handles Dim min As Single min = Val() If min Val() Then min = Val() End If If min Val() Then min = Val() End If = 最小值為： min End SubEnd Class試一試1． 編寫程序，對三個(gè)數(shù)進(jìn)行從大到小順序排列。界面如圖 323所示。提示 ：先找出最大值和最小值： max和 min；然后假設(shè)中間數(shù)mid=a，判斷 mid是否與 max或 min相等。若相等則假設(shè) mid=b，重復(fù)上面步驟 。圖 323 排列程序界面試一試2．編寫一個(gè)選課系統(tǒng)登錄時(shí)檢驗(yàn)學(xué)號和密碼的程序，要求如下。（ 1）學(xué)號合法性檢驗(yàn)：不超過 11位數(shù)字，當(dāng)輸入的學(xué)號為非數(shù)字字符時(shí)，顯示有關(guān)信息，清除所輸入的學(xué)號，并將插入點(diǎn)定位于 “學(xué)號 ”文本框中。（ 2）密碼檢驗(yàn)：輸入密碼時(shí)在文本框中以 “*”代替輸入的字符，單擊 “確認(rèn) ”按鈕檢驗(yàn)密碼是否正確（密碼由編程者定義）。若密碼錯(cuò)，提示用戶是否重新輸入。選擇 “重試 ”按鈕，清除輸入的密碼，并將插入點(diǎn)定位于 “密碼 ”文本框中；選擇 “取消 ”按鈕，停止運(yùn)行，程序運(yùn)行界面分別如圖 32圖 325和圖 326所示。試一試圖 325程序 界面 2圖 326程序 界面 3圖 324程序界面 1提示① 學(xué)號最多 11位，設(shè)置 MaxLength屬性為 11。② 判斷數(shù)字用 IsNumeric函數(shù)。③ 密碼顯示：設(shè)置 PassWordChar屬性為 “ *” 。④ 用 MsgBox函數(shù)顯示密碼錯(cuò)誤的對話框。試一試3．企業(yè)發(fā)放獎(jiǎng)金根據(jù)利潤提成。利潤 x低于或等于 10萬元時(shí)，獎(jiǎng)金按 5%提成； x高于 10萬元，低于或等于 20萬元時(shí)，低于 10萬元部分按 5%提成，超過 10萬元的部分按 %提成；當(dāng) x高于20萬元，低于或等于 40萬元時(shí)，低于 20萬元的部分還是按上述部分提成（下同），高于 20萬元的部分按 10%提成；當(dāng) x高于40萬元，低于或等于 60萬元時(shí)，高于 40萬的部分按 %提成；當(dāng) x高于 60萬元，低于或等于 100萬元時(shí)，高于 60萬的部分按15%提成；當(dāng) x大于 100萬元時(shí)，超過 100萬元的部分按 20%提成。設(shè)計(jì)程序，在界面的文本框內(nèi)輸入利潤 x，由程序給出提成。程序界面如圖 327所示。試一試圖 327 程序界面活動 三 輸出 給定范圍內(nèi)所有被 7整除的整數(shù) 活動簡介在鍵盤上輸入一個(gè)正整數(shù) num，隨后程序給出 1至 num之間所有能被 7同時(shí)整除的整數(shù)。程序?qū)崿F(xiàn)的界面如圖 328和圖 329所示 。圖 328 7整除程序界面圖 329顯示指定范圍內(nèi)符合要求的數(shù)活動實(shí)施一、本程序?qū)崿F(xiàn) 思想將 指定范圍內(nèi)每個(gè)整數(shù)都進(jìn)行條件測試，如果滿足條件則將該整數(shù)加入待顯示字符串內(nèi)；若不滿足則測試下一個(gè)整數(shù)，直到測試完所有范圍內(nèi)的整數(shù)。本程序使用循環(huán)結(jié)構(gòu)實(shí)現(xiàn)?；顒訉?shí)施二、界面 設(shè)計(jì)控件類別 控件 屬性 設(shè)置值窗體 Form1 Text 357倍數(shù)Size 290, 174文本框 Textbox1Location 170, 39Size 75, 21Font 宋體 , 9pt標(biāo)簽Label1 Text 請輸入要檢查的范圍的上限：Font 宋體 , 9ptLocation 3, 42Size 161, 12BackColor Control命令按鈕Button1 Text 開始Font 宋體 , 9ptLocation 28,122Size 75,23Button2 Text 退出Font 宋體 , 9ptLocation 170,122Size 75,23活動實(shí)施三、代碼設(shè)計(jì)Public Class Form1Dim n As Integer Private Sub Button1_Click(ByVal sender As , ByVal e As )_ Handles Dim i As Integer Dim s As String s = 1至 n 之間能被、整除的整數(shù)有： vbCrLf For i = 1 To n If (i Mod 3 = 0) And (i Mod 5 = 0) And (i Mod 7 = 0) Then s = i End If Next MsgBox(s)End Sub活動實(shí)施Private Sub TextBox1_TextChanged(ByVal sender As , ByVal e As )_ Handles n = Val()End SubPrivate Sub Button2_Click(ByVal sender As , ByVal e As ) Handles EndEnd SubEnd Class試一試1．在鍵盤上輸入一個(gè)整數(shù) n，然后用對話框給出 2至 n之間所有的素?cái)?shù)（素?cái)?shù)是指大于 1且只能被 1和本身整除的正整數(shù)，如 7等）。如圖 330和圖 331所示。在字符框內(nèi)輸入正整數(shù)時(shí)，單擊 “開始 ”，顯示選擇范圍內(nèi)的素?cái)?shù)。圖 330素?cái)?shù)檢查程序界面 圖 331素?cái)?shù)檢查程序運(yùn)行時(shí)界面試一試提示① 本題使用窮舉法，對范圍內(nèi)的每個(gè)整數(shù)進(jìn)行測試，符合條件的顯示。② 測試原理：先設(shè)置符號位 Flag=False，然后使用兩個(gè) For循環(huán)，將當(dāng)前值 i與自 i?1至 2之間的所有整數(shù)進(jìn)行 Mod運(yùn)算。若結(jié)果為零，則置 Flag=True，并跳出內(nèi)循環(huán)循；否則進(jìn)行下一個(gè)數(shù)的檢測。試一試2．已知母雞 3元每只，公雞 2元每只，小雞 3只 1元?，F(xiàn)在 A君有100元，且 3種雞都要買，請問 A君如何能 100元買 100只雞？程序界面如圖 332所示。提示① 本題使用窮舉法，對范圍內(nèi)的每個(gè)整數(shù)進(jìn)行測試，符合條件的顯示。② 由于有三個(gè)變量，故使用三重循環(huán)，設(shè)母雞、公雞、小雞購買的只數(shù)分別為 x、 y、 z。圖 332 百元百雞程序界面試一試3．輸出所有的 “水仙花數(shù) ”。所謂 “水仙花數(shù) ”是指一個(gè)三位數(shù)，其各位數(shù)的立方之和等于該數(shù)本身。例如， 153就是一個(gè)水仙花數(shù)，因?yàn)?153=13+53+33。如圖 333所示。圖 333習(xí)題 3程序界面試一試4．猴子吃桃子。小猴摘了一些桃，當(dāng)天吃了一半多一個(gè)，第二天吃了剩下的一半多一個(gè)，以后每天如此。第七天小猴一看，只剩下一個(gè)桃了。問小猴一共摘了多少個(gè)桃？程序如圖 334所示。分析 ：這是個(gè)遞推問題。遞推法（迭代法）就是將一個(gè)復(fù)雜的計(jì)算過程轉(zhuǎn)化為簡單過程的多次重復(fù)，每次重復(fù)都在舊值上推出新值，由新值代替舊值。本題從最后一天推出前一天有幾個(gè)桃，直到第一天有多少個(gè)桃。遞推公式 如下：圖 334程序界面試一試5．編寫程序，輸出如圖 335所示的圖案。圖 335輸出界面小 結(jié) 本項(xiàng)目小結(jié)結(jié)構(gòu)化程序設(shè)計(jì)提供了三種基本的控制結(jié)構(gòu)，即順序結(jié)構(gòu)、分支結(jié)構(gòu)和循環(huán)結(jié)構(gòu)設(shè)計(jì) 界面順序 結(jié)構(gòu)分支 結(jié)構(gòu)循環(huán)結(jié)構(gòu)謝 謝 !演講完畢，謝謝觀看