چند سورس برنامه در ویژوال بیسیک

به دست آوردن ب.م.م دو عدد

کد:

---

Private function bmm( x as interger , y as integer) as integer

dim min, max ,i as integer

if (x>y) then

min=y

max=x

i=min

Do while ( y mod i <> 0 or x mod i <> 0)

i=i-1

loop

bmm=i

end if

if (x<y) then

min=x

max=y

i=min

Do while ( y mod i <> 0 or x mod i <> 0)

i=i-1

loop

bmm=i

else

bmm=x

end if

End Function

---

دوست عزیز
سورس های خودتون رو اینجا بزارید.

کد:

---

http://forum.p30world.com/showthread.php?t=326408

---

دست طلا راحت شدم