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

2025-02-28 08:39:25

推荐回答（3个）

回答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

回答2：

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

回答3：

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