vb程序設計代碼基礎(編輯修改稿)

　

【文章內容簡介】 Const Pi = Const Max As Integer = 9 Const BirthDate = 1/1/01 Const MyString = friend 39。 用逗號分隔多個常量聲明 Const Pi = , Max = 9, MyStr=Hello 39。 用先前定義過的常量定義新常量 Const Pi2 = Pi * 2 39。 表達式中不能使用內部函數 Const sinx = Sin(20 * / 180) 使用 : 在程序中引用 如 : AREA=Pi*R^2 在程序中不可修改 如 : Pi= 第三章 VB程序設計代碼基礎 28 VB內部已定義，可以直接使用的常量 查看內部常量 : 視圖 → 對象瀏覽器 → 選擇庫、類、 成員 如 : 庫 VBRUN 類 ColorConstants ShapeConstants 成員 Vbred vbShapeCircle 例 : Private Sub Form_Activate() Const A As String = 各種常量的使用 = vbGreen = vbRed = 14 Print A End Sub 系統定義符號常量 第三章 VB程序設計代碼基礎 29 變量 ?一個有名稱的內存單元稱為變量。 … 5 A 1. 什么是變量？ ?程序執行期間，用變量臨時存儲數值。 ?變量的值可以發生變化。 ? 每個變量都有 名稱 和 數據類型 。 第三章 VB程序設計代碼基礎 30 2. 變量的命名遵循標識符的命名規則，即 ?第一個字符必須是字母 ?長度不超過 255個字符 ?不可以包含小數點或者 內嵌的類型聲明字符 ?不能使用關鍵字 ?不能與過程名或符號常量同名 例 : Student1 MyName intMax strName 不區分大小寫 ；變量名應便于識別、記憶 第三章 VB程序設計代碼基礎 31 3. 變量的聲明 (1) 顯式聲明 格式 : Dim|Private|Public| Static 變量名 [As 類型 ] 說明： ?Dim: 在窗體模塊、 標準模塊 或 過程 中聲明變量。 ?Private: 在窗體模塊或標準模塊中聲明變量，使變量僅在該模塊中有效。 ?Public: 在標準模塊中聲明全局變量，使變量在整個應用程序中有效。 ?Static: 在過程中定義靜態變量，即使該過程結束，也仍然保留變量的值。 第三章 VB程序設計代碼基礎 32 例 : Dim Sum As Long Dim Address As String Dim No As String * 8 Private b As Integer Dim Num, Total As Integer 39。 Num為可變類型 Public Average As Single Static A As Long (2) 隱式聲明 可變類型。易出錯、浪費空間 (3) 強制顯式聲明 在模塊的聲明段中使用語句 : Option Explicit 如果設置 : 工具 → 選項 → 編輯器 → ?要求變量聲明 則在后續模塊中自動插入 Option Explicit 第三章 VB程序設計代碼基礎 33 例 : 窗體模塊和過程中使用 Dim語句的區別。 設在窗體中放置按鈕 Command1和 Command2 Dim a As Integer Private Sub Command1_Click() a = a + 10 Print a End Sub Private Sub Command2_Click() a = a + 15 Print a End Sub 觀察程序運行結果 將 Dim a As Integer放到過程內，觀察運行結果。 第三章 VB程序設計代碼基礎 34 例 : Static的作用。 設在窗體中放置按鈕 C1 Private Sub C1_Click() Static a As Integer a = a + 10 Print a End Sub Private Sub C1_Click() Dim a As Integer a = a + 10 Print a End Sub 運行時，多次單擊命令按鈕 C1， 比較以上兩個事件過程的執行效果 第三章 VB程序設計代碼基礎 35 常用內部函數 函數形式 : 函數名 [(參數表 )] 參數： 常量、變量或表達式。 若有多個參數，參數之間 以逗號分隔 。 函數值：也叫“返回值” 函數的使用： 函數在表達式中被調用。 函數分類 內部函數 用戶自定義函數 第三章 VB程序設計代碼基礎 36 例 : Fix() 結果為 45 Int() 結果為 45 Fix() 結果為 2 Int() 結果為 3 Abs(4) 結果為 4 Log(10) 結果為 Sgn(3) 結果為 1 Sgn(6) 結果為 1 Sgn(0) 結果為 0 例 : 求 sin300 Sin(30 * / 180) 39。 參數以弧度為單位 數學函數 第三章 VB程序設計代碼基礎 37 例 : 判斷一個整數 Y能否被另一個整數 X整除 如果 Int(Y/X)=Y/X 則整除 例 : 常用對數 log10X的求法 用換底公式 : 10lnlogln 10xx ? 即 : Log(X)/Log(10) 例 : 求 e3 正確 : Exp(3) 錯誤 : e^3(錯 ) 第三章 VB程序設計代碼基礎 38 例 : LTrim(∪∪∪ ABC) 結果為 ABC 表示空格 RTrim(ABC∪∪∪ ) 結果為 ABC Trim(∪∪∪ ABC∪∪∪ ) 結果為 ABC Left(ABCDE,2) 結果為 AB Right(ABCDE,2) 結果為 DE Mid(ABCDE,2,3) 結果為 BCD Mid(ABCDE,2,6) 結果為 BCDE Len(ABCDE) 結果為 5 String(3,ABC) 結果為 AAA String(3， 65)