Vb.net 标签未显示其编码的功能 totalprice=cost+cost1+cost2+cost3+cost4 Form2.Label24.Text=总价 增值税=总价*0.2 Form2.Label26.Text=增值税 Form2.Label27.Text=总价+增值税 总价增值税=总价+增值税 表格2.Show（） 财务=财务1+总价格增值税 财务1=总价格增值税*0.05 财务2=财务/12 财务3=总价格增值税*0.1 财务4=财务/24 如果ListBox1.SelectedItem=“12个月”，则Form2.Label33.Text=finance2 如果ListBox1.SelectedItem=“24个月”，则Form2.Label33.Text=finance 4

上面是我为几个选定项目编制的一段代码

标签33应显示财务2和/或财务4的结果，这取决于从列表框1中选择的项目，但它并没有按预期工作，它只显示“标签33”。如何让Label33显示财务2和/或财务4的结果。这很奇怪，因为上周（当我输入这段代码时）它显示得很好。今天，我启动了这个程序，检查是否一切正常，并且发生了这种情况

我非常感谢您的帮助，请务必解释您答案的每一部分，因为我对Visual Basic相当陌生

---

提前谢谢

在代码中从不使用finance3。您收取的1年财务费用与您收取的2年财务费用完全相同。这是我想要的交易。我知道这个练习要求你既是一名会计又是一名程序员。在使用finance1计算finance1后，将计算finance1的值

我为成本变量添加了值，以便进行测试

我在If报表中计算了财务，所以您只计算了一个选项

Private Sub OPCode()
    Dim cost = 10D, cost1 = 20D, cost2 = 30D, cost3 = 40D, cost4 = 50D
    Dim totalprice = cost + cost1 + cost2 + cost3 + cost4
    Form2.Label24.Text = totalprice.ToString("N2")
    Dim vat = totalprice * 0.2
    Form2.Label26.Text = vat.ToString("N2")
    Form2.Label27.Text = (totalprice + vat).ToString("N2")
    Dim totalpricevat = totalprice + vat
    'Dim finance3 = totalpricevat * 0.1   You never use this in your code.
    If ListBox1.SelectedItem.ToString = "12 Months" Then
        Dim finance = totalpricevat * 1.05 / 12
        Form2.Label33.Text = finance.ToString("N2")
    ElseIf ListBox1.SelectedItem.ToString = "24 Months" Then
        Dim finance = totalpricevat * 1.1 / 24 ' .1 is .05 x 2, interest for 2 years
        Form2.Label33.Text = finance.ToString("N2")
    End If
    Form2.Show()
End Sub

---

尝试设置断点并进行调试。我认为很容易找到问题，我的朋友。你应该给你的控件起个有意义的名字。Label33等不是有意义的名称。请注意，不要过分强调这一点。正如Mary所说，控件和变量的名称都很有意义。这不是为了我们的利益，而是为了你自己。除此之外，问题可能是ListBox1.SelectedItem不等于“12个月”或“24个月”。当SelectedItem返回一个与字符串相比较的对象时，我会感到惊讶。也许listBox1.SelectedItem.ToString（）是修复方法？将

选项严格设置为On

。