| 第 1 頁：試題 |
| 第 2 頁：參考答案 |
三、綜合應(yīng)用題
【考點分析】本題考點有：文本框的Text屬性，單選按鈕的Name、Caption和Value屬性，單選按鈕控件數(shù)組，F(xiàn)or循環(huán)語句，If條件判斷語句以及內(nèi)部函數(shù)VM()。
【解題思路】單選按鈕數(shù)組常用于提供唯一選擇，Value屬性值決定每個單選按鈕的選中狀態(tài)：Fise為未選中，True為選中，Caption屬性用于設(shè)置單選按鈕的標題。本題在For循環(huán)語句(循環(huán)變量k的初值為0，終值應(yīng)為3)中逐一檢查每個單選按鈕是否被選中，用變量n記錄選中單選按鈕的索引號。然后取消對當前選中單選按鈕的選擇，使單選按鈕數(shù)組中的下一個按鈕被選中。如果當前已經(jīng)選中最后一個單選按鈕，則將n賦值為0，重新從單選按鈕數(shù)組的第一個元素開始。
【操作步驟】
步驟1：打開本題工程文件。
步驟2：打開代碼編輯窗口，在指定位置編寫如下代碼。
參考答案
PrivateSubCommandl_Click()
Dima()AsLong
DimiAsInteger
DimnAsInteger
´Opl.Count是單選按鈕數(shù)目，這里用的是控件數(shù)組
Forl=0ToOpl.Count-l
´判斷哪一項被選擇，把它后面的數(shù)值賦給n，確定n值
IfOpl(i).Value=TrueThen
n=Val(Opl(i).Caption)
ExitFor
EndIf
Next
ReDima(n)´重新申請空間，這里是動態(tài)申請
a(1)=1
a(2)=1´數(shù)列第一項、第--4值確定
Fori=3Ton
a(i)=a(i-1)+a(i-2)’后一項值是
前兩項值之和
Next
Textl.Text=a(n)
EndSub
步驟3：調(diào)試并運行程序，關(guān)閉程序后按題目要求存盤。
【易錯提示】在定義數(shù)組a的時候，要注意定義為長整型Long，可以防止溢出;單選按鈕數(shù)組的Index屬性分別為0,1，2，在編寫循環(huán)語句的時候要注意循環(huán)變量Opl.Count-1。
微信搜索"考試吧"獲取更多考試資訊、備考資料
相關(guān)推薦：
| 北京 | 天津 | 上海 | 江蘇 | 山東 |
| 安徽 | 浙江 | 江西 | 福建 | 深圳 |
| 廣東 | 河北 | 湖南 | 廣西 | 河南 |
| 海南 | 湖北 | 四川 | 重慶 | 云南 |
| 貴州 | 西藏 | 新疆 | 陜西 | 山西 |
| 寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
| 黑龍江 | 內(nèi)蒙古 |
