Question

帮我写个简单的VB代码 谢谢

选中复选框选项 单击确定按钮后 在文本框出现 “我喜欢的科目是”.语文.数学.英语

Answer 1

Private Sub Command1_Click()
If Check1.Value + Check2.Value + Check3.Value = 0 Then Exit Sub
Text1.Text = "我喜欢的科目是"
If Check1.Value = 1 Then Text1.Text = Text1.Text & Check1.Caption
If Check2.Value = 1 Then Text1.Text = Text1.Text & Check2.Caption
If Check3.Value = 1 Then Text1.Text = Text1.Text & Check3.Caption
End Sub

Private Sub Form_Load()
Check1.Caption = "语文"
Check2.Caption = "数学"
Check3.Caption = "英语"
Text1.Text = ""
End Sub