کمک ساده از برنامه نویسان vb.net

من سورس کد شناسایی عدد اول رو می خواستم که از کابر عدد رو بگیره وبگه که عدد مورد نظر اول است یا نه
گشتم ولی پیدا نکردم .برای خودم نمیخوام اگه زود تر لطف کنید بدید ممنون میشم( برای vb.net)
:40::10::11::13::41::20:

خب طبق تعریف، عدد اول به جز خودش و یک به هیچ عدد دیگه ای بخش پذیر نیست. پس با توجه به تعریف میتوان با این کد ، عدد اول را تشخیص داد:

کد:

---

private function Checking ( byval x as integer ) as Boolean
Checking = true
dim i as integer
for i = 2 to x - 1
if x Mod i = 0 then  Checking = false : exit for
next
end function

---

خیلی ممنون واقعا متشکرم[