这是九个中的第一个
这个不太不难
但是后边的就不太明白了
Private Sub Command1_Click()
ClsPrint f(10)
End Sub
Private Function f(x As Integer) As Long
If x = 1 Then
f = x
Else
f = x + f(x - 1)
End If
End Function
这是九个中的第一个
这个不太不难
但是后边的就不太明白了
Private Sub Command1_Click()
Cls