Visual Studio ,vb.net语言基本简单代码一些问题

该怎么修改下面的代码，修改成运行的时候选择任意复选框点击查看按钮出现小框框提示选择了什么，没有选择任何复选框选项则提示请选择一项选项。

代码如下。

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim interestStr As String = "您的興趣愛好為："
If CB1.Checked Then
MessageBox.Show(interestStr & "打籃球")
ElseIf CB2.Checked Then
MessageBox.Show(interestStr & "踢足球")
ElseIf CB3.Checked Then
MessageBox.Show(interestStr & "游泳")
Else
MessageBox.Show("請選擇興趣愛好然後查看", "提示")

End If
End Sub

运行上面代码结果如图

明明选了三项小框框里却只能显示一项，该怎么修改呢。在下感激不尽。

代码如下：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim interestStr As String = "您的興趣愛好為："
If CB1.Checked Or CB2.Checked Or CB3.Checked Then
If CB1.Checked Then
interestStr &= " 打籃球"
End If
If CB2.Checked Then
interestStr &= " 踢足球"
End If
If CB3.Checked Then
interestStr &= " 游泳"
End If
MessageBox.Show(interestStr)
Else
MessageBox.Show("請選擇興趣愛好然後查看", "提示")
End If
End Sub

这个代码已经符合你的要求了。如满意请采纳，有疑问请追问。

Dim interestStr As String = "" If CB1.Checked Then interestStr &= " 打籃球" End If

If CB2.Checked Then interestStr &= " 踢足球" End If If CB3.Checked Then interestStr &= " 游泳" End If if interestStr = "" then

MessageBox.Show("请选择您的兴趣爱好！")

End If

ELSE

MessageBox.Show("您的兴趣爱好是：" & interestStr)

End If

If CB1.Checked Then MessageBox.Show(interestStr & "打籃球")

end if If CB2.Checked Then MessageBox.Show(interestStr & "踢足球")

end if If CB3.Checked Then MessageBox.Show(interestStr & "游泳")

end if