您当前的位置:首页 > 电脑百科 > 程序开发 > 编程百科

VB编写的身份证号验证程序

时间:2022-09-21 14:01:21  来源:  作者:吐烟圈的泡泡

最近在使用一个信息统计系统,里面要对每个人的身份证号码验证,因为有90多人,一个一个手工输入难免会有错误,如图这种情况。

 

于是用VB6写了个身份证号码验证程序,代码如下:

 

添加文本框Text1,标签Label1,按键Command1

 

Private Sub Command1_Click()

Dim B() As String: Dim k&, j&, i(17) As Long

Const A As String = "7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2,1,0,X,9,8,7,6,5,4,3,2"

B() = Split(A, ",")

For j = 1 To 17

i(j - 1) = Val(Mid(Text1.Text, j, 1)) * Val(B(j - 1)) '第1位到第17位分别乘以B(0)...B(16),所有积求和

k = k + i(j - 1)

Next

Label1.Caption = "校验位是:" & B((k Mod 11) + 17) '余数1-10,对应B(17)-B(27)

End Sub

为了更精简些,反复修改了3次,应该不能再精简了吧?

校验码计算方法,网上有教程。



Tags:VB   点击:()  评论:()
声明:本站部分内容及图片来自互联网,转载是出于传递更多信息之目的,内容观点仅代表作者本人,如有任何标注错误或版权侵犯请与我们联系(Email:2595517585@qq.com),我们将及时更正、删除,谢谢。
▌相关推荐
最近在使用一个信息统计系统,里面要对每个人的身份证号码验证,因为有90多人,一个一个手工输入难免会有错误,如图这种情况。 于是用VB6写了个身份证号码验证程序,代码如下: 添加文...【详细内容】
2022-09-21  Tags: VB  点击:(0)  评论:(0)  加入收藏
VBA并不能真的调用微信程序,用的是VBS脚本模拟按键操作方式。表格式样: Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)-----------------...【详细内容】
2022-05-05  Tags: VB  点击:(145)  评论:(0)  加入收藏
最近,DVBLogic发布了一款跨平台开源软件叫做TVMosaic 社区服务器,而这个“TVMosaic”背后也有一些挺复杂的故事。 TVMosaic的前身是 DVBLink, DVBLink 是一个可将电脑或NAS变成PVR的软件,PVR即Personal Video Recorder 个...【详细内容】
2021-10-09  Tags: VB  点击:(181)  评论:(0)  加入收藏
最近有粉丝在后台向我提了一个工作中的小需求,具体如下:■ 因为公司要组织一个知识竞赛,其中有一个游戏环节,需要从一组名单中随机选出指定数量的人员参加游戏,并且需要在大屏中...【详细内容】
2021-08-02  Tags: VB  点击:(479)  评论:(0)  加入收藏
今天这一章就给大家分享一下VBA基本语法的For Each…Next的特点,使用说明等。首先看一下For Each结构的具体含义:For Each 元素变量 in 组合(可以是集合或者数组)要执行的...【详细内容】
2021-01-07  Tags: VB  点击:(986)  评论:(0)  加入收藏
使用wps的小伙伴应该都知道WPS默认是不支持宏的,我们打开wps的开发工具可以看到相应的功能菜单都是灰色不可操作的。但实际工作中大家又或多或少的需要用到宏功能。今天教大...【详细内容】
2020-09-08  Tags: VB  点击:(416)  评论:(0)  加入收藏
在各行各业的日常工作中,经常需要把一份工作表的内容归类拆分到N个工作簿,最基础的办法就是通过筛选、排序归类数据,然后复制原数据,再新建工作簿,粘贴数据,如此往复......如果数...【详细内容】
2020-07-24  Tags: VB  点击:(469)  评论:(0)  加入收藏
众所周知,大数据就是海量数据,如视频网站每天用户上传的视频数量数以万计,这个“万计”是以GB为单位吗?不,是PB为单位,即1PB等于差不多100万GB。这就是大数据了。这些数据如果没有...【详细内容】
2020-06-10  Tags: VB  点击:(172)  评论:(0)  加入收藏
用Python的好处是,可以把一系列的操作全部通过程序完成,步骤分解下来有这些:1、通过爬虫获取数据(用selenium操作,当然这个是最愚蠢且效率最低的办法,最好还是直接后台数据库调取...【详细内容】
2019-09-10  Tags: VB  点击:(352)  评论:(0)  加入收藏
▌简易百科推荐
将相似或重复请求在上游系统中合并后发往下游系统,可以大大降低下游系统的负载,提升系统整体吞吐率。文章介绍了 hystrix collapser、ConcurrentHashMultiset、自实现BatchCol...【详细内容】
2022-09-22  java小悠  今日头条  Tags:   点击:(1)  评论:(0)  加入收藏
前面可以通过ImagPullPolicy和ImageullSecrets指定下载镜像的策略,ServiceAccount也可以基于spec.imagePullSecret字段附带一个由下载镜像专用的Secret资源组成的列表,用于在...【详细内容】
2022-09-21  没有烦恼的河豚    Tags:kubernetes   点击:(6)  评论:(0)  加入收藏
原始代码:# 执行系统命令__import__('os').system("ping www.google.com")结果:Pycharm输出一堆乱码: 快捷键:Ctrl + Alt + s 调出设置菜单或文件→设置→ 编辑...【详细内容】
2022-09-21  开会不带本    Tags:Pycharm   点击:(8)  评论:(0)  加入收藏
全局搜索GET /shops_index,goods_index/_search //多索引搜索用逗号隔开或者 /_all/_search、/_search{ "query": { "multi_match": { "query": "口腔", // 如...【详细内容】
2022-09-21  51编程  今日头条  Tags:Elasticsearch   点击:(7)  评论:(0)  加入收藏
最近在使用一个信息统计系统,里面要对每个人的身份证号码验证,因为有90多人,一个一个手工输入难免会有错误,如图这种情况。 于是用VB6写了个身份证号码验证程序,代码如下: 添加文...【详细内容】
2022-09-21  吐烟圈的泡泡    Tags:VB   点击:(0)  评论:(0)  加入收藏
低代码/无代码(LCNC)正在引起企业的关注。那么,它提供了什么?让我们探索一下。 市场对开发商的需求空前高涨。然而,市场上仍然缺乏可以让商业项目停滞数月的人才。为了解决这个问...【详细内容】
2022-09-21   qaseven   网易号  Tags:低代码   点击:(0)  评论:(0)  加入收藏
嵌入式Linux开发中,有时候为了定位问题,需要查看某个进程的各个线程的运行情况。例子multi_thread.c:左右滑动查看全部代码>>>#define _GNU_SOURCE#include <pthread.h>#includ...【详细内容】
2022-09-21  嵌入式开发卡贝  今日头条  Tags:线程   点击:(6)  评论:(0)  加入收藏
以下内容来自公众号逆锋起笔,关注每日干货及时送达出品 | OSC开源社区(ID:oschina2013)Meta 宣布批准了 Hack、Python、C++ 和 Rust 作为员工和开发人员在其平台上构建软件的...【详细内容】
2022-09-20   技术小生     Tags:语言   点击:(0)  评论:(0)  加入收藏
XDP Scoket也一个文件描述符,因此可以通过poll/epoll/select来等待IO事件,需要说明的是:收/发的数据包是原始的以太网帧,因此在包处理上要麻烦一些。 一. XDP Socke...【详细内容】
2022-09-19  IT小白进阶之路  今日头条  Tags:XDP   点击:(2)  评论:(0)  加入收藏
升级一些日常工具 当 Rust 开始受到关注时,社区给予它的主要目的之一是重新创建一些更流行的命令行工具。一旦你用 Rust 开发了你的第一个命令行应用程序,就很容易掌握其中的...【详细内容】
2022-09-19  庄志炎  今日头条  Tags:Rust   点击:(0)  评论:(0)  加入收藏
站内最新
站内热门
站内头条