vb问题 请高手指教

来源:百度知道 编辑:UC知道 时间:2024/09/25 02:21:00
一、在窗体上创建两个复选框和一个文本框,复选框的标题分别为“大学计算机基础”和“程序设计基础”。编写适当事件过程,使得程序运行后,只选择一个复选框时在文本框中显示所选择的课程。如果两个复选框都选中,则显示“选课冲突”。如果两个复选框都没有选中,则显示“我没有选课”。窗体用文件名A1.frm保存,工程用文件名A1.vbp保存。

这种问题还在这里问?凡是学过一点VB的都知道的。

最后那个保存,我管不着了啊!
Private Sub Check1_Click()
If Check1.Value = 1 Then
If Text1.Text = "我没有选课" Then
Text1.Text = "大学计算机基础"
Else
Text1.Text = "选课冲突"
End If
Else
If Text1.Text = "选课冲突" Then
Text1.Text = "程序设计基础"
Else
Text1.Text = "我没有选课"
End If
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
If Text1.Text = "我没有选课" Then
Text1.Text = "程序设计基础"
Else
Text1.Text = "选课冲突"
End If
Else
If Text1.Text = "选课冲突" Then
Text1.Text = "程序设计基础"
Else
Text1.Text = "我没有选课"
End If
End If
End Sub

Private Sub Form_Load()
Text1.Text = "我没有选课"
check1.caption="大学计算机基础"
check2.caption="程序设计基础"
End Sub