enter，esc鍵設定

確定按鈕屬性default------→true
取消按鈕屬性cancel------→true

窗體中心位置展現

首先將窗體介面通過滑鼠拖拽，達到介面大小適中
接著檢視屬性中的height，width屬性數值，將該數值填入下面程式碼中
from中新增以下程式碼
eg:

	me.width=4300
	me.height=7049
    Me.Left = Screen.Width / 2 - Me.Width / 2
    Me.Top = Screen.Height / 3 - Me.Height / 3

聯絡電話設定11位

在更新或者確定按鈕下新增程式碼如下：

    If Not Len(txtTel.Text) = 11 Then
        MsgBox "請重新輸入11位聯絡電話！", vbOKOnly + vbExclamation, "警告"
        txtTel.Text = ""
        txtTel.SetFocus
        Exit Sub
    End If

知識點：SQL注入

SQL注入，在登入介面限制特殊字元，就是為了防注入，詳情，點選連結檢視。

設定課程防止重複

在新增按鈕下新增程式碼如下：

Private Sub cmdAdd_Click()
Static b As Integer
'設定定義b為靜態變數
Dim s As String
Dim w As Integer
'在全部課程中被選中的情況下
If listAllcourse.ListIndex <> -1 Then
'檢查有沒有重複新增
For b = 0 To listSelectcourse.ListCount - 1

    If listSelectcourse.List(b) = listAllcourse.List(listAllcourse.ListIndex) Then

        MsgBox "不能重複新增課程", vbOKOnly + vbExclamation, "提示"
        'w=3表示一個狀態，沒有什麼特別的含義
        w = 3
    End If
Next
    If w = 3 Then
        Exit Sub
    Else
        listSelectcourse.AddItem listAllcourse.List(listAllcourse.ListIndex)
    End If
End If
End Sub
 

無效輸入，錯誤5

這個錯誤，我給它重新命名為“歸屬不當”
原因在於：
判斷classno是否為數字，應該在確定按鈕或者更新按鈕下，我加在了form窗體下，就相當於是使用者還什麼都沒做呢，就對它進行判斷，導致過度激進。
解決方法：
把這段程式碼轉移到更新按鈕下即可。

總結

1、要注意使用者體驗，整齊度要保證，如果可以努力提升一下美觀度
2、要分模組進行，這樣更有利於瞭解
3、站在巨人的肩膀上，以上總結均是百度大哥的功勞