第2个回答 2009-03-18
Private Sub Check1_Click()
If Check1.Value = 1 Then
Text1.Text = Text1.Text & " " & Check1.Caption
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
Text1.Text = Text1.Text & " " & Check2.Caption
End If
End Sub
Private Sub Check3_Click()
If Check3.Value = 1 Then
Text1.Text = Text1.Text & " " & Check3.Caption
End If
End Sub
是不是这样子啊