隨機數(shù)字驗證碼（文字版）

roych

前面有版友說生成圖片較慢，所以這里就改成了文字版，應(yīng)該會快一些了。
文字版相對簡單一些，不需要處理圖片。這里僅貼代碼和附件。

1. Private Sub cmdQuit_Click()
   
2.     DoCmd.Quit acQuitSaveAll
   
3. End Sub
   
4. 
   
5. 
   
6. Private Sub Form_Load()
   
7.     Me.lblChapchat.Caption = GenerateCode()
   
8. End Sub
   
9. 
   
10. Private Sub lblChapchat_Click()
    
11.     Me.lblChapchat.Caption = GenerateCode()
    
12. End Sub
    
13. 
    
14. '對比輸入是否正確。
    
15. Private Sub login_Click()
    
16.     Dim strNumber As String
    
17.     If Me.txtChapchat = Me.lblChapchat.Caption Then
    
18.         DoCmd.OpenForm "frmMain"
    
19.     Else
    
20.         MsgBox "驗證碼錯誤，請重新輸入"
    
21.         Me.lblChapchat.Caption = GenerateCode()
    
22.         Exit Sub
    
23.     End If
    
24. End Sub
    
25. 
    
26. Private Function GenerateCode() As String
    
27.    Dim Code As String
    
28.    Dim i As Integer
    
29.    
    
30.    '生成隨機數(shù)字字符串
    
31.    For i = 1 To 6
    
32.       Code = Code & Int((9 * Rnd) + 1)
    
33.    Next i
    
34. 
    
35.    '在某個控件中顯示驗證碼
    
36.      GenerateCode = Code
    
37. End Function

復制代碼

中間省略了打開文件對比文字，以及生成圖片等python代碼了。如版友有不明之處，再回帖。

huanghyd

學習了，，

wuwu200222

學習