sum（k,n）=1^k+2^k+...+n^k 的vb编码

Function sum(k As Long, n As Long)
For i = 1 To n
sum = sum + i ^ k
Next i
End Function