用VB.NET确认一个ISBN值

国际标准图书编号(ISBN)是一个唯一的商业书籍标识条形码。如果你用过安排书籍的VB.NET程序,你就会熟悉用它确定指定的ISBN值是否有效的工作。

2007年以前,ISBN使用10位数代码;从今年开始,ISBN使用13位数字。样本VB.NET代码说明如何确定一个10和13位ISBN值。

我定义变量来计算10位和13位ISBN值。由于每种ISBN使用的计算技巧稍微有些不同,因此我为每种类型的ISBN值使用一组单独的变量。

这个实例对两个ISBN值——一个10位和一个13位值——进行硬编码。这两个值都是有效的ISBN号码,代码为每个ISBN值分别显示一个消息框,说明它有效。如果你用一个无效的ISBN值替代有效的ISBN值,消息框内将显示相应的消息。

实例定义变量来检查两种ISBN值,以方便读者理解代码。但是,你可能希望建立一个函数,它可接受一个ISBN值作参数,然后检查被提交的ISBN值是10位还是13位,并执行相应的验证,接着返回验证的结果。

查看Wikipedia了解有关ISBN使用和验证的更多信息

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 --------------------------...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办法, Format 或者FormatDateTime 竟然结果和...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace My ‘全局错误处理,新的解决方案直接...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用的爽呀,这篇文章写与2011年,看来我以前没...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选中的单元格进行处理 Dim m As Range, t...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integ...