Size a（36）都要赋值啊
size =4

j = 1
for i = asc("A") to ASC("Z")
a(j) = chr(i)
j =j+1
next i
for i = asc("0") to asc("9")
a(j) = chr(i)
j = j+1
next i

这段加在代码最初部分执行

这东西随手写的。。。哪里有什么源码下载。。。

老大不行啊，我测试了不行，能不能把代码整理一下发到论坛上给我啊。谢谢

[此贴子已经被作者于2007-3-9 17:54:39编辑过]

大家帮帮忙啊，小弟需要这程序急用啊。

有没有人愿意帮我把完整的源码写出来啊，救命啊。。。。

兄弟，你看这样行吗？
Private Sub Form_Load()
Dim i As Integer
Dim j As Integer
j = 0
For i = 48 To 57 '将0-9存放于数组checnum的1-10号元素
j = j + 1
checknum(j) = Chr(i)
Next
For i = 65 To 90 '将A-Z存放于数组checnum的11-36号元素
j = j + 1
checknum(j) = Chr(i)
Next
For i = 97 To 122 '将a-z存放于数组checnum的37-62号元素
j = j + 1
checknum(j) = Chr(i)
Next
produce
End Sub
Private Function produce() '产生四位验证码，可以根据需要扩充
Dim str As String
str = checknum(Int(62 * Rnd + 1)) & checknum(Int(62 * Rnd + 1)) & checknum(Int(62 * Rnd + 1)) & checknum(Int(62 * Rnd + 1))
Text1.Text = str
End Function

Private Sub Timer1_Timer() '时间间隔为1000ms
produce
End Sub

谢谢版主的支持，十分感谢。。。。。

多谢啦：redice
不错的方法，容易实现，理解、、、、、



[[it] 本帖最后由 mars914 于 2008-4-12 16:55 编辑 [/it]]

不过要用图片形式显示出来就不容易了，请哪位高手赐教、、、、

Private Sub Form_Load()
Dim conn As New ADODB.Connection
Dim connectionstring As String
connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "D:\glxt.mdb;Persist Security Info=False"

End Sub

Private Sub Image1_Click()
Image1.ZOrder 0  ''0
End Sub

Private Sub Picture1_Click()
Dim vCode As String
Dim i, vc, px, py As Long
Dim r, g, b As Byte
Randomize
vc = CLng(8999 * Rnd + 1000)
vCode = vc
Picture1.Cls
Picture1.Print vc
For i = 0 To 2000
px = CLng(Picture1.Width * Rnd)
py = CLng(Picture1.Height * Rnd)
r = CByte(255 * Rnd)
g = CByte(255 * Rnd)
b = CByte(255 * Rnd)
Picture1.Line (px, py)-(px + 1, py + 1), RGB(r, g, b)
Next
End Sub