0

このプログラムを終了し、計算をテキストボックスに表示する方法を理解しようとしています。これは私がこれまでに持っているものであり、基本的にコードは購入価格と償還率を取り、割引と金利を計算します。しかし、私が間違っていることはわかりません。 

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
4

2 に答える 2

1

演算子の優先順位に問題があるようです。角かっこが必要です。最初のケースでは、償還を購入で割ってから、購入から差し引きます。2番目では、償還を償還で分割し、購入から1である結果をサブプラクティスします。これを試して。また、表示しているコントロールに結果を割り当てる必要があります。

DiscountRate = (Purchase - Redemption) / Purchase
InterestRate = (Purchase - Redemption) / Redemption
txtDiscount.Text = DiscountRate.ToString
txtInterest.Text = InterestRate.ToString

またはもっと簡単に

txtDiscount.Text = ((Purchase - Redemption) / Purchase).ToString
txtInterest.Text = ((Purchase - Redemption) / Redemption).ToString
于 2012-10-17T03:53:28.677 に答える
0

それらの変数は、解析時にコントロールに自動的にバインドされません。計算後にこれを追加する必要があるようです。

txtDiscount.Text = DiscountRate
txtInterest.Text = InterestRate
于 2012-10-17T03:51:12.950 に答える