'先产生一个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

  '将随机码显示到特定位置，再在表单中使用一隐藏文本框，将初始值设为该随机码

然后获取用户的用户名、密码、填写的随机码，至于用户名和密码的验证自己搞定吧，获取的随机码和隐藏框中的随机码不一致则报错即可。