ایجاد عدد تصادفی

[Samira Aria]

سلام...
چه طوری میتونم برنامه ای بنویسم که 30عدد تصادفی ایجاد ودر لیست بریزه ؟

ممنون

[sinashahab]

'Create A ListBox
Private Sub Form_Load()
Randomize Timer
List1.AddItem Int(Rnd * 1000)
End Sub


این رو هر چند بار می خوای کپی کن .
تشکر یادت نره

[harrypotter228]

با سلام اين هم يك نمونه كامل براري ايجاد اعداد تصادفي دانلود كنيد

موفق باشي

[Pr0grammer]

سلام....

این کارتون رو راه می ندازه! البته اگه بخوای دوباره بعد از ریختن اعداد تصادفی توی List از این اعداد ایجاد شده استفاده کنی!


Option Base 1
Dim X(30) As Integer
Dim I As Integer

Private Sub Command1_Click()
For I = 1 To 30
X(I) = (Rnd * 100)
List1.AddItem X(I)
Next
End Sub

موفق باشی