作者ilsc ()
看板Visual_Basic
标题[.NET] 关於身分证产生器的一点小问题
时间Mon Feb 23 00:23:24 2009
最近刚碰视窗程式设计
想说自己先来写些小程式
就先自己写了身分证产生器
但是碰到一点小麻烦
以下是我的程式码
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim x As Integer
Dim f As Integer
Dim g As Integer
Dim h As Integer
a = Fix((9 - 0 + 1) * Rnd()) + 0
b = Fix((9 - 0 + 1) * Rnd()) + 0
c = Fix((9 - 0 + 1) * Rnd()) + 0
d = Fix((9 - 0 + 1) * Rnd()) + 0
x = Fix((9 - 0 + 1) * Rnd()) + 0
f = Fix((9 - 0 + 1) * Rnd()) + 0
g = Fix((9 - 0 + 1) * Rnd()) + 0
h = Fix((9 - 0 + 1) * Rnd()) + 0
If h = 10 - (i + k * 9 + t * 8 + a * 7 + b * 6 + c * 5 + d * 4 + x *
3 + f * 2 + g) Mod 10 Then
TextBox1.Text = j & t & a & b & c & d & x & f & g & h
End If
End Sub
i与k代表县市的代码十位数与各位数
j为县市 t为性别
a b c d x f g 为流水号 h 为验证码
小弟不知是哪里出错 TextBox1一直无法显示最终结果
但是如果拿掉if 就可以正常执行
请帮小弟看看哪里错了
感谢各位前辈
注:
使用语言为VB2005 专业版
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 192.192.114.39
※ 编辑: ilsc 来自: 192.192.114.39 (02/23 00:30)
1F：→ jimmychad:text1.text=str(...)转成字串? 02/23 00:41
2F：推 LPH66:很简单 因为你产生的不一定是合法的身份证字号 02/23 04:58
3F：→ LPH66:而你又没有在产生不合法时回头叫它重生一个 02/23 04:58
4F：→ LPH66:或者有另一个想法是 h 可以由其他数字算出来 02/23 04:59
5F：→ LPH66:具体怎麽算就自己研究了 02/23 04:59
6F：推 biglongtoday:验证码一定是最後用公式算的 不是用乱数决定的 02/23 08:46
7F：→ ilsc:感谢各位前辈 已经成功解决了 :D 02/23 09:12