【正文】 – True表示選中 – False表示未選中。 ? 復(fù)選框常用事件是 Click（單擊） 控件 ——單選按鈕 ? 單選按鈕的常用屬性： 1. Caption屬性，單選按鈕的標(biāo)題。 1（ VbChecked）：被選定。 – ? 表達(dá)式列表 ? 可以是下面四種形式之一： ? 表達(dá)式 ? 一組用逗號分隔的枚舉表達(dá)式（如 Case 1， 2， 4， 6） ? 表達(dá)式 1 To 表達(dá)式 2（如 Case 1 to 5） ? Is 關(guān)系表達(dá)式（如 Case Is 6） –其中，前一種形式與某個(gè)值比較，后三種形式與設(shè)定的范圍比較。 其流程圖見圖 . 情況語句 Select Case 表達(dá)式列表 1表達(dá)式列表 2表達(dá)式列表 n語句塊 n + 1語句塊 1語句塊 2語句塊 n?TTTFFF??情況語句 Select Case ? 語句說明： – ? 變量或表達(dá)式 ? 可以是數(shù)值型數(shù)據(jù)或字符串表達(dá)式。 a=1: b=3: c=5:d=4 if ab then if cd then x=1 else if ac then if bd then x=2 else x=3 else x=6 else x=7 print x 情況語句 Select Case ? 語句形式： Select Case 變量或表達(dá)式 Case 表達(dá)式列表 1 語句塊 1 Case表達(dá)式列表 2 語句塊 2 …… [Case Else 語句塊 n+1] End Select 情況語句 Select Case ? 語句功能： –根據(jù) Select Case 變量或表達(dá)式中的結(jié)果與各 Case子句中的值比較決定執(zhí)行哪一組語句塊。窗體級變量 Private Sub txtinput_Change() Dim s As String s = Right$(, 1) If s ―* Then 操作步驟二 編寫代碼 If UCase(s) = A And UCase(s) = Z Then n1 = n1 + 1 = n1 ElseIf s = 0 And s = 9 Then n2 = n2 + 1 = n2 Else n3 = n3 + 1 = n3 End If 操作步驟二 編寫代碼 Else = False 39。在窗體左邊的文本框（ txtinput）中輸入字符串，字符串以 ? *? 為結(jié)束標(biāo)志；右邊的三個(gè)文本框 (txtletter、 txtdigital、txtother)中分別顯示字母字符、數(shù)字字符和其他符號字符的個(gè)數(shù)。 操作步驟一 設(shè)計(jì)用戶界面 操作步驟二 編寫代碼 Dim n As Integer 39。 操作步驟一 設(shè)計(jì)用戶界面 操作步驟二 編寫代碼 Private Sub cmdequal_Click() Dim b1 As Boolean, b2 As Boolean, b3 As Boolean If txtoperand1 Then b1 = CBool(txtoperand1) b2 = CBool(txtoperand2) If txtoperator = Not Or txtoperator = not Then b3 = Not b2 = 單目運(yùn)算，當(dāng)操作數(shù)為假時(shí)，結(jié)果為真，反之為假。若為算術(shù)表達(dá)式，其值是非零為真，零為假 一條語句或多條，且為多條時(shí)語句間用冒號分隔，并必須寫在一行上 一條或多條語句。 If語句的一般格式 ——單分支結(jié)構(gòu) ? 單分支結(jié)構(gòu) If語句 ? 語句形式： – If 表達(dá)式 Then 語句 – If表達(dá)式 Then 語句塊 End If ? 語句功能 ： –當(dāng) ? 表達(dá)式 ? 的值為真時(shí)執(zhí)行語句（或語句塊），否則執(zhí)行后繼操作。 Or： 兩操作數(shù)同時(shí)為 False時(shí)，結(jié)果為 False，否則為 True。定義字符型常量 password值為密碼 memo123 key = InputBox(請輸入密碼： , 備忘錄 ) If key = password Then = True 39。設(shè)置圖像框的左邊距為初始邊距（ 5880為此圖像框的 End If End Sub 操作步驟三 ——編寫代碼 Dim key As String 39。 控件 ——圖像框和圖片框 ? LoadPicture函數(shù) ? 功能： 運(yùn)行階段可使用 LoadPicture函數(shù)加載圖形。 ? 圖片框和圖像框的 Picture屬性用于返回 /設(shè)置其中顯示的圖形。 圖像框用來顯示圖形。 控件 ——計(jì)時(shí)器 ? 【 實(shí)例 】 擴(kuò)展 控件 ——計(jì)時(shí)器 ? 例題所用函數(shù)： ? Int(x)函數(shù) – 功能：取不超過 x的整數(shù)。 ? 計(jì)時(shí)器事件 – 計(jì)時(shí)器的主要事件是 Timer。若將 Interval屬性值設(shè)置為 1000ms,則計(jì)時(shí)器每隔 1秒自動(dòng)執(zhí)行一次。 2. Interval屬性 – 設(shè)置計(jì)時(shí)器自動(dòng)執(zhí)行的時(shí)間間隔。 語句、方法及函數(shù) ——日期函數(shù) = Year(Date) = MonthName(Month(Date)) = Day(Date) = WeekdayName(Weekday(Date)) 控件 ? 計(jì)時(shí)器（ Timer） ? 圖像框（ PictureBox）和圖片框（ Image） ? 水平與垂直滾動(dòng)條 控件 ——計(jì)時(shí)器 ? 功能：計(jì)時(shí)器可以在一定的時(shí)間間隔自動(dòng)激發(fā)計(jì)時(shí)器事件（ Timer） ? 計(jì)時(shí)器常用屬性 1. Enabled屬性 – 決定計(jì)時(shí)器是否開始計(jì)時(shí)。 歡迎使用本系統(tǒng) End If If s santa1225 Then MsgBox 密碼輸入錯(cuò)誤，退出 , vbYes + vbCritical + 0, 結(jié)束 End End If End Sub 語句、方法及函數(shù) ? MsgBox方法格式： MsgBox（ 提示信息 [,按鈕形式 [,對話框標(biāo)題 ]]） 語句、方法及函數(shù) ? VB函數(shù)： 內(nèi)部函數(shù)（標(biāo)準(zhǔn)函數(shù)） 用戶自定義函數(shù) ? 日期函數(shù) 附錄 E 語句、方法及函數(shù) ——日期函數(shù) ? Date返回系統(tǒng)日期的函數(shù) ? Day (date) ? WeekDay（ Date）返回當(dāng)前是星期代號（ 1~7），星期日為 1，星期一為 2 …… ? WeekDayName（ N）將星期代號 N（ 1~7）轉(zhuǎn)換為星期名稱。利用 InputBox函數(shù)輸入密碼如圖 24，假設(shè)密碼為 santa1225；如果密碼正確顯示圖 25所示信息，否則顯示圖 26所示的信息?！倪\(yùn)算對象若不是字符型，系統(tǒng)將自動(dòng)轉(zhuǎn)換為字符型，然后連接； 若運(yùn)算對象是變量，運(yùn)算符 ? amp。‖連接兩串字符串 區(qū)別： ? +‖ 要求運(yùn)算對象均為字符型。 5 mod 3=2 True 1 False 0 M/N的余數(shù)： MN*（ M\N） 運(yùn)算符 ^ *、 / \ Mod +、 含義 乘方 負(fù)號 乘、除 整除 求余 加、減 優(yōu)先級 高 —————————————————————〉 低 運(yùn)算符與表達(dá)式 ? 字符運(yùn)算符 –字符： amp。聲明了常量 pi， pi在程序中代 表 。 邏輯型常量（ True或 False）。變量”。H25(十六進(jìn)制數(shù) 25)。25(或 amp。 變量與常量 –系統(tǒng)提供的內(nèi)部常量 【 視圖 】 |【 對象瀏覽器 】 |VB或 VBA對象庫 |―類 ? 列表框中選擇常量組 常量與變量 ? 標(biāo)識符 ? 常量 –普通常量 –符號常量 標(biāo)識符的命名規(guī)則是： 由字母、下劃線和數(shù)字組成， 且第一個(gè)字符必須是英文字母； 其長度不能超過 255個(gè)字符； 不能與關(guān)鍵字和系統(tǒng)已有的方法 及屬性同名。O25，八進(jìn)制數(shù) 25)、 amp。 第 2章 順序結(jié)構(gòu)程序設(shè)計(jì) 本章基礎(chǔ)知識 ? 數(shù)據(jù)類型 ? 常量與變量 ? 運(yùn)算符與表達(dá)式 ? 語句、方法及函數(shù) ? VB常用內(nèi)部函數(shù) 數(shù)據(jù)類型 ? 標(biāo)準(zhǔn)數(shù)據(jù)類型 –整型 （ Integer ） 、長整型（ Long）、單精度實(shí)型 （ Single ）、雙精度實(shí)型 （ Double）、 字符型 （ String） 、 日期型（ Date）、邏輯型（ Boolean ） 、對象型（ Object）和變體型（ Variant） ? 自定義數(shù)據(jù)類型 取值范圍 32768~32767 例： 3276 75% 取值范圍： 2147483648~2147483647 取值范圍：0~65535 日期為 ~，時(shí)間為： 0： 00：00~23： 59： 59 True（真）和 False（假） 變量與常量 ? 常量 –標(biāo)識符及關(guān)鍵字 –普通常量 例： 10， ， amp。 案例一 “ 文本信息復(fù)制 ” 對象 屬性名 屬性值 說明 Form1 Caption 文本復(fù)制 窗體的標(biāo)題 Command1 Caption 復(fù)制文本 /復(fù)制完畢 按鈕的名稱 Command2 Caption 退出 按鈕的名稱 Text1 text 置空 文本框內(nèi)沒文字 Font ―隸書 ? 、 ? 四號 ? 文字的字體設(shè)置 ForeColor ―藍(lán)色 ? 文字的顏色設(shè)置 Label1 Caption 文本信息復(fù)制 標(biāo)簽文字 Font ―楷體 ? 、 ? 粗體 ? 、 ? 小三號 ? 文字的字體設(shè)置 ForeColor ―藍(lán)色 ? 文字的顏色設(shè)置 Alignment 2center 文字居中 Label2 Caption 置空 標(biāo)簽內(nèi)沒文字 Font ―宋體 ? 、 ? 五號 ? 文字的字體設(shè)置 ForeColor ―紅色 ? 文字的顏色設(shè)置 在兩個(gè)按鈕的單擊事件中寫入如下代碼： Private sub mand1_click( ) = ? 將文本框 Text1中的內(nèi)容賦給標(biāo)簽 Label1的標(biāo)題 =―復(fù)制完畢 ? ‘ 給 Command1按鈕標(biāo)題賦相應(yīng)的文字 End sub Private sub mand2_click( ) End ? 退出程序執(zhí)行 End sub 設(shè)計(jì)一個(gè)設(shè)置文字字體和大小的程序 。 設(shè)計(jì) VB應(yīng)用程序的大致步驟如下： (1)新建工程 (2)建立用戶界面的對象； (3)設(shè)置對象的屬性值； (4)編寫程序代碼 ， 建立事件過程； (5)保存應(yīng)用程序 (6)運(yùn)行與調(diào)試應(yīng)用程序 VB應(yīng)用程序設(shè)計(jì)初步 設(shè)計(jì)要求 程序運(yùn)行后， 在如圖 114所示的文本框中輸入一段文字后，單擊 ? 文本復(fù)制 ? 按鈕，則文本框右邊會顯示同樣的文字，但復(fù)制文字的顏色、字體、大小都發(fā)生的變化，同時(shí)按鈕的標(biāo)題文字也發(fā)生的變化，如圖 115所示；單擊 ? 退出 ?按鈕結(jié)束整個(gè)程序。 VB應(yīng)用程序設(shè)計(jì)初步 設(shè)計(jì) VB應(yīng)用程序的步驟 用戶界面 (用戶使用計(jì)算機(jī)的綜合操作環(huán)境 ) 最常用的對象是窗體 (即窗口 )， 各種控件對象必須建立在窗體上 。 （ 3）如果在相應(yīng)的事件過程中已編寫了相應(yīng)的程序代碼，就執(zhí)行該代碼。 （ 2）窗體（或窗體上的控件）接收事件。 在事件發(fā)生 時(shí) ， 事件驅(qū)動(dòng)應(yīng)用程序執(zhí)行相應(yīng)事件的程序代碼 。 （ 2） KeyPress事件 當(dāng)用戶按下并釋放鍵盤上一個(gè)鍵時(shí)，就會觸發(fā)一次該事件，并返回一個(gè) KeyAscii參數(shù)（字符的 Ascii值）到該事件過程中。 常用事件 （ 1） Change事件： 當(dāng)改變文本框的 Text屬性時(shí)會引發(fā)該事件。若沒有選擇文本，指文本的插入