Function Sort(ByVal list() as String)
Dim temp as String
For x = UBound(list) - 1 to 0 step - 1
For y = 0 to x - 1
If list(y) > list(y + 1) then
temp = list(y)
list(y) = list(y + 1)
list(y + 1) = temp
Pradeep, Microsoft MVP (Visual Basic) Please appreciate posts that have helped you by clicking icon on the left of the post.
"A problem well stated is a problem half solved." — Charles F. Kettering
Hi Pradeep. I have a homework assignment too but I'd rather cheat also so can you write my code for me too? Persoanlly, I think it's fine for me to get full marks even though I may have put no effort into the assignment while my classmates who have tried may not. I'm glad that you feel the same.