Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/visual-studio/8.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
vb.net多条件计算_Vb.net_Visual Studio_Ms Access - Fatal编程技术网

vb.net多条件计算

vb.net多条件计算,vb.net,visual-studio,ms-access,Vb.net,Visual Studio,Ms Access,我需要计算并获得具有多个计算条件的单元的总金额。如果我在文本框中输入金额并按enter键,则第二个文本框应显示以下条件下的总金额。 (如果单位=450) 0-100=3.00//101-200=5.00//201-300=7.00//300=10.00以上 如果在输入单位为450秒后按enter键,文本框应显示总计为2000.00。我是vb.net新手,有人能帮我吗 (对于第一个100=>300.00/秒100=>500.00/第三个100=>700.00/第四个100=>500.00总共200

我需要计算并获得具有多个计算条件的单元的总金额。如果我在文本框中输入金额并按enter键,则第二个文本框应显示以下条件下的总金额。 (如果单位=450) 0-100=3.00//101-200=5.00//201-300=7.00//300=10.00以上 如果在输入单位为450秒后按enter键,文本框应显示总计为2000.00。我是vb.net新手,有人能帮我吗
(对于第一个100=>300.00/秒100=>500.00/第三个100=>700.00/第四个100=>500.00总共2000.00)

下面是一个简单的控制台应用程序来说明这个过程。我们的想法是从最高范围到最低范围,并始终检查我们是否必须从当前范围中获取项目

Class AmountLimit
    Public Property AmountLowerBound As Integer
    Public Property Value As Double

    Public Sub New(amountLowerBound As Integer, value As Double)
        Me.AmountLowerBound = amountLowerBound
        Me.Value = value
    End Sub
End Class

Sub Main()
    'Specify the values for each range. The first number is the lower bound for the range
    Dim amountLimits As New List(Of AmountLimit)
    amountLimits.Add(New AmountLimit(0, 3))
    amountLimits.Add(New AmountLimit(100, 5))
    amountLimits.Add(New AmountLimit(200, 7))
    amountLimits.Add(New AmountLimit(300, 10))

    Console.Write("Enter the total amount: ")
    Dim totalAmount = Integer.Parse(Console.ReadLine())

    Dim finalValue As Double = 0
    For i As Integer = amountLimits.Count - 1 To 0 Step -1
        'Check if our total amount is greater than the current lower bound
        Dim currentRange = amountLimits(i)
        If (totalAmount > currentRange.AmountLowerBound) Then
            finalValue += (totalAmount - currentRange.AmountLowerBound) * currentRange.Value
            totalAmount = currentRange.AmountLowerBound
        End If
    Next
    Console.WriteLine(finalValue)
End Sub

请告诉我们你到目前为止试过什么,我知道你是新来的,但你一定试过什么。让我们看看你的代码