Question

How to generate 20 digits random number in VB.NET

Answer 1

Imports System
 
public class Generate20DigitsRandomNumber_VB_NET
    public Shared Function Generate20DigitsRandomNumber() As Decimal
        Dim rand As Random = New Random()
        Dim s As String = String.Empty
 
        For i As Integer = 0 To 20 - 1
            s = String.Concat(s, rand.Next(1, 9).ToString())
        Next
 
        Dim dec As Decimal
 
        If Not Decimal.TryParse(s, dec) Then
            Console.WriteLine("Error: Decimal.TryParse(s, out dec)")
            Return -1
        End If
 
        Return dec
    End Function
 
    public Shared Sub Main()
        Console.WriteLine(Generate20DigitsRandomNumber())
    End Sub
End Class
 
  
  
' run:
' 
' 74523152177568121885
'

 

70+ SQL courses for beginners and professionals