n=txtn.Text
For i=1 to n
sum=sum+i^(n-i+1)
Next
txtsum,Text=sum
將以下For...Next轉成Do Until...Loop
2010-04-06 3:24 am
回答 (2)
2010-04-06 3:58 am
✔ 最佳答案
n = txtn.Texti = 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
2010-04-06 3:28 am
i=1
do until i=n
sum=sum=1^(n-i+1)
i=i+1
end do
do until i=n
sum=sum=1^(n-i+1)
i=i+1
end do
收錄日期: 2021-04-15 21:58:31
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20100405000051KK01290