ISBN 10位校验码的计算方法

概述国际标准书号（International Standard Book Number，简称ISBN），常用的有10位、13位，从2007年1月1日起国际标准正式修订为13位。 10位计算方法如下： 1、假设某国际标准书号号码前9位是：7-309-04547； 2、计算加权和：； 3、计算的余数：； 4、计算 的差： 如果，校验码是字母“X”； 如果，校验码是数字“0”； 如果为其他数字，校验码是数字

国际标准书号（InternationalStandardBookNumber，简称ISBN），常用的有10位、13位，从2007年1月1日起国际标准正式修订为13位。

10位计算方法如下：

1、假设某国际标准书号号码前9位是：7-309-04547；

2、计算加权和：；

3、计算的余数：；

4、计算的差：

如果，校验码是字母“X”； 如果，校验码是数字“0”； 如果为其他数字，校验码是数字。

所以，本书的校验码是5，故该国际标准书号为：7-309-04547-5；

VB方法如下：

isbn = inputBox("Please input ISBN","ISBN") k = "" For i = 1 To Len(isbn)     s = MID(isbn,i,1)     If s <> "-" Then         k = k & s     End If Next If Len(k) <> 9 Then     MsgBox "Wrong input" If a = 0 To 9     a = a + (11 - i) *MID(k,1) Next a = a Mod 11 a = 11 - a If a = 10 Then     isbn = isbn & "-X" Else     If a = 11 Then         isbn = isbn & "-0"     Else         isbn = isbn & "-" & a     If MsgBox isbn

13位或者其他解释见：http://zh.wikipedia.org/wiki/%E5%9B%BD%E9%99%85%E6%A0%87%E5%87%86%E4%B9%A6%E5%8F%B7

总结

以上是内存溢出为你收集整理的ISBN 10位校验码的计算方法全部内容，希望文章能够帮你解决ISBN 10位校验码的计算方法所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。