用vb的select case语句输出所选中的单选和多选打扰内容

假设有两个单选框和两个多选框，分别命名为radioButton1、radioButton2、checkBox1、checkBox2，你可以使用下面的VB代码来输出所选中的单选和多选框的内容：

Select Case True
    Case radioButton1.Value
        MsgBox "你选择了单选框1"
    Case radioButton2.Value
        MsgBox "你选择了单选框2"
End Select

Dim selectedCheckBoxes As String
If checkBox1.Value Then
    selectedCheckBoxes = "复选框1"
End If
If checkBox2.Value Then
    If selectedCheckBoxes <> "" Then
        selectedCheckBoxes = selectedCheckBoxes & "和"
    End If
    selectedCheckBoxes = selectedCheckBoxes & "复选框2"
End If
If selectedCheckBoxes = "" Then
    MsgBox "你没有选择任何复选框"
Else
    MsgBox "你选择了" & selectedCheckBoxes
End If

这段代码使用了VB的Select Case语句来判断哪个单选框被选中，使用If语句来判断哪些多选框被选中，并将它们的内容存储在一个字符串中，最后输出所选中的单选和多选框的内容。