Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim num1 as string

        dim stu as integer

        console.WriteLine("how many results will be entered?")

        stu = console.readline()

        for x = 1 to stu

            console.WriteLine("please enter your data in CSV format")

            num1 = console.ReadLine()

            dim parts as string() = num1.split(",")

            dim digits as integer

            digits = parts(0).length

            while parts(1) > 100 or parts(2) > 100 or parts(3) > 100 or digits > 5 or digits < 5

                console.WriteLine("please enter valid data")

                num1 = console.ReadLine()

                parts = num1.split(",")

                digits = parts(0).length

            end while

​

            if parts(1) < 20 then

                console.WriteLine("value cannot be under 20, your data is being evaluated as 20")

                parts(1) = 20

            end if

​

            if parts(2) < 20 then

                console.WriteLine("value cannot be under 20, your data is being evaluated as 20")

            end if

​

            if parts(3) < 20 then

                console.WriteLine("value cannot be under 20, your data is being evaluated as 20")

            end if

        next

    End Sub

End Module

​