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

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

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

این تابع رو بلافاصله با دیدن سوال شما نوشتم. این تابع در ویژوال بیسیک 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

سلام

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

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

نقل قول:

---

نوشته شده توسط 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

---

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