| 第 1 頁：基本操作題 |
| 第 2 頁：簡單應(yīng)用題 |
| 第 3 頁：綜合應(yīng)用題 |
| 第 4 頁：參考答案 |
二、簡單應(yīng)用題
(1)【考點(diǎn)分析】本題考點(diǎn)有：變量初值定義、If判斷語句、For選擇語句、Val()函數(shù)、Fix()函數(shù)以及文件操作。
【解題思路】循環(huán)遍歷數(shù)組a，通過調(diào)用Function過程判斷是否為水仙花數(shù)，并通過If語句對數(shù)值進(jìn)行比較，如果Fnsx<=a(i)，那么max=a(i)，最小值同理。在設(shè)置變量初值時，max=-I，min=1000，目的是方便比較數(shù)的大小。
因?yàn)閿?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)試并運(yùn)行程序，如圖3.18所示。
步驟4：關(guān)閉程序后，按題目要求存盤。
【易錯提示】Function過程比較復(fù)雜，只有了解了內(nèi)部函數(shù)的用法，才能對水仙花數(shù)的判斷有一個清晰的思路。對于最值的求解，則要注意變量初值的處理。
(2)【考點(diǎn)分析】本題考點(diǎn)有：文本框的Name屬性、組合框的Name和I.ist屬性、命令按鈕的Name和Caption屬性、Val()函數(shù)以及Mod取模運(yùn)算。
【解題思路】本題主要考查組合框的屬性及For循環(huán)語句的使用。
Mod取模運(yùn)算就是求余數(shù)，例如10mod3=1，因?yàn)?0除以3等于3余1，結(jié)果就是余數(shù)。如果amodb=0，則說明a能被b整除，反之如果amodb<>0，則a不能被b整除。
組合框(ComboBox)將文本框與列表框的特性組合在一起，既可以在組合框的文本框部分輸入信息，也可在列表框部分選擇項目;組合框的列表項可在設(shè)計階段通過其List屬性添加，每輸入完一項后按鍵換行再輸入下一項;其Text屬性用于設(shè)置或返回其文本框部分當(dāng)前的文本。
根據(jù)題意，用For逐一循環(huán)5000內(nèi)的整數(shù)，通過If語句的條件表達(dá)式：iModn=0，判斷各個數(shù)是否能被n整除，把能被整除的數(shù)累加到變量sum。i為循環(huán)變量，n的值為Val(Cbl.Text)。
【操作步驟】
步驟1：打開本題工程文件，按照題目要求建立控件并設(shè)置組合框控件屬性，如圖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)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。
【易錯提示】在定義變量時注意，由于數(shù)值較大，應(yīng)定義為長整型變量，防止數(shù)值過大溢出。
微信搜索"考試吧"獲取更多考試資訊、備考資料
相關(guān)推薦：
| 北京 | 天津 | 上海 | 江蘇 | 山東 |
| 安徽 | 浙江 | 江西 | 福建 | 深圳 |
| 廣東 | 河北 | 湖南 | 廣西 | 河南 |
| 海南 | 湖北 | 四川 | 重慶 | 云南 |
| 貴州 | 西藏 | 新疆 | 陜西 | 山西 |
| 寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
| 黑龍江 | 內(nèi)蒙古 |
