用户注册



邮箱:

密码:

用户登录


邮箱:

密码:
记住登录一个月忘记密码?

发表随想


还能输入:200字
云代码 - vb代码库

身份证号码末位校验

2021-03-12 作者: junqiang举报

[vb]代码库

   If Len(s) = 18 Then
      v1 = Split("7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2", ",")
      v2 = Split("1,0,X,9,8,7,6,5,4,3,2", ",")
      For i = 1 To 17
         c1 = c1 + Mid(s, i, 1) * v1(i - 1)
      Next i
      c1 = c1 Mod 11
       If v2(c1) = Mid(s, 18, 1) Then
          Label1.Caption = "校验结果:【 校验成功 ! 】"
          Text2.Text = s
       Else
          Label1.Caption = "校验结果:【 不合法 ! 系统在下面已经给出正确值 】"
          Text2.Text = Left(s, 17) & v2(c1)
       End If
   Else
      Label1.Caption = "校验结果:【 错误 !  长度应该是 18 位数,您输入的是: " & Len(s) & " 位数 】"
      Text2.Text = ""
   End If
 

[源代码打包下载]




网友评论    (发表评论)


发表评论:

评论须知:

  • 1、评论每次加2分,每天上限为30;
  • 2、请文明用语,共同创建干净的技术交流环境;
  • 3、若被发现提交非法信息,评论将会被删除,并且给予扣分处理,严重者给予封号处理;
  • 4、请勿发布广告信息或其他无关评论,否则将会删除评论并扣分,严重者给予封号处理。


扫码下载

加载中,请稍后...

输入口令后可复制整站源码

加载中,请稍后...