تولید اعداد تصادفی 4 رقمی [بایگانی]

maryamb

یک شنبه 20 مرداد 1387, 16:06 عصر

چطور می تونم اعدادت صادفی 4 رقمی یا 5 رقمی تولید کنم؟

Mbt925

یک شنبه 20 مرداد 1387, 17:06 عصر

نمونه ی قرار داده شده در پست زیر کاملترین تابع برای تولید اعداد تصادفیه.

http://barnamenevis.org/forum/showpost.php?p=406748&postcount=2

.:KeihanCPU:.

یک شنبه 20 مرداد 1387, 18:16 عصر

Dim S As Integer
S = Int(Rnd * 10000)
If Len(S) = 4 Then
Text1.Text = S
End If