向很会VB的人致敬~了！作业，帮助！！！！！！！

Private Sub Command1_Click()
    ……
    Text3.Text = Label1.Caption + " ：" + Text1.Text + Chr(13) + Chr(10)
    Text3.Text = Text3.Text + Label2.Caption + " ：" + Text2.Text + Chr(13) + Chr(10)
   
    If  Option1.Value Then Text3.Text = Text3.Text + Label3.Caption + " ：" + Option1.Caption + Chr(13) + Chr(10)
    If  Option2.Value Then Text3.Text = Text3.Text + Label3.Caption + " ：" + Option2.Caption + Chr(13) + Chr(10)
    If  Not (Option1.Value Or Option2.Value) Then Text3.Text = Text3.Text + Label3.Caption + " ：" + Chr(13) + Chr(10)
   
    If  Combo1.ListIndex <> -1  Then
     Text3.Text = Text3.Text + Label6.Caption + " ：" + Combo1.Text + Chr(13) + Chr(10)
    Else
                Text3.Text = Text3.Text + Label6.Caption + " ：" + Chr(13) + Chr(10)
    End If
   
    If  Combo2.ListIndex <> -1  Then
    Text3.Text = Text3.Text + Label4.Caption + " ：" + Combo2.Text + Chr(13) + Chr(10)
    Else
     Text3.Text = Text3.Text + Label4.Caption + " ：" + Chr(13) + Chr(10)
    End If
   
    Text3.Text = Text3.Text + Label5.Caption + " ：" + Chr(13) + Chr(10)
   
If Check1.Value Then Text3.Text = Text3.Text + "         " + Check1.Caption + Chr(13) + Chr(10)
If Check2.Value Then Text3.Text = Text3.Text + "         " + Check2.Caption + Chr(13) + Chr(10)
        ……
End Sub
上面省略号表示需要你补充的代码位置。
做一个类似于网上申请邮箱时需要注册的内容那样的一个表格