- Katılım
- 24 Nisan 2012
- Mesajlar
- 8
- Excel Vers. ve Dili
- 2012 visual basic
Kod:
Private Sub CommandButton1_Click()
'after 12 is overflow
Dim number As Long
Dim fact As Long
If number = 0 Then
TextBox2.Text = 1
End If
fact = 1
For number = 1 To Val(TextBox1.Text)
fact = fact * number
Next number
TextBox2.Text = fact
End Sub
Private Sub UserForm_Click()
End Sub