Question

嘿，当我在我的case语句中输入一个整数时，它会产生正确的输出但是每次只产生相同的结果，你们知道任何解决方案吗？

     Select Case Grades.Text
        Case = "A*"
            score = score + 100
            MessageBox.Show("You entered an A*")
            Gcount = Gcount + 1

        Case >= 90
            score = score + 100
            MessageBox.Show("You entered an A*")
            Gcount = Gcount + 1

        Case = "A"
            score = score + 85
            MessageBox.Show("You entered an A")
            Gcount = Gcount + 1
            MessageBox.Show(Gcount)

        Case < 90 And Grades.Text >= 80
            score = score + 85
            MessageBox.Show("You entered an A")
            Gcount = Gcount + 1
            MessageBox.Show(Gcount)

        Case = "B"
            score = score + 75
            MessageBox.Show("You entered a B")
            Gcount = Gcount + 1
            MessageBox.Show(score)

        Case < 80 And Grades.Text >= 70
            score = score + 75
            MessageBox.Show("You entered a B")
            Gcount = Gcount + 1

        Case = "C"
            score = score + 65
            MessageBox.Show("You entered a C")
            Gcount = Gcount + 1

        Case < 70 And Grades.Text >= 60
            score = score + 65
            MessageBox.Show("You entered a C")
            Gcount = Gcount + 1

Answer 1

您应该设置Option Strict On。

所以有这样的方式

Select case True
  Case intVariable <= 90
    ' do something...
  Case 91 < intVariable AndAlso intVariable <= 100
    ' do something...
  Case 100 < intVariable AndAlso intVariable <= 110
    ' do something... and so on
End Select

Answer 2

试试这个：

    Select Case Grades.Text
        Case Is >= 90
            MessageBox.Show("You entered an A*")
        Case Is < 90 And Grades.Text >= 80
            MessageBox.Show("You entered an A")
        Case Is < 80 And Grades.Text >= 70
            MessageBox.Show("You entered a B")
        Case Is < 70 And Grades.Text >= 60
            MessageBox.Show("You entered a C")
    End Select

Case语句只运行一个条件

2 个答案: