Rnd هم Rnd های قدیم...!

[mbscreater]

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


Private Sub Form_Load()
Print Rnd
Print Rnd
End Sub

99647
هر چقدر اجرا می کنم عدد Rnd نسبت به دفعه ی قبل تغییر نمی کنه.
علتش چیه...؟!
...و راه حلش چیه؟! :متفکر:

[amin32]

کافیه به این شکل عمل کنید:


Private Sub Form_Load()
Randomize
Print Rnd
Print Rnd
End Sub