Xác nhận tính hợp lệ của ISBN

Bạn muốn xác minh một ISBN (International Standard Book Number: mã số sách chuẩn quốc tế) có hợp lệ hay không.
Tính và kiểm tra bằng phép Mod 11.
Trong trường hợp này, bạn nhân mỗi chữ số với vị trí của nó (ngoại trừ số cuối cùng), cộng những số này với nhau, và kiểm tra phần dư của tổng chia cho 11 có trùng với chữ số cuối cùng hay không.
Dưới đây là hàm mà bạn có thể sử dụng để kiểm tra ISBN:

---

Private Function ValidateISBN(ByVal value As String) As Boolean Dim CheckSum As Integer = 0
Dim i As Integer
For i = 0 To value.Length - 2   
CheckSum += Integer.Parse(value.Chars(i)) * (i + 1)   
Next     
Dim CheckDigit As Integer   
CheckDigit = Integer.Parse(value.Chars(value.Length - 1))    
Return (CheckSum Mod 11 = CheckDigit)
End Function

---

Bạn có thể thử nghiệm hàm này như sau:

---

If ValidateISBN("1861007353") Then  
' Đây là ISBN hợp lệ.End If

---

Nhớ rằng phương thức này giả sử mọi dấu “-” đã bị loại khỏi chuỗi. Nếu không chắc bước này đã được thực hiện hay chưa, bạn có thể viết thêm mã để loại bỏ hoặc bỏ qua dấu “-” .

Trích từ "Các giải pháp lập trình Visual Basic .Net (tập 1)"