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

[mbscreater]

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

Private Sub Form_Load()

  Print Rnd

  Print Rnd

End Sub

Rnd.rar
هر چقدر اجرا می کنم عدد Rnd نسبت به دفعه ی قبل تغییر نمی کنه.

علتش چیه...؟!
...و راه حلش چیه؟!

[amin32]

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

Private Sub Form_Load()

Randomize

Print Rnd

Print Rnd

End Sub