1、學習目標：學習目標：u 掌握掌握VB的編碼規(guī)則的編碼規(guī)則u 了解了解VB的數(shù)據(jù)類型的數(shù)據(jù)類型u 掌握變量、常量的聲明和使用掌握變量、常量的聲明和使用u 掌握運算符和表達式的使用掌握運算符和表達式的使用u 掌握掌握VB數(shù)據(jù)的輸入與輸出數(shù)據(jù)的輸入與輸出u 了解了解VB的內(nèi)部函數(shù)的內(nèi)部函數(shù) 教學內(nèi)容：教學內(nèi)容： 2.1 VB編碼編碼規(guī)則規(guī)則 2.2 VB的數(shù)據(jù)類型的數(shù)據(jù)類型 2.3 變量與常量變量與常量 2.4 運算符與表達式運算符與表達式 2.5 數(shù)據(jù)的輸入輸出數(shù)據(jù)的輸入輸出 2.6 VB的常用內(nèi)部函數(shù)的常用內(nèi)部函數(shù) uVB的的程序程序由由過程過程構(gòu)成，構(gòu)成，過程過程由由語句語句構(gòu)成，構(gòu)成，語句語

2、句由由保留字保留字、標識符標識符、表達式表達式構(gòu)成；構(gòu)成；u最簡單的程序可以只有一個過程最簡單的程序可以只有一個過程u最簡單的過程可以沒有語句最簡單的過程可以沒有語句例例2.1 單擊窗體可輸出內(nèi)容交換后的單擊窗體可輸出內(nèi)容交換后的a變量和變量和b變量的值。變量的值。 Private Sub Form_Click() Dim a As Integer, b As Integer, intTemp As Integer 聲明變量聲明變量 a = 10 變量賦值變量賦值 b = 20 Print a變量和變量和b變量內(nèi)容交換前：變量內(nèi)容交換前：; a; b 變量交換變量交換 intTemp = a

3、a = b b = intTemp Print a變量和變量和b變量內(nèi)容交換后：變量內(nèi)容交換后：; a; b End Sub u語句輸入時不區(qū)分大小寫，一條語句通常寫在語句輸入時不區(qū)分大小寫，一條語句通常寫在一行中。一行中。u一行中若輸入多條一行中若輸入多條語句語句，需用，需用“:”:”分隔。例如，分隔。例如， intTemp = a : a = b : b = intTempu長語句可通過續(xù)行符長語句可通過續(xù)行符“ “ _”(_”(空格后加下劃線空格后加下劃線) )分行。分行。例如，例如， Print a變量和變量和b變量內(nèi)容交換前：變量內(nèi)容交換前：; a; b 可分成以下兩行輸入：可分成以

4、下兩行輸入： Print a變量和變量和b變量內(nèi)容交換前：變量內(nèi)容交換前：; _ a; bu單引號后面的內(nèi)容為注釋，可放在一行語句的最后，或單單引號后面的內(nèi)容為注釋，可放在一行語句的最后，或單 獨占據(jù)一行。獨占據(jù)一行。u數(shù)值前加上前綴數(shù)值前加上前綴&H和和&0分別表示十六進制和八進制數(shù)。分別表示十六進制和八進制數(shù)。標識符標識符：變量、常量、類型、過程、函數(shù)、以及其它對象的：變量、常量、類型、過程、函數(shù)、以及其它對象的名字。名字。 命名規(guī)則命名規(guī)則：由字母、漢字、數(shù)字或下劃線組成，第一個字符必須是由字母、漢字、數(shù)字或下劃線組成，第一個字符必須是字母或漢字。字母或漢字。長度不超過長度不超過255個

5、字符。其中，窗體、控件和模塊的標個字符。其中，窗體、控件和模塊的標識符長度不能超過識符長度不能超過40個字符。個字符。不要與不要與VB中的關(guān)鍵字同名中的關(guān)鍵字同名最好能最好能 “ “見名知義見名知義” 語法格式：語法格式：Let 變量名變量名= =表達式表達式 作用：變量賦值或?qū)傩栽O置。例如：作用：變量賦值或?qū)傩栽O置。例如： Pi = 3.14159strTemp=“Hello!”Label1.Caption = “VB程序設計示例程序設計示例” Form1.BackColor = vbWhite 說明：說明：只有當表達式的類型與變量的數(shù)據(jù)類型兼容時，該表達式的值才只有當表達式的類型與變量的數(shù)

6、據(jù)類型兼容時，該表達式的值才可以賦給相應的變量或?qū)傩浴？梢再x給相應的變量或?qū)傩浴２还鼙磉_式是什么類型，都可以賦給不管表達式是什么類型，都可以賦給Variant( (變體類型變體類型) )變量。變量。 VB提供的基本數(shù)據(jù)類型見提供的基本數(shù)據(jù)類型見。 1. 數(shù)值型數(shù)值型 字節(jié)型字節(jié)型(Byte)：存：存放放無符號無符號，取值范圍，取值范圍整型：整型：Integer()和和Long，存放，存放浮點型浮點型( (實型實型) )：單精度型：單精度型(Single)和雙精度型和雙精度型(Double) 存放帶小數(shù)的數(shù)值存放帶小數(shù)的數(shù)值 例：例： 單精度數(shù)單精度數(shù) -6.25E8表示表示 -6.25108

7、雙精度數(shù)雙精度數(shù) 7.878D-6表示表示 7.878106 貨幣型貨幣型(Currency)：一種精確的定點類型數(shù)據(jù)：一種精確的定點類型數(shù)據(jù) 支持支持15位整數(shù)和位整數(shù)和4位小數(shù)位小數(shù) 2. 字符串型字符串型( (String) VB字符串是由字符串是由括起來的一串字符括起來的一串字符不含任何字符不含任何字符( (長度為長度為0)的字符串稱為空串的字符串稱為空串String型變量型變量有變長和定長之分，例：有變長和定長之分，例： Dim NameA As String 聲明變長字符串變量聲明變長字符串變量 Dim NameB As String * 20 聲明定長字符串變量聲明定長字符串變量

8、 3. 邏輯型邏輯型(Boolean)邏輯型邏輯型數(shù)據(jù)的取值：數(shù)據(jù)的取值：或或 ，例：，例： Dim BoolR As Boolean BoolR = 68 Print BoolR 輸出輸出：False 4. 日期型日期型( (Date)日期型變量可存放日期型變量可存放日期型常數(shù)的書寫形式：日期型常數(shù)的書寫形式： #mm/dd/yyyy hh:mm:ss# #字號字號 mm/dd/yyyy hh:mm:ss 雙引號雙引號日期型數(shù)據(jù)的輸出格式取決于系統(tǒng)的區(qū)域設置日期型數(shù)據(jù)的輸出格式取決于系統(tǒng)的區(qū)域設置 例例： Dim d As Date 聲明日期型變量聲明日期型變量D D = # 10/5/20

9、02 # 日期型變量賦值日期型變量賦值 Print D 輸出日期型變量的值輸出日期型變量的值5. 對象型對象型(Object) 聲明聲明對象對象變量后，用變量后，用Set語句指定實際引用的對象語句指定實際引用的對象 例，窗體上有命令按鈕例，窗體上有命令按鈕Command1，執(zhí)行如下語句，執(zhí)行如下語句， 可將該按鈕的顯示文字改為可將該按鈕的顯示文字改為OK Dim a As Object 聲明聲明a為對象型變量為對象型變量 Set a = Command1 指定指定a引用引用Command1命令按鈕命令按鈕 a.Caption = “OK” 與與Command1.Caption等價等價6. 變體

10、型變體型(Variant) 變體變體：在程序運行期間可存放不同類型的數(shù)據(jù)。：在程序運行期間可存放不同類型的數(shù)據(jù)。例：例： Dim X X缺省為缺省為 Variant類型類型 X = 17 X被賦予字符串被賦予字符串 17 X = X 2 X被賦予數(shù)值被賦予數(shù)值15 X = A & X X被賦予字符串被賦予字符串 A15 u在模塊的在模塊的“通用通用”聲明段聲明聲明段聲明 Private | Public Type 數(shù)據(jù)類型名數(shù)據(jù)類型名 元素名元素名1 As 類型名類型名 元素名元素名2 As 類型名類型名 End Type Public：聲明的類型在工程中所有模塊的任何過程中可用：聲明的類型在

11、工程中所有模塊的任何過程中可用Private：聲明的類型只能在當前模塊中使用：聲明的類型只能在當前模塊中使用 u聲明自定義數(shù)據(jù)類型后，可使用該類型。例聲明自定義數(shù)據(jù)類型后，可使用該類型。例 Dim studTemp As student 聲明為聲明為student類型變量類型變量u訪問自定義數(shù)據(jù)類型的變量：訪問自定義數(shù)據(jù)類型的變量：變量名變量名. .成員名成員名，如：，如： studTemp.id=“030005” studTemp.xm=“李斌李斌” 1. 變量的聲明變量的聲明通過類型符號：直接在變量名后面加上類型符號通過類型符號：直接在變量名后面加上類型符號 S& = 10 聲明聲明S為長

12、整型變量為長整型變量 使用聲明語句使用聲明語句 Dim 變量名變量名 As 類型類型 Dim 變量名變量名 類型符類型符 例如，下面兩條聲明語句的效果相同：例如，下面兩條聲明語句的效果相同： Dim a As Integer , b As Long , c As Single , d As Double Dim a% , b& , c！,d# 若省略類型說明，被聲明的變量為若省略類型說明，被聲明的變量為Variant型。例如：型。例如： Dim a,b a和和b均為變體型變量均為變體型變量 Dim S1,S2 As String*6 S1為變體型變量為變體型變量,S2為定長字符串為定長字符串

13、見表見表2.22. 變量的隱式及顯式聲明變量的隱式及顯式聲明不聲明就用的變量被隱式聲明為不聲明就用的變量被隱式聲明為Variant，初值，初值Empty 強制進行變量的顯式聲明強制進行變量的顯式聲明v“通用通用”聲明段中加上語句：聲明段中加上語句： Option Explicit v“工具工具選項選項”“編輯器編輯器” ” 對新模塊起作用對新模塊起作用遇到未經(jīng)聲明的變遇到未經(jīng)聲明的變量包括輸錯的變量，量包括輸錯的變量，系統(tǒng)會發(fā)出錯誤警系統(tǒng)會發(fā)出錯誤警告告 3. 變量的有效范圍變量的有效范圍 (1) 局部變量：在一個局部變量：在一個過程內(nèi)部聲明過程內(nèi)部聲明的變量的變量 有效范圍限于聲明它的過程有

14、效范圍限于聲明它的過程 自動變量：自動變量：用用Dim聲明，聲明，變量值只在過程執(zhí)行期間才存在變量值只在過程執(zhí)行期間才存在 靜態(tài)變量：用靜態(tài)變量：用Static聲明，聲明，變量值在程序運行期間一直存在變量值在程序運行期間一直存在 例例2.2 統(tǒng)計單擊窗體的次數(shù)統(tǒng)計單擊窗體的次數(shù) Private Sub Form_Click() Static intCount As Integer intCount = intCount+1 Print intCount End Sub 單擊窗體單擊窗體3 次次 將將Static改為改為Dim (2) 模塊變量：模塊變量：“通用通用”聲明段用聲明段用Privat

15、e或或Dim語句聲明語句聲明 可被該模塊中的任何過程所訪問可被該模塊中的任何過程所訪問 例例2.3 Private a As Integer, b As Integer 聲明模塊變量聲明模塊變量 Private Sub Command1_Click() Dim intTemp As Integer 聲明局部變量聲明局部變量 a = 10 : b = 20 Print a和和b內(nèi)容交換前：內(nèi)容交換前：; a; b intTemp = a: a = b: b = intTemp 變量交換變量交換 End Sub Private Sub Command2_Click() Print : Print

16、a和和b內(nèi)容交換后：內(nèi)容交換后：; a; b End Sub (3) 全局變量：全局變量：標準模塊的聲明段用標準模塊的聲明段用Public或或Global聲明聲明 有效范圍是整個工程的所有模塊有效范圍是整個工程的所有模塊 說明：說明：標準模塊：只含有程序代碼的文件，擴展名為標準模塊：只含有程序代碼的文件，擴展名為.bas添加標準模塊：添加標準模塊：“工程工程添加模塊添加模塊”如果在窗體模塊的如果在窗體模塊的“通用通用”聲明段用聲明段用Public聲明變量，聲明變量，其它模塊可通過如下方式其它模塊可通過如下方式引用該變量：引用該變量： 窗體模塊名窗體模塊名.變量名變量名1. 內(nèi)部常量內(nèi)部常量 由

17、應用程序和控件提供。例如：由應用程序和控件提供。例如： Form1.BackColor = vbBlue vbBlue是表示藍色的內(nèi)部常量是表示藍色的內(nèi)部常量 查看系統(tǒng)預定義常量：查看系統(tǒng)預定義常量：“視圖視圖對象瀏覽器對象瀏覽器” ” 2. 符號常量符號常量( (自定義常量自定義常量) )命名：遵循標識符命名的規(guī)則命名：遵循標識符命名的規(guī)則聲明格式：聲明格式： Public|Private Const 常量名常量名As 類型類型 = 表達式表達式 例：例： Const conMax As Integer = 9 聲明聲明Integer型常量型常量 Const conDate= #10/5/2

18、002# 聲明聲明Date型常量型常量 Const CodeName = ASCII 聲明聲明String型常量型常量有效范圍：局部常量、模塊常量、全局常量有效范圍：局部常量、模塊常量、全局常量聲明常量的表達式中不能出現(xiàn)函數(shù)調(diào)用和循環(huán)引用聲明常量的表達式中不能出現(xiàn)函數(shù)調(diào)用和循環(huán)引用 例：錯誤的常量聲明例：錯誤的常量聲明 Const conS = Sqr(10) Const conA = conB +10, conB = conA +1練習：定義兩個變量，給出圓半徑，計算圓面積，要求用一練習：定義兩個變量，給出圓半徑，計算圓面積，要求用一句完整的話輸出圓半徑和面積值。句完整的話輸出圓半徑和面積值

19、。1. 算術(shù)運算符算術(shù)運算符優(yōu)先級優(yōu)先級運算運算運算符運算符舉例舉例結(jié)果結(jié)果 高高 低低乘方乘方 2*2 3 8取負取負 - 2 3 - 8乘、除乘、除 * /5 * 3 / 2 7.5整除整除 5 * 3 2 7求余求余 Mod5 * 3 Mod 2 1加、減加、減 + -10 - 3 + (-2) 5 VB表達式要求所有運算符與操作數(shù)寫在一行上。表達式要求所有運算符與操作數(shù)寫在一行上。2. 字符串運算符字符串運算符運算符：運算符：&和和+例：例： VB = “Visual ” + “Basic” 連接為字符串連接為字符串“Visual Basic” label1.Caption = 第第

20、& Str(N) & 條記錄條記錄 Str為數(shù)值型轉(zhuǎn)字符型函數(shù)。若為數(shù)值型轉(zhuǎn)字符型函數(shù)。若N為為1，標簽上顯示，標簽上顯示“第第1條記錄條記錄” 說明：說明：v使用使用+號號，要求連接的兩個表達式均為字符串型，要求連接的兩個表達式均為字符串型v使用使用&號號，連接的兩個表達式可以為任何類型，但結(jié)果為字符串型，連接的兩個表達式可以為任何類型，但結(jié)果為字符串型，如如 “當前日期當前日期” & #10/8/2002# 3. 關(guān)系運算符關(guān)系運算符運運 算算運算符運算符舉舉 例例結(jié)結(jié) 果果 等于等于 = Hello = helloFalse 不等于不等于 Hello helloTrue 大于大于 Hel

21、lo helloFalse 大于等于大于等于 = 45 + 10 = 55True 小于小于 a abTrue 小于等于小于等于 = 45 + 10 5)，結(jié)果為，結(jié)果為True And：兩個表達式均為：兩個表達式均為True時，結(jié)果為時，結(jié)果為True 例如，例如，(4 5) And (8 7)，結(jié)果為，結(jié)果為False Or：兩個表達式均為：兩個表達式均為False時，結(jié)果為時，結(jié)果為False 例如，例如，(4 5) Or (8 7)，結(jié)果為，結(jié)果為True XYNot YX And YX Or Y False False True False False False True Fals

22、e False True True False True False True True True False True Trueu表達式：用運算符和圓括號將常量、變量、函數(shù)和常數(shù)表達式：用運算符和圓括號將常量、變量、函數(shù)和常數(shù)連接起來組成的有意義的式子。連接起來組成的有意義的式子。 如，如，數(shù)值表達式數(shù)值表達式 Cos (180 * Pi / 180 ) * 100 邏輯表達式邏輯表達式 ( N = 0 ) And ( N Mod 2 0 ) u運算優(yōu)先順序運算優(yōu)先順序( (從高到低從高到低) )： 函數(shù)函數(shù)算術(shù)運算算術(shù)運算(乘方乘方取負取負乘乘/除除整除整除求余求余加加/減減) 字符串運算

23、符字符串運算符關(guān)系運算符關(guān)系運算符邏輯運算符邏輯運算符(NotAndOr) u用括號可以改變運算順序用括號可以改變運算順序u乘方和負號相鄰時，取負優(yōu)先。乘方和負號相鄰時，取負優(yōu)先。例如：例如：2 -2 的結(jié)果是的結(jié)果是0.25，相當于，相當于2(-2) 1. Print方法方法 功能：在窗體功能：在窗體/ /立即窗口立即窗口/ /圖片框圖片框/ /打印機上輸出信息打印機上輸出信息格式：格式：對象對象. Print 輸出項輸出項 , | ; v對象對象缺省為當前窗體，缺省為當前窗體，輸出項輸出項缺省則打印一空白行缺省則打印一空白行v輸出項之間可用分號或逗號分隔：使用分號輸出項之間可用分號或逗號分

24、隔：使用分號；其后的輸出項其后的輸出項緊接著前一個輸出項輸出；使用逗號緊接著前一個輸出項輸出；使用逗號，其后的輸出項在下一其后的輸出項在下一個輸出區(qū)輸出。個輸出區(qū)輸出。 v兩個輸出區(qū)默認相隔兩個輸出區(qū)默認相隔1414列列 v各輸出項表示要打印的表達式，組成各輸出項表示要打印的表達式，組成 Spc(n) | Tab(n) 表達式表達式 Spc(n)：指定在輸出之前插入：指定在輸出之前插入n個空白字符個空白字符 Tab(n)：指定在第：指定在第n列上輸出列上輸出例，例， Private Sub Form_Click() Print Print Tab(15); * Print Tab(13); *

25、; Spc(1); *; Spc(1); *“ End Sub P35 例例2-32. 格式輸出函數(shù)格式輸出函數(shù) 功能：使數(shù)值、日期或字符串按指定的格式輸出功能：使數(shù)值、日期或字符串按指定的格式輸出格式：格式：Format(expression , format) expression需要格式化輸出的表達式需要格式化輸出的表達式 format 輸出的格式模式輸出的格式模式 3. MsgBox函數(shù)函數(shù) 功能：創(chuàng)建預定義的消息對話框功能：創(chuàng)建預定義的消息對話框常用格式：常用格式：MsgBox(prompt, buttons , title) prompt字符串，指定消息框中顯示的信息字符串，指定消

26、息框中顯示的信息 Buttons指定消息框中顯示的按鈕數(shù)目及形式、圖標樣式等，指定消息框中顯示的按鈕數(shù)目及形式、圖標樣式等， 缺省值為缺省值為vbOKOnly 常用的設置值見教材表常用的設置值見教材表2.6 Title指定消息框的標題，缺省值為工程名指定消息框的標題，缺省值為工程名 用戶所選按鈕的返回值用戶所選按鈕的返回值( (見教材表見教材表2.7)可作為繼續(xù)執(zhí)行可作為繼續(xù)執(zhí)行程序的依據(jù)。程序的依據(jù)。 例例 Private Sub Form_Click() prompt = 真的新增該條記錄嗎真的新增該條記錄嗎 answer = MsgBox(prompt, vbOKCancel, Add

27、Record) If answer = vbOK Then Debug.Print 您選擇的是您選擇的是“確定確定”按鈕按鈕 If answer = vbCancel Then Debug.Print 您選擇的是您選擇的是“取消取消”按鈕按鈕End Sub說明：說明：如果消息框中顯示的信息過長，可使用回車符如果消息框中顯示的信息過長，可使用回車符Chr(13) 或換行符或換行符Chr(10) 如果不需要返回值，可使用沒有括號的如果不需要返回值，可使用沒有括號的MsgBox語句：語句： MsgBox prompt, buttons , title 例，例， Msg = 非法的數(shù)據(jù)輸入非法的數(shù)據(jù)輸

28、入! & Chr(13) & 請重新輸入請重新輸入 Title = 出錯提示出錯提示 MsgBox Msg, vbCritical, Title u 功能：生成輸入對話框功能：生成輸入對話框 u 常用格式：常用格式： InputBox(prompt, title , default , xpos , ypos) prompt字符串，指定輸入框中顯示的信息字符串，指定輸入框中顯示的信息 Title指定輸入框的標題，缺省值為工程名指定輸入框的標題，缺省值為工程名 Default字符串，指定文本框中的初始內(nèi)容，缺省為空。字符串，指定文本框中的初始內(nèi)容，缺省為空。 xpos和和ypos數(shù)值表達式，成對

29、出現(xiàn)或者成對缺省，數(shù)值表達式，成對出現(xiàn)或者成對缺省， 指定輸入框左上角相對于屏幕的位置。指定輸入框左上角相對于屏幕的位置。u InputBox函數(shù)一次只能輸入一個值函數(shù)一次只能輸入一個值 例例Private Sub Form_Click() Dim Username Username = InputBox(輸入姓名后單擊輸入姓名后單擊確定確定, 輸入輸入) Print UsernameEnd Sub 例例 完成完成16兩制秤的兩個重量之和，如兩制秤的兩個重量之和，如3斤斤9兩與兩與4斤斤13兩之和兩之和u常用數(shù)學函數(shù)見常用數(shù)學函數(shù)見教材教材P40P40u幾點說明：幾點說明：由基本函數(shù)可導出所需的數(shù)學函數(shù)由基本函數(shù)可導出所需的數(shù)學函數(shù) 例如，例如，Log(X)/Log(N)可求出以可求出以N為底的對數(shù)為底的對數(shù)對對Rnd(N)，N的值決定了的值決定了Rnd生成隨機數(shù)的方式生成隨機數(shù)的方式vN0或者缺省：產(chǎn)生序列中的下一個隨機數(shù)或者缺省：