向很会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
上面省略号表示需要你补充的代码位置。
做一个类似于网上申请邮箱时需要注册的内容那样的一个表格
