Выбор Чисел

[Jacks]

Подскажите пожалуйста,
как сделать, чтобы прога случайно выбирала из 5 чисел 5
на пример из 1 2 3 4 5 - 2 4 5 3 1, только без повторений(5 5 4 4 1).

[alibek]

Составляешь список значений.
Затем выбираешь один элемент из списка и удаляешь его после использования.
Вот пример на ListBox (lstRnd)

Код: Выделить всё

'Загрузка ListBox
lstRnd.AddItem "1"
lstRnd.AddItem "2"
lstRnd.AddItem "3"
lstRnd.AddItem "4"
lstRnd.AddItem "5"
'Значения в случайном порядке
While lstRnd.ListCount > 0
  Randomize Timer
  I = Fix(Rnd*lstRnd.ListCount)
  N = Val(lstRnd.List(I))
  lstRnd.RemoveItem I
  Debug.Print N 'печать случайного числа
Wend


Разумеется, тоже самое лучше сделать на основе массива или коллекции.

[skiperski]

Для небольшой последовательности можно без выкрутасов прямо в лоб

Код: Выделить всё

Public Function test()
   
    Dim i&, j&, s$
   
    s = ","
    Do
        i = Int(Rnd() * 5) + 1
        If (InStr(1, s, "," & i & ",") = 0) Then
            s = s & i & ","
            j = j + 1
        End If
    Loop While (j < 5)
    s = Mid$(Left$(s, Len(s) - 1), 2)
   
    test = s
    'test = Split(s, ",")
   
End Function

[GAGArin]

Берем числа от одного до пяти и поочереди пытаемся с разбегу засунуть их в случайную ячейку массива. Если там уже есть чего, то стучимся в случайные ячейки массива (головой) до победного конца.

Код: Выделить всё


dim a(5) as integer

a(1)=1
a(2)=2
a(3)=3
a(4)=4
a(5)=5


Sub Zapolnenie()

For X = 1 To 5
BitieGolovoiObStenu (X)
Next X

End Sub



Sub BitieGolovoiObStenu (Golova As Integer)

Randomize
s = (Rnd * 4) + 1

If a(s) = 0 Then
a(s) = a(s)+Golova
Else
BitieGolovoiObStenu (Golova)
End If

End Sub



Это топорный вариант который хоть и работает, но имеет крайне низкий КПД но для пяти- десяти чисел подойдет. (Попробуешь больше я за последствия не ручаюсь) [/code]

[GAGArin]

Ни себе фига пока писал уже 2 ответа появилось.