Imports System
Public Module Module1
Public Sub Main()
Dim ISBN(10) As Integer
Dim Multiplier(9) As Integer
Dim Total As Integer = 0
For i = 1 to 9
Console.Writeline("Enter "& i &"th digit of ISBN" )
ISBN(i) = Console.ReadLine
Next
Multiplier(i) = 11 - i
Total = Total + ISBN(i)*Multiplier(i)
ISBN(10) = (11 - Total Mod 11) Mod 11
Console.Writeline("Here is the total ISBN")
IF ISBN(10) = 10 Then
Console.Write (ISBN(i))
Console.Write ("x")
Else
For i = 1 to 10
End If
End Sub
End Module
