計算機二級VisualBasic輔導：用VB編寫一個簡單的電話號碼查找程序

人供職于南京電視臺播控中心。在日常播出過程中有時會遇到一些突發(fā)事件，需要及時向有關(guān)部門和有關(guān)領導請示，常為找不到電話號碼而著急。為此，本人用Visual Basic編寫了一個簡單的應用程序，運行該程序即可方便、快捷地查找到相關(guān)的電話號碼。
    ---- 首先將該程序的運行界面介紹給讀者(圖略)。
    ---- 運行該程序時首先出現(xiàn)圖一所示的界面。如果要查找有關(guān)單位的電話號碼，我們只需在有關(guān)單位右邊的組合框的向下箭頭上用鼠標點一下，這時出現(xiàn)圖二。用鼠標拖動滾動條找到相關(guān)單位的名稱再點一下，這時出現(xiàn)圖三?？矗∥覀冃枰碾娫捥柎a這么簡單就找到了！如果我們要查找有關(guān)領導的電話號碼操作步驟同上，這時屏幕上還會顯示其相應的尋呼及手機號碼。
    ---- 下面向讀者簡單介紹一下該程序的Visual Basic代碼。我們首先進行界面的設計。這一步工作主要是為了給讀者一個良好的視覺效果，一個友好的程序運行界面，使讀者操作起來感到方便、快捷。我們只要將窗體及各控作的相關(guān)屬性做相應的調(diào)整就可以了。
    ---- 接下來編寫程序代碼。為簡單起見，我們只介紹查找有關(guān)單位的程序代碼，查找人名的程序代碼類推。該程序運行時首先將有關(guān)單位的名稱加載至內(nèi)存，VB代碼如下：
    Private Sub Form_Load()
    ……….
    ………
    ………
    Combo2.AddItem “省廳事業(yè)處”
    Combo2.AddItem “省傳輸發(fā)射總臺發(fā)射部”
    ………
    ………
    ………
    End Sub