这个for循环该如何使用?

Question

s=1*1+2*2+3*3*3+4*4*4*4+5*5*5*5*5*5+....n*n*n*...n
使用inputbox输入需要计算的次数，使用msgbox显示计算的结果，请大家帮忙看看这个for循环该怎么样写，请提供思路

Answer 1

Private Sub Command2_Click()
Dim i As Long, ii As Long, iii As Double
i = Val(InputBox("请输入一个数", "输入"))
For ii = 1 To i
    iii = iii + ii ^ ii
Next ii
MsgBox iii
End Sub

Answer 2

Private Sub Command1_Click()
    Dim N As Integer
    N = InputBox("请输入一个数字", "输入", 1)
    Dim Sum1 As Long, Sum As Long
    Sum1 = 1
    Sum = 0
    Dim i As Integer, j As Integer
    For i = 1 To N
        For j = 1 To i
            Sum1 = Sum1 * i
        Next
        Sum = Sum + Sum1
    Next
    
    MsgBox Sum
End Sub

Answer 3

汗ing,写错了:P
Private Sub Command1_Click()
    Dim N As Integer
    N = InputBox("请输入一个数字", "输入", 1)
    Dim Sum1 As Long, Sum As Long
    Sum = 0
    Dim i As Integer, j As Integer
    For i = 1 To N
        Sum1 = 1
        For j = 1 To i
            Sum1 = Sum1 * i
        Next
        Sum = Sum + Sum1
    Next
    
    MsgBox Sum
End Sub

Answer 4

Private Sub Command1_Click()
Dim i, j, sum As Long
sum = 0
j = InputBox("请输入数字")
For i = 1 To j
sum = sum + i ^ i
Next
MsgBox sum
End Sub

Answer 5

Private Sub Command1_Click()
Dim n As Integer
n = CInt(InputBox("please enter an integer", , 10))
MsgBox sum(n)
End Sub
Function sum(ByVal n As Integer) As Double
Dim i As Integer
For i = 1 To n
sum = sum + i ^ i
Next
End Function

Answer 6

:)
不是n的平方,是n的n次方

Answer 7

Dim i As Long, sum As Long
For i = 1 To InputBox("请输入一个正整数n")
    sum = sum + i ^ i
Next i
MsgBox sum

Answer 8

不能用long型，太容易溢出了Private Sub Command1_Click()
    Dim i As Long, sum As Double
    For i = 1 To InputBox("请输入一个正整数n")
        sum = sum + i ^ i
    Next i
    MsgBox sum
End Sub