VB list 控制text问题 求解答

点击list1 中的a， text1 和 text2 以及text3中分别显示不同的内容
点击list1 中的b， text1 和 text2 以及text3中又分别显示不同的内容
点击list1 中的c， text1 和 text2 以及text3中再分别显示不同的内容
且 text1 和 text2 以及text3可以再次调用，用于下一步计算。
要求出现的效果如下：

text1，text2 ，text3中出现的数据是固定的。这里只是随便举个例子。

答案：Private Sub Form_Load()      ‘加载list1里的项，可以忽略，在属性窗口中设置。
List1.AddItem "a"
List1.AddItem "b"
List1.AddItem "c"
End Sub

Private Sub List1_Click()
Select Case List1.Text              ’这个你应该看基础类的书，程序结构那一块的
    Case "a"                                 ‘如果list1当前选中的是a的话，给三个text赋下面的值
        Text1.Text = "123"
        Text2.Text = "234"
        Text3.Text = "345"
    Case "b"                                  ’如果list选中的内容是b的话，赋下面的值
        Text1.Text = "987"
        Text2.Text = "876"
        Text3.Text = "765"
    Case "c"                                        如果选中的是c的话，赋下面的值
        Text1.Text = "567"
        Text2.Text = "678"
        Text3.Text = "789"
End Select                                        
End Sub

其他：Private Sub List1_Click()
Select Case List1
    Case "a"
        text1 = 123

    Case "b"
        text1 = 223

End Select
End Sub 

上一个：新手 VB问题 谢谢了！
下一个：当按command按钮时将随机产生的的四个数分别打印到控件数组text1中 vb编程 急！谢啦！