Imports System

Public Module Module1

    Public Sub Main()

        Dim num as integer

        Dim students(10) As string 

        students(0) = 0

        students(1) = 10

        students(2) = 20

        students(3) = 30

        students(4) = 40

        students(5) = 50

        students(6) = 60

        students(7) = 70

        students(8) = 80

        students(9) = 90

​

        Console.WriteLine("Choose a number between 0-9 inclusive")

        num = Console.ReadLine()

        Do while num < 0 or num > 9

            Console.WriteLine("Please enter a valid number")

            num = Console.ReadLine()

        Loop

        Console.WriteLine(students(num))

    End Sub

End Module