求解1 ^ 1 + 2 ^ 2 + 3 ^ 3 + ... N ^ N.

Question

我想计算大Public Sub RenameOnSlideObjects() Dim oSld As Slide Dim oShp As Shape Dim oGrpItm As Shape Dim GrpItmNum As Integer For Each oSld In ActivePresentation.Slides For Each oShp In oSld.Shapes With oShp Select Case True Case .Type = msoPlaceholder ' you could then check the placeholder type too .Name = "myPlaceholder" Case .Type = msoTextBox .Name = "myTextBox" Case .Type = msoAutoShape .Name = "myShape" Case .Type = msoChart .Name = "myChart" Case .Type = msoTable .Name = "myTable" Case .Type = msoPicture .Name = "myPicture" Case .Type = msoSmartArt .Name = "mySmartArt" Case .Type = msoGroup ' you could then cycle though each shape in the group .Name = "myGroup" GrpItmNum = 0 For Each oGrpItm In .GroupItems GrpItmNum = GrpItmNum + 1 oGrpItm.Name = "myGroupItem" & GrpItmNum Next oGrpItm Case Else .Name = "Unspecified Object" End Select End With Next Next End Sub 的此表达式的总和，然后通过no N=10e9

模数

m<=1000 我尝试过这种方法，但现在还需要更好的方法来帮助我。

1^1+2^2+3^3+...+N^N