作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [.NET] 该如何写出1^1+2^2+#^3+......n^n
时间Sat Mar 22 23:08:39 2008
1.纯回圈
Protected Sub Button1_Click(........) Handle Button1.Click
Dim i As Integer, Ans As Long = 0
Const n As Integer = 10
For i = 1 To n
Ans += i ^ i
Next
MsgBox(Ans)
End Sub
2.函数
Protected Sub Button1_Click(........) Handle Button1.Click
Const n As Integer = 10
MsgBox Compute(n)
End Sub
Private Function Compute(ByVal n As Integer) As Long
Dim i As Integer, Ans As Long = 0
For i = 1 To n
Ans += i ^ i
Next
Return Ans
End Function
3.递回函数
Protected Sub Button1_Click(........) Handle Button1.Click
Const n As Integer = 10
MsgBox Compute(n)
End Sub
Private Function Compute(ByVal n As Integer) As Long
If n < 1 Then Return 0 Else Return Compute(n - 1) + n ^ n
End Function
Compute(3)
= Compute(2) + 3 ^ 3
= Compute(1) + 2 ^ 2 + 3 ^ 3
= Compute(0) + 1 ^ 1 + 2 ^ 2 + 3 ^ 3
= 0 + 1 ^ 1 + 2 ^ 2 + 3 ^ 3
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半点痴情遗留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 123.194.100.4