Joined: 27 Nov 2004 Posts: 1232 Location: www.parsx.com
Posted: Thu Mar 03, 2005 8:26 pm Post subject:
امیر جان ممنون مشکلم حل شد
خب شد زود تونستم پست بزنم وگرنه دوباره ضایع می شدم
درست شدش اینجوری شد
Public Function fact(X As Byte) As Long
If X >= 0 And X < 13 Then
If X >= 1 Then fact = X * fact(X - 1) Else fact = 1
Else: MsgBox ("Error !!!")
End If
End Function
یادم رفت بگم : البته بازم امیر کمکم کرد ها وگرنه درست نمی شد !!!
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
Profile 
Log in to check your private messages | 
FAQ 
Search 
Memberlist 
Usergroups 
Log in
Register
