Ряд чисел Фибоначчи

[Аля:-)]

помогите сделать числа фибоначчи, что б было так: 0112358...
Я делала выходит так: 012358...вот оно что нужно помитять чтоб было так 0112358

.Function Fib(ByVal vs As Integer) As Integer
Dim a As Integer, b As Integer, c As Integer
a = 1
b = 1
c = 0
While c < vs
c = a + b
a = b
b = c
Wend
If c = vs Or vs = 1 Or vs = 0 Then
Fib = True
Else
Fib = False
End If
End Function

Private Sub Command1_Click()
Dim s As Integer, i As Integer
s = Text1.Text
For i = 0 To s
If Fib(i) Then
Print i
End If
Next i
End Sub

[gaw4]

Function Fib(ByVal vs As Integer) As Boolean
Dim a As Integer, b As Integer, c As Integer
a = 1
b = 1
c = 0
While c < vs
c = a + b
a = b
b = c
Wend
If c = vs Or vs = 1 Or vs = 0 Then
Fib = True
Else
Fib = False
End If
End Function

Private Sub Command1_Click()
Dim s As Integer, i As Integer
Cls
If Val(Text1.Text) > 1 Then
s = Val(Text1.Text)
Print 0: Print 1
For i = 1 To s
If Fib(i) Then
Print i
End If
Next i
Else
MsgBox "некорректный ввод"
End If
End Sub

[Аля:-)]

спасибо ОГРОМНОЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕ ЕЕЕЕЕЕЕЕЕЕЕЕЕ

[Аля:-)]

ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!!!!!!
(1+1/1^2)*(1+1/1^2)*....(1+1/n^2)
Private Sub Command1_Click()
Dim i, n As Integer
Dim x As Single
n = Text1.Text
x = x ^ 2
i = 1
Do While i <= n
x = (1 + (1 / x ^ 2)) * (1 + (1 / n ^ 2)) * (1 + (1 / n ^ 2)) * (1 + (1 / n ^ 2))
i = i + 1
Loop
Text2.Text = x

[Camaro Chevelle]

в чём хоть проблема-то?
свойство text если правильно помню имеет тип string и нельзя n его присвоить. n надо присваивать value

[Camaro Chevelle]

Private Sub Command1_Click()
Dim i as integer, n as integer, x as single
n = Text1.value
x = 1
for i=1 to n
x=x*(1+1/i^2)
next
Text2.Text = x
end sub

[Аля:-)]

СПАСИБО ТЕБЕ БОЛЬШОЕ,Я ТОГДА ОЧЕНЬ СПЕШИЛА НЕ ДОДУПЛИЛА НАПИСАТЬ ЗАДАНИЕ