要在此代码中添加更多内容以在名为lblTotalCost的标签中显示总成本？如何声明常量并将其转换？

问题描述

 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

        
    End Sub

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

basic checkbox radio-button