10个随机数和

来源:互联网 发布:php链接mysql数据库 编辑:程序博客网 时间:2024/04/30 07:01
Private Sub Command1_Click()
Cls
Font.Size = 30
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

0 0
原创粉丝点击