如何在vb6中添加3个标签

我正在尝试将这3个标签添加到一起。其中2个对应于全局变量，第3个对应于2个全局变量的税务计算。当我使用这个程序时，它只是添加了两个全局变量，而不是最终的税务标签

Sub bill()
    Total = Val(lblRefreshmentPrice) + Val(lblTicketprice)
    lblBillTaxPrice = Format(Total * 0.13, "Currency")
End Sub

Private Sub Form_Load()
    lblRefreshmentPrice = RefreshmentPrice
    lblTicketprice = Ticketprice
    lblFinalTotalPrice = Val(lblRefreshmentPrice) + Val(lblTicketprice) + Val(lblBillTaxPrice)
    Call bill
End Sub

---

不确定什么对你不起作用，我只是把它清理干净了

Private RefreshmentPrice As Currency
Private TicketPrice As Currency
Private BillTaxPrice As Currency
Private FinalTotalPrice As Currency
Private Total As Currency

Const TaxRate As Double = 0.13


Sub bill()
    ' calculate total before tax
    Total = RefreshmentPrice + TicketPrice
    ' calculate tax
    BillTaxPrice = Total * TaxRate
    ' calculate total price with tax
    FinalTotalPrice = RefreshmentPrice + TicketPrice + BillTaxPrice
    ' set labels
    lblRefreshmentPrice.Caption = Format(RefreshmentPrice, "Currency")
    lblTicketprice.Caption = Format(TicketPrice, "Currency")
    lblFinalTotalPrice.Caption = Format(FinalTotalPrice, "Currency")
    lblBillTaxPrice.Caption = Format(BillTaxPrice, "Currency")
End Sub

Private Sub Form_Load()
    ' set up globals (for debug)
    RefreshmentPrice = 8
    TicketPrice = 50
    ' calculate and set labels
    bill
End Sub

---

这就是所有的代码吗？这只是计算的代码，但还有更多，我试图做的是计算2个全局变量的税，然后添加2个全局变量和我计算的税，使用

Val（lblRefreshmentPrice）

得到的值是坏的。在进行算术运算时，应该使用基础数值（RefreshmentPrice）。如果必须从标签中获取值，则应将文本转换为如下数字

Val（lblRefreshmentPrice.Caption）

。这是您的意思吗？子账单（）总计=Val（lblRefreshmentPrice.Caption）+Val（lblTicketprice.Caption）lbiltaxprice=格式（总计*0.13，“货币”）结束子私有子表单加载（）lblRefreshmentPrice=RefreshmentPrice lblTicketprice=Ticketprice lblFinalTotalPrice=Val（lblRefreshmentPrice.Caption）+Val（lblTicketprice.Caption）+Val（lblBillTaxPrice.Caption）调用账单结束子系统@Verdolino@Verdolino是否要我将Val（lblRefreshmentPrice）更改为Val（lblRefreshmentPrice.Caption）用于计算税款或子代码“账单”？？抱歉@Verdolino，如果我弄糊涂了，但我需要的帮助是添加我的3个标签。添加的唯一内容是ticketprice和refreshmentprice。所有内容都在其中。请注意，我添加的是数字，而不是标签。然后我设置了标签。因此我尝试使用它，但程序告诉我该格式（refreshmentprice）不是定义的变量@VerdolinoI在我的代码顶部定义了它。你可以在你的方法中使用

Dim RefreshmentPrice As Currency

。我假设这是你的全局变量之一…默认情况下，VB6允许你使用变量而不声明它们，这可能会导致运行时错误。添加

Option Explicit

是一个很好的做法这将告诉编译器，在使用变量之前，请确保您已经声明了所有变量。