VB(비주얼베이직) 구구단, 팩토리얼 구하기!!

VB(비쥬얼베이직) 구구단, 팩토리얼 구하기입니다.

Private Sub Command1_Click()

Dim num As Integer

Dim str As String

Dim i As Integer

num = CInt(Text1.Text)

For i = 1 To 9 Step 1

str = str & num & "*" & i & "=" & num * i & Chr(13)

Next i

Label1.Caption = str

End Sub

Private Sub Command2_Click()

Dim num As Integer

Dim str As String

Dim fact As Long

Dim i As Integer

num = CInt(Text1.Text)

fact = 1

fact = num

For i = num - 1 To 1 Step -1

fact = fact * i

Next i

str = num & "!" & "="

Label1.Caption = str & fact

End Sub