Option Explicit Sub Interest) This program solves the interest equation F P*(1 i

Question

Option Explicit Sub Interest) This program solves the interest equation F P*(1 i)AN for the user's choice of 'variable Dim Choice As String, F, P, I As Single Dim N As String Choice = InputBox("Enter capital F,P,1, or N to solve for") If Choice-"F" Then P Val(InputBox("Enter a value for P in $")) I- Val(InputBox("Enter a decimal value for I")) N Val(InputBox("Enter a value for N") MsgBox "The future value of the money is $"&F ElseIf Choice "P Then I - Val(InputBox("Enter a decimal value for I")) N Val(InputBox("Enter a value for N in years")) F Val(InputBox("Enter a value for F in $")) MsgBox "The present money value required is $" & P ElseIf Choice "I" Than P Val(InputBox("Enter a value for P in $") N Val(InputBox("Enter a value for N in years")) F Val(InputBox("Enter a value for F in $")) ((F / P) ^ (1/N)-1) * 100 =1 MsgBox "The annual interest rate must equal " & 1 & " % " Elself Choice "N" Then P Val(InputBox("Enter value for P in $")) I Val(InputBox( Enter a decimal value for I") F = Val(InputBox("Enter value for F in $"))

Explanation / Answer

Change Dim N as string to Dim N as single

change '=' to '==' after Choice for condition check. = is for assignment and == is for comparision.

eg- If Choice==''F"

Related Questions

Navigate

• Browse (All)
• Browse O
• Subjects

---

---

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.