Перемешать строки в ListBox - VB

Узнай цену своей работы

Формулировка задачи:

Можно ли перемешать строки в ListBox? Ну то есть в случайном порядке.

Решение задачи: «Перемешать строки в ListBox»

textual
Листинг программы 
Private Sub Form_Click()
Dim tmp As String, i As Long, r As Long
Randomize
For i = 0 To List1.ListCount - 1
  r = Int(Rnd * List1.ListCount)
  tmp = List1.List(i)
  List1.List(i) = List1.List(r)
  List1.List(r) = tmp
Next i
End Sub

ИИ для рефератов и докладов

  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

Оцени полезность:

13   голосов , оценка 3.692 из 5
Похожие ответы