Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim s1 as string = "ID"

        Dim s2 as string = " English"

        Dim s3 as string = " Maths"

        Dim s4 as string = " Science"

        Dim i as integer

        For i = 0 to 3

            Dim n as string = console.ReadLine()

            Dim n2() as string = n.Split(",")

            Dim n3 as integer = n2(0)

            Dim n4 as integer = n2(1)

            Dim n5 as integer = n2(2)

            Dim n6 as integer = n2(3)

            For i = 0 to 3

                n3 = n2(i).Length

            next

        next

​

        Console.WriteLine("{0,-20}.{1,10}{2,10}", s1, s2, s3, s4)

        Console.WriteLine("{0,-20}.{1,10}{2,10}", "123", "40", "50")

    End Sub

End Module

​