【每日一题】ISBN-10校验 - 2022.10.12 _ 按键精灵脚本教程

查看: 3858\|回复: 3	[神梦] 【每日一题】ISBN-10校验 - 2022.10.12 [复制链接]

神梦科技

神梦无痕

组别按键认证大神
UID2699998
帖子3587
精华11
鲜花2173 朵
铜币7386 个
银币1021 个
在线时间91120
注册时间2014-08-23

1^#

字体大小: t T

发表于 2022-10-12 23:02 | |只看楼主

题目描述

ISBN-10标识符的长度为十位数。前九个字符是数字0-9。最后一个数字可以是0-9或X，表示值为10。
如果数字之和乘以其位置模11等于零，则ISBN-10数字有效。

【示例】
ISBN : 1 1 1 2 2 2 3 3 3 9
position : 1 2 3 4 5 6 7 8 9 10
它是一个合法的 ISBN-10：
(1*1 + 1*2 + 1*3 + 2*4 + 2*5 + 2*6 + 3*7 + 3*8 + 3*9 + 9*10) % 11 = 0

题目难度：简单
题目来源：ISBN-10 Validation | Codewars
题目交流： 584781753

Import "SmAssert.dll"
Function ISBN10校验(标识符)
// 您的代码写在这里
End Function
SmAssert ISBN10校验("1112223339") = True
SmAssert ISBN10校验("048665088X") = True
SmAssert ISBN10校验("1293000000") = True
SmAssert ISBN10校验("1234554321") = True
SmAssert ISBN10校验("1234512345") = False
SmAssert ISBN10校验("1293") = False
SmAssert ISBN10校验("X123456788") = False
SmAssert ISBN10校验("ABCDEFGHIJ") = False
SmAssert ISBN10校验("XXXXXXXXXX") = False
SmAssert ISBN10校验("123456789T") = False
SmAssert ISBN10校验("048665088XX") = False

复制代码

参考题解

Import "SmAssert.dll"
Function ISBN10校验(标识符)
'【作者】：神梦无痕
'【ＱＱ】：1042207232
'【Ｑ群】：584781753
Dim length, result, i, m, sum
result = False
length = Len(标识符)
// 判断长度是否为10位
If length = 10 Then
// 判断前九位是否为纯数字
If IsNumeric(Left(标识符, 9)) Then
sum = 0
For i = 1 To 10
m = Mid(标识符, i, 1)
If IsNumeric(m) Then
m = Int(m)
ElseIf UCase(m) = "X" Then
m = 10
Else
// 其他字母的不符合
Goto over
End If
sum = sum + m * i
Next
// 如果数字之和乘以其位置模11等于零，则符合
If sum Mod 11 = 0 Then
result = True
End If
End If
End If
Rem over
ISBN10校验 = result
End Function
SmAssert ISBN10校验("1112223339") = True
SmAssert ISBN10校验("048665088X") = True
SmAssert ISBN10校验("1293000000") = True
SmAssert ISBN10校验("1234554321") = True
SmAssert ISBN10校验("1234512345") = False
SmAssert ISBN10校验("1293") = False
SmAssert ISBN10校验("X123456788") = False
SmAssert ISBN10校验("ABCDEFGHIJ") = False
SmAssert ISBN10校验("XXXXXXXXXX") = False
SmAssert ISBN10校验("123456789T") = False
SmAssert ISBN10校验("048665088XX") = False

复制代码

插件下载

【插件】神梦断言插件 SmAssert.dll，帮助开发者发现业务逻辑错误

游戏、办公、网页、脚本辅助定制
联系QQ: 1042207232
【命令库】利用IE+Chrome谷歌双核操纵网页填表，支持框架操作
【命令库】按键精灵也玩套接字(Sock)
SMWHff's Blog | 梦痕编程 - 神梦博客

回顶部

发送短消息 UID 4332968 帖子 56 精华 0 鲜花 37 朵铜币 86 个银币 55 个性别在线时间 100 注册时间 2017-02-10 最后登录 2024-08-20 查看公共资料搜索主题搜索帖子 blood0327 组别小学三年级 UID4332968 帖子56 精华0 鲜花37 朵铜币86 个银币55 个在线时间100 注册时间2017-02-10	2^# 字体大小: t T 发表于 2022-10-13 10:11 \| \|只看该用户顶。。。。。。。。。


	回顶部

发送短消息 UID 8870044 帖子 3 精华 0 鲜花 22 朵铜币 13 个银币 8 个性别在线时间 0 注册时间 2022-10-13 最后登录 2024-02-22 查看公共资料搜索主题搜索帖子恒鼎电玩组别幼儿园 UID8870044 帖子3 精华0 鲜花22 朵铜币13 个银币8 个在线时间0 注册时间2022-10-13	3^# 字体大小: t T 发表于 2022-10-13 12:02 \| \|只看该用户看看内容是啥


	回顶部

发送短消息 UID 323316 帖子 1002 精华 0 鲜花 92 朵铜币 5288 个银币 162 个性别在线时间 16940 注册时间 2009-10-19 最后登录 2023-09-27 查看公共资料搜索主题搜索帖子 csyzc csyzc 组别大学二年级 UID323316 帖子1002 精华0 鲜花92 朵铜币5288 个银币162 个在线时间16940 注册时间2009-10-19 按键精灵开发者1级可通过提升认证等级来升级勋章：rz.anjian.com	4^# 字体大小: t T 发表于 2022-10-17 20:01 \| \|只看该用户学习一下


	回顶部

上一主题| 下一主题

[神梦] 【每日一题】ISBN-10校验 - 2022.10.12 [复制链接]