驗證網址zh.wikipedia.org安全性

国际标准书号 - 维基百科

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" End If a = 0 For i = 1 To 9 a = a + (11 - i) *Mid(k, i, 1) Next a = a Mod 11 a ......

網址安全性掃描由 google 提供