[السندبااد]

[COLOR="#0000FF"]السلام عليكم ورحمة الله وبركاته
تفضل الكود :

PHP كود :

Dim TName(4) As String
Dim s As Integer

TName(0) = "9999"
TName(1) = "6666"
TName(2) = "5555"
TName(3) = "4444"
TName(4) = "3333"
Randomize

s = Int(Rnd * 5)
Text1.Text = TName(s) 


في المثال السابق وضعت لك خمسة أرقام إذا وضعت أنت أكثر مثلاً سبعة أرقام
عدل ما يلي :

PHP كود :

Dim TName(7) As String 


و

PHP كود :

s = Int(Rnd * 8) 


بالتوفيق أخي الكريم[/COLOR]