Imports System

Public Module Module1

    Dim ID As String

    Dim answer As String

​

    Public Sub Main()

        Console.WriteLine("Hello, Student!")

        Console.WriteLine("What's your student ID")

        ID = Console.ReadLine()

        Console.WriteLine("Hello, " & ID & "!")

        Console.WriteLine(" What grade you get in ICT ")

        answer = Console.ReadLine()

        If answer = ("distinction") then

        Console.WriteLine(" keep up yhe good work")

        elseif answer=("merit") then

            console.WriteLine("keep workking to the deadline and u should get a Distinction")

        else answer="Pass" 

            console.WriteLine("what is wrong with you say this 10 times")

            for i=1 to 10

            console.writeline("I will be complete all my work by the deadline")

        next

        End If 

    End Sub

End Module