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

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   点击:()  评论:()
声明:本站部分内容及图片来自互联网,转载是出于传递更多信息之目的,内容观点仅代表作者本人,不构成投资建议。投资者据此操作,风险自担。如有任何标注错误或版权侵犯请与我们联系,我们将及时更正、删除。
▌相关推荐
最难学的七大编程语言,VB 第一,Python垫底,看你学的排第几
在很多人眼里程序员的标配就是黑框眼镜+格子衫+双肩包+牛仔裤+运动鞋,拥有了这些可能就被判定为一个程序员。而如何判定一个程序员的工作年限,那就需要从他的头发浓密度上去判...【详细内容】
2023-08-14  Search: VB  点击:(159)  评论:(0)  加入收藏
从TVB带货到梅西开播 淘宝直播“6·18”集火内容化
每经记者 陈婷 每经编辑 刘雪梅“梅西呢?”“梅西在哪儿呢?”6月14日下午,梅西即将在淘宝开启直播首秀。球王的影响力非同小可,在梅西真正现身之前,翘首以盼的网友们就已经挤进了...【详细内容】
2023-06-19  Search: VB  点击:(89)  评论:(0)  加入收藏
试水带货销量“冲上云霄”,TVB打造沉浸式港剧直播
在过去三年里,直播行业的增长是爆炸式的。可以预见的是,受到外部和内部环境双重影响的直播领域,尤其在“直播带货”板块,未来的赛道或将受到来自各行各业发起的挑战。3月7日,TVB...【详细内容】
2023-04-04  Search: VB  点击:(131)  评论:(0)  加入收藏
TVB杀入直播带货,港娱发展就能由凉凉变火热了?
(IC photo/ 图)近日,香港TVB与淘宝合作首场直播带货,主播包括TVB资深艺人陈豪和陈敏之,持续6小时的营业时间,最终交出2350万元的首场带货成绩单。在一周前,TVB宣布与淘宝达成合作,双...【详细内容】
2023-03-21  Search: VB  点击:(136)  评论:(0)  加入收藏
TVB入局交出亮眼成绩单 明星直播带货能走多远
  TVB也入局 明星直播带货能走多远【香港电视广播有限公司广告下滑后直播电商成为撑起营收的第二增长曲线】  3月7日晚,香港电视广播有限公司(以下简称TVB)淘宝直播间“T...【详细内容】
2023-03-13  Search: VB  点击:(145)  评论:(0)  加入收藏
突然引爆!TVB彻底火了,股价4天暴涨250%!投资1亿,如今2800万也没人接盘!张翰主演的电视剧凉了?
失落多年的TVB,又火了起来!3月8日,香港电视广播有限公司(00511.HK,简称TVB)股价再度暴涨85%,创出3年多新高。近4个交易日,TVB股价累计上涨近250%。在TVB的带动下,香港影视股当天集体...【详细内容】
2023-03-09  Search: VB  点击:(148)  评论:(0)  加入收藏
揭秘TVB“老戏骨”入淘带货 首秀为何大火
3月7日晚,TVB淘宝直播间首次营业,吸引了超过485万人蹲守直播间,第一场带货2350万元。3月3日TVB宣布与淘宝直播达成合作意向,计划今年组织旗下艺人推出至少48场带货直播,当日TVB港...【详细内容】
2023-03-08  Search: VB  点击:(152)  评论:(0)  加入收藏
TVB,从演播室走向带货间
3月7日,TVB继改编演唱港乐金曲登顶的音综《声生不息》以及在翡翠台与内地网播平台同步上线《法证先锋5》《隐形战队》等剧集后,再度充实内地业务线。当晚18时,TVB与淘宝合作的...【详细内容】
2023-03-08  Search: VB  点击:(109)  评论:(0)  加入收藏
港星的尽头是直播带货?TVB入驻淘宝直播
财联社|新消费日报3月6日讯(研究员 梁又匀),近日,港股电视广播(HK.00511)宣布,透过旗下上海翡翠东方传播(TVBC)与淘宝达成合作意向,双方将于2023年内合作展开超过48场电商直播,此合作预...【详细内容】
2023-03-07  Search: VB  点击:(170)  评论:(0)  加入收藏
红红火火的VB,悄然离去,新型中文编程,如日中天
“悲哀!现在用VB连1200都赚不到。”一位VB程序员有感而发。曾经红红火火的VB编程语言,如今却徘徊在被淘汰边缘,让人惋惜。依稀记得,读大学时候,有一位财务专业同学,特别喜欢计算机...【详细内容】
2022-11-23  Search: VB  点击:(403)  评论:(0)  加入收藏
▌简易百科推荐
Netflix 是如何管理 2.38 亿会员的
作者 | Surabhi Diwan译者 | 明知山策划 | TinaNetflix 高级软件工程师 Surabhi Diwan 在 2023 年旧金山 QCon 大会上发表了题为管理 Netflix 的 2.38 亿会员 的演讲。她在...【详细内容】
2024-04-08    InfoQ  Tags:Netflix   点击:(2)  评论:(0)  加入收藏
即将过时的 5 种软件开发技能!
作者 | Eran Yahav编译 | 言征出品 | 51CTO技术栈(微信号:blog51cto) 时至今日,AI编码工具已经进化到足够强大了吗?这未必好回答,但从2023 年 Stack Overflow 上的调查数据来看,44%...【详细内容】
2024-04-03    51CTO  Tags:软件开发   点击:(7)  评论:(0)  加入收藏
跳转链接代码怎么写?
在网页开发中,跳转链接是一项常见的功能。然而,对于非技术人员来说,编写跳转链接代码可能会显得有些困难。不用担心!我们可以借助外链平台来简化操作,即使没有编程经验,也能轻松实...【详细内容】
2024-03-27  蓝色天纪    Tags:跳转链接   点击:(13)  评论:(0)  加入收藏
中台亡了,问题到底出在哪里?
曾几何时,中台一度被当做“变革灵药”,嫁接在“前台作战单元”和“后台资源部门”之间,实现企业各业务线的“打通”和全域业务能力集成,提高开发和服务效率。但在中台如火如荼之...【详细内容】
2024-03-27  dbaplus社群    Tags:中台   点击:(9)  评论:(0)  加入收藏
员工写了个比删库更可怕的Bug!
想必大家都听说过删库跑路吧,我之前一直把它当一个段子来看。可万万没想到,就在昨天,我们公司的某位员工,竟然写了一个比删库更可怕的 Bug!给大家分享一下(不是公开处刑),希望朋友们...【详细内容】
2024-03-26  dbaplus社群    Tags:Bug   点击:(5)  评论:(0)  加入收藏
我们一起聊聊什么是正向代理和反向代理
从字面意思上看,代理就是代替处理的意思,一个对象有能力代替另一个对象处理某一件事。代理,这个词在我们的日常生活中也不陌生,比如在购物、旅游等场景中,我们经常会委托别人代替...【详细内容】
2024-03-26  萤火架构  微信公众号  Tags:正向代理   点击:(11)  评论:(0)  加入收藏
看一遍就理解:IO模型详解
前言大家好,我是程序员田螺。今天我们一起来学习IO模型。在本文开始前呢,先问问大家几个问题哈~什么是IO呢?什么是阻塞非阻塞IO?什么是同步异步IO?什么是IO多路复用?select/epoll...【详细内容】
2024-03-26  捡田螺的小男孩  微信公众号  Tags:IO模型   点击:(9)  评论:(0)  加入收藏
为什么都说 HashMap 是线程不安全的?
做Java开发的人,应该都用过 HashMap 这种集合。今天就和大家来聊聊,为什么 HashMap 是线程不安全的。1.HashMap 数据结构简单来说,HashMap 基于哈希表实现。它使用键的哈希码来...【详细内容】
2024-03-22  Java技术指北  微信公众号  Tags:HashMap   点击:(11)  评论:(0)  加入收藏
如何从头开始编写LoRA代码,这有一份教程
选自 lightning.ai作者:Sebastian Raschka机器之心编译编辑:陈萍作者表示:在各种有效的 LLM 微调方法中,LoRA 仍然是他的首选。LoRA(Low-Rank Adaptation)作为一种用于微调 LLM(大...【详细内容】
2024-03-21  机器之心Pro    Tags:LoRA   点击:(12)  评论:(0)  加入收藏
这样搭建日志中心,传统的ELK就扔了吧!
最近客户有个新需求,就是想查看网站的访问情况。由于网站没有做google的统计和百度的统计,所以访问情况,只能通过日志查看,通过脚本的形式给客户导出也不太实际,给客户写个简单的...【详细内容】
2024-03-20  dbaplus社群    Tags:日志   点击:(4)  评论:(0)  加入收藏
站内最新
站内热门
站内头条