二、簡單應用題

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

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

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

　　【操作步驟】

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

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

　　參考答案

　　DimiAsInteger

　　DimmaxAsInteger，minAsInteger

　　max=-1

　　min=1000

　　Fori=1T0100

　　Ifisnarc(a(i))Then'調(diào)用isnarc判斷是否為水仙花數(shù)

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

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

　　數(shù)中的最大值與最小值

　　EndIf

　　Nexti

　　Textl=max

　　Text2=min

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

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

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

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

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

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

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

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

　　【操作步驟】

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

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

　　參考答案

　　PrivateSubCl_Click()

　　DimsumAsLong

　　DimnAsInteger

　　DimiAsInteger

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

　　Vai轉(zhuǎn)換為數(shù)值

　　Fori=nT05000´從本身開始循環(huán)查找

　　IfiModn=0Then

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

　　EndIf

　　Nexti

　　Textl.Text=sum.在Textl中顯示

　　EndSub

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

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

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

2016各科最新預測試卷

等考歷年真題及答案

2016等考成績查詢時間

2016等考各科通關技巧

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

　　相關推薦：

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

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

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

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

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