Question

How to generate a random integer between 1 and N in VB.NET

Answer 1

Module Module1

    Sub Main()

        Dim n As Integer = 100

        For i As Integer = 0 To 20
            Console.WriteLine(CInt(Math.Ceiling(Rnd() * n)) + 1)
        Next

    End Sub

End Module

'run:
' 
'72
'55
'59
'30
'32
'79
'3
'78
'83
'72
'6
'43
'88
'81
'39
'98
'89
'7
'96
'38
'54

 

70+ SQL courses for beginners and professionals

Answer 2

Module Module1

    Sub Main()

        Dim n As Integer = 100
        Dim Generator As System.Random = New System.Random()

        For i As Integer = 0 To 20
            Console.WriteLine(Generator.Next(1, n + 1))
        Next

    End Sub

End Module

'run:
' 
'69
'100
'75
'38
'19
'21
'90
'29
'26
'31
'54
'31
'93
'22
'89
'9
'64
'36
'81
'23
'77

 

70+ SQL courses for beginners and professionals

Answer 3

Module Module1

    Sub Main()

        Dim n As Integer = 100
        Dim r As New Random(System.DateTime.Now.Millisecond)

        For i As Integer = 0 To 20
            Console.WriteLine(r.Next(1, n + 1))
        Next

    End Sub

End Module

'run:
' 
'11
'13
'78
'8
'18
'40
'22
'76
'99
'12
'61
'12
'5
'80
'47
'93
'74
'70
'81
'11
'26

 

70+ SQL courses for beginners and professionals