Randomize - VB

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

Привет всем. Прошу вас помочь мне с одним делом. Есть небольшой участок кода:
Randomize()
Dim value As Integer = CInt(Int((25 * Rnd()) + 1))
Переменная value принимает случайное значение от 1 до 25. По нажатию кнопки, переменная принимает рандомное значение. А нужно сделать так чтобы например если выпадает 1, то при следующем нажатии выпадало любое значение кроме 1, и так далее до 25. Чтобы получилось 25 не повторяющихся чисел. Буду очень благодарен за любую помощь в решении проблемы.

Код к задаче: «Randomize - VB»

textual
Private Sub Command1_Click()
Dim value As Integer, n As Integer
    Dim per() As Integer
    Dim res() As Integer
    n = InputBox("N=?")
    ReDim per(n)
    ReDim res(n) 'для дальнейшего, если нужно
   Randomize
re:
       value = CInt(Int((n * Rnd()) + 1))
              If per(value) = 0 Then
                per(value) = 1
                num = num + 1
                res(num) = value
                Label1 = Label1 & "  " & value
                If num = n Then GoTo en
            End If
            GoTo re
en:
End Sub

14   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ