Namespace System.Collections.Generic
Module VBModule
Sub Main()
console.writeline("Enter ISBN:")
Dim isbn As String = console.readline()
isbn = isbn.Replace("-","")
Dim length As Integer = len(isbn)
Dim counter As Integer = 0
Dim isbn_list As New List (Of Integer)
Dim looping As Boolean = True
Do Until looping = False
Dim num As Integer = Convert.toInt32(isbn.Substring(counter,counter+1))
isbn_list.Add(num)
counter += 1
If counter = Length-1 Then
looping = False
End If
Loop
console.writeline(isbn_list(1))
counter = 0
Dim sum As Integer = 0
Do Until counter = length - 1
If counter Mod 2 = 0 Then
sum += isbn_list.Item(counter)
Else
sum += (isbn_list(counter))* 3
End If
Loop
Dim check As Integer = sum Mod 10
If check = isbn_list(length) Then
console.writeline("You entered a valid code.")
Else
console.writeline("You entered an invalid code.")
End If
End Sub
End Module
TmFtZXNwYWNlIFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljCk1vZHVsZSBWQk1vZHVsZQogIFN1YiBNYWluKCkKICAgIGNvbnNvbGUud3JpdGVsaW5lKCJFbnRlciBJU0JOOiIpCiAgICBEaW0gaXNibiBBcyBTdHJpbmcgPSBjb25zb2xlLnJlYWRsaW5lKCkKICAgIGlzYm4gPSBpc2JuLlJlcGxhY2UoIi0iLCIiKQogICAgRGltIGxlbmd0aCBBcyBJbnRlZ2VyID0gbGVuKGlzYm4pCiAgICBEaW0gY291bnRlciBBcyBJbnRlZ2VyID0gMAogICAgRGltIGlzYm5fbGlzdCBBcyBOZXcgTGlzdCAoT2YgSW50ZWdlcikKICAgIERpbSBsb29waW5nIEFzIEJvb2xlYW4gPSBUcnVlCiAgICBEbyBVbnRpbCBsb29waW5nID0gRmFsc2UKICAgIAlEaW0gbnVtIEFzIEludGVnZXIgPSBDb252ZXJ0LnRvSW50MzIoaXNibi5TdWJzdHJpbmcoY291bnRlcixjb3VudGVyKzEpKQogICAgCWlzYm5fbGlzdC5BZGQobnVtKQogICAgCWNvdW50ZXIgKz0gMQogICAgCUlmIGNvdW50ZXIgPSBMZW5ndGgtMSBUaGVuCiAgICAJCWxvb3BpbmcgPSBGYWxzZQogICAgCUVuZCBJZgogICAgTG9vcAogICAgY29uc29sZS53cml0ZWxpbmUoaXNibl9saXN0KDEpKQogICAgY291bnRlciA9IDAKICAgIERpbSBzdW0gQXMgSW50ZWdlciA9IDAKICAgIERvIFVudGlsIGNvdW50ZXIgPSBsZW5ndGggLSAxCiAgICAJSWYgY291bnRlciBNb2QgMiA9IDAgVGhlbgogICAgCQlzdW0gKz0gaXNibl9saXN0Lkl0ZW0oY291bnRlcikKICAgIAlFbHNlCiAgICAJCXN1bSArPSAoaXNibl9saXN0KGNvdW50ZXIpKSogMwogICAgCUVuZCBJZgogICAgTG9vcAogICAgRGltIGNoZWNrIEFzIEludGVnZXIgPSBzdW0gTW9kIDEwCiAgICBJZiBjaGVjayA9IGlzYm5fbGlzdChsZW5ndGgpIFRoZW4KICAgIAljb25zb2xlLndyaXRlbGluZSgiWW91IGVudGVyZWQgYSB2YWxpZCBjb2RlLiIpCiAgICBFbHNlCiAgICAJY29uc29sZS53cml0ZWxpbmUoIllvdSBlbnRlcmVkIGFuIGludmFsaWQgY29kZS4iKQogICAgRW5kIElmCiAgRW5kIFN1YgpFbmQgTW9kdWxl