Warning: file_get_contents(/data/phpspider/zhask/data//catemap/7/sqlite/3.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Visual studio 2010 数学,四舍五入变量?Visual basic_Visual Studio 2010 - Fatal编程技术网

Visual studio 2010 数学,四舍五入变量?Visual basic

Visual studio 2010 数学,四舍五入变量?Visual basic,visual-studio-2010,Visual Studio 2010,我正在为我的visual basic类编写一个程序,计算每磅罐头的价格。我正在运行程序,但我需要把美分凑成最接近的美元。如何在vb中实现这一点?可以将十进制变量四舍五入吗 如果这听起来很愚蠢,我很抱歉,我是个新手 这是我的密码 Public Class Form1 Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.

我正在为我的visual basic类编写一个程序,计算每磅罐头的价格。我正在运行程序,但我需要把美分凑成最接近的美元。如何在vb中实现这一点?可以将十进制变量四舍五入吗

如果这听起来很愚蠢,我很抱歉,我是个新手

这是我的密码

Public Class Form1

    Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
        'Variables
        Dim cans As Integer
        Dim canPounds As Integer
        Dim canPoundTotal As Decimal
        Dim canWorth As Decimal = 0.75
        Dim cansNeeded As Integer

        'Conversions

        cans = Convert.ToInt32(txtGoal.Text)

        'Calculation

        canPounds = cans / 24

        canPoundTotal = canPounds * canWorth

        cansNeeded = 33000 - cans


        If cboNeed.SelectedIndex = 0 Then
            lblOutput.Text = cansNeeded.ToString + " cans need to be collected to reach your goal"

        ElseIf cboNeed.SelectedIndex = 1 Then
            lblOutput.Text = canPoundTotal.ToString("C") & " will be earned by collecting cans for recycling"


        End If




    End Sub


    Private Sub cboNeed_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboNeed.SelectedIndexChanged

        If cboNeed.SelectedIndex = 0 Then

            lblDesc.Text = "Target Goal Amount"
            btnCalculate.Text = "Find Target Amount of Cans"

        ElseIf cboNeed.SelectedIndex = 1 Then

            lblDesc.Text = "Cans Collected"
            btnCalculate.Text = "Find Amount Earned"

        End If

    End Sub
End Class

您可以使用函数:Math.Round(value)

因此如果结果是99.75美元。数学,上限是100美元吗?