將vCode顯示為字符串
私有子命令1_Click()
drawvc
末端接頭
Private Sub drawvc()'顯示校驗碼
Dim i，vc，px，py壹樣長
以字節形式顯示r、g、b
“隨機化”初始化隨機種子。
生成隨機校驗碼
vc = CLng(8999 * Rnd + 1000)
vCode = vc
顯示校驗碼
圖片1。Cls
圖片1。打印vc
添加噪聲(防止自動圖像識別)
對於i = 0到2000 '繪制2000個噪聲點。
畫壹些隨機的位置。
px = CLng(Picture1。寬度* Rnd)
py = CLng(Picture1。高度* Rnd)
畫壹些隨機的顏色。
r = CByte(255 * Rnd)
g =兆字節(255 * Rnd)
b =兆字節(255 * Rnd)
圖片1。Line (px，py)-(px + 1，py + 1)，RGB(r，g，b)
然後
末端接頭
私有子命令2_Click()
如果Text1。那麽Text = vCode
MsgBox("正確")
其他
MsgBox("錯誤")
drawvc
如果…就會結束
末端接頭
私有子窗體_Load()
圖片1。FontSize = 12
圖片1。FontBold = True
圖片1。AutoRedraw = True
drawvc
末端接頭