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

[omidreza812]

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

[Danial_Yousefi]

درست نفهمیدم منظورتون چیه ولی این طور که پیداست کاری نداره

Text1.Text = ""

Randomize Timer

tool = InputBox("toole reshte?")

For i = 1 To tool

1

a = Fix(Rnd * 90)

If a < 65 Or a > 90 Then GoTo 1

Text1.Text = Text1.Text & Chr(a)

Next i

[senator_aka]

من هم تا حالا از این روشی که دوستمان گفته خیلی استفاده کردم و جواب هم گرفتم.
اما با استفاده از goto کاملا مخالفم.باید یاد بگیریم که از کد هایی که باعث دردسر می شن دیگه استفاده نکنی(باور کنید که اینطوری خیلی بهتر هست)

[bad_boy_2007]

senator_aka درست میگه ، از شکل ساخت یافته تابع Danial_Yousefi عزیز بصورت زیر استفاده کنید :

Text1.Text = ""

Randomize(Timer)

tool = InputBox("toole reshte?")

For i = 1 To tool

Do

a = Fix(Rnd() * 90)

Loop a < 65 Or a > 90

Text1.Text = Text1.Text & Chr(a)

Next i

[Danial_Yousefi]

منم نظرم با شما یکی ولی برنامه هول هولکی نوشته شده