在VB中，Select Case语句用于根据一个表达式的值选择性地执行一组语句。以下是一个基本的Select Case语句示例：

Dim x As Integer

' 设置变量x的值

x = 1

' 在下面的代码块中检查变量x的值并执行相应的语句

Select Case x
    Case 1
        MsgBox "x等于1"
        
    Case 2
        MsgBox "x等于2"
        
    Case Else
        MsgBox "x不等于1或2"
End Select

在上面的示例中，Select Case语句将根据变量x的值执行相应的代码块。如果x等于1，则显示“x等于1”的消息框；如果x等于2，则显示“x等于2”；否则，显示“x不等于1或2”的消息框。

除了整数和字符串之外，您还可以使用其他数据类型作为Select Case语句中的表达式，例如枚举、布尔值或日期。请注意，在每个Case子句和Else子句后面都需要添加一个冒号，并且Select Case语句的结束需要使用End Select关键字来标记。

您还可以在Case子句中使用多个值，如下所示：

Dim color As String
' 设置变量color的值
color = "Green"
' 在下面的代码块中检查变量color的值并执行相应的语句
Select Case color
    Case "Red", "Orange"
        MsgBox "颜色是红色或橙色"
        
    Case "Yellow", "Green"
        MsgBox "颜色是黄色或绿色"
        
    Case Else
        MsgBox "颜色不是红、橙、黄或绿色"
End Select

在上面的示例中，当color变量等于“Red”或“Orange”时，显示“颜色是红色或橙色”的消息框；当color变量等于“Yellow”或“Green”时，显示“颜色是黄色或绿色”的消息框；否则，显示“颜色不是红、橙、黄或绿色”的消息框。