Question

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

Answer 1

Private Sub Command2_Click() '水仙花数 153=1*1*1+5*5*5+3*3*3
For i = 10 To 999
If 纯昌i <做笑扒 100 Then
 ge = i Mod 10
 shi = i \ 10
 升弯If ge ^ 3 + shi ^ 3 = i Then Print ,
Else
 ge = i Mod 10
 shi = i \ 10 Mod 10
 bai = i \ 100
 If ge * ge * ge + shi ^ 3 + bai ^ 3 = i Then
  Print i,
  geshu = geshu + 1
  If geshu Mod 5 = 0 Then Print
 End If
End If
Next i
 Print
 Print
 
Print geshu
End Sub

你的图片看不清楚

追问

我这是玫瑰花数不是水仙花数啊

追答

后面不是还加了么
看不清楚
你能把代码发上来么