close
幫我找一下身分證字號的號碼
請幫我列出身分證字號後三碼是003的身分證號碼例如：C100000003幫忙一下囉~
程式碼給你，你自己跑吧．．資料存在 C碟底下的twids.txt裡面如果你是要女性的，把tmp = ...那行 紅色的 1 改成 2如果你只要 A 開頭的，把 Asc("A") To Asc("Z") 改成 Asc("A") To Asc("A")如果你只要A到F開頭的，把Asc("A") To Asc("Z") 改成 Asc("A") To Asc("F")Private Sub Command1_Click()?? Open "C: wids.txt" For Append As #1????? For i = Asc("A") To Asc("Z")??????????? For k = 0 To 99999?????????????? DoEvents?????????????? tmp = Chr(i) & 1 & Format(k, "00000") & "003"?????????????? If chkTWid(tmp) Then????????????????? n = n + 1????????????????? Print #1, "第"; n; "組："; tmp?????????????? End If??????????? Next????? Next?? Close #1?? MsgBox "執行結束"End SubPublic Function chkTWid(ByVal id As String) As Boolean?? Dim total As Integer?? If Len(id) <> 10 Then chkTWid = False: Exit Function?? eng = InStr("ABCDEFGHJKLMNPQRSTUVWXYZIO", UCase(Left(id, 1))) + 9?? total = total + Val(Left(eng, 1)) + (Val(Right(eng, 1)) * 9)?? For i = 8 To 1 Step -1???????? total = total + Val(Mid(id, 10 - i, 1)) * i?? Next i?? total = total + Val(Right(id, 1))?? If total Mod 10 = 0 Then chkTWid = TrueEnd Function
根據您的需要，幫您找出三組，您可以再測試看看，應該無誤：A100006003A101004003A102002003參考資料：身份證規則
以上文章來自奇摩知識家，如有侵犯請留言告知
https://tw.answers.yahoo.com/question/index?qid=20060812000014KK06291