AI时代，找源码已成为过去式，纪念我过去的十年0(回)
69天前
还有人吗2(回)
87天前会python真的可以为所欲为0(回)
567天前
这里还有人吗2(回)
752天前这里还有人吗0(回)
752天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
977天前Private Sub Command1_Click()
'水仙花数定义："水仙花数"是指一个三位数，其中各位数字的立方和等于该数本身
For i = 100 To 999
a = Int(i / 100)
b = Int((i - 100 * a) / 10)
c = i - Int(i / 10) * 10
If i = a ^ 3 + b ^ 3 + c ^ 3 Then
Print i
End If
Next i
End Sub
Private Sub Command1_Click()
For n = 100 To 999
s = 0
a = n
Do While a <> 0
b = a Mod 10
s = s + b * b * b
a = a＼ 10
Loop
If s = n Then Print n
Next n
End Sub
初级设计师
by: 海大软件1102班 发表于：2012-09-26 11:08:45 顶(0) | 踩(0) 回复
屌爆了！
回复评论