简单的VB程序设计算法请教各位大哥！！急！！

[huwen_83]

使用FOR循环实现以下算法！
S=1^1+2^2+3^3+4^4+5^5+......

[laviewpbt]

for u=1 to 100
s=s+i^i
next i

[a达哥a]

private function GetSum(n as long) as double
dim i as long
for i=1 to n
GetSum=GetSum+i^i
next i
end function

注意n不能太大, 会溢出