vb中n的n次方之和怎么表示

for i=1 to n
s=1
for x=1 to i
s=s*n
next x
sum=sum+s
next i
不好意思前面S=1放错地方
应该没错吧，我这里没有VB编程器，不能验证呵呵

44

dim i
dim n
dim x
x=0
for i=1 to n
x=x+1/i
next i
print "得数=" & x

和
dim n
dim i
do
n=n+1
i=i+1/n+1
Loop While 1
print i
这两到题目的意思不是一样的吗？
为什么地一题算出来是0，第一题目应该和第二题一样也是个无限循环啊！
for 循环没有给n赋值，所以默认是0，for循环默认Step是1，从1到0实际上没有执行，所以结果还是显示开始赋给X的那个0
这两个都可以，表达出意思！