二、簡單應用題

　　2 [簡答題]

　　(1)在考生文件夾下有一個工程文件sjt3.vbp。

　　程序的功能是通過鍵盤輸入正整數到文本框中。在“除數”框架中選擇一個單選按鈕，然后單擊“處理數據”命令按鈕，將大于文本框中的正整數，并且能夠被所選除數整除的5個數添加到列表框Listl中，如圖所示。在窗體文件中已經給出了全部控件，但程序不完整。

　　要求：請去掉程序中的注釋符，把程序中的?改為正確的內容，使其實現上述功能，但不能修改程序的其他部分和控件屬性，最后將修改后的文件按原文件名進行存盤。

　　(2)在考生文件夾下有一個工程文件sjr4.vbp。

　　程序運行后，單擊“開始”按鈕，圖片自上而下移動，同時滾動條的滑塊隨之移動。每隔0.5秒移動一次，當圖片頂端移動到距窗體下邊界的距離少于200時，則再回到窗體的頂部，重新向下移動，如圖所示。在窗體文件中已經給出了全部控件，但程序不完整。

　　要求：請去掉程序中的注釋符，把程序中的?改為正確的內容，使其實現上述功能，但不能修改程序的其他部分和控件屬性，最后將修改后的文件按原文件名進行存盤。

　　參考解析：

　　(1)【考點分析】本題考點有：列表框的Addltem和RemoveItem方法、列表框的ListCount屬性、Do While語句、calc()函數、Val()函數、Mod()函數、Ⅱ語句、單選按鈕數組的Caption屬性以及文本框的Text詹|生。【解題思路]cale()函數實現將大于文本框中的正整數，并且能夠被所選除數整除的5個數添加到列表框Listl中，首先調用ClearList()函數清空列表框，運用Val()函數使Text1的值由字符轉化為數值，Do While語句控制產生整數的個數為5個，通過Mod()函數和If語句判斷是否能被所選數整除，并用列表框的AddItem方法，把能被整除的數添入列表框中。在Commandl—Click事件過程中，向文本框中輸入正整數，并運用Val(Optionl(i).Caption)語句提取單選按鈕數組中所選的數值，再通過調用calc()函數實現數據的處理過程。

　　【操作步驟】

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

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

　　參考答案(陰影部分是需考生填入的內容)

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

　　【舉一反三】可以通過第47套第二大題的第二小題來進行同類知識點的練習。

　　(2)【考點分析】本題考點有：計時器的Enabled和Interval屬性、滾動條的Value屬性、圖片框的Top屬性、Forrnl的Height屬性以及If判斷語句。

　　【解題思路】在Commandl_Click事件過程中，Timerl的Enabled屬性設置為True，圖片開始移動，在Command2_Click事件過程中，Timerl的Enabled屬性設置為False，圖片停止移動。窗體裝入時Tim-erl的Interval屬性設置為500，表示Timerl時間間隔為0.5秒。在Timerl_Timer事件過程中，Picturel的Top屬性值的改變使圖片自上而下移動，VScrolll的Value屬性值等于Picturel的Top屬性值，使滾動條的滑塊隨之移動。運用If語句，通過對VScrolll的Value屬性值和Forrnl的Height屬性值來判斷圖片頂端移動到距窗體的下邊界的距離是否少于200，如果少于，則Picturel的Top屬性值為0，圖片再回到窗體頂部，重新向下移動。

　　【操作步驟】

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

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

　　參考答案(陰影部分是需考生填入的內容)

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

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

2017等考各科真題答案

2017等考各科通關技巧

2017各科最新預測試卷

2017等考成績查詢時間

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

　　相關推薦：

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

　　2017年9月計算機等級考試真題|計算機等級考試答案

　　各地2017年9月計算機等考成績查詢時間|免費查分提醒

　　計算機等級考試成績評定流程及標準|合格證書樣本及證書說明

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