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

[Kazem Forghani 2,927]

سلام ،

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

ابتدا ساب زیر را به پروژه اضافه کنید:

Sub CustomRandom(Content() As Int) As Int
	Return Content(Rnd(0, Content.Length))
End Sub

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

Dim a() As Int = Array As Int(50, 200, 800, 30, 77, 70, 93)
Msgbox(CustomRandom(a), "")

همان طور که می بینید یک آرایه از نوع Int تعریف کردید و اعداد مورد نظر خود را داخل آن ریختیم. سپس از از تابع استفاده کرده و متغیری که از نوع آرایه بود را به آن دادیم.

 

موفق باشید