比如說，張三的電話是：1234567，李四的是：1123456,
“畫”出三個工具：
Private?Sub?Command1_Click()
Dim?a?As?String
Select?Case?t1
Case?"張三"
t2?=?123456
Case?"李四"
t2?=?112345
End?Select
End?Sub