2012年計(jì)算機(jī)二級(jí)VB上機(jī)試題及解題思路第二十三套

　　注意：下面出現(xiàn)的“考生文件夾”均為%USER%

　　以下數(shù)列：1，1，2，3，5，8，13，21，…，的規(guī)律是從第3個(gè)數(shù)開始，每個(gè)數(shù)是它前面兩個(gè)數(shù)之和。在考生文件夾下有一個(gè)工程文件sjt5.vbp。窗體中已經(jīng)給出了所有控件，如圖所示。請(qǐng)編寫適當(dāng)?shù)氖录�過程完成以下功能：選中一個(gè)單選按鈕后，單擊“計(jì)算”按鈕，則計(jì)算出上述數(shù)列的第n項(xiàng)的值，并顯示在文本框中，n是選中的單選按鈕后面的數(shù)值。(提示：因計(jì)算結(jié)果較大，應(yīng)使用長整型變量。)

　　注意：

　　不能修改已經(jīng)給出的程序和已有的控件的屬性;在結(jié)束程序運(yùn)行之前，必須選中一個(gè)單選按鈕，并單擊“計(jì)算”按鈕獲得一個(gè)結(jié)果;必須使用窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無成績。最后把修改后的文件按原文件名存盤。

　　解題思路：

　　啟動(dòng)Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt5.vbp，相應(yīng)的窗體文件名為sjt5.frm。

　　由于所提供的窗體程序不完整，需添加事件過程。

　　單擊“計(jì)算”按鈕(即運(yùn)行Click事件過程)，在該Click事件過程中加入語句：

　　Private Sub Command1_Click()

　　Dim a As Long, a1 As Long, a2 As Long

　　Dim k As Integer, n As Integer

　　For k = 0 To 2

　　If Op1(k).Value Then

　　n = Val(Op1(k).Caption)

　　End If

　　Next k

　　a1 = 1

　　a2 = 1

　　For k = 3 To n

　　a = a1 + a2

　　a1 = a2

　　a2 = a

　　Next k

　　Text1.Text = a

　　End Sub

　　參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt5.vbp、sjt5.frm、sjt5.vbw、out5.txt

　　請(qǐng)把這些文件復(fù)制到c:\wexam\26990001中，然后打開sjt5.vbp文件并運(yùn)行。

　　相關(guān)推薦：

　　2012年計(jì)算機(jī)等考四級(jí)數(shù)據(jù)庫工程師備考筆記匯總

　　2012年計(jì)算機(jī)等級(jí)考試二級(jí)VB重點(diǎn)知識(shí)匯總

　　2012年下半年計(jì)算機(jī)等級(jí)考試報(bào)名時(shí)間及入口匯總