今天来聊聊关于求水仙花数的vb程序，vb水仙花数编程的文章，现在就为大家来简单介绍下求水仙花数的vb程序，vb水仙花数编程，希望对各位小伙伴们有所帮助。

1、Private Sub Command1_Click()Dim s%, s1%, s2%, t%For s = 100 To 1000s2 = 0t = sDo While t > 0s1 = t Mod 10t = t 10s2 = s2 + s1 ^ 3LoopIf s = s2 ThenPrint "水仙花数为："; sEnd IfNext sEnd Sub。

相信通过vb水仙花数编程这篇文章能帮到你，在和好朋友分享的时候，也欢迎感兴趣小伙伴们一起来探讨。