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
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
TmFtZXNwYWNlIFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljCk1vZHVsZSBWQk1vZHVsZQogIFN1YiBNYWluKCkKICAgIGNvbnNvbGUud3JpdGVsaW5lKCJFbnRlciBJU0JOOiIpCiAgICBEaW0gaXNibiBBcyBTdHJpbmcgPSBjb25zb2xlLnJlYWRsaW5lKCkKICAgIGlzYm4gPSBpc2JuLlJlcGxhY2UoIi0iLCIiKQogICAgRGltIGxlbmd0aCBBcyBJbnRlZ2VyID0gbGVuKGlzYm4pCiAgICBEaW0gY291bnRlciBBcyBJbnRlZ2VyID0gMAogICAgRGltIGlzYm5fbGlzdCBBcyBOZXcgTGlzdCAoT2YgSW50ZWdlcikKICAgIERpbSBsb29waW5nIEFzIEJvb2xlYW4KICAgIERvIFVudGlsIGxvb3BpbmcgPSBGYWxzZQogICAgCURpbSBudW0gQXMgSW50ZWdlciA9IENvbnZlcnQudG9JbnQzMihpc2JuLlN1YnN0cmluZyhjb3VudGVyLGNvdW50ZXIrMSkpCiAgICAJaXNibl9saXN0LkFkZChudW0pCiAgICAJY291bnRlciArPSAxCiAgICAJSWYgY291bnRlciA9IExlbmd0aC0xIFRoZW4KICAgIAkJbG9vcGluZyA9IEZhbHNlCiAgICAJRW5kIElmCiAgICBMb29wCiAgICBjb25zb2xlLndyaXRlbGluZShpc2JuX2xpc3QoMSkpCiAgICBjb3VudGVyID0gMAogICAgRGltIHN1bSBBcyBJbnRlZ2VyID0gMAogICAgRG8gVW50aWwgY291bnRlciA9IGxlbmd0aCAtIDEKICAgIAlJZiBjb3VudGVyIE1vZCAyID0gMCBUaGVuCiAgICAJCXN1bSArPSBpc2JuX2xpc3QuSXRlbShjb3VudGVyKQogICAgCUVsc2UKICAgIAkJc3VtICs9IChpc2JuX2xpc3QoY291bnRlcikpKiAzCiAgICAJRW5kIElmCiAgICBMb29wCiAgICBEaW0gY2hlY2sgQXMgSW50ZWdlciA9IHN1bSBNb2QgMTAKICAgIElmIGNoZWNrID0gaXNibl9saXN0KGxlbmd0aCkgVGhlbgogICAgCWNvbnNvbGUud3JpdGVsaW5lKCJZb3UgZW50ZXJlZCBhIHZhbGlkIGNvZGUuIikKICAgIEVsc2UKICAgIAljb25zb2xlLndyaXRlbGluZSgiWW91IGVudGVyZWQgYW4gaW52YWxpZCBjb2RlLiIpCiAgICBFbmQgSWYKICBFbmQgU3ViCkVuZCBNb2R1bGU=