2007年9月计算机等级考试二级VB上机练习(1)

（2）解析：在窗体上建立好控件后，先设置控件属性，再编写事件过程。
单击命令按钮触发Click事件，程序中需要检测复选按钮的状态，可以通过Value属性来实现。如果复选按钮被选中，则Value值为1，否则Value值为0。
解题步骤：
第一步：建立界面并设置控件属性。
程序中用到的控件及属性见表1-3。
表 1-3
对  象 属  性    设 置 值 
复选按钮 Name Caption Ch1 体育 
复选按钮 Name Caption Ch2 音乐 
复选按钮 Name Caption Ch2 美术 
标签 Caption 爱好 
按钮 Name Caption C1 显示 
第二步：编写程序代码。
程序提供的代码：
Option Explicit
Private Sub C1_Click()
'    Dim s As ?
    s = "我的爱好是"
    If Ch1.Value = 1 Then
        s = s + Ch1.Caption
    End If
    If Ch2.Value = 1 Then
        s = s + Ch2.Caption
    End If
    If Ch3.Value = 1 Then
        s = s + Ch3.Caption
    End If
'    Print ?
End Sub
参考代码：
Option Explicit
Private Sub C1_Click()
    Dim s As String
    s = "我的爱好是"
    If Ch1.Value = 1 Then
        s = s + Ch1.Caption
    End If
    If Ch2.Value = 1 Then
        s = s + Ch2.Caption
    End If
    If Ch3.Value = 1 Then
        s = s + Ch3.Caption
    End If
    Print s
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。