先产生一个4位数的随机码
ychar="0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z"
yc=split(ychar,",")
ynum=4'这里的随机码位数可改
for i=1 to ynum
Randomize
ycode=ycode&yc(Int((35*Rnd)))
next
'将随机码显示到特定位置，再在表单中使用一隐藏文本框，将初始值设为该随机码
然后获取用户的用户名、密码、填写的随机码，至于用户名和密码的验证自己搞定吧，获取的随机码和隐藏框中的随机码不一致则报错即可。

注：本站部分信息可能源于互联网分享，如有侵权，请告知，我们将及时删除！