Function TimeStep(Numer As Integer) As Long
TimeStep = 1
For i = 1 To Number
TimeStep = TimeStep * i
Next
End Function
把上述代碼復制到這個窗體中所有代碼的最上面,即通用(聲明)的位置。此後,在代碼中妳就可以像用其他正常的函數壹樣用TimeStep()函數來算階乘了。