Question

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

Answer 1

Imports System
 
Public Class Test
    Public Shared Sub Main()
        Dim N as Integer = 50

        For i As Integer = 0 To 20
            Console.Write("{0} ", CInt(Math.Ceiling(Rnd() * N)) + 1)
        Next
    End Sub
End Class
 
 
 
' run:
'
' 8 21 9 10 23 9 36 13 23 2 42 15 22 25 25 34 26 46 14 45 16 

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System
 
Public Class Test
    Public Shared Sub Main()
        Dim N as Integer = 50

        For i As Integer = 0 To 20
            Console.Write("{0} ", CInt(Math.Floor((N - 1 + 1) * Rnd())) + 1)
        Next
    End Sub
End Class
 
 
 
' run:
'
' 2 36 40 45 22 49 19 13 28 50 11 26 31 3 25 38 30 40 1 27 21 

 

70+ SQL courses for beginners and professionals