vb编程题！！急。。。要交作业了还是不会做。。

来源：百度知道 编辑：UC知道 时间：2024/07/03 03:44:14
已知下列数列2/1,3/2,5/3,8/5,13/8,21/13...
s为这个数列的前n项和编写程序求使s值大于30的最小整数n？？

Private Sub Form_click()
s = 0
a = 2
b = 1
For n = 1 To 100
t = a / b
s = s + t
If s > 30 Then
Print n
Exit For
End If
x = a + b
b = a
a = x
Next n
End Sub

Private Sub Command1_Click()
Dim a As Double, b As Double, s As Double, n As Integer
Dim tmp As Double
a = 1
b = 1
n = 0
Do While s < 30
n = n + 1
tmp = a
a = a + b
b = tmp
s = s + a / b
Loop
MsgBox n
End Sub