三、綜合應(yīng)用題

　　【考點(diǎn)分析】本題考點(diǎn)有：文本框的Text屬性，單選按鈕的Name、Caption和Value屬性，單選按鈕控件數(shù)組，F(xiàn)or循環(huán)語句，If條件判斷語句以及內(nèi)部函數(shù)VM()。

　　【解題思路】單選按鈕數(shù)組常用于提供唯一選擇，Value屬性值決定每個(gè)單選按鈕的選中狀態(tài)：Fise為未選中，True為選中，Caption屬性用于設(shè)置單選按鈕的標(biāo)題。本題在For循環(huán)語句(循環(huán)變量k的初值為0，終值應(yīng)為3)中逐一檢查每個(gè)單選按鈕是否被選中，用變量n記錄選中單選按鈕的索引號(hào)。然后取消對(duì)當(dāng)前選中單選按鈕的選擇，使單選按鈕數(shù)組中的下一個(gè)按鈕被選中。如果當(dāng)前已經(jīng)選中最后一個(gè)單選按鈕，則將n賦值為0，重新從單選按鈕數(shù)組的第一個(gè)元素開始。

　　【操作步驟】

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

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

　　參考答案

　　PrivateSubCommandl_Click()

　　Dima()AsLong

　　DimiAsInteger

　　DimnAsInteger

　　´Opl.Count是單選按鈕數(shù)目，這里用的是控件數(shù)組

　　Forl=0ToOpl.Count-l

　　´判斷哪一項(xiàng)被選擇，把它后面的數(shù)值賦給n，確定n值

　　IfOpl(i).Value=TrueThen

　　n=Val(Opl(i).Caption)

　　ExitFor

　　EndIf

　　Next

　　ReDima(n)´重新申請(qǐng)空間，這里是動(dòng)態(tài)申請(qǐng)

　　a(1)=1

　　a(2)=1´數(shù)列第一項(xiàng)、第--4值確定

　　Fori=3Ton

　　a(i)=a(i-1)+a(i-2)’后一項(xiàng)值是

　　前兩項(xiàng)值之和

　　Next

　　Textl.Text=a(n)

　　EndSub

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

　　【易錯(cuò)提示】在定義數(shù)組a的時(shí)候，要注意定義為長(zhǎng)整型Long，可以防止溢出;單選按鈕數(shù)組的Index屬性分別為0,1，2，在編寫循環(huán)語句的時(shí)候要注意循環(huán)變量Opl.Count-1。

長(zhǎng)按二維碼關(guān)注即可獲得等考資料

2016各科最新預(yù)測(cè)試卷

等考?xì)v年真題及答案

2016等考成績(jī)查詢時(shí)間

2016等考各科通關(guān)技巧

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

　　相關(guān)推薦：

　　各地2016年全國計(jì)算機(jī)等級(jí)考試報(bào)名時(shí)間匯總

　　各地2016年計(jì)算機(jī)等級(jí)考試準(zhǔn)考證打印時(shí)間匯總

　　各地2016年全國計(jì)算機(jī)等級(jí)考試費(fèi)用匯總

　　2016年計(jì)算機(jī)等級(jí)考試備考沖刺專題

　　考試吧特別策劃：2016年計(jì)算機(jī)等級(jí)考試報(bào)考指南