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

结束类

提前致谢！

编辑我只是在运行时在文本框中尝试了一些新值。它似乎将 Number of items 值乘以自身。我不知道为什么...

4

1 回答 1

0

我认为问题在于您正在解析txtNumber.Text并将其存储在 中DecCost，而您已经在使用它来保存成本。您需要一个DecCost小数来存储成本，以及一个intNumber整数来存储数量。然后，解析每个文本框并将结果组合在一起。

Dim decCost As Decimal
Dim intNumber As Integer
If Integer.TryParse(txtNumber.Text, intNumber) AND Decimal.TryParse(txtCost.Text, decCost) Then
    lblTotal.Text = decCost * intNumber
Else
    lblTotal.Text = "Please Enter Numerals in Both Boxes."
End If

演示

于 2013-04-12T18:19:26.937 回答