vb玫瑰花为数... 数字填空

vb玫瑰花为数... 数字填空

问题补充说明：

Private Sub Command2_Click() '水仙花数 153=1*1*1+5*5*5+3*3*3For i = 10 To 999If i < 100 Then

 ge = i Mo银呼皇编钟状呀扬d 10

 shi = i \ 10

 If ge ^ 3 + shi ^ 3 = i Then Print ,

Else

 ge = i Mod 10

 shi = i \ 10 Mod 10

 ba来自i = i \ 100

 If ge * ge * ge + shi ^ 3 + bai ^ 3 = i Then

  Print i,

  geshu = geshu + 1

  I别斗令八兰固宁材f geshu M360问答od 5 = 0 Then Print

 End If

End If

Next i

 Print

 Print

Print geshu

End Sub

你的图片看不清楚