Question

VB select语句

这是代码：
Private Sub Command10_Click()
Select Case f
Case "+"
s = (a + b)
Text1.Text = s = (a + b)
Select Case f
Case "-"
s = (a - b)
Text1.Text = s = (a - b)
Select Case f
Case "*"
s = (a * b)
Text1.Text = s = (a * b)
Select Case f
Case "/"
s = (a / b)
Text1.Text = s
Case Else
Text1.Text = "错误"
End Select
End Sub
请帮我看下，是哪里出错，
他提示说Select Case语句没有结束语句End Select

Answer 1

Select Case 语句

根据表达式的值，来决定执行几组语句中的其中之一。

Select Case 语句示例

本示例使用 Select Case 语句来判断变量的值。示例中第二个 Case
子句包含了变量值，故只有此区块内的语句会被完成到。

    Dim Number
    Number = 8   ' 设置变量初值。
    Select Case Number   ' 判断 Number 的值。
        Case 1 To 5   ' Number 的值在 1 到 5 之间，包含1 和 5 。
            Debug.Print "Between 1 and 5"
        ' 下一个 Case 子句是本示例中唯一判断值为 True 的子句。
        Case 6, 7, 8   ' Number 的值在 6 到 8 之间。
            Debug.Print "Between 6 and 8"
        Case 9 To 10   ' Number 的值为 9 或 10。
            Debug.Print "Greater than 8"
        Case Else   ' 其他数值。
            Debug.Print "Not between 1 and 10"
    End Select

Answer 2

明显语法错误。
Select Case 和 End Select配对使用，你看看你代码中间两者的数量是不是一样？

通过上面的代码我大概估计出你要实现的功能
你把中间的第二、第三、第四个Select Case f的三行删了就应该可以编译通过了

Answer 3

拿书看一下就知道他的格式了，select 的语句结构是这样的：
select case f
case "+"
s=a+b
textbox1.text=s
case "-"
……
以此类推。
我用的是VB.net不过应该是一样的，你可以试一下

Answer 4

除了第一个Select Case f,其它都去掉

select 只需要一个,对应一个end select
中间的case可以多个,对应不同选择

Answer 5

只要一个Select Case f就行，给你改一下：
Private Sub Command10_Click()
Select Case f
Case "+"
s = (a + b)
Case "-"
s = (a - b)
Case "*"
s = (a * b)
Case "/"
s = (a / b)
Case Else
s = "错误"
End Select
Text1.Text = s
End Sub