Option Explicit
Dim A() As Integer
Dim k As Integer, n As Integer
Private Sub Command1_Click()
Dim i As Integer
k = InputBox("введите число")
ReDim A(1 To n)
A(1) = 1
A(2) = 1
For i = 3 To n
A(i) = A(i - 1) + A(i - 2)
Next
For i = 1 To n
If k = A(i) Then Print "входит в последовательность" Else Print "не входит в последовательность"
Next
End Sub

Option Explicit
Dim k As Integer, F1 As Long, F2 As Long

Private Sub Command1_Click()
   k = Val(InputBox("Введите число:"))
    If k < 1 Then
        MsgBox k & " не является ЧЛЕНОМ"
    Else
        F1 = 0
        F2 = 1
        Do While F2 < k
            F2 = F1 + F2
            F1 = F2 - F1
        Loop
        If F2 = k Then
            MsgBox k & " является ЧЛЕНОМ"
        Else
            MsgBox k & " НЕ является ЧЛЕНОМ"
        End If
    End If
End Sub

Private Sub Command1_Click()
Dim n As Integer, k As Integer, y As Single, S As Single
n = InputBox("Введите n")
For k = 1 To n
y = (Cos(2 * k * y)) / k
S = S + y
Next
Text1.Text = S
End Sub

Private Sub Command1_Click()
Dim n As Integer, k As Integer, x As Integer
n = InputBox("Введите n")
x = InputBox("Введите x")
For k = 1 To n
S = S + (Cos(2 * k * x)) / k
Next
Text1.Text = S
End Sub