Случайное целое число в VB.NET

Question

Мне нужно сгенерировать случайное целое число от 1 до n (где n - положительное целое число) для использования в модульном тесте. Мне не нужно что-то слишком сложное, чтобы обеспечить настоящую случайность - просто старомодное случайное число.

Как бы я это сделал?

Answer 1

Function xrand() As Long
        Dim r1 As Long = Now.Day & Now.Month & Now.Year & Now.Hour & Now.Minute & Now.Second & Now.Millisecond
        Dim RAND As Long = Math.Max(r1, r1 * 2)
        Return RAND
End Function

[BBOYSE] Это его лучший способ, с нуля: P