هل يوجد دالة لإنتاج أرقام عشوائية ؟

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته ...

أخي العزيز :: كريم طارق ::

يوجد كائن اسمه Random قد يفيدك في ما تريده ، وهذا مثال عليه

        Dim Rnd As New Random()
        MsgBox(Rnd.Next(0, 100))

توضيح هذا المثال :

يقوم البرنامج بأخذ رقم عشوائي يقع بين 0 و 100 ويقوم بعرضه على الشاشة

Public Function GetUniqueId() As String

GetUniqueId = Trim(Str(CDbl(Now) * 10000000000#))

End Function

و عليك السلام و رحمة الله و بركاته

الأخ العزيز أحمد جزاك الله خيرا أعتقد أنها تفي بالغرض

أما بالنسبة للأخ MR ياحبذا لو قليلا من الإيضاح