09-05-2012، 09:17 PM
یه همچین چیزی رو در نظر داشته باش :
که فکر می کنم بدونی چطور استفاده کنی ! مثلا واسه 4 حرفی باید هنگام فراخوانی تابع 4 استفاده کنی
کد:
Function RandomString(cb As Integer) As String
Randomize
Dim rstr As String
rstr = "abcdefghijklmnopqrstuvwxyz"
Dim i As Long
For i = 1 To cb
RandomString = RandomString & Mid$(rstr, Int(Rnd() * Len(rstr) + 1), 1)
Next
End Functionکه فکر می کنم بدونی چطور استفاده کنی ! مثلا واسه 4 حرفی باید هنگام فراخوانی تابع 4 استفاده کنی
باید حرف زورو نشنوم کر شم فقط -- تو نه رفیق ریگی نیست به کفشم نترس
نه ، نه من تروریست نیستم -- من رو کاغذ می بازم ولی تئوری نیستم
باید دردای دلمو و تو دلم چال کنم -- تا چشمای من یه روزی یهویی خیس شن
نه ، نه من تروریست نیستم -- من رو کاغذ می بازم ولی تئوری نیستم
باید دردای دلمو و تو دلم چال کنم -- تا چشمای من یه روزی یهویی خیس شن