3流程控制-閱讀頁
2025-01-24 06:10本頁面
【正文】 各個控件的屬性 見 下 表控件類別 控件 屬性 設(shè)置值窗體 Form1 Text 判斷是否為 3的倍數(shù)Size 421, 248標(biāo)簽Label2Location 97, 89Size 0, 12BackColor ControlLabel3 Text 歡迎使用！Font 黑體 , !Location 28, 12Size 90, 22BackColor Transparent命令按鈕Button1 Text 輸入數(shù) xFont 宋體 , 9ptLocation 38, 182Size 75, 23Button1 Text 驗證Font 宋體 , 9ptLocation 151, 182Size 75, 23Button1 Text 退出（ E）Font 宋體 , 9ptLocation 270, 182Size 75, 23活動實施三、代碼設(shè)計程序全部代碼如下。 Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles x = Val(InputBox(請輸入待判斷的數(shù) (不超過位 )： vbCrLf 輸入后按回車 vbCrLf 或單擊 確定 按鈕 )) End Sub 活動實施Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles Dim sum, a, b, c AsInteger If x 1000 Then MsgBox(請確保輸入值不超過位！ ) Else a = x \ 100 b = x \ 10 Mod 10 c = x Mod 10 EndIf sum = a + b + c = 輸入的數(shù)是： x If sum = 0 Then = 輸入錯誤，請重新輸入！ Else = 輸入數(shù)的各位和是： sum If sum Mod 3 = 0 Then MsgBox(x 是的倍數(shù)！ ) Else MsgBox(x 不是的倍數(shù)！ ) EndIf EndIf EndSubEndClass試一試1．編寫程序，實現(xiàn)以下功能：輸入球半徑后計算球表面積和球體積。提示球表面積 S=4?r2，球體積 V=4/3?r3。要求兩個文本框可以多行顯示并有垂直滾動條，并且轉(zhuǎn)換后的文本框只能顯示文字，不能編輯文本。圖 319程序運行界面 圖 320大小寫轉(zhuǎn)換程序界面提示1．設(shè)計豎排標(biāo)簽 “ 輸入文字 ” ，應(yīng)將標(biāo)簽的 AutoSize屬性值改為 False，然后改變標(biāo)簽的大小，使得一行只能顯示一個漢字。試一試3．編寫程序，計算脂肪、糖和蛋白質(zhì)卡路里的總量。程序界面如圖 321所示?；顒?二 求 三個數(shù)的最大值 活動簡介在鍵盤上輸入三個數(shù)，然后由程序判斷出三個數(shù)中的最大值以及最小值。圖 322 最大值最小值判斷程序界面活動實施一、本程序?qū)崿F(xiàn) 思想設(shè) 輸入三個數(shù)為 a、 b、 c，變量 max的初值為 a，然后將 max的值與 b、 c分別比較。 c的情況做同樣處理。相似的處理可以得到最小值。Font 宋體 , 9ptLocation 12,21Size 0,14BackColor Control活動實施命令按鈕Button1 Text 最大值Font 宋體 , 9ptLocation 12,124Size 60,23Button2 Text 退出Font 宋體 , 9ptLocation Size 57,23Button3 Text 最小值Font 宋體 , 9ptLocation 91,124Size 60,23活動實施三、代碼設(shè)計Public Class Form1 Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles End End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Dim max As Integer max = Val() If max Val() Then max = Val() End If If max Val() Then max = Val() End If = 最大值為： max End Sub活動實施Private Sub Button3_Click(ByVal 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． 編寫程序，對三個數(shù)進行從大到小順序排列。提示 ：先找出最大值和最小值： max和 min；然后假設(shè)中間數(shù)mid=a，判斷 mid是否與 max或 min相等。圖 323 排列程序界面試一試2．編寫一個選課系統(tǒng)登錄時檢驗學(xué)號和密碼的程序，要求如下。（ 2）密碼檢驗：輸入密碼時在文本框中以 “*”代替輸入的字符，單擊 “確認(rèn) ”按鈕檢驗密碼是否正確（密碼由編程者定義）。選擇 “重試 ”按鈕，清除輸入的密碼，并將插入點定位于 “密碼 ”文本框中；選擇 “取消 ”按鈕，停止運行，程序運行界面分別如圖 32圖 325和圖 326所示。② 判斷數(shù)字用 IsNumeric函數(shù)。④ 用 MsgBox函數(shù)顯示密碼錯誤的對話框。利潤 x低于或等于 10萬元時，獎金按 5%提成； x高于 10萬元，低于或等于 20萬元時，低于 10萬元部分按 5%提成，超過 10萬元的部分按 %提成；當(dāng) x高于20萬元，低于或等于 40萬元時，低于 20萬元的部分還是按上述部分提成（下同），高于 20萬元的部分按 10%提成；當(dāng) x高于40萬元，低于或等于 60萬元時，高于 40萬的部分按 %提成；當(dāng) x高于 60萬元，低于或等于 100萬元時，高于 60萬的部分按15%提成；當(dāng) x大于 100萬元時，超過 100萬元的部分按 20%提成。程序界面如圖 327所示。程序?qū)崿F(xiàn)的界面如圖 328和圖 329所示 。本程序使用循環(huán)結(jié)構(gòu)實現(xiàn)。如圖 330和圖 331所示。圖 330素數(shù)檢查程序界面 圖 331素數(shù)檢查程序運行時界面試一試提示① ② 若結(jié)果為零，則置 Flag=True，并跳出內(nèi)循環(huán)循；否則進行下一個數(shù)的檢測?，F(xiàn)在 A君有100元，且 3種雞都要買，請問 A君如何能 100元買 100只雞？程序界面如圖 332所示。② 由于有三個變量，故使用三重循環(huán)，設(shè)母雞、公雞、小雞購買的只數(shù)分別為 x、 y、 z。所謂 “水仙花數(shù) ”是指一個三位數(shù)，其各位數(shù)的立方之和等于該數(shù)本身。=++如圖 333所示。習(xí)題 3程序界面試一試4．猴子吃桃子。第七天小猴一看，只剩下一個桃了。分析 ：這是個遞推問題。本題從最后一天推出前一天有幾個桃，直到第一天有多少個桃。
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1