Question

vb当取消复选框时文本不显示复选框代表的内容

就是这样求大神代码

Answer 1

4个复选框做成控件数组，代码如下：

Private Sub Check1_Click(Index As Integer)
Text1.Text = "小明喜欢的科目是"
For i = 0 To 3
  If Check1(i).Value = vbChecked Then
    Text1.Text = Text1.Text & Check1(i).Caption & " "
  End If
Next
End Sub

追问

但我要的是command控件确定喔？？？

追答

那就更简单了，将Private Sub Check1_Click(Index As Integer)改成Private Sub Command1_Click()