(Solved) : Option Explicit Option Strict Option Infer Public Class Frmmain Private Sub Btncalcclick S Q32942223 . . . .

Option Explicit On
Option Strict On
Option Infer Off

Public Class frmMain
    Private Sub btnCalc_Click(sender As Object, e AsEventArgs) Handles btnCalc.Click
        ‘ Calculate accountbalances for each of five years
        ‘ using rates from 3% to7% in increments of 1%.

        Dim dblDeposit AsDouble
        Dim dblBalance As Double= 3
        Dim dblInterest AsDouble
        Dim dblRate AsDouble
        Dim IntYears AsInteger

       Double.TryParse(txtDeposit.Text, dblDeposit)
        txtBalance.Text = “Year”& ControlChars.Tab & “Rate” &
        ControlChars.Tab &”Balance” & ControlChars.NewLine

        ‘ Calculate anddisplay account balances.
        For intYear As Integer =1 To 5
           txtBalance.Text = txtBalance.Text & intYear.ToString&
           ControlChars.NewLine
           dblRate = 3

           Do
               dblInterest = dblBalance * dblRate / 100
               dblBalance = dblBalance + dblInterest
               dblBalance = Math.Round(dblBalance, 2)
               txtBalance.Text = txtBalance.Text &
                   ControlChars.Tab &