记得看过朋友的文章中有句话大致是这个意思：一个人编程的水平与实现同一目的所需的代码数量成反比。其实这句话很有道理，如果用这个观点来评价我自己，我应该是一个苍老的菜鸟，我做出来的东西勉强可用，但代码在高手看来却是惨不忍睹。我所走过的轨迹与常人大概也有所不同：计算机专业科班的可能在毕业后从事coding多年之后，当感觉自己力不从心时转行做管理或教师；而我恰恰相反，外贸专业毕业后狂热地自学了一些东西，教了几年C语言、vb、vfp及asp等课程，几乎所有的业余时间都用到了接活来做上，这一点也差不多达到了狂热的程度。不过后来发现自己似乎是走进了死胡同：我试图走进VC的世界，可是被MFC、SDK这些东西折磨得痛苦之极；当我为自己开始能用asp做些东西而沾沾自喜的时候，一个强调代码与界面分离的asp.net一天比一天时髦起来，而它的身后是一个.NET家族。更新的技术何时出现？天知道，或许就在明天。我终于开始明白，我实际并不象身边的人说的那样聪明，我也只是一个平庸的人；我终于开始明白，如果在我所从事的这个没有任何保障的“挨踢”行业继续做下去，过几年我会成为40、50人员，那时恐怕连愿意为我交社保、医保的地方都找不到了。所以现在我进入了企业，不再是教师，因为这需要很大的精力来证明自己的能力和水平；也不再为了些“水票管理”之类的东西而通宵达旦，因为这样做得到的是几个小钱，失去的却是最宝贵的健康。

今天和几个高中同学小聚了一下，或许是人岁数大了愿意回忆从前的事，或许是还有些酒意，所以有了上面的这一段话。不过我想这不应该算是牢骚，应该说是一个菜鸟对自己的可笑经历的总结。

我始终认为C语言是一个基础性的语言，以前无论是VB或VFP课，我总会要求同学自己找本谭浩强的《C程序设计》，把预处理命令、指针、结构体与共用体等几部分内容pass过去，阅读其基础部分的内容；而在课时充足的情况下，我也会经常拿C程序书中诸如“鸡兔同笼”这样有趣的题来“折磨”一下班上的同学。

而现在有些日子了，有两个高中同学总跑到我家里来。人活到老、学到老，这本是件好事，不过我还是有些苦恼。因为他们到我家里来学习，不仅不交学费，我还得管他们饭。他们问到的vfp的东西比较多，所以我打算继续把这方面的一些东西翻出来晒晒。从本文开始会探讨一下C程序书中比较经典的几个算法在VFP中实现的问题，当然纯属菜鸟之见，有没有用那可两说，得自己去分析。觉得有用的话，或许可以开拓思路、扩充您的知识面，我很高兴；觉得没用的话，您权当我是吃撑了，您能忍受我罗嗦了这么长时间，我一样很高兴，呵呵。

水仙花数的实现是一个比较经典的算法题，今天我们首先在vfp中来实现它。

首先我们了解一下什么是“水仙花数”。所谓水仙花数是指一个n位数,其各位数字立方和等于该数本身的值,例如:153=1³+5³+3³ ,所以153是一个水仙花数。

我们来做一个简单点儿的：求解3位数的水仙花数，即100至999之间的水仙花数。很明显这个程序需要使用循环，并且从水仙花数的概念可知，其重点是求解出循环变量当前值的各位数字的值。剩下的工作就简单了，把求解出的各位数字的立方和与循环变量当前值进行比较，如果相等则说明这是一个水仙花数，输出它即可。相关说明见代码注释。本文发表于编程入门网:www.bianceng.cn

我们用表单来实现这个例子，运行时如下图：

参照上图开始我们的制作：

一、新建表单，向表单上添加一个标签控件，caption属性值设置为“显示100到999间的水仙花数”；添加两个命令按钮command1和command2，并将它们的caption属性值分别设置为“开始”和“清除”；添加一个编辑框控件Edit1，属性值均采用默认的。

二、添加事件代码：

1、“清除”按钮的click事件：

thisform.edit1.value=""
thisform.refresh

2、“开始”按钮的click事件：

local i,a,b,c
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    &&成立说明是水仙花数并输出
    thisform.edit1.value=thisform.edit1.value+str(i,5)+chr(13) &&用chr(13)换行
  endif
endfor

OK了,运行表单吧。