يك سوال در مورد انتخاب تصادفي (Randrom)

[Jaxon 10]

با سلام .

دوستان ميخواستم بدونم كه ايا ميشه يه كدي نوشت كه بين چند تا مقدار به صورت خودكار يكي رو انتخاب كنه ؟

لطفا اگه ميشه كد رو بگيد

با تشكر

[sganji 678]

Rnd(10,40)adad haye bein 10 va 40 ro barmigardooneh

[Jaxon 10]

سلام

دوست من من منظورم بين چند تا عدد مشخص .

مثلا (1, 5, 6, 8, 10) بين اين اعداد يكي رو انتخاب كنه

اينطور ميشه ؟

[مجید آرتا 5,874]

بله دوست عزیز چرا که نشه.

شما باید یک لیست بسازید ولیست رو رندوم کنید:

    Dim list1 As List
   list1.Initialize
   list1.AddAll(Array As Int(2,5,8,12,45,32))
   Dim i As Int = Rnd(list1.Get(0),list1.Size - 1)
   Msgbox(i,"")

[امیرنیوکی 147]

یه راه دیگشم استفاده از دستور select

    Dim i As Int = Rnd(1,5)
   Dim str As String
   Select i
       Case 1
           str = "1"
       Case 2
           str = "5"
       Case 3
           str = "6"
       Case 4
           str = "8"
       Case 5
           str = "10"
   End Select