vfp试题求解！（请计算机语言高手帮忙）

来源：百度知道 编辑：UC知道 时间：2024/05/29 17:58:14
1）输入N，求数列1+1/2+1/3+.....的前N项的和
2）输入N，求数列1+2*2+3*3*3+.....的前N项的和

clear
?myadd1(2)
?myadd2(2)
Function myadd1
Parameters N
If Parameters()!=1 && 如果没有参数传入，返回-1
Return -1
Endif
If Vartype(N) != "N" && 如果传入的参数类型错误，返回-2
Return -2
Endif
If Int(N) < 1 && 如果参数小于1，则返回0
Return 0
Endif
Local lnresult
lnresult = 0
N = Int(N)
For i = 1 To N
lnresult = lnresult + 1/i
Endfor
Return lnresult

Function myadd2
Parameters N
Local lnresult
If Parameters()!=1 && 如果没有参数传入，返回-1
Return -1
Endif
If Vartype(N) != "N" && 如果传入的参数类型错误，返回-2
Return -2
Endif
If Int(N) < 1 && 如果参数小于1，则返回0
Return 0
Endif
Local lnresult
lnresult = 0
N = Int(N)
For i = 1 To N
lnresult = lnresult + 1/i^i
Endfor
Return lnresult

把以上代码存为一个程序文件，执行