求一个visual foxpro程序命令

来源：百度知道 编辑：UC知道 时间：2024/06/07 01:31:36
编程求字符串:"546363463424214398439583252341243452350932059549 786546845684509345348368346803466589349895434 38943943468328943872338496834967834863068306693439
54359309346834893436438683496346346348765324234234235459487634534345345324
345634634631513534534634323867867846474"中的非零数字的倒数之和,即计算1/5+1/4+1/6+1/3+1/6......+1/7+1/4,并输出结果

local lc_String
lcoal i,li_temp
local ln_Result

lc_String="546363463424214398439583252341243452350932059549 786546845684509345348368346803466589349895434 38943943468328943872338496834967834863068306693439
54359309346834893436438683496346346348765324234234235459487634534345345324
345634634631513534534634323867867846474"

ln_result=0
for i=1 to len(lc_string)
li_temp=val(substr(lc_string,i,1))
if li_temp<>0
ln_result = ln_result + 1/li_temp
endif
endfor

用do while函数和取字符串字节函数就行了，夜了，要晚了，不会的话我明天做给你