Генерация двадцати случайных чисел без повторений - VB
Формулировка задачи:
Дамы и господа, извиняюсь за беспокойство но нужна ваша помощь. Задача такая-нужен код при помощи которого рандомно выпадали значения от 1 до 20 таким образом что бы цифры не повторялись. А после того когда все цифры в рандомном порядке от 1 до 20 выпали выдавалось сообщение об этом. Помогите пожалуйста. Заранее спасибо
P.S. представьте пожалуйста код Visual Basic 6.0.
Решение задачи: «Генерация двадцати случайных чисел без повторений»
textual
Листинг программы
Function GetRnd() As Integer Static Z(1 To 20) As Integer Static p As Integer Do n% = Rnd * 20 If n% > 0 Then q% = 0 For i% = 1 To p% If n% = Z(i%) Then q% = -1 Exit For End If Next i% If q% = 0 Then p = p + 1 Z(p) = n% GetRnd = n% If p = 20 Then p = 0 For i% = 1 To 20 Z(i%) = 0 Next i% MsgBox "ÂûïГ*ëè ГўГ±ГҐ..." End If Exit Function End If End If Loop End Function Sub Start() Randomize For i% = 1 To 20 Debug.Print GetRnd() Next i% End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д