关于#microsoft#的问题：如何用VBAfor循环写这个程序

如何用VBAfor循环写这个程序：水仙花：请找出100到1000中的所有数，满足个位数的立方加上十位数的立方加上百位数的立方等于数本身

ABC=AAA+BBB+CCC

Sub Flowers()
  num = 0
  s = ""
  For i = 100 To 999
    a = i \ 100
    b = (i \ 10) Mod 10
    c = i Mod 10
    If i = a ^ 3 + b ^ 3 + c ^ 3 Then
      num = num + 1
      s = s & vbNewLine & i
    End If
  Next
  MsgBox "100-1000水仙花数：" & num & s
End Sub

你题目的解答代码如下：

Private Sub Command1_Click()
    For i = 100 To 1000  '如果算1000这个数的话就这样写，不算的话就to 999
        sxhs (i)
    Next i
End Sub
 
Function sxhs(num As Integer)
    If ((num \ 100) ^ 3) + ((num Mod 100) \ 10) ^ 3 + (num Mod 10) ^ 3 = num Then
        Print num;
    End If
End Function

如有帮助，请点击我的回答下方的【采纳该答案】按钮帮忙采纳下，谢谢!

您好，我是有问必答小助手，您的问题已经有小伙伴帮您解答，感谢您对有问必答的支持与关注！
PS：问答VIP年卡 【限时加赠：IT技术图书免费领】，了解详情>>> https://vip.csdn.net/askvip?utm_source=1146287632