Imports System
Public Module Module1
Dim names()As string = {"Sophie", "Lily", "Jessica", "Isabella","Ava","Poppy","Emily", "Isla", "olivia", "Amelia"}
Public Sub Main()
DIm swapmade as boolean= True
while swapmade= True
swapmade= False
For x = 0 To UBound (names) - 1
If names (x+1) < Names(x) Then
Dim temp as string = names(x)
names(x) = names(x+1)
names(x+1) = temp
swapmade = true
end if
next
End Sub
End Module