三、綜合應用題

　　3[簡答題]

　　在考生文件夾下有一個工程文件sjt5.vbp。程序運行時，單擊“裝入數據”按鈕，則從考生文件夾下的in5.txt文件中讀入所有城市名稱和距離，城市名稱按順序添加到列表框Listl中，距離放到數組a中;當選中列表框中的一個城市時，它的距離就在Text1中顯示，如圖所示;此時，單擊“計算運費”按鈕，則計算到該城市的每噸運費(結果取整，不四舍五入)，并在Text2中顯示。

　　每噸運費的計算方法是：距離×折扣×單價。其中，單價為0.3。

　　單擊“保存”按鈕，則把距離和每噸運費存到文件out5.txt中。

　　已經給出了所有控件和部分程序，要求：

　　①去掉程序中的注釋符，把程序中的?改為正確的內容。

　　②編寫“計算運費”按鈕的Click事件過程。

　　③編寫列表框的Click事件過程。

　　注意：不得修改已經存在的程序;在退出程序之前，必須至少計算一次運費，且必須使用“保存”按鈕存儲計算結果，否則無成績。最后，程序按原文件名存盤。

　　參考解析：【考點分析】本題考點有：Val()函數、int()函數、列表框的Listlndex屬性、列表框的AddItem方法、While語句、If選擇判斷語句以及文件操作。 【解題思路】單擊“裝入數據”按鈕，從考生文件夾下的in5.txt文件中讀入所有城市名稱和距離，通過List1的AddItem方法把城市名稱ch按順序添加到列表框Listl中，將距離放到數組a中，在讀入數據時，同時注意While語句，其中數組下標n的下限為1，即數組中第1個元素為a(1);Command2_Click事件過程實現單選列表框中的一個城市時，使它的距離顯示在Text1中，a(List1.ListIndex+1)表示的是所選城市對應的距離，通過Listl的ListIndex屬性確定數組的下標，但是ListIndex屬性是從0開始的，因此要加1才能與之對應。通過Val()函數使Text1中的字符轉化為數值型，運用表達式，計算結果。因為題目要求“結果取整，不四舍五入”，所以是截尾取整，可以用int()函數實現。

　　【操作步驟】

　　步驟1：打開本題工程文件。

　　步驟2：打開代碼編輯窗口，去掉程序中的注釋符“´”，將問號改為正確的內容，并編寫相應的代碼。

　　參考答案

　　步驟3：調試并運行程序，關閉程序后按題目要求存盤。

　　【易錯提示】對于數組a的數組下標以及ListIn-dex屬性是從0開始的理解是本題解題的關鍵。

掃描/長按二維碼幫助考試通關

2017等考考試報名信息

2017等考各科通關技巧

2017各科最新預測試卷

2017等考各科真題答案

微信搜索"考試吧"了解更多考試資訊、下載備考資料

　　相關推薦：

　　全國計算機等級考試教材目錄（2017年版）

　　各地2017年全國計算機等級考試準考證打印時間匯總

　　2017年全國計算機等級考試考前必做試題及答案匯總

　　2017年計算機等級考試備考經驗及應試技巧匯總

　　歷年真題匯總|考試吧特別策劃：2017年計算機等級考試報考指南