انتخاب عدد تصادفی بین یه سری عدد دلخواه

[sbr 233]

سلام دوستان 

برای انتخاب یه عدد تصادفی بین یک بازه از دستور rnd استفاده میکنیم 

حالا چطور یه عدد تصادفی بین یه سری عدد انتخاب کنیم 

مثلا یه عدد تصادفی بین اعداد 2  5 7 9 که پشت سر هم نیستن  چطور انتخاب کنیم ؟ بازم با rnd ؟ یا نیازه از array  هم استفاده بشه ؟ 

اگه میشه یه راهنمایی میکنید

[softir 459]

در هم اکنون، sbr گفته است :

سلام دوستان 

برای انتخاب یه عدد تصادفی بین یک بازه از دستور rnd استفاده میکنیم 

حالا چطور یه عدد تصادفی بین یه سری عدد انتخاب کنیم 

مثلا یه عدد تصادفی بین اعداد 2  5 7 9 که پشت سر هم نیستن  چطور انتخاب کنیم ؟ بازم با rnd ؟ یا نیازه از array  هم استفاده بشه ؟ 

اگه میشه یه راهنمایی میکنید

سلام .

یکم پیچیده تر مشه ولی راحته

01 - یه لیست میسازی بعد اعدادت رو توش ذخیره می کنی ( مثلا از یک تا صد - اعداد فرد )

02 - حالا یه متد عدد تصادفی می سازی عدد کمش رو 0 , و عدد زیادش به تعداد آیتم های لیست

این شکلی

Dim LIST As List		' متغییر لیست

For i = 1 To 100		' از 1 تا 100 اعداد مفرد رو میریزی توش
	LIST.Add(i)
	i = i + 1
Next


Dim s As String

s = LIST.Get(Rnd(0,LIST.Size - 1))