توليد رشته به صورت Random ؟؟؟

[omidreza812]

سلام دو ستان
آيا تابعي هست كه تعداد كاراكترها رو بگيره ، و به صورت Random رشته توليد كنه؟
تشكر

[shalineh]

امیدرضای عزیز ، سلام

این تابع رو بلافاصله با دیدن سوال شما نوشتم. این تابع در ویژوال بیسیک 2005 که از نت فریم ورک 2 و بالاتر استفاده میکنه کاربرد دارد.

Public Function Make_String ( ByVal Len As Integer) As String
Make_String = Nothing
Dim i, b As Integer
Dim AZ As String = "abcdefghikjlmnopqrstvuwxyz"X
If Len < 1 Then Exit Function
For i = 1 To Len
Randomize()X

b = (Rnd() * 25) + 1

Make_String = Make_String & (AZ.Substring(b, 1))X
Next
EndFunction

[Behroooz]

سلام

شما که دانشجوی دکتری هستید چطور با برنامه نویسی هم اشنایید ؟

کار هر کسی نیست . افرین به تو

[omidreza812]

امیدرضای عزیز ، سلام

این تابع رو بلافاصله با دیدن سوال شما نوشتم. این تابع در ویژوال بیسیک 2005 که از نت فریم ورک 2 و بالاتر استفاده میکنه کاربرد دارد.

Public Function Make_String ( ByVal Len As Integer) As String
Make_String = Nothing
Dim i, b As Integer
Dim AZ As String = "abcdefghikjlmnopqrstvuwxyz"X
If Len < 1 Then Exit Function
For i = 1 To Len
Randomize()X

b = (Rnd() * 25) + 1

Make_String = Make_String & (AZ.Substring(b, 1))X

Next
EndFunction

تشكر دوست عزيز