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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы