二、簡單應用題

　　(1)【考點分析】本題考點有：變量初值定義、If判斷語句、For選擇語句、Val()函數、Fix()函數以及文件操作。

　　【解題思路】循環遍歷數組a，通過調用Function過程判斷是否為水仙花數，并通過If語句對數值進行比較，如果Fnsx<=a(i)，那么max=a(i)，最小值同理。在設置變量初值時，max=-I，min=1000，目的是方便比較數的大小。

　　因為數組中的數值最小的是0，最大的是999，所以，讓max先等于-1，小于數組中的最小值，在程序執行過程中，只要有水仙花數，就一定會大于max，這樣才會賦值給max，min=1000也是同樣的道理。

　　【操作步驟】

　　步驟1：按照題目要求打開工程文件。

　　步驟2：打開代碼編輯窗口，在指定位置編寫如下代碼。

　　參考答案

　　DimiAsInteger

　　DimmaxAsInteger，minAsInteger

　　max=-1

　　min=1000

　　Fori=1T0100

　　Ifisnarc(a(i))Then'調用isnarc判斷是否為水仙花數

　　Ifmax<=a(i)Thenmax=a(i)

　　Ifmin>=a(i)Thenmin=a(i)’求水仙花

　　數中的最大值與最小值

　　EndIf

　　Nexti

　　Textl=max

　　Text2=min

　　步驟3.按照題目要求調試并運行程序，如圖3.18所示。

　　步驟4：關閉程序后，按題目要求存盤。

　　【易錯提示】Function過程比較復雜，只有了解了內部函數的用法，才能對水仙花數的判斷有一個清晰的思路。對于最值的求解，則要注意變量初值的處理。

　　(2)【考點分析】本題考點有：文本框的Name屬性、組合框的Name和I.ist屬性、命令按鈕的Name和Caption屬性、Val()函數以及Mod取模運算。

　　【解題思路】本題主要考查組合框的屬性及For循環語句的使用。

　　Mod取模運算就是求余數，例如10mod3=1，因為10除以3等于3余1，結果就是余數。如果amodb=0，則說明a能被b整除，反之如果amodb<>0，則a不能被b整除。

　　組合框(ComboBox)將文本框與列表框的特性組合在一起，既可以在組合框的文本框部分輸入信息，也可在列表框部分選擇項目;組合框的列表項可在設計階段通過其List屬性添加，每輸入完一項后按鍵換行再輸入下一項;其Text屬性用于設置或返回其文本框部分當前的文本。

　　根據題意，用For逐一循環5000內的整數，通過If語句的條件表達式：iModn=0，判斷各個數是否能被n整除，把能被整除的數累加到變量sum。i為循環變量，n的值為Val(Cbl.Text)。

　　【操作步驟】

　　步驟1：打開本題工程文件，按照題目要求建立控件并設置組合框控件屬性，如圖3.19所示。程序中用到的控件及屬性見表3.11。

　　步驟2：打開代碼編輯窗口，在代碼編輯窗口指定位置編寫以下代碼。

　　參考答案

　　PrivateSubCl_Click()

　　DimsumAsLong

　　DimnAsInteger

　　DimiAsInteger

　　n=Val(cbl.Text)’讀取選中的數字并通過函數

　　Vai轉換為數值

　　Fori=nT05000´從本身開始循環查找

　　IfiModn=0Then

　　sum=Sum+i´判斷是否能被該數整除并求和

　　EndIf

　　Nexti

　　Textl.Text=sum.在Textl中顯示

　　EndSub

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

　　【易錯提示】在定義變量時注意，由于數值較大，應定義為長整型變量，防止數值過大溢出。

長按二維碼關注即可獲得等考資料

2016各科最新預測試卷

等考歷年真題及答案

2016等考成績查詢時間

2016等考各科通關技巧

微信搜索"考試吧"獲取更多考試資訊、備考資料

　　相關推薦：

　　各地2016年全國計算機等級考試報名時間匯總

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

　　各地2016年全國計算機等級考試費用匯總

　　2016年計算機等級考試備考沖刺專題

　　考試吧特別策劃：2016年計算機等級考試報考指南