Question

编写vb程序：s=1+1/2+2/3+3/5+… (30项）

Answer 1

Private Sub Command1_Click()
    Dim s As Single
    Dim i As Long
    Dim a As Long
    Dim b As Long
    Dim c As Long
    a = 1
    b = 1
    s = 0
    For i = 1 To 30
        
        s = s + a / b
        c = a
        a = b
        b = b + c
    Next
    Print s
End Sub

Answer 2

dim s as integet
s = 1
for i = 2 to 30
s = s + (i-1)/i
next i
print s

Answer 3

数列的规律是已知的还是要靠猜的？如果是已知请说明规律？如果是靠猜的话，有限的数列有无穷多种规律，每种规律的计算结果会不一样