Option Strict On

Option Explicit On

​

Imports System

​

Public Module Module1

    Public Sub Main()

        ' Declare an array of Single values

        Dim marks(3) As Single

        ' Loop from 0 to n (in this case 3)

        For counter As Integer = 0 To marks.Length - 1

            ' Declare a variable to check if the conversion was succesful

            Dim success As Boolean = False

​

            ' Start a Do/Until loop

            Do

                ' Propt the user to enter something

                Console.WriteLine("Please enter test marks for test " & counter + 1)

                ' Check if the conversion from ReadLine to a Single is valid

                success = Single.TryParse(Console.ReadLine(), marks(counter)) AndAlso marks(counter) >= 0 AndAlso marks(counter) <= 100

                ' If not then scold the user

                If (Not success) Then

                    Console.WriteLine("Please enter valid test marks.")

                End If

            Loop Until success

        Next

        ' Debug - just print out the values of marks

        For Each mark As Single In marks

            Console.WriteLine(mark)

        Next

    End Sub

End Module