變量命名規則

1. 遵守VB編程標準一書24頁~27頁的標準
2. 用戶自定義類型時，成員的變量命名也標識類型字頭（見25頁第二種方式）
3. 所有使用的變量必須事先定義，不能不定義，也不能在代碼中間，到使用時才定義。
4. 每行只定義一個變量，多行定義變量類型的As 必須對齊，每個變量的用途都必須增加注釋，說明其用途。注釋的起始位置必須對齊
5. 變量的定義必須詳細，盡可能使用變量名說明變量的用途。參見42頁第五章的內容。
6. 6、每個程序模塊的前面必須增加Option Explicit語句。

使用常量和枚舉

1. 在程序內，只要可能，不能使用固定的數字（幻數）
2. 枚舉元素的前面增加字頭 mcs

編碼格式規則

1. 每個層次之間縮進3個空格，函數內部的函數體、IF語句、For語句內部的循環體、Select case 語句、Case語句
2. 編程時，各相對獨立的部分之間增加空行，IF前面、 ENDIF后面、For前面、 Next后面、Select Case前面、End Select后面，End Function前面讀需要增加空行。

注釋說明規則

1. 注釋的格式為：’*后增加兩個空格
2. 每個定義使用的變量必須增加注釋，說明變量的用途。變量說明和變量定義處于同一行上，多個變量的注釋說明的起始位置必須對齊。
3. 每個函數的開始必須增加注釋：函數目的，參數意義，返回值三個部分（見115-116頁）
4. IF語句、For語句內部的循環體、Select case 語句、Case語句之前增加注釋。
5. 完成相對獨立功能的每一段程序都需要增加注釋。

錯誤處理規則

1. 不能隨意使用On Error Resume next語句。
2. 對允許出現錯誤的地方，On Error Resume next語句和On Error goto 0語句配對使用，對不能出錯的地方，使用BugAssert函數來捕捉錯誤。BugAssert函數的內容如下，具體的使用方法可向劉俊請教。

   Sub BugAssert(ByVal fExpression As Boolean, Optional sExpression As String)
   

   #If afDebug Then

   　　If fExpression Then Exit Sub

   　　BugMessage "BugAssert failed: " & sExpression

   　　Stop

   #End If
   End Sub

其它規定

1. 非萬不得已，不能使用Variant數據類型
2. 程序代碼超過10行以上的，在代碼中間不能使用Exit Sub和Exit Function語句，應使用GoTo PROC_EXIT語句，以使程序有統一的出口點，便于調試（見15頁）。
3. 不能使用Gosub語句。
4. 調用過程或不需要返回值的函數時，使用Call.。
5. 盡可能不使用全局變量，盡可能使用函數的參數來傳遞數據。
6. Select case中應有case else
7. 窗體內構件命名時，除Option外，不能使用數組命名。
8. Option及對應的屬性命名時，后面加Flag；Check和Combo及對應的屬性命名時，后面加Type。
9. 不能使用Integer數據類型；