用VB编写过程找出所有水仙花数所谓水仙花数是指一个三位数的整数其每一位上的数字立方和等于该数的本身 Option ExplicitPrivate Sub command1_click()Dim I As Integer，a As Integer，b As Integer，c As IntegerDim st As StringFor a=1 To 9For b=0 To 9For c=0 To 9I=a*100+b*10+cIf I=a^3+b^3+c^3 Thenst=I&\"=\"&a&\"^3+\"&b&\"^3+\"&c&\"^3List1.AddItem stEnd IfNext cNext bNext aEnd Sub
如何用VB控制台编程（打印输出100－999之间的水仙花数） ' VB.NET 控制台应用Module Module1Sub Main()Dim i，a，b，c As Integeri=100Do While ia=i \\ 100b=i \\ 10 Mod 10c=i Mod 10If a^3+b^3+c^3=i ThenConsole.WriteLine(i)'控制台输出部分，可以修改成其他形式输出End Ifi=i+1LoopEnd SubEnd Module
如何用VB程序设计编写出1-999之间的水仙花数并打印出来 1-999之间水仙花数VB程序代码，如何编写？求救？应该是100-999吧 Private Sub Form_Load()Call main1 Call show1 Me。.
