This is as fare as I have gotten what am I doing wrong? Please understand I\'m a

Question

This is as fare as I have gotten what am I doing wrong? Please understand I'm a beginner when you answer. 'declare variables Dim decDollar As Decimal Dim decConversion As Decimal ' store dollars in a variable Decimal.TryParse(txtDollars.Text, decDollar) ' determine currency exchange rate Select Case True ' convert US dollar to Canada dollar Case radCanada.Checked decConversion = decDollar * 1.01615 ' convert US dollar to Eurozone Euro Case radEurozone.Checked decConversion = decDollar * 0.63849 ' convert US dollar to India Rupee Case radIndia.Checked decConversion = decDollar * 40.1798 ' convert US dollar to Japan Yen Case radJapan.Checked decConversion = decDollar * 104.39 ' convert US dollar to Mesico Peso Case radMexico.Checked decConversion = decDollar * 10.4613 ' convert US dollar to South Africa Rand Case radSouthafrica.Checked decConversion = decDollar * 7.6031 ' convert US dollar to United Kingdom Pound Case radUk.Checked decConversion = decDollar * 0.504285 End Select ' display currency conversion lblCurrency.Text = decConversion.ToString("N3")

Explanation / Answer

declare variables Dim decDollar As Decimal Dim decConversion As Decimal ' store dollars in a variable Decimal.TryParse(txtDollars.Text, decDollar) ' determine currency exchange rate Select Case True ' convert US dollar to Canada dollar Case radCanada.Checked decConversion = decDollar * 1.01615 ' convert US dollar to Eurozone Euro Case radEurozone.Checked decConversion = decDollar * 0.63849 ' convert US dollar to India Rupee Case radIndia.Checked decConversion = decDollar * 40.1798 ' convert US dollar to Japan Yen Case radJapan.Checked decConversion = decDollar * 104.39 ' convert US dollar to Mesico Peso Case radMexico.Checked decConversion = decDollar * 10.4613 ' convert US dollar to South Africa Rand Case radSouthafrica.Checked decConversion = decDollar * 7.6031 ' convert US dollar to United Kingdom Pound Case radUk.Checked decConversion = decDollar * 0.504285 End Select ' display currency conversion lblCurrency.Text = decConversion.ToString("N3")

Related Questions

Navigate

• Browse (All)
• Browse T
• Subjects

---

---

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