vb中如何实现这个功能！
我是一名刚刚接触VB的学习者，看的是“跟我学VB神童教程”，纯属自学的。目前已经学习了标签控件、文本框控件、CMD控件、列表框控件、单选和复选控件、分组控件这几个内容。我在试着编一个这样的程序时，出现了问题，请各位vb高手帮忙解答一下，给我一个练习思路
我的程序的界面大概是这个样子，有3个单选控件，控件的名称分别为opt1、opt2、opt3；下面一个列表框，（list1)列表框右边是两个文本框
text1、text2，
程序的功能在于，点选opt1控件，list1里显示一组数据，例如：点按opt1,列表框里显示一组姓名，点击相应的条目时，右边两个文本框中分别显示该人的性别和年龄；点选opt2控件，list里显示另外一组数据，例如：点按opt2,列表框里显示各国的首都，点击相应的条目时，右边两个文本框中分别显示该城市的的英文和中文解释；opt3的功能也就是这个样子了，请问是我学得目前的知识还不能完成这样的程序吗？另外，请问那个神童教程为什么只写到第四章啊，是不是还没有写完呢，在哪里能够下载完整呢，或者请帮我推荐一本适合初学者自学的书（最好是电子书）。谢谢大家啦
参考答案:这个很简单呀
学了文本框、按钮（即CMD）、列表控件就能搞定呀。
《信息技术》书上讲的东西就够少了的吧，你去看看高3的北京师范大学出版社的《信息技术》应该就能够解决此问题了。
如果找不到，发邮件给我sqqssia2@126.com我给你把工程做好 注明来意
学习的书到没找到，推荐个网站吧
我还是说了吧
6个控件
opt1,opt2,opt3,list1,text1,text2
Private Sub List1_click()
If opt1.Value = True Then
Select Case List1.ListIndex
Case 0
Text1.Text = "男"
Text2.Text = "20岁"
Case 1
Text1.Text = "男"
Text2.Text = "15岁"
Case 2
Text1.Text = "男"
Text2.Text = "35岁"
End Select
ElseIf opt2.Value = True Then
Select Case List1.ListIndex
Case 0
Text1.Text = "Peking"
Text2.Text = "中国首都——北京"
Case 1
Text1.Text = "Tokyo"
Text2.Text = "日本首都——东京"
End Select
ElseIf opt3.Value = True Then
Select Case List1.ListIndex
Case 0
Text1.Text = "in the south-west of China"
Text2.Text = "行政中心：成都"
Case 1
Text1.Text = "in the east of China"
Text2.Text = "行政中心：上海"
End Select
End If
End Sub
Private Sub opt1_Click()
List1.Clear
List1.AddItem "张三"
List1.AddItem "李四"
List1.AddItem "王五"
End Sub
Private Sub opt2_Click()
List1.Clear
List1.AddItem "北京"
List1.AddItem "东京"
End Sub
Private Sub opt3_Click()
List1.Clear
List1.AddItem "四川"
List1.AddItem "上海"
End Sub