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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д