dosub.prg

来自「用VFP计算平方根(例如sqtr(2))到6万5千位小数的程序.」· PRG 代码 · 共 15 行

* dosub
public eachlen,alllen
eachlen=10
a="20"+replicate("0",18)
b="15"+replicate("0",18)
alllen=len(a)
c=longsub(a,b)
? time()
wait
? a
? b
? c
return