用VB求3位所有“水仙花数”之和？（求100-999之间所有水仙花数的和）急~V

用VB求3位所有“水仙花数”之和？（求100-999之间所有水仙花数的和）急~V

Private Sub Command1_Click()
Dim i, j, m, n, sum As Integer
For n = 100 To 999
i = n  100
j = (n Mod 100)  10
m = n Mod 10
If i ^ 3 + j ^ 3 + m ^ 3 = n Then
sum = sum + n
End If
Next n
Print "求100-999之间水仙花数之和为：" & sum
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！