我该如何在程序中修复这些错误 [英] how do i fix these errors in this program

问题描述

我尝试编写此程序，无法弄清楚这3个错误以及如何解决.有人可以帮帮我吗.她

I have tried to write this program and can not figure out these 3 errors and how to fix them. Can someone please help me. Her

Public Class Form1                                                                                                     'Programmed by: Clifford May


    Private Sub btnCompute_Click(sender As System.Object, e As System.EventArgs) Handles btnCompute.Click



        ' This is where you decide what kind of burger you want.
        Dim sum As Double
        If chkBurgers.Checked Then
            Select Case radRegular
                      sum = 4.19
                Case radCheeseandBacon.Checked
                    sum = 4.79
                Case radBacon.Checked
                    sum = 4.79
                Case radCheeseandBacon.Checked
                    sum = 5.39


            End Select
        End If

        ' This is where you decide what size fries you want.
        If chkFries.Checked Then
            Select Case radSmall.Checked
            sum = 2.39
                Case radMedium.Checked
                    sum = 3.09
                Case radLarge.Checked
                    sum = 4.99


            End Select
        End If
        ' This is where you decide what drink you want.
        If chkDrinks.Checked Then
            Select Case radSoda.Checked
            sum = 1.69
                Case radBottleWater.Checked
                    sum = 1.49


            End Select
        End If
        Select Case btnCompute.Text = CStr(sum)





        End Select



    End Sub





    
End Class

我在第12、27、39行，第23、13、131列的第3行中列出了3个错误，指出选择案例"和第一个案例"之间的语句和标签无效.


[edit]已添加代码块-OriginalGriff [/edit]

i get 3 error listed that says Statements and labels are not valid between"Select Case '' and first ''Case.'' on lines 12,27,39, column 23,13,131


[edit]Code block added - OriginalGriff[/edit]

推荐答案

声明Select Case语句块时，会将第一行的表达式与其中的值进行比较其他行:

When you declare a Select Case statement block, the expression on the first line is compared against the values on the other lines:

Select Case myInt
    Case 1
        DoSomethingForMyIntEqualOne()
        Exit Select
    Case 2
        DoSomethingForMyIntEqualTwo()
        Exit Select
End Select

您似乎正在尝试将其用作卑鄙的if语句.
尝试实际使用If代替-可能会帮助您入门.
另外，当您选择汉堡价格选择时，您将用薯条选择覆盖它....看一下制作一个项目"价格元素，将其添加到每个阶段的成本中.因此，Burger会将"item"选择为0、4.19、4.79或5.39，然后将其相加，然后Fries会在"item"中选择其他值，依此类推.

What you appear to be doing is trying to use it as a bastardised if statement.
Try actually using If instead - it might help you to get started.
In addition, when you get the burger price selection working - you will overwrite it with the fries selection... Look at making an "item" price element, which you add onto the cost after each stage. So Burger would select "item" to be 0, 4.19, 4.79 or 5.39, which you add into sum, then Fries would select a different value into "item", and so on.

您的选择"语法错误.您错过了xxx
表情

Your "Select" syntax is error. You missed expression xxx

' This is where you decide what kind of burger you want.
        Dim sum As Double
        If chkBurgers.Checked Then
            Select Case radRegular
                Case xxx
                      sum = 4.19
                Case radCheeseandBacon.Checked
                    sum = 4.79
                Case radBacon.Checked
                    sum = 4.79
                Case radCheeseandBacon.Checked
                    sum = 5.39
            End Select
        End If

这篇关于我该如何在程序中修复这些错误的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！