这三个部分用三组控件数组来做,就是选择控件后,复制,粘贴,点建立控件数组
然后用这样的代码.
Private
Sub
Command1_Click()
Dim
T
As
String,
I
As
Integer
For
I
=
0
To
Label2.Count
-
1
T
=
T
&
Label2(I).Caption
&
":"
&
Text1(I).Text
&
vbCrLf
Next
T
=
T
&
"最喜欢:"
&
vbCrLf
For
I
=
0
To
Check1.Count
-
1
If
Check1(I).Value
=
vbChecked
Then
T
=
T
&
Check1(I).Caption
&
vbCrLf
End
If
Next
T
=
T
&
"最不喜欢:"
&
vbCrLf
For
I
=
0
To
Check2.Count
-
1
If
Check2(I).Value
=
vbChecked
Then
T
=
T
&
Check2(I).Caption
&
vbCrLf
End
If
Next
T
=
T
&
"还喜欢:"
&
Text2.Text
Text3.Text
=
T
End
Sub