vb作业 急啊 好心人帮忙做一下 追加20分

来源：百度知道 编辑：UC知道 时间：2024/09/28 08:28:24
实验六 单选框和复选框的应用
一、实验目的
1．掌握单选框,复选框的定义。
2．掌握单选框,复选框的区别。
二、实验内容
建立一个标准工程实现单选框和复选框的组合应用。
三、实验步骤与指导
1．设计界面
在窗体上添加三个单选框,三个复选框,两个标签框。初始界面如图2－6－1所示。

图2－6－1 初始界面 图2－6－2 设置属性后的界面
2．设置属性，如表2－6－1所示。
表2－6－1 属性设置
对象 属性 属性值
Optionbutton1 Caption 张文
Optionbutton2 Caption 王雪
Optionbutton3 Caption 林非
Checkbox1 Caption VB6.0语言程序设计
Checkbox2 Caption 汇编语言
Checkbox3 Caption 单片机原理
Label1 caption 无
Label2 caption 无
设置属性后的界面如图2－6－2所示。
3．编写程序代码
要求：1.当选择了某个学生后，在Label1中显示“你选择了+选择的姓名”
2．当选择了某个课程时，在Label2中显示所有选择的科目名称
4．运行程序
分别单选框中的某一项和复选框中的某几项，程序运行效果如图2－6－3所示。
我是从第三步开始不会，也就是编程的部分

我帮你做一下

Private Sub Check1_Click()
Label2.Caption = IIf(Check1.Value = 1, Check1.Caption & " ", "") & IIf(Check2.Value = 1, Check2.Caption & " ", "") & IIf(Check3.Value = 1, Check3.Caption, "")
End Sub

Private Sub Check2_Click()
Label2.Caption = IIf(Check1.Value = 1, Check1.Caption & " ", "") & IIf(Check2.Value = 1, Check2.Caption & " ", "") & IIf(Check3.Value = 1, Check3.Caption, "")

End Sub

Private Sub Check3_Click()
Label2.Caption = IIf(Check1.Value = 1, Check1.Caption & " ", "") & IIf(Check2.Value = 1, Check2.Caption & " ", "") & IIf(Check3.Value = 1, Check3.Caption, "")

End Sub

Private Sub Option1_Click()
Label1.Caption = "你选择了" & Option1.Caption

End Sub
Private Sub Option2_Click()
Label1.Caption = "你选择了&q