[計(jì)算機(jī)軟件及應(yīng)用]第2章控件的固有屬性和結(jié)構(gòu)設(shè)計(jì)(編輯修改稿)
2024-11-12 23:18 本頁面
【文章內(nèi)容簡(jiǎn)介】 辦理身份證” End if 例 :如果 年齡在 18歲以上 就 應(yīng) 該辦理身份證。 25 二、區(qū)塊式 If…Then…Else 語句 （ 1） 語句序列 1和語句序列 2由一條或多條語句組成。 （ 2） 關(guān)鍵字 If…Then 和關(guān)鍵字 End If必須成對(duì)使用，兩者缺一不可 。 （ 3） 在編程的習(xí)慣上，把夾在關(guān)鍵字If、 Then、 Else之間的語句序列以縮排的方式排列，這樣會(huì)使程序更容易閱讀理解。 If x10 Then x=x1 Print x Else Print x End If If x10 Then x=x1 Print x Else Print x End If If x10 Then x=x1 Print x Else Print x End If 說 明 26 例 ：由鍵盤輸入學(xué)生成績(jī)， 如果 考試分?jǐn)?shù)大于等 于 60分就輸出及格 ,否則 ，輸出不及格 . 定義變量 score,類型為單精度型 分 析： 使用 InputBox()函數(shù)輸入學(xué)生的成績(jī) 3 、條件判斷：分?jǐn)?shù)大于等于 60（ score=60),輸出及格；分?jǐn)?shù)小于60(score60)，輸出不及格 27 程序 1： Private Sub Form_Activate( ) Dim Score As Single Score=InputBox(“請(qǐng)輸入分?jǐn)?shù)：” ) If Score=60 Then Print “及格” Else Print“不及格” End Sub 程序 2： Private Sub Form_Activate( ) Dim Score As Single Score=InputBox(“請(qǐng)輸入分?jǐn)?shù)：” ) If Score=60 Then Print “及格” Else Print “不及格” End If End Sub If Score60 Then Print “不及格” Else Print“及格” If Score60 Then Print “不及格” Else Print“及格” End If 編程 程 序 28 輸入框 ? 我們知道，文本框可以接收用戶的輸入。輸入框也可以接受用戶的輸入，但是其風(fēng)格和用法有別于文本框。 ? VB提供的 InputBox函數(shù)可生成輸入框。 ? 例如： p$=InputBox（ 請(qǐng)輸入密碼 ， 密碼框 ） ? 執(zhí)行該語句后，屏幕上顯示如圖 41所示的輸入框。 29 ? 標(biāo)題 文本區(qū) 提示 圖 36 輸入框 圖 41 輸入框 30 ? 用戶可在文本區(qū)輸入數(shù)據(jù)，然后按“確定”按鈕，函數(shù)返回值是用戶在文本區(qū)輸入數(shù)據(jù)，其類型為字符型。如果用戶然后按“取消”按鈕，則函數(shù)返回值是空字符串。 31 ? 每執(zhí)行一次 InputBox函數(shù)，用戶只能輸入一個(gè)數(shù)據(jù)，另外，輸入框的樣式是固定的，用戶不能改變。用戶能改變的是輸入框的“提示”和“標(biāo)題”的內(nèi)容，“提示”和“標(biāo)題”都是字符串表達(dá)式。 32 ? InputBox函數(shù)的一般格式： ? InputBox（提示 [，標(biāo)題 ][，缺省值 ][， x坐標(biāo)位置 ][， y坐標(biāo)位置 ]） 33 ? 需要注意的是：各項(xiàng)參數(shù)次序必須一一對(duì)應(yīng)，除了 “ 提示 ” 不能省略外，其余各項(xiàng)均可省略，但省略部分也要用逗號(hào)占位符跳過。 34 ?三、 塊 If的嵌套 ? 所謂塊 If語句的嵌套，就是在語句塊 1或語句塊 2中又包含塊 If語句。 35 ? 【 例 】 任意輸入三個(gè)數(shù)，按照從大到小的順序輸出。 ? 算法分析：排序的基本方法，就是比較大小，然后根據(jù)比較的結(jié)果分別加以處理。 ? 本例把三個(gè)數(shù)分別放在 A， B， C中。處理過程為：若 AB為真， 交換 A， B的值；否則不做處理。這樣就保證了 A≥B ；然后再用 C去比較。 ? 具體流程如圖 23所示。按如圖 24所示設(shè)置界面。 36 ? 37 ?
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1