Visual Basic FAQ

Генератор случайных чисел.
Вот еще вариант ГСЧ. Методом Фибоначчи:
Код поместить в модуль.

Public LastNums(16) As Double

Sub RndRandomize()
    Randomize
    For I = 0 To 16
        LastNums(I) = Rnd
    Next
End Sub

Function RndRnd() As Double
Dim NewNum As Double

If LastNums(1) >= LastNums(12) Then
    NewNum = LastNums(1) - LastNums(12)
Else
    NewNum = LastNums(1) - LastNums(12) + 1
End If

For I = 0 To 15
    LastNums(I) = LastNums(I + 1)
Next
LastNums(16) = NewNum
RndRnd = NewNum

End Function

Sub Main()
    RndRandomize
    For I = 1 To 20
        Debug.Print RndRnd
    Next
End Sub

Запись опубликована on 17.10.2009 at 20:00 и размещена в рубрике: Разное. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.