vb水仙花 自定义函数的开头错：Puction 应为Function函数没有返回值Function func()For i=100 To 999a=Mid(i，1，1)b=Mid(i，2，1)c=Mid(i，3，1)If i=(a^3+b^3+c^3)ThenPrint iEnd IfNext iEnd Function
VB 水仙花 经测算我的程序是目前回答中最快的一个（具体时间见下）单击窗体后显示水仙花数Private Sub Form_Click()Dim I As Integer，a As Integer，b As Integer，c As IntegerI=100Do While Ia=I \\ 100b=I \\ 10 Mod 10c=I Mod 10If a*a*a+b*b*b+c*c*c=I Then Print II=I+1LoopEnd Sub我的这个程序运行一次耗时0.001146秒（最少）timothyhpotter的程序运行一次耗时0.002722秒（我的2.3倍）chenjing325的程序运行一次耗时0.004060秒（我的3.5倍）
VB编程水仙花数 1、首先2113双击桌面图标启动 visual basic 6.0。2、然后新建工程，选5261择标准EXE。3、选择完工程后，4102点击打开，就可以新建一个exe工程了1653。4、然后双击 FORM1 窗体，在弹出的代码窗体中复制该代码到 Form_Click()事件中。5、代码：If a*100+b*10+c=a^3+b^3+c^3 Thenn=n+1If(n Mod 5)=0 ThenPrint a&b&cElsePrint a&b&c，End IfEnd IfNext cNext bNext aPrint Chr(13)&Chr(13)&\"三位数中水仙花数个数为\"&n。最后运行这样就完成了。
