身分證字號產生器...小疑問

以下是我的Code：

1. Private Sub Command1_Click()
   
2. 
   
3. Randomize
   
4. 
   
5. Dim sex, area, sex_output, area_output As String, rnd_out(7), Check_Sum(8), Check_Error As Integer
   
6. 
   
7. Dim A_, F_ As Integer '北市及北縣代碼
   
8. 
   
9. Dim area_A, area_A2,area_F,area_F2 As Integer '得到的縣市代碼(2位)
   
10. 
    
11. sex = (Text1.Text): area = (Text2.Text)
    
12. 
    
13. rnd_out(0) = Int(Rnd * 9) + 1: rnd_out(1) = Int(Rnd * 9) + 1: rnd_out(2) = Int(Rnd * 9) + 1: rnd_out(3) = Int(Rnd * 9) + 1
    
14. 
    
15. rnd_out(4) = Int(Rnd * 9) + 1: rnd_out(5) = Int(Rnd * 9) + 1: rnd_out(6) = Int(Rnd * 9) + 1: rnd_out(7) = Int(Rnd * 9) + 1
    
16. 
    
17. Check_Sum(0) = 8: Check_Sum(1) = 7: Check_Sum(2) = 6: Check_Sum(3) = 5
    
18. 
    
19. Check_Sum(4) = 4: Check_Sum(5) = 3: Check_Sum(6) = 2: Check_Sum(7) = 1: Check_Sum(8) = 1
    
20. 
    
21. If sex = "男" Then
    
22.       
    
23.    sex_output = 1
    
24.       
    
25. ElseIf sex = "女" Then
    
26.       
    
27.    sex_output = 2
    
28.      
    
29. End If
    
30. 
    
31. If area = "台北市" Then
    
32. 
    
33.    area_output = "A"
    
34.    
    
35.    A_ = 10 '台北市代碼為10
    
36.    
    
37.    area_A = A_ \ 10: area_A2 = A_ Mod 10 '取代碼1及0
    
38.    
    
39.    Check_Error = (area_A) + (area_A2 * 9) + sex_output * Check_Sum(0) + rnd_out(0) * Check_Sum(1) + rnd_out(1) * Check_Sum(2) + rnd_out(2) * Check_Sum(3) + rnd_out(3) * Check_Sum(4) + rnd_out(4) * Check_Sum(5) + rnd_out(5) * Check_Sum(6) + rnd_out(6) * Check_Sum(7) + rnd_out(7)
    
40.    
    
41. Else: area = "台北縣"
    
42. 
    
43.    area_output = "F"
    
44.    
    
45.    F_ = 15 '台北縣代碼為15
    
46.    
    
47.    area_F = F_ \ 10: area_F2 = F_ Mod 10 '取代碼1及5
    
48.    
    
49.    Check_Error = (area_F) + (area_F2 * 9) + sex_output * Check_Sum(0) + rnd_out(0) * Check_Sum(1) + rnd_out(1) * Check_Sum(2) + rnd_out(2) * Check_Sum(3) + rnd_out(3) * Check_Sum(4) + rnd_out(4) * Check_Sum(5) + rnd_out(5) * Check_Sum(6) + rnd_out(6) * Check_Sum(7) + rnd_out(7)
    
50.    
    
51. End If
    
52. 
    
53. If Text1.Text = "" Or Text2.Text = "" Then
    
54. 
    
55.    MsgBox "請輸入性別及居住地!", 0, "Error"
    
56.    
    
57.    Label4.Caption = ""
    
58. 
    
59. End If
    
60. 
    
61. Label4.Caption = area_output & sex_output & rnd_out(0) &
    
62. rnd_out(1) & rnd_out(2) & rnd_out(3) & rnd_out(4) &
    
63. rnd_out(5) & rnd_out(6) & rnd_out(7)
    
64. 
    
65. Private Sub Command2_Click()
    
66. 
    
67. Cls
    
68. 
    
69. Text1.Text = ""
    
70. 
    
71. Text2.Text = ""
    
72. 
    
73. Label4.Caption = ""
    
74. 
    
75. End Sub

複製代碼

============================================================
大致上是完成了,現在有個小小的疑問

因為所產生出來的身分證字號還沒經過驗算就出來了(就是身分證驗算的公式,也就是我39和49行的Code)

換句話說Check_Error 可以整除以10就是正確的身份證字號

小弟目前卡在如何讓"亂數產生的身分證字號"先去驗算,也就是Mod 10=整數

驗算成功才顯示正確的身分證字號,如果驗算錯誤的話就一直驗算到正確才顯示身分證字號

感恩
...

瀏覽完整內容，請先 註冊 或 登入會員

fredpupu

我倒是比較偏向用第10碼補足前9碼不足的部分

我倒是比較偏向用第10碼補足前9碼不足的部分
fredpupu 發表於 2010-7-20 02:03 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

假如前9碼所產生的Check_Error=123,第10碼用迴圈下去跑(for i=0 to 9)

假設剛好123+7=130
...

瀏覽完整內容，請先 註冊 或 登入會員

fredpupu

沒錯
第10碼為
IIf(Check_Error Mod 10>0,10 - (Check_Error Mod 10),0)

byukuo

第10碼 = (10 - (Check_Error Mod 10)) mod 10

不判斷直接運算會比較快ㄅ~

spammehere

第10碼 = 10 - (Check_Error Mod 10)
跟
第10碼 = (10 - (Check_Error Mod 10)) mod 10
結果完全一樣
不必再 mod 10 一次

fredpupu

10 - (Check_Error Mod 10)
當 (Check_Error Mod 10) 為0時會變成10-0=10
因此要在mod 10 一次

spammehere

是的
是我疏忽了
謝指教