Visual Basic 6.0生份證產生器程式碼

1. Dim CC, c1, c2, c3, c4, c5, c6, c7, c8, c9 As String
   
2. Dim m1, m2, m3, m4, m5, m6, m7, m8, m9, m0 As Long
   
3. Dim n1, n2, n3, n4, n5, n6, n7, n8, n9, n0 As Long
   
4. Dim ff As Long
   
5. Dim x As String
   
6. Private Sub Check1_Click()
   
7. If Check1.Value = 1 Then Text8.Text = "A"
   
8. End Sub
   
9. Private Sub Check10_Click()
   
10. If Check10.Value = 1 Then Text8.Text = "K"
    
11. End Sub
    
12. Private Sub Check11_Click()
    
13. If Check11.Value = 1 Then Text8.Text = "L"
    
14. End Sub
    
15. Private Sub Check12_Click()
    
16. If Check12.Value = 1 Then Text8.Text = "M"
    
17. End Sub
    
18. Private Sub Check13_Click()
    
19. If Check13.Value = 1 Then Text8.Text = "N"
    
20. End Sub
    
21. Private Sub Check14_Click()
    
22. If Check14.Value = 1 Then Text8.Text = "P"
    
23. End Sub
    
24. Private Sub Check15_Click()
    
25. If Check15.Value = 1 Then Text8.Text = "Q"
    
26. End Sub
    
27. Private Sub Check16_Click()
    
28. If Check16.Value = 1 Then Text8.Text = "R"
    
29. End Sub
    
30. Private Sub Check17_Click()
    
31. If Check17.Value = 1 Then Text8.Text = "S"
    
32. End Sub
    
33. Private Sub Check18_Click()
    
34. If Check18.Value = 1 Then Text8.Text = "T"
    
35. End Sub
    
36. Private Sub Check19_Click()
    
37. If Check19.Value = 1 Then Text8.Text = "U"
    
38. End Sub
    
39. Private Sub Check2_Click()
    
40. If Check2.Value = 1 Then Text8.Text = "B"
    
41. End Sub
    
42. Private Sub Check20_Click()
    
43. If Check20.Value = 1 Then Text8.Text = "V"
    
44. End Sub
    
45. Private Sub Check21_Click()
    
46. If Check21.Value = 1 Then Text8.Text = "X"
    
47. End Sub
    
48. Private Sub Check22_Click()
    
49. If Check22.Value = 1 Then Text8.Text = "Y"
    
50. End Sub
    
51. Private Sub Check23_Click()
    
52. If Check23.Value = 1 Then Text8.Text = "W"
    
53. End Sub
    
54. Private Sub Check24_Click()
    
55. If Check24.Value = 1 Then Text8.Text = "Z"
    
56. End Sub
    
57. Private Sub Check3_Click()
    
58. If Check3.Value = 1 Then Text8.Text = "C"
    
59. End Sub
    
60. Private Sub Check4_Click()
    
61. If Check4.Value = 1 Then Text8.Text = "D"
    
62. End Sub
    
63. Private Sub Check5_Click()
    
64. If Check5.Value = 1 Then Text8.Text = "E"
    
65. End Sub
    
66. Private Sub Check6_Click()
    
67. If Check6.Value = 1 Then Text8.Text = "F"
    
68. End Sub
    
69. Private Sub Check7_Click()
    
70. If Check7.Value = 1 Then Text8.Text = "G"
    
71. End Sub
    
72. Private Sub Check8_Click()
    
73. If Check8.Value = 1 Then Text8.Text = "H"
    
74. End Sub
    
75. Private Sub Check9_Click()
    
76. If Check9.Value = 1 Then Text8.Text = "J"
    
77. End Sub
    
78. Private Sub Command1_Click()
    
79. If Text8.Text = "" Then
    
80. x = MsgBox("請勾選地區代碼", , "幽靈人口嗎?")
    
81. Print x: Exit Sub
    
82. End If
    
83. l1: CC = Int((999999999 * Rnd) + 100000000)
    
84. x = CC
    
85. x = Text8.Text + x
    
86. Print x
    
87. c1 = Mid(x, 2, 1)
    
88. c2 = Mid(x, 3, 1)
    
89. c3 = Mid(x, 4, 1)
    
90. c4 = Mid(x, 5, 1)
    
91. c5 = Mid(x, 6, 1)
    
92. c6 = Mid(x, 7, 1)
    
93. c7 = Mid(x, 8, 1)
    
94. c8 = Mid(x, 9, 1)
    
95. c9 = Mid(x, 10, 1)
    
96. 
    
97. '   Print c1, c2, c3, c4, c5, c6, c7, c8, c9
    
98. '
    
99. 'If Left(x, 1) = "A" Then aa = "10" + c1 + c2 + c3 + c4 + c5 + c6 + c7 + c8 + c9
    
100. 'Print aa
     
101. If Left(x, 1) = "A" Then aa = "10" + c1 + c2 + c3 + c4 + c5 + c6 + c7 + c8 + c9
     
102. If Left(x, 1) = "B" Then aa = "11" + c1 + c2 + c3 + c4 + c5 + c6 + c7 + c8 + c9
     
103. If Left(x, 1) = "C" Then aa = "12" + c1 + c2 + c3 + c4 + c5 + c6 + c7 + c8 + c9
     
104. If Left(x, 1) = "D" Then aa = "13" + c1 + c2 + c3 + c4 + c5 + c6 + c7 + c8 + c9
     
105. If Left(x, 1) = "E" Then aa = "14" + c1 + c2 + c3 + c4 + c5 + c6 + c7 + c8 + c9
     
106. If Left(x, 1) = "F" Then aa = "15" + c1 + c2 + c3 + c4 + c5 + c6 + c7 + c8 + c9
     
107. If Left(x, 1) = "G" Then aa = "16" + c1 + c2 + c3 + c4 + c5 + c6 + c7 + c8 + c9
     
108. If Left(x, 1) = "H" Then aa = "17" + c1 + c2 + c3 + c4 + c5 + c6 + c7 + c8 + c9
     
109. If Left(x, 1) = "J" Then aa = "18" + c1 + c2 + c3 + c4 + c5 + c6 + c7 + c8 + c9
     
110. If Left(x, 1) = "K" Then aa = "19" + c1 + c2 + c3 + c4 + c5 + c6 + c7 + c8 + c9
     
111. If Left(x, 1) = "L" Then aa = "20" + c1 + c2 + c3 + c4 + c5 + c6 + c7 + c8 + c9
     
112. If Left(x, 1) = "M" Then aa = "21" + c1 + c2 + c3 + c4 + c5 + c6 + c7 + c8 + c9
     
113. If Left(x, 1) = "N" Then aa = "22" + c1 + c2 + c3 + c4 + c5 + c6 + c7 + c8 + c9
     
114. If Left(x, 1) = "P" Then aa = "23" + c1 + c2 + c3 + c4 + c5 + c6 + c7 + c8 + c9
     
115. If Left(x, 1) = "Q" Then aa = "24" + c1 + c2 + c3 + c4 + c5 + c6 + c7 + c8 + c9
     
116. If Left(x, 1) = "R" Then aa = "25" + c1 + c2 + c3 + c4 + c5 + c6 + c7 + c8 + c9
     
117. If Left(x, 1) = "S" Then aa = "26" + c1 + c2 + c3 + c4 + c5 + c6 + c7 + c8 + c9
     
118. If Left(x, 1) = "T" Then aa = "27" + c1 + c2 + c3 + c4 + c5 + c6 + c7 + c8 + c9
     
119. If Left(x, 1) = "U" Then aa = "28" + c1 + c2 + c3 + c4 + c5 + c6 + c7 + c8 + c9
     
120. If Left(x, 1) = "V" Then aa = "29" + c1 + c2 + c3 + c4 + c5 + c6 + c7 + c8 + c9
     
121. If Left(x, 1) = "X" Then aa = "30" + c1 + c2 + c3 + c4 + c5 + c6 + c7 + c8 + c9
     
122. If Left(x, 1) = "Y" Then aa = "31" + c1 + c2 + c3 + c4 + c5 + c6 + c7 + c8 + c9
     
123. If Left(x, 1) = "W" Then aa = "32" + c1 + c2 + c3 + c4 + c5 + c6 + c7 + c8 + c9
     
124. If Left(x, 1) = "Z" Then aa = "33" + c1 + c2 + c3 + c4 + c5 + c6 + c7 + c8 + c9
     
125. cod3 = aa
     
126. Print cod3
     
127. 
     
128. m1 = Mid(cod3, 1, 1)
     
129. m2 = Mid(cod3, 2, 1)
     
130. m3 = Mid(cod3, 3, 1)
     
131. m4 = Mid(cod3, 4, 1)
     
132. m5 = Mid(cod3, 5, 1)
     
133. m6 = Mid(cod3, 6, 1)
     
134. m7 = Mid(cod3, 7, 1)
     
135. m8 = Mid(cod3, 8, 1)
     
136. m9 = Mid(cod3, 9, 1)
     
137. m0 = Mid(cod3, 10, 1)
     
138. m333 = Mid(cod3, 11, 1)
     
139. n1 = m1
     
140. n2 = m2
     
141. n3 = m3
     
142. n4 = m4
     
143. n5 = m5
     
144. n6 = m6
     
145. n7 = m7
     
146. n8 = m8
     
147. n9 = m9
     
148. n0 = m0
     
149. ss = n1 * 1 + n2 * 9 + n3 * 8 + n4 * 7 + n5 * 6 + n6 * 5 + n7 * 4 + n8 * 3 + n9 * 2 + n0 * 1
     
150. Print ss
     
151. ss = ss Mod 10
     
152. Print ss
     
153. ss = 10 - ss
     
154. Print ss
     
155. If Right(ss, 1) <> m333 Then GoTo l1
     
156. '以H122230546為例：權值為1*1+9*7+8*1+7*2+6*2+5*2+4*3+3*0+2*5+1*4=134，
     
157. '將加總後的數字除10後求餘數,再以10減去餘數,即可求得檢查碼。
     
158. '例如範例中134除以10=4﹔10-4=6，因此最後一位數字（檢查碼）即為6，這就是身分證字號的演算法則。
     
159. Print x
     
160. 
     
161. If Right(ss, 1) = m333 Then
     
162. 
     
163. Text1.Text = x
     
164. End If
     
165. 
     
166. 
     
167. 
     
168. End Sub
     
169. 
     
170. Private Sub Command2_Click()
     
171. Cls
     
172. End Sub
     
173. Private Sub Form_Load()
     
174. aa = MsgBox("代表縣市別之字母，可參考特殊對照表拆成對應的2位數字，如A可拆成1和0。A 台北市(10) B 台中市(11) C 基隆市(12) D 台南市(13) E 高雄市(14) F 台北縣(15) G 宜蘭縣(16) H 桃園縣(17) J 新竹縣(18) K 苗栗縣(19) L 台中縣(20) M 南投縣(21) N 彰化縣(22) P 雲林縣(23) Q 嘉義縣(24) R 台南縣(25) S 高雄縣(26) T 屏東縣(27) U 花蓮縣(28) V 台東縣(29)W 金門縣(32) X 澎湖縣(30) Y 陽明山 (31) Z 馬祖(33)之後將每個數字依下表的權值相乘後加總：以H122230546為例：權值為1*1+9*7+8*1+7*2+6*2+5*2+4*3+3*0+2*5+1*4=134，將加總後的數字除10後求餘數,再以10減去餘數,即可求得檢查碼。例如範例中134除以10=4﹔10-4=6，因此最後一位數字（檢查碼）即為6，這就是身分證字號的演算法則。", , "演算法介紹")
     
175. Print aa
     
176. bb = MsgBox("當中會產生11位數得生份證字號..請注意!!", , "Sorry")
     
177. End Sub

複製代碼

程式碼沒包, 板主代為編輯, 請您詳閱版規, 謝謝.

...

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