VB ElseIf声明仅限于1

Question

我被大学逼迫在Visual Studio（Basic）中进行应用程序设计，而我之前从未接触过这种语言，因此感到困惑。 我做了If语句，它起作用了，然后我添加了EleseIf ，它也起作用了，但是在我添加Second ElseIf它不起作用了。 似乎只有If语句和第一个ElseIf对我ElseIf ，但我需要的不只是1条ElseIf语句。

Public Class receipt
Private Sub receipt_Load(sender As Object, e As EventArgs) Handles Me.Load
    Dim outputValue As Decimal = My.Settings.outputamount.Remove(4)
    Dim calculation As Decimal = outputValue * My.Settings.inputamount
    Dim totalwithoutcharge As String = calculation.ToString
    customername.Text = "Name: " + My.Settings.Username
    Label6.Text = "Entered Money: " + My.Settings.inputamount + " " + My.Settings.currency
    Label7.Text = "Converted To: " + totalwithoutcharge + " " + My.Settings.outputcurrency

    If calculation < 100 Then
        Label8.Text = "Charge: 0%"
        Label9.Text = "Total: " + totalwithoutcharge + " " + My.Settings.outputcurrency
    ElseIf calculation > 100 Then
        Label8.Text = "Charge: 1%"
        Label9.Text = "Total: " + totalwithoutcharge + " " + My.Settings.outputcurrency
    ElseIf calculation > 500 Then
        Label8.Text = "Charge: 2%"
        Label9.Text = "Total: " + totalwithoutcharge + " " + My.Settings.outputcurrency
    ElseIf calculation > 1000 Then
        Label8.Text = "Charge: 3%"
        Label9.Text = "Total: " + totalwithoutcharge + " " + My.Settings.outputcurrency
    Else
        Label8.Text = "Something went wrong"
    End If
End Sub 
End Class

我输入了许多值，我已经添加了600多个值，但仍显示“费用：1％”，而应改为2％。 值大于1000时也会发生同样的情况，它将仍然显示1％。 但是，当该值小于100时，则确定为0％。

超过100 个也可以正常工作超过500个不起作用

我还尝试了在两个条件下执行此操作，即可以查看范围，但也无法正常工作。 我尝试过“ ElseIf计算> 100，然后计算> 500然后”，但是没有区别。

Answer 1

首先，在集中字符串时使用＆而不是+。 其次，如果计算> 500，那么它也大于100、200等。因此您需要实现一个范围。 因此，请考虑一下逻辑。

Answer 2

根据我的评论

    If calculation >= 1000 Then

    ElseIf calculation >= 500 Then

    ElseIf calculation >= 100 Then

    Else
        'lass than 100
    End If