18位身份证校检程序vs2010

【文件属性】：

文件名称：18位身份证校检程序vs2010

文件大小：929B

文件格式：TXT

更新时间：2014-12-03 12:37:14

身份证　张志晨　vs2010　代码　童谣

此程序只用于学习研究，请勿用于非法活动。下载后请于24小时内删除。否则，后果自负。 Public Class Form1 Dim wi() As Integer = {0, 7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2} Dim ai() As String = {"0", "1", "0", "X", "9", "8", "7", "6", "5", "4", "3", "2"} Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MsgBox(isTrue(TextBox1.Text)) End Sub .... ’界面一个文本框，限制字符长度为18 ’一个确定按钮 张志晨