このプログラムを終了し、計算をテキストボックスに表示する方法を理解しようとしています。これは私がこれまでに持っているものであり、基本的にコードは購入価格と償還率を取り、割引と金利を計算します。しかし、私が間違っていることはわかりません。
Option Strict On
Public Class _Default
Inherits System.Web.UI.Page
Dim Purchase As Double
Dim Redemption As Double
Dim DiscountRate As Double
Dim InterestRate As Double
Protected Sub btnCalculate_Click(sender As Object, e As EventArgs) _
Handles btnCalculate.Click
Double.TryParse(txtPurchase.Text, Purchase)
Double.TryParse(txtRedemption.Text, Redemption)
Double.TryParse(txtDiscount.Text, DiscountRate)
Double.TryParse(txtInterest.Text, InterestRate)
If (CDbl(txtPurchase.Text) <= 0) Then
MsgBox("Please enter an amount greater than 0")
End If
If (CDbl(txtRedemption.Text) <= 0) Then
MsgBox("Please enter an amount greater than 0")
End If
DiscountRate = Purchase - Redemption / Purchase
InterestRate = Purchase - Redemption / Redemption
End Sub
End Class