1个回答
展开全部
Dim b, i, num As Integer, a As String a = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" i = Int(Rnd * 51) + 1 b = Mid(a, i, 2) num = Int(Rnd * 99) If num < 10 Then Print b & num & 0 Else Print b & num End If 给你做个参考,实际验证码比这个要复杂,把字母和数字的顺序打乱就行了(这只是个4位验证码,前两位是字母,后两位是数字)
采纳哦
采纳哦
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询