VB程序设计求代码！！！

2025年03月18日 09:44

有1个网友回答

网友（1）：

这三个部分用三组控件数组来做,就是选择控件后,复制,粘贴,点建立控件数组
然后用这样的代码.

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