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