请问sqr(1+sqr(2+sqr(3+sqr(4+sqr(5+sqr(6+.....

来源：百度知道 编辑：UC知道 时间：2024/06/08 07:06:44
sqr(1+sqr(2+sqr(3+sqr(4+sqr(5+sqr(6+.....
一直到n... 如何在vb实现... ..谢谢!~

楼上那个是错的，代入N=2直接就看到是错的了！

Private Function xxx(ByVal n As Long) As Double
Dim tmp As Double, i As Long
tmp = n
Do While n > 1
tmp = Sqr(tmp) + (n - 1)
n = n - 1
Loop
xxx = Sqr(tmp)
End Function
没有处理N=1的情况，你处理一下就行了。

Private Sub Form_Click()
Dim n As Integer, i As Integer, fact As Single
n = InputBox("请输入n的值")
For i = n To 1 Step -1
fact = Sqr(fact + n)
Next i
Print "sqr(1+sqr(2+sqr(3+.....= " & fact
End Sub