Question

VFP的两个题

1.试求所有1~999其值等于它的各位数字立方之和的数，并求出所有这些数之和。(用for....endfor结构
2.做一个表单,单击输出命令按钮时,编辑框中输出大写字母表(每行显示7个字母)(这个题除了编程外也说下怎么设置每排只显示7个)
可以的话详细讲解下编码.谢谢了

Answer 1

1、
j=0
for i=1 to 999
a=int(i/100)
b=mod(int(i/10) ,10)
c=mod(i,10)
if i=a*a*a+b*b*b+c*c*c then
? i
j=j+i
endif
endfor
? "其总和:",j
2、
在表单中加入一个命令按钮和一个编辑框（edit1)
在命令按钮的click事件中加入下代码

j=0
tx=''
for i=65 to 90 && i为字母的ASC码,每循环一次加一个字母（用CHR）
tx=tx+chr(i)
j=j+1
if j=7 &&在第七个字母后追加一个回车符（chr(13))换行并把计数回零开始算下一行的字母数
j=0
tx=tx+chr(13)
endif
endfor
thisform.edit1.value=tx &&把串值赋给编辑框
thisform.refresh

Answer 2

for i=100 to 999
a=int(i/100)
b=mod(int(i/10) ,10)
c=mod(i,10)
if i=a*a*a+b*b*b+c*c*c then
? i
endif
endfor