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 Function728x90
반응형
그리드형(광고전용)
'VB' 카테고리의 다른 글
| [VB] ComboBox 클래스 : 포커스 획득시 드롭 다운 리스트 자동으로 보여주기 (0) | 2015.05.16 |
|---|---|
| [VB] 비프음 연주하기 (0) | 2015.05.16 |
| [VB] CHR 함수 사용하기 (0) | 2015.05.16 |
| [VB] JOIN 함수 사용하기 (0) | 2015.05.16 |
| [VB] 제곱 값 구하기 (0) | 2015.05.16 |
| [VB] 서브 프로시저 사용하기 (0) | 2015.05.16 |
| [VB] DO WHILE ~ EXIT DO ~ LOOP문 사용하기 (0) | 2015.05.16 |
| [VB] WHILE ~ WEND문 사용하기 (0) | 2015.05.16 |
| [VB] MOD 함수를 사용해 나머지 구하기 (0) | 2015.05.16 |
| [VB] 배열 사용하기 (0) | 2015.05.16 |
댓글을 달아 주세요