用VB编写求数列的和.设数列的首项为81,以后各项为前一项的平方根,求前20项和.

Question

用VB编写求数列的和.设数列的首项为 81,以后各项为前一项的平方根,求前 20 项和.

Answer 1

Private Sub Command1_Click()
    Dim a(1 To 20), s, i, sum
    s = 81 ^ 2
    For i = 1 To 20
        a(i) = Sqr(s)
        s = a(i)
    Next i
    For i = 1 To 20
        sum = sum + a(i)
    Next i
    Print sumEnd Sub