Question

vfp程序题

?tt('123E%n w$04q*5n6')
function tt
para cstr
cresult=space(0)
for n=1 to len(allt(cstr))
c=substr(cstr,n,1)
if !between(c,"A","Z") and !between(c,"a","z")
loop
endif
cresult=cresult+chr(asc(c)+1)
endfor
return cresult
endfuc
请说明下过程

Answer 1

?tt('123E%n w$04q*5n6') &&执行自定义函数tt，并返回结果

function tt &&自定义函数tt
para cstr &&传递参数cstr，此题cstr就是'123E%n w$04q*5n6'
cresult=space(0) &&声明变量cresult，并赋值为空
for n=1 to len(allt(cstr)) &&开始for循环，循环结束值为参数'123E%n w$04q*5n6'的字符数
c=substr(cstr,n,1) &&变量c随着循环依次为参数'123E%n w$04q*5n6'从左到右的字符数
if !between(c,"A","Z") and !between(c,"a","z") &&条件语句，假如c变量不是a到z的字符，不论大小写
LOOP &&返回循环开始处循环下一次
ENDIF &&结束条件语句
cresult=cresult+chr(asc(c)+1) &&变量cresult赋值为参数'123E%n w$04q*5n6'中字符的下一个字符
ENDFOR &&结束循环
return cresult &&自定义函数返回值是变量cresult
endfun &&结束自定义函数

这个自定义函数挺有意思的，他的作用是返回所给参数字符串的字母的下一个字母串，这个题的返回值为Foxpro，哈哈！