[VB]팩토리얼 구하는 프로그램

Private Sub Command1_Click()

Dim Gab As Double, Fac As Double, Str As String

Gab = Val(Text1.Text)

Fac = 1

For i = 1 To Gab

Str = Str & i & " "

Fac = Fac * i

Next i

MsgBox Gab & "! = " & Fac & Chr(13) & Str, vbOKOnly, "팩토리얼"

End Sub

코드입니다. 의외로 간단하게 나오네요

디자인 입니다.

원리는 매우 간단 ㅋ; 반복문으로 곱셈만 하면 완성되네요