Visual studio 2008 包含复选框和单选按钮，visual basic

我正在写一个计算互联网费用的程序。三个套餐，A、B和C，价格分别为9.95美元（10小时；每小时额外收费2美元）、14.95美元（15小时；每小时额外收费1美元）和19.95美元（不限）

下面是我为从屏蔽文本框输入而编写的代码（仅针对一种情况）。我想通过使用复选框和单选按钮来简化，但我以前从未使用过它们。有什么提示吗

Case "A"
                If hours < 10 And nonprofit.ToUpper = "Y" Then
                    lstOutput.Items.Add("Total Cost is " & FormatCurrency(9.95 * 0.8))
                    'package A with nonprofit status, under limit
                ElseIf hours < 10 And nonprofit.ToUpper = "N" Then
                    lstOutput.Items.Add("Total Cost is " & FormatCurrency(9.95))
                    'package A without nonprofit status, under limit
                ElseIf hours > 10 And nonprofit.ToUpper = "Y" Then
                    lstOutput.Items.Add("Total Cost is " & FormatCurrency((9.95 + _
                        (hours - 10) * 2) * 0.8))
                    'package A with nonprofit status, over limit
                ElseIf hours > 10 And nonprofit.ToUpper = "N" Then
                    lstOutput.Items.Add("Total Cost is " & FormatCurrency(9.95 + _
                        (hours - 10) * 2))
                    'package A without nonprofit status, over limit
                End If

案例“A”
如果小时数小于10且为非盈利。ToUpper=“Y”，则
lstOutput.Items.Add（“总成本为”&格式货币（9.95*0.8））
'具有非营利状态的包A，低于限制
如果小时数小于10且非盈利。ToUpper=“N”则
lstOutput.Items.Add（“总成本为”&格式货币（9.95））
“没有非营利组织身份的A包，低于限额
如果小时数大于10，则为非盈利。ToUpper=“Y”
lstOutput.Items.Add（“总成本为”）和FormatCurrency（（9.95+_
（小时-10）*2）*0.8）
'具有非营利状态的包A，超出限制
如果小时数大于10，则为非盈利。ToUpper=“N”
lstOutput.Items.Add（“总成本为”）和FormatCurrency（9.95+_
（小时-10）*2）
“没有非营利组织身份的A包，超出限制
如果结束

除非我不理解您的问题-它应该很简单，只需修改您的代码以包含复选框，例如非营利组织，然后在您处理时：

Dim nonprofit As Boolean = NonProfit_CB.Checked

然后检查是否为真（而不是检查Y/N）：

单选按钮基本上与复选框相同。此外，如果您想将单选按钮组合在一起，以便只能选择其中一个，请将它们放置在组合框中

If nonprofit = True Then