求100^999中所有的水仙花数,

wyx9582022-10-04 11:39:541条回答

已提交,审核后显示!提交回复

共1条回复
tina5421 共回答了22个问题 | 采纳率100%
Private Sub Form_Load()
Me.AutoRedraw = True
For i = 100 To 999
If (i 100) ^ 3 + ((i Mod 100) 10) ^ 3 + (i Mod 10) ^ 3 = i Then Print i
Next i
End Su
1年前

相关推荐