Генерация двадцати случайных чисел без повторений - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.083 из 5
Похожие ответы