VB复选框

来源：百度知道 编辑：UC知道 时间：2024/06/24 13:22:39
三个复选框，标题依次为“体育”“美术”“音乐”，还有一个命令按钮，标题为显示，要求程序运行后，如果选种某个复选框，则按命令按钮，显示相应的信息，如，选种体育和美术后，窗体上显示“我的爱好是体育美术”，这个程序的代码应该如何编写？麻烦再讲解下！谢谢！
麻烦请给出讲解！谢谢

建一个Command1,Check1,Check2,Check3。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
Cls
Print "我的爱好是" & IIf(Check1.Value, Check1.Caption, "") & IIf(Check2.Value, Check2.Caption, "") & IIf(Check3.Value, Check3.Caption, "")
End Sub

Private Sub Form_Load()
Check1.Caption = "体育"
Check2.Caption = "美术"
Check3.Caption = "音乐"
End Sub

Private Sub Command1_Click()
Dim S As String
S = ""
If Check1.Value = 1 Then S = "体育"
If Check2.Value = 1 Then S = S & "美术"
If Check3.Value = 1 Then S = S & "音乐"
If S = "" Then
MsgBox "我没有爱好"
Else
MsgBox "我爱好的是" & S
End If
End Sub

朋友，你看我这个是不是很简单，代码如下：
Private Sub Command1_Click()
If Check1.Value = 1 And Check2.Value = 1 Then
Text1.Text