tstsst
دوشنبه 06 آذر 1391, 21:44 عصر
سلام
یک جمله با طول مشخص تشکیل شده فقط از حروف کوچک اینگلیسی می سازم ولی می خوام جوری باشه که تکرار نداشته باشه یا انقدر کم باشه که در تعداد زیاد به چش نیاد ممنون می شم راهنمای کنید
Public Function create(ByVal size As Integer) As String
Const legalCharacters As String = "abcdefghijklmnopqrstuvwxyz"
Dim random As New Random()
Dim builder As New StringBuilder()
Dim ch As Char
For i As Integer = 0 To size - 1
ch = legalCharacters(Random.[Next](0, legalCharacters.Length))
builder.Append(ch)
Next
Return builder.ToString()
End Function
متشکر
یک جمله با طول مشخص تشکیل شده فقط از حروف کوچک اینگلیسی می سازم ولی می خوام جوری باشه که تکرار نداشته باشه یا انقدر کم باشه که در تعداد زیاد به چش نیاد ممنون می شم راهنمای کنید
Public Function create(ByVal size As Integer) As String
Const legalCharacters As String = "abcdefghijklmnopqrstuvwxyz"
Dim random As New Random()
Dim builder As New StringBuilder()
Dim ch As Char
For i As Integer = 0 To size - 1
ch = legalCharacters(Random.[Next](0, legalCharacters.Length))
builder.Append(ch)
Next
Return builder.ToString()
End Function
متشکر