Question

我的程序应该计算项目的成本，当它运行时它不会显示小数。例如，如果用户在成本文本框中输入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

结束班

提前致谢！

编辑我刚刚在运行时在文本框中尝试了一些新值。它似乎将项目数值乘以它自己。我不明白为什么......

Answer 1

我认为问题在于您正在解析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

Demo

我的程序不会正确显示数值

1 个答案: