Главная страницаОбратная связьКарта сайта

Разбросать данные в массиве случайным образом



Public Sub RandomizeList(items() As String)
Dim min_item As Integer
Dim max_item As Integer
Dim i As Integer
Dim j As Integer
Dim tmp_value As String

min_item = LBound(items)
max_item = UBound(items)

For i = min_item To max_item - 1

j = Int((max_item - i + 1) * Rnd + i)
tmp_value = items(i)
items(i) = items(j)
items(j) = tmp_value
Next i
End Sub

Private Sub Command1_Click()
Dim i As Integer
Dim items() As String
Dim txt As String

Randomize

items = Split("sadf,weqt,fvd894w76,we21,33,cvhbea,ery", ",")

RandomizeList items

txt = ""
For i = 0 To UBound(items)
txt = txt & items(i) & vbCrLf
Next i
txtRandomized.Text = txt
End Sub


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Разбросать данные в массиве случайным образом", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2017 Дискета.info