【正文】 選擇結(jié)構(gòu)－ Select Case選擇語句 ? 語法格式： n=inputbox(“ 請輸入 N的值 ” ) Select Case n Case 5 = “ 該數(shù)為 5” Case 1, 2, 3 = “ 該數(shù)為 1， 2， 3中的一個 ” Case 1 to 10 =“ 該數(shù)為 1到 10之間的數(shù) ” Case is 0 = “ 該數(shù)為 小于 0的數(shù) ” Case Else = “ 該數(shù)為大于 15的數(shù) ” End Select Case子句的值有三種形式： 常量： 1， 2， 3 范圍： 1 to 10 條件： is 0 【 例 44】 把例 【 例 43】 用 select case語句編寫。 本程序就是一個多分支選擇問題，可以使用 ElseIf表達(dá)多個條件。 ? Else和位于其上方的最近的 If配對 ? 功能：語句的執(zhí)行過程是，首先判斷 條件表達(dá)式 1。 x2+6 ( x=0 ) y= x26 ( x0 ) 用行 IF語句編寫下列程序 選擇結(jié)構(gòu)－ If條件語句 3. 塊狀 If語句 返回目錄 塊 IF語句的第一種結(jié)構(gòu) If 條件表達(dá)式 Then 語句塊 End If 塊 IF語句的第二種結(jié)構(gòu) If 條件表達(dá)式 Then 語句塊 1 Else 語句塊 2 End If 選擇結(jié)構(gòu)－ If條件語句 3. 塊狀 If語句 的應(yīng)用 返回目錄 例題：從鍵盤輸入 A和 B,從大到小輸出 A,B 【 例 42】 輸入 x， y的值，比較大小。窗口運行界面如圖 41所示 . Button1_Click代碼編寫如下： Dim temp As Integer Temp= = =temp Button2_Click代碼編寫如下： = = Button3_Click代碼編寫如下： () 選擇結(jié)構(gòu) ? 選擇結(jié)構(gòu)：當(dāng)設(shè)定條件成立時執(zhí)行某些語句 ，條件不成立時則跳過這些語句或執(zhí)行其它的語句 。 注意： 由于事件的參數(shù)較長，以后列出程序代碼時，將省略事件的參數(shù)。 要求： 模仿 Word字處理軟件中“替換”的功能。這些基礎(chǔ)知識是每一個程序員都必須熟練掌握的。 例如： REM 響應(yīng)用戶單擊“輸入姓名“按鈕，調(diào)用 inputbox函數(shù)輸入姓名，并把姓名送到文本框中 Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Dim myinput As String myinput = InputBox(請輸入你的姓名： , 輸入界面 ) = myinput End Sub 綜合實訓(xùn) ? 實訓(xùn)目標(biāo)：學(xué)習(xí)輸入和輸出函數(shù)的使用。注釋語句為綠色，注釋語句有兩種形式： 一是單行的注釋語句。 （ 2） Buttons：數(shù)值表達(dá)式，表示指定顯示按鈕的數(shù)目和類型、使用的圖標(biāo)樣式 Buttons參數(shù)的意義 （見書列表） 分類 系統(tǒng)常量 按鈕值 說明 按鈕數(shù)目和類型 okonly 0 只顯示 “確定 ”按鈕 okcancel 1 顯示 “確定 ”和 “取消 ”按鈕 AbortRetryIgnore 2 顯示 “中止 ”、 “重試 ”和“忽略 ”按鈕 YesNoCancel 3 顯示 “是 ”、 “否 ”和 “取消 ”按鈕 YesNo 4 顯示 “是 ”和 “否 ”按鈕 RetryCancel 5 顯示 “重試 ”和 “取消 ”按鈕 Buttons參數(shù)的意義 （見書列表） 分類 系統(tǒng)常量 按鈕值 說明 圖標(biāo)樣式 critical 16 顯示 “關(guān)鍵消息 ”圖標(biāo) question 32 顯示 “警告查詢 ”圖標(biāo) Exclamation 48 顯示 “警告消息 ”圖示 information 64 顯示 “信息消息 ”圖標(biāo) 在書寫 ： ，一行只能寫一條命令。 數(shù)據(jù)的輸出函數(shù)（ MsgBox函數(shù)） 格式： MsgBox ( prompt[, buttons][, title]) 功能： MsgBox用于輸出數(shù)據(jù)，它會在屏幕上顯示一個對話框。 （ 4） Xpos（ x坐標(biāo)位置）、 Ypos（ y坐標(biāo)位置）：可選項。字符串表達(dá)式，制定對話框的標(biāo)題， （ 3） Default（默認(rèn)）：可選項。 例如：“ Date” 類型轉(zhuǎn)換成字符型，顯示在文本框中。 例如： =year(05/09/2022) =month(05/09/2022) 日期操作函數(shù) (6)Hour(time)返回時間的小時字段，類型是Integer。 (2)Today()返回今天不包含時間的日期。 ? 調(diào)用的格式：變量 . ToLower。 Lcase(s) 將字符串 s中的所有字母轉(zhuǎn)換成小寫字母。s1的值是 ABC s2=RTrim(Str1)39。 LTrim(s) 刪除字符串 s開頭的所有空格。返回 11 字符操作函數(shù) 3．子字符串檢索函數(shù) 格式： Instr(［ n，］ Str1， Str2［， c］ ) 功能： 從字符串 Str1的第 n個字符開始查找子字符串 Str2最先出現(xiàn)的位置。 ? 調(diào)用的格式：變量 .Substring (參數(shù)列表 ) 2．字符串長度檢測函數(shù) 格式： Len(Str) 功能： 求字符串 Str中字符的個數(shù)。 a=Int((3020+1)*Rnd()+20) 或 a=Int(11*Rnd()+20） 隨機函數(shù) (int) 1．字符串截取函數(shù) 字符串截取函數(shù)有 3個。 ?Int(x) 刪除 x 的小數(shù)部份而 Int 返回小于或等于 x的數(shù)， 當(dāng) x為負(fù)數(shù)，則 Int 返回小于 x的第一個負(fù)整數(shù)。常用的數(shù)值函數(shù)和功能見表 1和表 2所示。例 a+b是錯誤的。 （ 2）只能使用圓括號，可以多重使用，圓括號必須成對出現(xiàn)。 例如 ， Not (4 5)， 結(jié)果為 True And：兩個表達(dá)式均為 True時，結(jié)果為 True 例如 ， (4 5) And (8 7)， 結(jié)果為 False Or：兩個表達(dá)式均為 False時 ， 結(jié)果為 False 例如 ， (4 5) Or (8 7)， 結(jié)果為 True 返回目錄 運算符與表達(dá)式 －運算符 4. 邏輯運算符 返回目錄 X Y Not Y X And Y X Or Y False False True False False False True False False True True False True False True True True False True True ? 表達(dá)式是由運算符和圓括號將常量、變量和函數(shù)連接起來組成的有意義的式子。 例如： Dim strA,strB as string Dim numA as integer StrA=“happy”+“new year!” ‘結(jié)果為 happy new year! StrA=“happy” amp。如果兩個操作數(shù)為“ String”，就把這兩個操作數(shù)連接成一個字符串，否則按加號處理。例如： ? (8/9/2022 8/9/2022) ‘ 結(jié)果為： true ? 關(guān)系運算符 is：用于判斷兩個 object類型的變量是否引用同一個變量 ? 例： ? dim a as object, b as object ? dim c as boolean ? set a=mand1 ? set b=label1 ? C= a is b ? print c ? 關(guān)系運算符 like：用于判斷左邊的字符串是否與右邊的字符串匹配。=y ‘ 相當(dāng)于 x=xamp。 例如： X+=y 相當(dāng)于賦值語句 x=x+y = 減等號，功能把第一個操作數(shù)減去第二個操作數(shù)傳給第一個操作數(shù) 例如： x=y 相當(dāng)于賦值語句 x=xy *= 乘等號，功能把第一個操作數(shù)乘以第二個操作數(shù)傳給第一個操作數(shù) 例如： x*=y 相當(dāng)于賦值語句 x=x*y /= 浮點除等號 功能把第一個操作數(shù)除以第二個操作數(shù)傳給第一個操作數(shù) 例如： x/=y 相當(dāng)于賦值語句 x=x/y \= 整除等號，功能把第一個操作數(shù)整除第二個操作數(shù)傳給第一個操作數(shù) 例如： x\=y 相當(dāng)于賦值語句 x=x\y ^= 求指等號，功能把第一個操作數(shù)連乘第二個操作數(shù)傳給第一個操作數(shù) 例如： x^=y 相當(dāng)于賦值語句 x=x^y amp。例如： = ‘ Blue是表示藍(lán)色的內(nèi)部常量 2. 符號常量 (自定義常量 ) – 命名：遵循標(biāo)識符命名的規(guī)則 – 聲明格式： Const 常量名 [As 類型 ] = 表達(dá)式 例： Const Pi as integer = ‘ 聲明 Integer型常量 Const b as date= 10/5/2022 39。超出當(dāng)前過程，局部變量和靜態(tài)變量的值無效了。 b intTemp = a: a = b: b = intTemp 39。 (2) 模塊變量： “ 通用 ” 聲明段用 Private或 Dim語句聲明 ， 可被該模塊中的任何過程所訪問 dim a As Integer, b As Integer 39。 局部變量：在一個過程內(nèi)部聲明的變量，有效范圍限于聲明它的過程 只有該過程內(nèi)部的代碼程序才能訪問或改變局部變量的值，其它過程不可以讀取局部變量 【 例 33】 在 Button1和 Button2的 Sub過程中聲明變量 suba和 subb，代碼如下： Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Dim Suba as integer=5， subb as string=“ 你好 ” (Suba): (Subb) End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles Dim Suba as integer=10， subb as string=“ 您好 ” (Suba): (Subb) End Sub ? 模塊變量是指在一個窗體或模塊的內(nèi)部 ,但不在任何過程內(nèi)，模塊變量在聲明它的整個模塊 (或窗體 )中的所有過程中都能使用。 Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Static i As Integer i = i + 1 = CStr(i) End Sub 不斷的單擊 button1按鈕，觀察textbox1中的變化。 要求同學(xué)在設(shè)計程序時，使用顯示聲明 。 單擊“解決方案資源管理器”窗口中“屬性”按鈕，或單擊“屬性”窗口中“屬性頁”按鈕，打開“屬性頁”對話框，如圖 32所示。 ? 格式如下： Dim 變量名 1 as 數(shù)據(jù)類型 =初始值 [，變量名 2 as 數(shù)據(jù)類型 =初始值， ?? ，變量名 n as 數(shù)據(jù)類型 =初始值 ] 例如： Dim a as Integer =10 Dim a as Integer =10， b as char=“ a” ， c as date=10/5/1990 ? (1)隱式聲明 不先聲明就使用變量。=78909876 ! Single a!= Dou