我擦，怎么不能发截图？
1.判断水仙花数：
x=""
FOR n=100 to 999
    x1=int(n/100)
    x2=int(mod(n,100)/10)
    x3=mod(n,10)
    IF x1^3+x2^3+x3^3=n
        thisform.label2.caption="该数是水仙花数"
    ELSE
        thisform.label2.caption="该数不是水仙花数"
    ENDIF
ENDFOR
但是每次显示都是该数不是水仙花数，即使我输的是水仙花数。
2.帮忙写一下1到N的奇数和的代码

*-*所谓水仙花数是指一个n位数,其各位数字立方和等于该数本身的值,例如:153=13+53+33 ,所以153是一个水仙花数。
FOR I=100 TO 999
    A=INT(I/100)        &&百位的值等于这个三位数除以100后取整
    B=INT((I-100*A)/10) &&用这个三位数减去它的百位数字与100乘积，对得到的差除以10后进行取整，结果就是十位的值
    C=I-INT(I/10)*10    &&与上面原理相同，这是求个位的值
    IF I=A^3+B^3+C^3    &&成立说明是水仙花数并输出
       ? [水仙花数：]+TRANSFORM(I)
    ELSE
       ? [非水仙花数：]+TRANSFORM(I)
    ENDIF
ENDFORNUM=0
FOR I=1 TO 100
    NUM=NUM+IIF(MOD(I,2)=0,0,I)
ENDFOR
?[奇数和：],NUM

[ 本帖最后由 sdta 于 2012-12-15 12:56 编辑 ]

你给的代码我都知道，但是现在是这样一个情况，我要判定一个数是不是水仙花数，并且最终的输出要显示在label上。
我做出来不论我输什么数，标签都显示说“该数不是水仙花数”，即使我输入的是一个水仙花数

这样试下

[ 本帖最后由 sdta 于 2012-12-15 13:12 编辑 ]

还是一样的结果。你可以把附件下载看一看。你的代码输进去也是一样的结果

*---按钮下代码
I=THISFORM.TEXT1.VALUE  &&TEXT1.VALUE=0
A=INT(I/100)        &&百位的值等于这个三位数除以100后取整
B=INT((I-100*A)/10) &&用这个三位数减去它的百位数字与100乘积，&&对得到的差除以10后进行取整，结果就是十位的值
C=I-INT(I/10)*10    &&与上面原理相同，这是求个位的值
IF A^3+B^3+C^3=I    &&成立说明是水仙花数并输出
   THISFORM.LABEL1.CAPTION=[水仙花数：]+TRANSFORM(I)
ELSE
   THISFORM.LABEL1.CAPTION=[非水仙花数：]+TRANSFORM(I)
ENDIF

认真对比一下代码不同之处。

1.判断水仙花数：
n=ThisForm.Text1.Value  &&假设文本框Text1里输入了一个三位整数，n的合法性就不判定了
x1=int(n/100)
x2=int(mod(n,100)/10)
x3=mod(n,10)
IF x1^3+x2^3+x3^3=n
  thisform.label2.caption="该数是水仙花数"
ELSE
  thisform.label2.caption="该数不是水仙花数"
ENDIF

代码是不一样，但是运算是会报错，说数据类型不匹配

能不能再帮两个忙。
1.帮忙解释一下“+TRANSFORM(I)”的意思。
2.计算1到N的奇数和最后要显示在text2中，我看你写的代码直接是？显示，不能运算

认真看代码后面的注释