Упорядочить массив по возрастанию элементов - VB
Формулировка задачи:
в Visual Basic 6.0
Дан одномерный массив из N элементов:
в)Упорядочить массив по возрастанию элементов..
Решение задачи: «Упорядочить массив по возрастанию элементов»
textual
Листинг программы
Dim f&, j$(), s$ For f = 0 To List1.ListCount - 1 s = s & " " & List1.ListIndex(f) Next j = Sort(Split(Mid$(s, 2)), [Текстовые элементы]) List1.Clear For f = 0 To UBound(j) List1.AddItem j(f) Next