اعداد اول

دوستان مي خواستم بپرسم چه طوري ميشه در وي بي بر نامه اي نوشت كه قادر به تشخيص اول بودن يا نبودن عددي شود من يه برنامه نوشتم ولي تا اعداد محدودي رو پوشش مي ده اگه ممكنه كمك كنيد:41:

اول باید بدونی عدد اول چیه؟عدد اول عددیه که فقط بر خودش و یک بخش پذیر باشه(که همه اعداد بر یک بخش پذیرند) .عدد اول عددیه که باقیمانده ش بر اعداد دیگه(به جز صفر و خودش) صفر نباشه.
مثلا تکه کد زیر که اعداد اول زیر 100 رو چاپ میکنه.

کد:

---

For i=1 to 100
c=0
for j=2 to i/2
if i mod j =0 then c=c+1
next j
if c=0 then print i
next i

---

برای فهمیدن اول بودن یه عدد خاص هم از کد زیر استفاده کن.(n عددیه که ما میخواهیم بفهمیم اوله یا نه)

کد:

---

c=0
for K=2 to n/2
if n mod k =0 then c=c+1
next k
if c=0 then msgbox "adad vard shode aval ast"

---