求VISUAL FOXPRO程序设计题答案

已经上机验证过了。正确！
1.
clear
for wu=0 to 100
for yi=0 to 250
for er=0 to 20
if wu*5+er*2+yi*1=500
?" 五分",wu,"二分",er,"一分",yi
endif
endfor
endfor
endfor
return

2.
clear
s=0
p=0
for i=2 to 1000000
p=p+2
s=s+p
if s>=7000
?s
exit
endif
endfor
return

3.
clear
n=0
for i=301 to 4000 step 2
flag=1
for j=2 to int(sqrt(i))
if mod(i,j)=0
flag=0
exit
endif
endfor
if flag=1
??i
n=n+1
if mod(n,5)=0
?
endif
endif
endfor
return

4
clear
s=0
for i=1 to 55 step 3
s=s+i*(i+1)
endfor
?"1*2+4*5+7*8+...+55*56=",s
return

5.
clear
f1=1
f2=2
for i=3 to 31
f3=f1+f2
f1=f2
f2=f3
endfor
?"该数列的第31项:",f3
return

6.
clear
y=space(0)
accept "请输入密码" to mima
for i=1 to len(mima)
x=substr(mima,i,1)
do case
case x>="A" and x<="V" or x>="a" and x<="v"
x=chr(asc(x)+4)
case x>="W" and x<="Z" or x>="w" and x<="z"
x=chr(asc(x)-22)
endcase
y=y+x
endfor
?"译后的密码是",y
return

真有能人啊。
哈哈