'1 step 0' presentation slideshows

DEFORM Simulation Results 2D Hot Forging and Air Cool of Gear Tooth Geometry

763 views • 35 slides

????? B ???? ??

????? B ???? ??. Option Explicit Private Function NNum(n As Integer) As Long Dim i As Integer, r As Long If n = 0 Or n = 1 Then NNum = 1 Exit Function End If r = 1 For i = 2 To n r = r * i Next. NNum = r End Function Private Function CNum(i As Integer, n As Integer) As Long

498 views • 23 slides