如图所示

Private Sub Check1_Click()'check1 and check2里面的内容是一样的 Call display_checkEnd SubPrivate Sub Check2_Click() Call display_check End SubPrivate Sub Check3_Click() Call display_checkEnd SubPrivate Sub Check4_Click() Call display_checkEnd SubPrivate Sub Option1_Click() Label1.Caption = "你是男生"End SubPrivate Sub Option2_Click() Label1.Caption = "你是女生"End SubPublic Sub display_check()'子程序 Label2.Caption = "你的爱好有：" If Check2.Value = 1 Then Label2.Caption = Label2.Caption & "足球" End If If Check1.Value = 1 Then Label2.Caption = Label2.Caption & "篮球" End If If Check3.Value = 1 Then Label2.Caption = Label2.Caption & "体操" End If If Check4.Value = 1 Then Label2.Caption = Label2.Caption & "柔道" End IfEnd Sub

value的意思是可选与否在右边属性栏中,value的选项有true和false