Private Sub Command1_Click()
Dim x As Control
Text2.Text = ""
Text2.Text = Text2.Text & Text1.Text
For Each x In Me.Controls
If TypeOf x Is CheckBox Then
If x.Value = 1 Then Text2.Text = Text2.Text & x.Caption
End If
Next
End Sub
这个题目最大的难度是不知道你的学号和姓名
内容全部来源于网络收集，如有侵权，请联系网站删除！
QQ：24596024