VB 编一个程序，显示出所有水仙花数。所谓水仙花数，是指一个3位数，其各位数字立方和等于该数字本身。例 VB 编程序显示出所有水仙花数所谓水仙花数指3位数其各位数字立方。
vb题，求解答 Sub Main()Dim tmp As Integer，i As Integer，j As Integer，k As Integer.
编一VB程序，显示出所有的水仙花数。 Dim i%，j%，m%s=i*100+j*10*m '一定=0Do While s>；0 '一定不成立'\"水仙花数Private Sub Form_Click()Dim a，b，c As Integer 'a(个)b(十)c(百)For a=0 To 9For b=0 To 9For c=1 To 9If a^3+b^3+c^3=a+10*b+100*c ThenMsgBox 100*c+10*b+aEnd IfNext cNext bNext aEnd Sub'''''''''''''''''''''''Private Sub Form_Click()Dim i%，j%，m%，n%For n=100 To 999i=n \\ 100j=(n Mod 100)\\ 10m=n Mod 10If i^3+j^3+m^3=n ThenPrint n；i；3+；j；3+；m；3End IfNext nEnd Sub
