1571
2014-05-25 23:42:14
0
Private Sub cmd구하기_Click()
Dim i, num As Integer
Dim dap As Integer
dap = 1 -------------------- dap라는 정수형변수에 1대입
num = Val(Text1.Text) ------------------- num이라는 정수형변수에 TextBox1에 입력된 수의 값을 대입
For i = 1 To num --------------------- i값을 1부터 시작해서 한번 반복할때마다 1씩 더해서 num까지 수행한다. (i가 num일 때에도 수행)
dap = dap * i ----------------------- dap의 값에 dap * i 값을 넣는다.
Next i
lbl보기.Caption = Text1.Text & "! = " & dap
End Sub
글쓴분이 말씀하신것처럼 dap의 원래값에 i값을 곱하는겁니다.
저 경우에는
dap = dap * i 말고
dap *= i 로 표현하시는 방법도 있습니다. 의미는 'dap값에 i를 곱해서 저장한다.' 입니다.
같은 방식으로 +=, -= 등도 있죠.