此次登入介面我仿照了張鐸的學生系統，添加了一個驗證碼的功效，當時其實我還是很懵的，只是覺得他的那個好，就借鑑了；與此同時呢，問題也來了，師傅在幫助我驗第一次學生的時候就說能否加個功能就是第二次驗證的時候驗證碼才出來呢？最終出來結果也挺曲折坎坷的，但最後經過大神們鋪路之後，我靜下心來，到最後竟然也成功了，哈哈哈當時還挺高興的，不過後來又發現了一個小細節就是無論驗證碼正確與否都能登入進去，最後師傅叫我搗鼓搗鼓，然後跟師傅說我出來搗鼓了，不用再下去弄了哈哈
廢話不多說：以下是我的主要部分的程式碼展示：

主窗體驗證碼屬性的設定

OK = False miCount = 0 '設定驗證碼屬性 cmdCancel.Cancel = True Picture1.FontSize = 12 Picture1.FontBold = True Picture1.AutoRedraw = True drawvc

驗證碼用隨機數生成隨機校驗碼

Dim vc As Long
     Randomize '初始化隨機種子
     '生成隨機校驗碼
     vc = CLng(8999 * Rnd + 1000)
     vcode = vc
     Picture1.Cls
     Picture1.Print vc
     

設定的登入兩次之後，驗證碼才顯示出來

miCount = miCount + 1
If miCount = 2 Then
    Label2.Visible = True
    Text1.Visible = True
    Picture1.Visible = True
    Label1.Visible = True
    ## 驗證碼的限制條件
If Text1.Visible = True And miCount >= 2 Then
         If Text1.Text = vcode Then
                Me.Hide
                frmMain.Show
            Else
                MsgBox "驗證碼錯誤。", vbCritical + vbSystemModal, "錯誤"
                Text1.Text = ""
                drawvc
                Exit Sub
        End If
    End If