选择单选按钮和复选框以在标签中显示总计？

如何解决选择单选按钮和复选框以在标签中显示总计？

这是我目前的代码。您能告诉我，当用户选择随机单选按钮和复选框时，要在标签上显示总费用的内容吗？

windows应用程序，可帮助接待员为一家人在酒店住宿一晚生成酒店客房销售报价。您必须为您的应用程序选择一个适当的名称。酒店仅提供3种类型的客房，并提供收费自助早餐和晚餐。除了互联网，娱乐和水疗服务外，所有其他酒店设施都是免费的。

房间类型=（单选按钮） 奢侈品$ 210 b。高级$ 150 c。标准$ 110 餐点（复选框）早餐$ 40 b。晚餐$ 60

便利设施（复选框） 一种。互联网$ 10 b。娱乐–付费电影$ 20 C。水疗服务$ 50 所有这些都有不变的价格 .............................下面的代码是我到目前为止所做的。您能帮我了解如何在标签上显示总费用吗？

公共类frmThePearlResortFiji

Private Sub frmThePearlResortFiji_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load
    lblDate.Text = Date.Now
End Sub

Private Sub btnTotalCost_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btnTotalCost.Click

    lblTotalCost.Text = "YOU HAVE ORDERED:" & vbNewLine

    lblTotalCost.Text = lblTotalCost.Text & "ROOM TYPE" & vbNewLine & "--------" & vbNewLine

    If radLuxury.Checked Then
        lblTotalCost.Text = lblTotalCost.Text & "Luxury = $210" & vbNewLine
    ElseIf radSuperior.Checked Then
        lblTotalCost.Text = lblTotalCost.Text & "Superior = $150" & vbNewLine
    Else
        lblTotalCost.Text = lblTotalCost.Text & "Standard = $110" & vbNewLine
    End If

    lblTotalCost.Text = lblTotalCost.Text & vbNewLine & "MEAL OPTIONS" & vbNewLine & "--------" & vbNewLine

    If chkBufferBreakfast.Checked Then
        lblTotalCost.Text = lblTotalCost.Text & "Buffer Breakfast = $40" & vbNewLine
    End If
    If chkBufferDinner.Checked Then
        lblTotalCost.Text = lblTotalCost.Text & "Buffer Dinner = $60" & vbNewLine
    End If

    lblTotalCost.Text = lblTotalCost.Text & vbNewLine & "AMENITIES" & vbNewLine & "--------" & vbNewLine

    If chkInternet.Checked Then
        lblTotalCost.Text = lblTotalCost.Text & "Internet = $10" & vbNewLine
    End If
    If chkEntertainment.Checked Then
        lblTotalCost.Text = lblTotalCost.Text & "Entertainment = $20" & vbNewLine
    End If
    If chkSpaServices.Checked Then
        lblTotalCost.Text = lblTotalCost.Text & "Spa Services = $50" & vbNewLine
    End If

    lblTotalCost.Text = decLuxury + decSuperior + decStandard

    
End Sub

Private Sub btnExit_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btnExit.Click
    Me.Close()
End Sub

Private Sub radLuxury_CheckedChanged(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles radLuxury.CheckedChanged
    picSuperior.Visible = False
    picStandard.Visible = False
    picLuxury.Visible = True

End Sub

Private Sub radSuperior_CheckedChanged(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles radSuperior.CheckedChanged
    picLuxury.Visible = False
    picStandard.Visible = False
    picSuperior.Visible = True
End Sub

Private Sub radStandard_CheckedChanged(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles radStandard.CheckedChanged
    picSuperior.Visible = False
    picLuxury.Visible = False
    picStandard.Visible = True
End Sub

Private Sub btnClear_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btnClear.Click
    lblTotalCost.Text = ""
    radLuxury.Checked = False
    radSuperior.Checked = False
    radStandard.Checked = False

    chkBufferBreakfast.Checked = False
    chkBufferDinner.Checked = False

    chkEntertainment.Checked = False
    chkInternet.Checked = False
    chkSpaServices.Checked = False

    picLuxury.Image = Nothing
    picSuperior.Image = Nothing
    picStandard.Image = Nothing

End Sub

结束班级

解决方法

定义变量sum

在每个If语句中为其分配一个值

Private Sub Button1_Click(sender As Object,e As EventArgs) Handles Button1.Click
    Dim sum As Integer = 0
    lblTotalCost.Text = "YOU HAVE ORDERED:" & vbNewLine

    lblTotalCost.Text = lblTotalCost.Text & "ROOM TYPE" & vbNewLine & "--------" & vbNewLine

    If radLuxury.Checked Then
        lblTotalCost.Text = lblTotalCost.Text & "Luxury = $210" & vbNewLine
        sum += 210
    ElseIf radSuperior.Checked Then
        lblTotalCost.Text = lblTotalCost.Text & "Superior = $150" & vbNewLine
        sum += 150
    ......
    ......
   
    If chkEntertainment.Checked Then
        lblTotalCost.Text = lblTotalCost.Text & "Entertainment = $20" & vbNewLine
        sum += 20
    End If
    If chkSpaServices.Checked Then
        lblTotalCost.Text = lblTotalCost.Text & "Spa Services = $50" & vbNewLine
        sum += 50
    End If

    lblTotalCost.Text = lblTotalCost.Text & "Total Price:" & sum



End Sub