Visual Basic, .NET, ASP, VBA, VBScript
 
  Библиотека кодов  
  Переменные, массивы, числа  
     
  Сортировка массива данных по порядку  
  Иногда требуется в процесе работы отсортировать массив данных по порядку. Вы, конечно, можете использовать элемент ListBox для сортировки, но все же... Вот вам готовый пример для сортировки данных во возрастанию. Если вы хотите сортировать данные по убыванию, то вы догадаетесь, что нужно сделать...
Option Base 1
Dim ard() As String

Sub BubbleSort(pstrArray() As String)
plngMaxItem = UBound(pstrArray)
Dim i As Long
Dim fSwitched As Boolean
Dim strTemp As String
Do
fSwitched = False
For i = 1 To plngMaxItem - 1
If pstrArray(i) > pstrArray(i + 1) Then 'сортируем по возрастанию
' If pstrArray(i) < pstrArray(i + 1) Then 'сортируем по убыванию
fSwitched = True
strTemp = pstrArray(i)
pstrArray(i) = pstrArray(i + 1)
pstrArray(i + 1) = strTemp
End If
Next
Loop While fSwitched
End Sub

Private Sub Command1_Click()
Call BubbleSort(ard())
For i = 1 To UBound(ard())
MsgBox ard(i), , i
Next
End Sub

Private Sub Form_Load()
ReDim ard(6)
ard(1) = "http://aa4"
ard(2) = "http://aa3"
ard(3) = "http://bb2"
ard(4) = "http://aa1"
ard(5) = "http://aa2"
ard(6) = "http://bb1"
End Sub
 
     
  VBNet online (всего: 51215)  
 

Логин:

Пароль:

Регистрация, забыли пароль?


В чате сейчас человек
 
     
  VBNet рекомендует  
   
     
  Лучшие материалы  
 
ActiveX контролы (112)
Hitman74_Library (36119)
WindowsXPControls (20739)
FlexGridPlus (19374)
DSMAniGifControl (18295)
FreeButton (15157)
Примеры кода (546)
Parol (18027)
Passworder (9299)
Screen saver (7654)
Kerish AI (5817)
Folder_L (5768)
Статьи по VB (136)
Мое второе впечатление... (11236)
VB .NET: дорога в будущее (11161)
Основы SQL (9225)
Сообщения Windows в Vi... (8788)
Классовая теория прогр... (8619)
 
     
Техническая поддержка MTW-хостинг | © Copyright 2002-2011 VBNet.RU | Пишите нам