Question

How to generate 20 digits random numbers in VB.NET

Answer 1

Imports System

Public Class Generate20DigitsRandomNumbers_VB_NET
    Public Shared Sub Main(ByVal args As String())
		Dim rand As Random = new Random()
    
        For cout As Integer = 1 To 25
            Dim s As String = string.Empty
            For i As Integer = 1 To 20
                s = String.Concat(s, rand.Next(10).ToString())
            Next
            Console.WriteLine(s)
        Next
    End Sub
End Class
 
 
 
' run:
' 
' 84778736342986816423
' 80478132634577808353
' 35213358897829580086
' 31990711882299037335
' 55366528290848925306
' 24906492911663187335
' 42887481077426305391
' 69908311605295296022
' 67213640003432843794
' 26492557434407487772
' 91167096676908003388
' 16566836707507414811
' 68167532744488035599
' 72860183385517235891
' 41935261715982439555
' 60889921677758553507
' 47512579384033532036
' 04504840780347195654
' 23882732213214701574
' 16148055268549366776
' 41755710007091251392
' 18062782013470998591
' 85519862684274561138
' 89986228237648463874
' 05526172538721285647
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System

Public Class Generate20DigitsRandomNumbers_VB_NET
    Public Shared Sub Main(ByVal args As String())
		Dim rand As Random = new Random()
    
        For cout As Integer = 1 To 25
            Dim s As String = string.Empty
            For i As Integer = 1 To 20
                s = String.Concat(s, rand.Next(10).ToString())
            Next
            Dim dec As Decimal

            If Decimal.TryParse(s, dec) Then
                Console.WriteLine("{0}", dec)
            End If
        Next
    End Sub
End Class


 
 
' run:
' 
' 86702600306126112279
' 97754011647161436975
' 51820333655261219151
' 48393441275241379551
' 68508455834446178985
' 82090384751364453318
' 98293088069069248505
' 60821089153470699169
' 40416176107726280072
' 18652426324690056760
' 32817611779943854881
' 81385072562337999575
' 20853426241784128057
' 89615666485912982740
' 71015448571990624707
' 85138265539054979450
' 17177691563577220623
' 88327044093910514362
' 24989338277322123896
' 14062346107690039524
' 76232078838540084355
' 96629031273855952632
' 65882119919597509931
' 65610099045793948808
' 84207788086231508672
'

 

70+ SQL courses for beginners and professionals