请解决一下VB程序的第二个难题

来源：百度知道 编辑：UC知道 时间：2024/05/29 23:41:27
编写应用程序，显示某人的性别及个人爱好。界面如图所示，输入姓名后，选择性别，再选择其个人爱好，单击确定后，弹出消息框，显示姓名，性别及个人喜好信息。

要使用控件数组，这样比较方便。
代码如下：
Option Explicit
Dim st1 As String, st2 As String, q As String

Private Sub Command1_Click()
Dim i%, j As String
For i = 0 To 3
If Check1(i).Value = 1 Then st2 = st2 & " " & Check1(i).Caption
Next
q = MsgBox(Text1.Text & "：" & st1 & "，" & "喜好" & "：" & st2, 64, "显示个人信息")
End Sub

Private Sub Option1_Click()
st1 = "男"
End Sub

Private Sub Option2_Click()
st1 = "女"
End Sub

这也叫难题。。。
这种很简单的不懂看看课件就会自己做了