0

私のプログラムはアイテムのコストを計算することになっていますが、実行すると小数は表示されません。たとえば、ユーザーがコスト テキスト ボックスに 5.99 を入力し、アイテム数ボックスに 5 を入力した場合、出力として 25 が表示されます。

Public Class Form1
Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
    Dim DecCost As Decimal = txtCost.Text
    Dim intNumber As Integer = txtNumber.Text
    If Decimal.TryParse(txtNumber.Text, DecCost) Then
        Dim DecTotal As Decimal = intNumber * DecCost
        lblTotal.Text = DecTotal
    Else
        lblTotal.Text = "Please Enter Numerals in Both Boxes."
    End If

End Sub

クラス終了

前もって感謝します!

EDIT実行時にテキスト ボックスでいくつかの新しい値を試しました。Number of items の値自体を掛けているようです。理由がわかりません...

4

1 に答える 1