Randomize - VB

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

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

Привет всем. Прошу вас помочь мне с одним делом. Есть небольшой участок кода:
Переменная value принимает случайное значение от 1 до 25. По нажатию кнопки, переменная принимает рандомное значение. А нужно сделать так чтобы например если выпадает 1, то при следующем нажатии выпадало любое значение кроме 1, и так далее до 25. Чтобы получилось 25 не повторяющихся чисел. Буду очень благодарен за любую помощь в решении проблемы.

Решение задачи: «Randomize»

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 из 5