vb中n次幂的和咋表示?

private sub command1_click()
dim i as integer,j as integer,sum as integer,num as integer
num=val(text1) //num为输入要求的数
j=val(text2) //j为输入的幂
for i=1 to j //通过i来循环，如果i是从0开始，则要j-1
sum+=num^i //求和
next i //如果i<j则进入下一循环
print sum //打印出结果
end sub

private sub command1_click()
dim n as integer
n=inputbox("输入底数")
m=inputbox("输入指数")
for i = 1 to m
s=s + n^i
next
? s
end sub

dim a as integer '指数
dim b as integer '结果
dim c as integer '底数
b=0
for a=1 to 6
b+=c^a
next a
msgbox(b)

private sub command1_click()
dim i as integer,s as integer ,n as integer ,m as integer
n=val(text1)
m=val(text2)
for i=1 to 6
s=s+n^i
next i
print s
end sub