How to generate 6 digits continuous numbers in

Posted by Rajnilari2015 under VB.NET category on | Points: 40 | Views : 656
The below program will help to do so

Imports System.Linq

Namespace ConsoleApplication1
Class Program
Private Shared Sub Main(args As String())
Dim str = GenerateContinuousCode()
End Sub

Public Shared Function GenerateContinuousCode() As String
Return New String(Enumerable.Repeat("0123456789", 6).[Select](Function(s) s(New Random().[Next](s.Length))).ToArray())

End Function
End Class
End Namespace

Comments or Responses

Login to post response