问答题
在考生文件夹中有工程文件sjt4.vbp及其窗体文件sjt4.frm，该程序是不完整的，请在有“?”号的地方填入正确内容，然后删除“?”及所有注释符(即“'”号)但不能修改其他部分。存盘时不得改变文件名和文件夹。
在窗体有3个复选框，名称分别为Ch1、ch2和ch3，标题分别为“体育”、“音乐”、“美术”，还有一个命令按钮，名称为C1，标题为“显示”。要求程序运行后，如果选中某个复选框，当单击“显示”命令按钮时，则显示相应的信息。例如，如果选中“体育”和“美术”复选框，单击“显示”命令按钮后，在窗体上显示“我的爱好是体育美术”，如图11-11所示。
在窗体有3个复选框，名称分别为Ch1、ch2和ch3，标题分别为“体育”、“音乐”、“美术”，还有一个命令按钮，名称为C1，标题为“显示”。要求程序运行后，如果选中某个复选框，当单击“显示”命令按钮时，则显示相应的信息。例如，如果选中“体育”和“美术”复选框，单击“显示”命令按钮后，在窗体上显示“我的爱好是体育美术”，如图11-11所示。
【正确答案】单击命令按钮触发Click事件，程序中需要检测复选框的状态，可以通过Value属性来实现。如果复选框被选中，则Value值为1，否则Value值为0。解题步骤如下。
(1)建立界面并设置控件属性。程序中用到的控件及属性如表11-3所示。
(2)编写程序代码。
程序提供的代码：
Option Explicit
Private Sub C1_Crick()
'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 ff
'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
Tf 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
(3)调试并运行程序。
(4)按题目要求存盘。
(1)建立界面并设置控件属性。程序中用到的控件及属性如表11-3所示。
表11-3 | ||
| 对 象 | 属 性 | 设置值 |
| 复选按钮 | Name Caption | Ch1 体育 |
| 复选按钮 | Name Caption | Ch2 音乐 |
| 复选按钮 | Name Caption | Ch2 美术 |
| 标签 | Caption | 爱好 |
| 按钮 | Name Caption | C1 显示 |
程序提供的代码：
Option Explicit
Private Sub C1_Crick()
'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 ff
'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
Tf 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
(3)调试并运行程序。
(4)按题目要求存盘。
【答案解析】[解析] 在窗体上建立好控件后，先设置控件属性，再编写事件过程。