Factorial

Private Sub cmdfac_Click()
Dim i As Long
Dim factorial As Long
Dim item As String
factorial = 1
For i = 1 To Val(txtnum)
item = item + " " + Str(i) + "*"
factorial = factorial * i
Next i
item = item + "=" + Str(factorial)
List1.AddItem item
End Sub