ویژوال بیسیک 2010

[farhad 1992]

با سلام
می خواستم ببینم چطوری می تونم برنامه ای در ویژوال بیسیک 2010 بنویسم که از ورودی یک مقدار صحیح را بگیرد و فاکتوریل آن را محاسبه کرده و در خروجی چاپ کند.که در آن از تابع بازگشتی استفاده شده باشد؟ اگر بخواهم این برنامه را با استفاده از حلقه های تکرار function بنویسم چگونه است؟ با تشکرrecursive function

[mpkahkeshan]

سلام دوست عزیز. این یه سورسه که به نظر بنده کار بکنه. البته امتحانش نکردم.




private function fuct(n as integer) as long

if n=1 then
fuct=1
exit function
end if

if n<1 then
call msgbox("The number is not valid.",vbokonly,"Error")
fuct=0
exit function
end if

fuct=fuct(n-1) * n
msgbox fuct

end function




امیدوارم به دردت بخوره.