تعدادی عدد بدون صفر

[vb-sosol]

سلام
چگونه در برنامه ی تولید اعداد تصادفی کدی قرار بدهیم که صفر جزء آن دسته از اعداد که به صورت تصادفی ایجاد شده قرار نگیرد ؟

[xxxxx_xxxxx]

ايجاد عددي تصادفي بين 1 تا 50:


MsgBox Int(Rnd * 50) + 1

براي نحوه استفاده از توابع به سايت msdn رجوع كنيد. اينطوري اطلاعت بيشتري هم كسب مي كنيد.
براي مثال همين خواسته شما در اينجا:
http://msdn.microsoft.com/en-us/library/8zedbtdt.aspx

موفق باشيد/

[vb-sosol]

ايجاد عددي تصادفي بين 1 تا 50:


MsgBox Int(Rnd * 50) + 1



موفق باشيد/
سلام
با این روش تمام اعداد چاپ می شود ولی من می خواهم مثلا 10 به عنوان عدد تصادفی ایجاد شده صفر را چاپ نکند و فقط یک را چاپ کند

[xxxxx_xxxxx]

فرض كنيد عدد موردنظر ما تو يك متغير به نام n هست.
با تابع str تبديلش كنيد به رشته. از كاراكتر اول تا آخرش رو بخونيد اگر مساوي صفر نبود به يك متغير رشته اي ديگه اضافه بشه.

[vbhamed]

سلام


MsgBox Replace(Int(Rnd * 50) + 1, "0", "")