大家好,今天小六子来为大家解答以下的问题，关于vb三位数的水仙花编程，vb水仙花数编程这个很多人还不知道，现在让我们一起来看看吧！

1、Dim a As Integer, b As Integer, c As Integer a=1 b=0 c=0 do while a<10 do while b<10 do while c<10 if a*a*a+b*b*b+c*c*c=a*100+b*10+c then print a*100+b*10+c end if c=c+1 loop b=b+1 loop a=a+1 loo。

本文分享完毕，希望对你有所帮助。