然后给列表框的RowSourseType属性设置为“5数组”，RowSourse属性值为s
然后再按钮的click代码中输入程序
n=0
for a=1 to 9
for b=0 to 9
for c=0 to 9
d=a*100+b*10+c
if d=a*a*a+b*b*b+c*c*c
n=n+1
s(n)=d
endif
endfor
endfor
endfor
thisform.text1.value=str(n,3)
thisform.refresh
参考资料：如果运行有什么问题还可以再问我。
用VFP程序找出100~999以内的水仙花数?
新建一个程序（文件菜单——新建——程序——新建文件），写代码：ge=0 shi=0 bai=0 ?"100~999以内的水仙花数是:"for i=100 to 999 ge=i%10 shi=int(i\/10)%10 bai=int(i\/100)if ge^3+shi^3+bai^3=i ?i endif next 然后，直接点击感叹号，保存并运行，图：
如何用vfp求水仙花数
水仙花数是指一个 3位数,它的每个位上的数字的3次幂之和等于它本身。(例如:1^3 + 5^3 + 3^3 = 153)clearfor i=100 to 999if int(i\/100)^3+int(i\/10%10)^3+(i%10)^3=i then?iendifendfor 参考资料: http:\/\/baike.baidu.com\/view\/152077.htm 本回答由网友推荐 举报| 答案纠错 | 评论 ...
用vfp求出所有的水仙花数,怎么写?
if s=a^3+b^3+c^3 水仙花的条件
请问这个VFP题里面列表框内第一行的字怎么弄上去,题倒是会做,但字不...
thisform.list1.additem('水仙花数:',1)thisform.list1.additem('153',2)thisform.list1.additem('370',3)就这样, 记得第一个参数是字符, 如果是数字,要用str转成字符
高分急求关于VFP水仙花数的计算显示问题的程序编写!
x1 accept "请输入第二个随机的三位数:"to x2 s=0 &&统计水仙花数 t1=MIN(x1,x2)t2=MAX(x1,x2)t="在"+t1+"和"+t2+"之间的水仙花数有:"FOR a=1 TO 9 FOR b=0 TO 9 FOR c= 0 to 9 x=a*100+b*10+c IF x=a^3+b^3+c^3 IF x>=VAL(t1)AND x<=VAL(t2)s=s+1...
如何用vfp求水仙花数
水仙花数是指一个 3位数，它的每个位上的数字的3次幂之和等于它本身。（例如：1^3 + 5^3 + 3^3 = 153）clear for i=100 to 999 if int(i\/100)^3+int(i\/10%10)^3+(i%10)^3=i then ?i endif endfor 参考资料：http:\/\/baike.baidu.com\/view\/152077.htm ...
vfp中关于水仙花数的程序怎么样的,求解答
&&求100到999之间的水仙花数。clear ?"100-999之间的水仙花数有："for i=100 to 999 k=int(i\/100)m=(int(i\/10))%10 n=i%10 if k^3+m^3+n^3=i ??alltrim(str(i))+space(2)endif endfor
VFP输出水仙花数 哪里错了 求解救!
没有取整，应改动如下：clear for N=100 to 999 step 1 A=int(N\/100)B=int(N\/10)%10 C=N%10 if N=A*A*A+B*B*B+C*C*C ?"N=",N endif endfor
