求大神帮忙编程，把VB语言发给我： 给你一个（1）的答案，其他它相似的：Dim i As IntegerDim a As IntegerDim b As IntegerDim c As IntegerFor i=100 To 999 a=i \\ 100 b=(i Mod 100)\\ 10 c=i Mod 10 If a^3+b^3+c^3=i.
VB编程：求水仙花数 /编程求出所有的“水仙花数”：知2006-10-1008：43/把下面代码道复制到代码区，点击窗体触发事件PrivateSubForm_Click()Dima，b，cAsInteger'a(个)b(十)c(百)Fora0To9Forb0To9Forc1To9Ifa3b3c3a10b100cThenMsgBox100c10baEndIfNextcNextbNextaEndSub烟花飘回飘的空间，里面还有几个例答子，你可以看看http：//hi.baidu.com/yhpp521
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。最后运行这样就完成了。
