Question

How to generate 4 digits random numbers in VB.NET

Answer 1

Imports System
                 
Public Module Module1
    Public Sub Main()
         
        Dim rand As Random = new Random()
    
        For i As Integer = 1 To 20
             Console.WriteLine(rand.Next(1000, 9999))
        Next
 
    End Sub
     
End Module
 
 
 
' run:
'
' 3193
' 1807
' 3203
' 8421
' 7985
' 4218
' 2156
' 9477
' 2682
' 6409
' 2027
' 3723
' 7969
' 1611
' 8490
' 6013
' 5133
' 7069
' 6619
' 8814

 

70+ SQL courses for beginners and professionals