첨부 소스 코드는 나눔고딕코딩 폰트를 사용합니다.

[VB] 팩토리얼 구하기

VB 2015. 5. 16. 09:00
728x90
반응형
728x170
Public Function GetFactorial(nSource As Integer) As Long
 
    Dim lFactorial As Long
    Dim i          As Integer
    
    lFactorial = 1
    
    For i = 2 To nSource
        
        lFactorial = lFactorial * i
    
    Next i
    
    GetFactorial = lFactorial
    
End Function
728x90
반응형
그리드형(광고전용)
Posted by icodebroker
TAG ,

댓글을 달아 주세요