请教另外一个VB题目,谢谢!!

新建一个工程,具体要求如下:
1.在窗体上放置一个文本框数组,用于输入用户信息
2.文本框数组输入相应信息后,点击"添加"后在组合框中会出现该项的姓名
3.在组合框中选中某项,可以在文本框数组中显示该项的用户信息,点击"删除"后,可以删除该项的所有信息.

设计样图上,有一个下拉式组合框,四个文本框组成一个文本框数组(录入姓名,地址,邮编,电话),还有一个"添加"和"删除"命令框.

编的程序如下:
dim k as Integer ,i as Integer
Private Sub Combo1_Click(Index As Integer)
k = Combo1(Index).ListIndex
For i = 0 To 3
Text1(i).Text = Combo1(i).List(k)
Next i
End Sub

Private Sub Command1_Click()
For i = 0 To 3
Combo1(i).AddItem Text1(i)
Next i
Combo1(0).Text = Text1(0).Text
For i = 0 To 3
Text1(i).Text = ""
Next i
End Sub

Private Sub Command2_Click()
k = Combo1(Index).ListIndex
For i = 0 To 3
Combo1(i).RemoveItem k
Next i
For i = 0 To 3
Text1(i).Text = ""
Next i
End Sub

Private Sub Form_Load()
For i = o To 3
Text1(i).Text = ""

只建立一个combo1,不要数组
Dim k As Integer, i As Integer
Private Sub Combo1_Click()
k = Combo1.ListIndex
For i = 0 To 3
Text1(i).Text = Combo1.List(k)
Next i
End Sub

Private Sub Command1_Click()
For i = 0 To 3
Combo1.AddItem Text1(i)
Next i
Combo1.Text = Text1(0).Text
For i = 0 To 3
Text1(i).Text = ""
Next i
End Sub

Private Sub Command2_Click()
k = Combo1.ListIndex
For i = 0 To 3
Combo1.Clear
Next i
For i = 0 To 3
Text1(i).Text = ""
Next i
End Sub

Private Sub Form_Load()
For i = 0 To 3
Text1(i).Text = ""
Next i
For i = 0 To 3
Next i
End Sub

只有一个下拉式组合框为什么要设置控件数组呢呵呵？

请教另外一个VB题目,谢谢!! 请教一个关于VB的题目，谢谢！ 请教一个vb的编程题目 谢谢! 请教一个VB题目 vb题目请教 请教几个VB题目！ VB题目请教！ 请教VB题目！ VB题目请教!! 请教一下二级vb的题目 急 谢谢