第三章　程式的結構
第二節　選擇
☆ 範例12 ☆
傳說，有一個19世紀的神祕寶箱，只知箱子的鎖是一個四位數的數字密碼，但是實際的密碼卻不得而知
如果要打開鎖，就要在神秘寶箱上的觸控螢幕上輸入正確號碼
依據某文獻紀載：19世紀期間，被盜取的四位數、數字鎖寶箱，有幾個常見的密碼「0000」、「1234」、「5487」


Question:
有一個字串型變數「pass」代表該寶箱的正確密碼，但是卻無法直接取得他的值
請依照提示的程式片段寫出一個程式，猜猜看真正的密碼會不會是19世紀期間風行的密碼組合
若是找到正確密碼，請將正確密碼輸出至文字框（Textbox1）的內容中
若是找不到正確密碼，請輸出「Failed」至文字框（Textbox1）的內容中
以下是該程式的介面，視窗中有一個文字框、一個按鈕，他們的部分屬性如下表

屬性
值
(Name)
Textbox1
Text

屬性
值
(Name)
Command1
Caption
猜吧！

Answer:
Private Sub Command1_Click()
　　Select case 
　　　　Case :
　　　　　　
　　　　Case :
　　　　　　
　　　　Case :
　　　　　　
　　　　Case Else
　　　　　　
　　 
End Sub