VB에서 3 개의 레이블을 추가하는 방법 6

Question

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 

Answer 1

확실하지 않은 것이 무엇인지 잘 모르겠습니다. 방금 청소했습니다.

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