VB题再次请教各位大仙!!!

来源：百度知道 编辑：UC知道 时间：2024/06/30 00:54:54
VB机试模拟题:
1.数据采集:在窗体上画一个text1(输入姓名),一个复选框(选择学院),两个单选按钮(选择性别),一个复选框架(里面有2个复选按钮,选择特长)

要求:单击提交按钮,在窗体下部的大text2中显示采集到的数据.单击重填,清空text2,焦点移到姓名文本框text1里

不好意思,由于没有程序界面的例图,所以麻烦大家了!最后在text2中必须如下显示:
姓名:景天,性别:男,院系:经济学院,特长:经商
好了,麻烦各位了......
希望能把代码给我,而且还有各个控件的属性设置哦!!!

Private Sub Command1_Click()
Text2.SelText = Label1.Caption & Text1.Text & vbCrLf
If Option1(0).Value Then
Text2.SelText = Label2.Caption & Option1(0).Caption & vbCrLf
Else
Text2.SelText = Label2.Caption & Option1(1).Caption & vbCrLf
End If
Text2.SelText = Label3.Caption

For i = 0 To Check1.Count - 1
If Check1(i).Value = Checked Then Text2.SelText = Check1(i).Caption & ","
Next i
Text2.SelText = vbCrLf & Label4.Caption

For i = 0 To Check2.Count - 1
If Check2(i).Value = Checked Then Text2.SelText = Check2(i).Caption & ","
Next i
End Sub

Private Sub Command2_Click()
Text2.Text = ""
Text1.Text = ""
Text1.SetFocus
End Sub

Private Sub Form_Load()
Label1.Caption = "姓名:"
Label2.Caption = "性别:"
Label4.Caption = "院系:"
Label3.Caption = "特长:"

Option1(0).Capt