Imports System
Public Module Module1
Public Sub Main()
Console.WriteLine("Hello World")
dim marks() as string ={"Anotida","Bridgette", "Rutendo", "Mufaro","Kupakwashe", "Rejoice","Mandisa","Gracious", "Melissa", "Nomusa"}
for i = 0 to 9
console.Write(marks(i) &" ")
next i
dim temp as string
for t = 0 to 7
for i = 0 to 8
if marks (i) < marks (i + 1)then
temp = marks(i)
marks(i) = marks(i + 1)
marks(i + 1) = temp
end if
next t
console.WriteLine()
for x = 0 to 9
console.Write(marks(x)& " ")
next x
End Sub
End Module