[問答題 簡答題] 以下數(shù)列:1,1,2,3,5,8,13,21…的規(guī)律是從第3個數(shù)開始,每個數(shù)都是其前面兩個數(shù)之和。在考生文件夾下有一個工程文件sjt5.vb
2021-07-20
[問答題 簡答題] 以下數(shù)列:1,1,2,3,5,8,13,21…的規(guī)律是從第3個數(shù)開始,每個數(shù)都是其前面兩個數(shù)之和。在考生文件夾下有一個工程文件sjt5.vbp。窗體中已經(jīng)給出了所有控件,如圖所示。請編寫適當(dāng)?shù)氖录^程完成如下功能:選中一個單選按鈕后,單擊“計算”按鈕,則計算出上述數(shù)列第n項的值,并在文本框中顯示,n是選中的單選按鈕后面的數(shù)值(提示:因計算結(jié)果較大,應(yīng)使用長整型變量)。注意:不能修改已經(jīng)給出的程序和已有的控件的屬性;在結(jié)束程序運行之前,必須選中一個單選按鈕,并單擊“計算”按鈕以獲得一個結(jié)果;必須使用窗體右上角的關(guān)閉按鈕結(jié)束程序,否則無成績。最后把修改后的文件按原文件名存盤。?
正確答案:步驟1:打開本題工程文件。步驟2:打開代碼編輯窗口,在指定位置寫下如下代碼。 Private Sub Command1_CliCk() Dim a() As Long Dim i As Integer Dim n As Integer ’Op1.Count是單選按鈕數(shù)目,這里用的是控件數(shù)組 ’For i=0 To Op1.Count-1 ’判斷哪一項被選擇,把它后面的數(shù)值賦給n,確定n值 If Op1(i).Value=True Then n=Val(Op1(i).C
詞條內(nèi)容僅供參考,如果您需要解決具體問題
(尤其在法律、醫(yī)學(xué)等領(lǐng)域),建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。