將以下For...Next轉成Do Until...Loop

n = txtn.Text
i = 0
Do
i = i + 1
Sum = Sum + i ^ (n - i + 1)
Loop Until i >= n

txtsum.Text = Sum

2010-04-05 20:04:20 補充：
n = txtn.Text
i = 1
Do Until i > n
Sum = Sum + i ^ (n - i + 1)
i = i + 1
Loop

txtsum.Text = Sum

i=1

do until i=n
sum=sum=1^(n-i+1)
i=i+1
end do