Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Hello World")

        dim students() as string = { "Cynthia","Zewe", "Tatenda", "Kim", "Musawenkosi","Petronella", "Grenge","Siphe", "Lobengula", "Betina"}

        for i = 0 to 9

        console.write(STUDENTS(I)& " ")

    NEXT I 

    dim temp as string

    for t = 0 to 4

    for x = 0 to 8

    if students(x) < students(x+1) then 

        temp = students (x)        

        students(x)= students (x + 1)      

        students(x + 1) = temp    

    end if

next x

next t

console.Writeline()

for i= 0 to 9 

console.Write(Students(i)& " ")

next i

        End Sub

End Module