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
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