用Vb程序语言编写一个程序，输出所有水仙花数。所谓水仙花数，是指一个三位数， Private Sub Command1_Click()For i=100 To 999If(i \\ 100)^3+(i \\ 10 Mod 10)^3+(i Mod 10)^3=i Then Print i；Next iEnd Sub
用VB6.0找出所有的水仙花数（梅花数），水仙花数是指一个位数≥3，它的每个位上的数字的次幂之和等于它本身。（例如：1^3+5^3+3^3=153）。三位的水仙花数共有4个：153，370。
VB输出水仙花数。 ^很简bai单的du 新建一个zhi 默认dao按钮版 Command1Private Sub Command1_Click()Dim a As Integer，b As Integer，c As Integer，i As IntegerFor i=100 To 999a=Int(i/100)b=Int(i/10-a*10)c=i Mod 10If i=a^权 3+b^3+c^3 Then Print iNext iEnd Sub
