如何批量生成卡号,密码 的程序?

来源：百度知道 编辑：UC知道 时间：2024/05/29 02:53:45
生成的数量可以自己任意填写,点击按钮自动生成,并写入数据库中,

最好有代码可以参考一下,谢谢
小弟用的ASP

VB
卡号位数写在文本框t1.txt
密码位数写在文本框t2.txt
数量写在文本框t3.txt
文本框t4输出这个要多行文本属性选false

以下是代码
Private Sub Command1_Click()
Randomize
For i = 1 To Val(T3.Text)
While x = 0
kh = Int(Rnd * 75 + 48)
If kh > 47 And kh < 58 Or kh > 64 And kh < 91 Or kh > 96 Then
c$ = c$ + Chr(kh)
js = js + 1
End If
If js = Val(T1.Text) Then x = 1
Wend

While y = 0
mm = Int(Rnd * 75 + 48)
If mm > 47 And mm < 58 Or mm > 64 And mm < 91 Or mm > 96 Then
b$ = b$ + Chr(mm)
jsx = jsx + 1
End If
If jsx = Val(T2.Text) Then y = 1
Wend
T4.Text = T4.Text + Chr(10) + "卡号:" + c$ + Chr(10) + "密码:" + b$
js = 0
c$ = ""
b$ = ""
jsx = 0
x = 0
y = 0
Next i
End Sub
本人刚学VB没多久``程度有限``呵呵``不完美是肯定的``呵呵`不过测试后可以使用