在Visual Basic（VB）中，选择结构通常使用`Select Case`语句来实现。以下是一些示例代码，展示了如何在VB中使用`Select Case`结构：
求一元二次方程的解
```vb
Private Sub Command1_Click（）
Dim a As Double, b As Double, c As Double
Dim discriminant As Double
Dim x1 As Double, x2 As Double
' 输入系数
a = Val（InputBox（"请输入a的值"））
b = Val（InputBox（"请输入b的值"））
c = Val（InputBox（"请输入c的值"））
' 计算判别式
discriminant = b^2 - 4*a*c
' 使用Select Case结构判断方程的解
Select Case discriminant
Case Is < 0
MsgBox "有两个共轭复根"
Case 0
x1 = -b / （2*a）
x2 = -b / （2*a）
MsgBox "有两个相等的实根： X1=" & x1 & ", X2=" & x2
Case Else
x1 = （-b + Sqrt（discriminant）） / （2*a）
x2 = （-b - Sqrt（discriminant）） / （2*a）
MsgBox "有两个不等的实根： X1=" & x1 & ", X2=" & x2
End Select
End Sub
```
根据用户输入选择输出内容
```vb
Private Sub Command1_Click（）
Dim player As String
' 获取用户输入
player = Text1.Text
' 使用Select Case结构判断并输出
Select Case player
Case "科比"
MsgBox "迈阿密热火队；6号球衣", 0, "球队名称"
Case Else
MsgBox "NBA 没有这个球员", 0, "球队名称"
End Select
End Sub
```
获取列表框多选功能实例
```vb
Private Sub Form_Load（）
List1.AddItem "学号 专业 班级 姓名 "
For i = 1 To 20
List1.AddItem 202409 & Format（i, "00"） & " 计算机科学技术" & " 计算机1班 " & "vb" & i
Next
End Sub
Private Sub Command1_Click（）
For i = 1 To List1.ListCount - 1
If List1.Selected（i） = True Then
Print "您选择的内容是：" & List1.List（i）
End If
Next
End Sub
```
这些示例展示了如何在VB中使用`Select Case`结构来根据不同的条件执行不同的代码块。你可以根据具体的需求修改这些代码，以适应你的应用程序。