So I need to write a program that will approximate PHI (the golden ratio) using Fibonacci Numbers. It has to be within a negative power of 10 (between -1 and -16) oh PHI. So for example, if I put -2 into the input, the approximation of PHI would have to be with 10^-2 of the number that we’re using of 1.618033988749895. Also, we need to show how many Fibonacci terms that were used to get to that number and the difference that the number that we approximated is to PHI.

Here’s my code so far. Please help haha! I think that my problem is in the loop, because when I debug, the program doesn't even give me an answer.

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim Accuracy As Integer
Dim StrOut As String
Dim A, B, Sum, PHI, Difference, Count As Decimal

Accuracy = CInt(txtAccuracy.Text)

A = 0
B = 1
Count = 0

Do
Sum = A + B
A = B
B = Sum
PHI = Sum / A
Difference = 1.6180339887498949 - PHI
Count = Count + 1

If Difference <= 10 ^ Accuracy Then
Exit Do
End If

Loop Until Difference <= 10 ^ Accuracy

StrOut = vbTab & "Number of Terms Used:" & vbTab & CStr(Count) & vbCrLf & vbTab & "Approximation of PHI:" & vbTab & CStr(PHI) & vbCrLf & vbTab & "Difference from PHI:" & vbTab & CStr(Difference)

End Sub
End Class

Your code may exit the loop, but `StrOut = txtAnswer.Text` should probably be `txtAnswer.Text = StrOut` .