vb第16单选按钮、复选框控件(5)

简要介绍资料的主要内容,以获得更多的关注

End Sub

Private Sub Check2_Click() If Check2.Value = 1 Then txt2 = Check2.Caption End If End Sub

Private Sub Check3_Click() If Check3.Value = 1 Then txt3 = Check3.Caption End If End Sub

Private Sub Check4_Click() If Check4.Value = 1 Then txt4 = Check4.Caption End If End Sub

Private Sub Command1_Click()

MsgBox "您的爱好是：" & vbCrLf & txt1 & vbCrLf & txt2 & vbCrLf & txt3 & vbCrLf & txt4 End Sub 作业：P99 5 小结

1、掌握单选按钮控件的设置与使用 2、掌握复选框控件的设置与使用 学生练习