您的位置:首页 > 其它

随机取10个数第九种

2016-04-10 16:26 211 查看
Private Sub Command1-Click()

Cls

Font.Size=70

Print f(100)

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

该程序我没有操作过,不知道执行得了吗?希望可以执行得了。




 
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: