2009年4月全國計算機等級二級VisualBaisc上機試練習習題-副本

1、2009 年 4 月全國計算機等級二級 VisualBaisc 上機試練習習題 第 1 套上機考試試題 1 r a 圖 1 2 二、簡單應用題 下面出現(xiàn)的 考生文件夾”均為 c： wexam20060001。 1 .在考生文件夾中有工程文件 kt3.vbp 及其窗體文件 kt3.frm，該程序是不完整的，請 在有“?號的地方填入正確內(nèi)容，然后刪除 “?及所有注釋符（即“號）， 但不能修改其他部分。 保存時不得改變文件名和文件夾。 本題描述如下： 在窗體上有一個列表框，名稱為 List1 ; 一個文本框，名稱為 Text1; 個命令按鈕，名 稱為 Cl,標題為 復制”要求程序運行后，在列表框中自

2、動建立 4 個列表項，分別為 Item1、 Item2、Item3 和 Item4。如果選擇列表框中的一項，單擊 復制”按鈕，就可以把該項復制到 文本框中，如圖 1 3 所示。 CU. J I ”，d 圖 1-3 2.在考生文件夾中有工程文件 kt4.vbp 及其窗體文件 kt4.frm，該程序是不完整的，請 在有“?號的地方填入正確內(nèi)容， 然后刪除“?及所有注釋符（即“號），但不能修改其他部分。 保存時不得改變文件名和文件夾。 在窗體上有三個復選框，名稱分別為 Ch1、Ch2 和 Ch3，標題分別為 體育”音樂和 美 術(shù)”還有一個命令按鈕，名稱為 c1,標題為 顯示”要求程序運行后，如果選中

3、某個復選 框，當單擊 顯示命令按鈕時，則顯示相應的信息。 例如，如果選中 體育和 美術(shù)復選框， 單擊 顯示”命令按鈕后，在窗體上顯示 我的愛好是體育美術(shù)”，如圖 1 4 所示。 | “ 0 M 圖 1-4 三、綜合應用題 下面出現(xiàn)的 考生文件夾”均為 c： wexamk20060001。 在考生文件夾中有工程文件 kt5.vbp 及其窗體文件 kt5.frm，該程序是不完整的，請在有 ?號的地方填入正確內(nèi)容，然后刪除 “ ？及所有注釋符（即“號），但不能修改其他部分。 本題描述如下：在名稱為 Forml 的窗體上有兩個單選按鈕，名稱分別為 Opt1 和 opt2, 標題分別為“ 100- 20

4、0 之間素數(shù)”和“200-400 之間素數(shù)”；一個文本框，名稱為 Textl;兩個 命令按鈕，其名稱分別為 Cmd1 和 Cmd2,標題分別為 計算和 存盤”，如圖 1 - 5 所示。程 序運行后，如果選中一個單選按鈕并單擊 計算”按鈕，則計算出該單選按鈕標題所指明的所 有素數(shù)之和，并在文本框中顯示出來。如果單擊存盤”按鈕，則把計算結(jié)果存入 out.txt 文件 中，該文件必須放在考生文件夾中 (在考生文件夾中有標準模塊 mode, bas,其中的 putdata 過程可以把結(jié)果存入指定的文件， 而 isprime 函數(shù)可以判斷整數(shù) X 是否為索數(shù)，如果是素數(shù)， 則函數(shù)返回 True，否則返回

5、 False,考生可以將該模塊文件添加到自己的工程中 )。 圖 1 5 注意：必須把素數(shù)之和存入考生文件夾下的 out. txt 文件中，否則沒有成績。保存程序 時必須存放在考生文件夾下，窗體文件名為 kt5.frm，工程文件名為 kt5.vbp 第 1 套參考答案與解析 一、基本操作題 標題 名稱 內(nèi)縮符號 文件 vbFile O 打開 vbOpen 1 關閉 vbClose 1 退出 vbExit 1 幫助 vbHelp 0 (3) 按要求設計含有 文件”和 幫助”的菜單欄。 (4) 為 文件”菜單設計 打開”、關閉”和 退出”三個子菜單項。 (5) 設計完成之后，按規(guī)定方式存盤。 2.【

6、解析】單擊命令按鈕觸發(fā) Click 事件，命令按鈕的標題由其 Caption屬性設置；在 窗體上打印信息通過 Print 方法來實現(xiàn)。 【解題步驟】 (1)建立界面和控件并設置控件屬性。程序中用到的控件及其屬性見表 1 2。 表 1 2 控件 屬性 設置值 控件 屬性 設置值 Name Cmd1 Name Cmd2 按鈕 Caption 喜歡 按鈕 Caption 不喜歡 (2)編寫程序代碼。 參考代碼： Private Sub Cmd1_Click() Print 數(shù)理化” End Sub (3) 調(diào)試并運行程序。 (4) 按題目要求存盤。 Private Sub Cmd2_C1ick()

7、Print “史地” End SUb 二、簡單應用題 1. 【解析】本題考查的是列表框控件 List的使用。向列表框中添加項目可以用 AddIte m 方法，也可以在屬性窗口中進行。 但題目中要求是程序運行后自動添加，所以利用代碼實現(xiàn)。 (1) 首先按要求打開給定工程文件 kt3.vbp 及其窗體文件 kt3.frm。 (2) 在窗體上建立控件并設置控件屬性。程序中用到的控件及屬性設置見表 1-3。 表 1 3 控件 屬性 設置值 控件 屬性 設置值 列表框 Name List1 Name C1 文本框 Name Text1 命令按鈕 Caption 復制 (3)進入代碼窗口，得到如下程序代碼

8、: pi ion LXplicll Private s血 ci_ciic To tiutl- I tf L 1 atl.Selected4 i.) - True Then ? = Lietl.Llst(li Khd If 辰祉1 End Sul) Private SJD Forn_Load I( je Th#n Txt V . Tex t = L.；5t.tisLC 卜;nd i f Next 1 Erid db 7riat a Su-L FQTW .Load ( Li fit* - AddIt rm. * T LlsC；.A9d tem * 1C LjscX.AcMltvHt * LJ：；

9、I .AidLt em T ： L n4* 環(huán)Sub (7) 調(diào)試并運行。 (8) 按題目要求存盤。 2. 【解析】本題主要考查復選框的使用。單擊命令按鈕觸發(fā) Click 事件，程序中需要 檢測復選按鈕的狀態(tài)， 可以通過 Value 屬性來實現(xiàn)。如果復選按鈕被選中， 則 Value 值為 1, 否則 Value 值為 0。 (1) 在窗體上先按要求建立控件，設置控件屬性，程序中用到的控件及屬性見表 1-4。 表 1-4 對象 屬性 設置值 Name Ch1 復選按鈕 Caption 體育 Name Ch2 復選按鈕 Caption 音樂 Name Ch2 復選按鈕 Caption 美術(shù) 標簽

10、Caption 愛好 Name C1 按鈕 Caption 顯示 (2) 打開代碼窗口，程序提供的代碼如下: Opt i on EJIJJ 1 丄i_L ri “時 e 第丄 Cl_C：iGk ( i Din s AA ? $ Ef Chi +Value 亠 I Thcr. ：. s rhl . rpr i TI End H I： Ch2 .Vd * jt - 1 T譏LTH j T + CiiL .CjpLkOn Lru i * It Ctl3 . VdLje 二 1 TF；HC 咼 tx * Cfi ? . C?iipL 二 Ltn Ehci t f PrtriJ： ? F：ri；r :

11、Print 11r T_Str Close 11 ETid Sub Func di on i &priine (t_I Ac I at Gflcr J AE; Bool can Dim J Integer i spr ime - False For J - 2 To JI f 2 If Meci d = 0 Then 陰It for liexr J rf J t_I / 2 Then isprime : True End f unet ion Pr iva t.c Sub Cmdy_Click (| Dim j AH Ii4?.f2gtrr Di?n As Long h t CHIP

12、二? If Opt2 .Valuta Tlien For i J liOD To 400 It 1sprime(?) Then temp =； t trrp + i Fnd 1 f Mu XL Elue For i = To 2X li ispiime(LThen t irip ? teinp * 5 Erd If Next E【10 If Text 1 + ? = ttmp t：nd Sub fT :vace Sub cmdci () puedatn * A out rtxt1 Text 1 Text: ErJ Sub (3) 分析代碼，找出答案。 temp 用來存放累加和，所以必須初始化，

13、即： temp= 0 Textl 顯示 temp 的值，所以使用 Textl 的 Text 屬性，即：Text1.Text=temp (4) 整理代碼，標準模塊代碼內(nèi)沒有錯誤，得到窗體參考代碼如下： Sub Cmdl_Cllek Dla 1 A& lnt?ger J L r 二訃 AS IfTlil r eTnp = 3 :t 匸衛(wèi)匚需,VvIT寸Then F9-E 1 29*0 TC 40V 1 t btlpt X!r# i J 怛 t enf = t ttFf? + i End EE JJciKt 區(qū) LSr Far L - 190 1Q MO t i 3 Cmd_C1 ir1H

14、put dAta * aut .txt* , T*Kf . Tfwt End Sub (5) 調(diào)試并運行程序。 (6) 按題目要求存盤。 2009 年 4 月全國計算機等級二級 VisualBaisc 上機試練習習題 第 2 套上機考試試題 CIZQXH- 2 -J| L * | 圖 2-1 注意：保存時必須存放在考生文件夾下， 窗體文件名為 ktl.frm，工程文件名為 ktl.vbp。 2在名稱為 Form1 的窗體上建立一個水平滾動條，名稱為 HS1，其最大值為 100,最 小值為 0。要求程序運行后，每次移動滾動框時，都執(zhí)行語句 Form1 .PrintHS1.Value，如圖 2-2

15、 所示（程序中不能使用任何變量）。 注意：保存時必須存放在考生文件夾下， 窗體文件名為 kt2.frm ,工程文件名為 kt2.vbp。 二、簡單應用題 圖 22 下面出現(xiàn)的 考生文件夾”均為 c： wexam20060001。 1 .在考生文件夾中有工程文件 kt3.vbp 及其窗體文件 kt3.frm，該程序是不完整的，請 在有“?號的地方填入正確內(nèi)容， 然后刪除“?及所有注釋符（即“號），但不能修改其他部分。 保存時不得改變文件名和文件夾。 本題描述如下： 在窗體上有兩個單選按鈕， 名稱分別為 0p1 和 Op2,標題分別為 黑體和楷體” 一個 文本框，名稱為 Textl,字體為宋體，字

16、號為四號字；有一個命令按鈕，名稱為 C1，標題為 切換”要求程序運行后，在文本框中輸入 等級考試”并選擇一個單選按鈕，如圖 2-3 所 示。在單擊 切換”按鈕后，會根據(jù)所選的單選按鈕來切換文本框中所顯示的漢字字體，如圖 2-4 所示。 圖 2-3 單擊 切換”按鈕后，會根據(jù)所選的單選按鈕來切換文本框中所顯示的漢字字體，如圖 2-4 所示。 2.在窗體上建立一個名稱為 Textl 的文本框和一個名稱為 Cmdl、標題為 計算的命令 按鈕，如圖 2-5 所示。程序運行后，單擊 計算”命令按鈕，通過在對話框輸入整數(shù) 12,放入 整型變量 a 中，然后計算 a!（提示：運算結(jié)果應放入 Long 型變量

17、中），在文本框中顯示結(jié)果， 并把結(jié)果存入文件 out.txt 中?？忌募A中有一個標準模塊 mode.bas,該模塊中提供了保 存文件的過程 putdata，考生可以直接調(diào)用。 圖 2-4 注意：保存時必須存放在考生文件夾下， 窗體文件名為 kt4.frm ,工程文件名為 kt4.vbp。 三、綜合應用題下面出現(xiàn)的 考生文件夾”均為 c： wexam20060001。 在考生文件夾中有工程文件 kt5.vbp 及其窗體文件 kt5.frm，該程痔是不完整的，請在有 “ ？號的地方填入正確內(nèi)容，然后刪除 “ ？及所有注釋符（即“號），但不能修改其他部分。 本題描述如下： 在名稱為 Form1

18、的窗體上有一個文本框，名稱為 Text1 , MultiLine 屬性為 True,ScroUBars 屬性為2;兩個命令按鈕，名稱分別為 Cmdl 和 Omd2，標題分別為 讀入數(shù)據(jù)和 計算保存” 如圖 2-6 所示。要求程序運行后，如果單擊 讀入數(shù)據(jù)”按鈕，則讀入 in.txt 文件中的 100 個 整數(shù)，放入一個數(shù)組中（數(shù)組下界為 1），同時在文本框中顯示出來；如果單擊 計算保存”按 鈕，則計算數(shù)組中大于或等于 400 并且小于 800 的所有數(shù)之和，并將結(jié)果在文本框 Text1 中 顯示出來，同時把結(jié)果存入考生文件夾的 result.txt文件中 （在prog.bas中的putdata

19、過程可以 把結(jié)果存入result.tXt文件）。 圖 2-5 圖 2-6 注意：文件必須存放在考生文件夾下，窗體文件名為 kt5.frm，工程文件名為 kt5.vbp , 計算結(jié)果存入 result.txt 文件中，否則沒有成績。 來源:考試大-計算機二級考試 第 2 章參考答案與解析 一、基本操作題 1. 【解析】 本題主要考查控件的基本操作。命令按鈕的標題通過 Caption屬性設置，單 擊命令按鈕觸發(fā) Click 事件。在窗體上打印信息用 Print 方法，清除窗體上的打印信息使用 Cis 方法，這兩條語句在題目中已經(jīng)給出，只要將其放入適當?shù)氖录^程中即可。 (1) 本題只用到了 1 個

20、命令按鈕，在窗體上建立這個控件。 將其 Caption屬性設置為 顯示”將 Name 屬性設置為 Cmd1。 在窗體上打印信息用 Print 方法。參考代碼如下： Private Sub Cmd1_C1ick() Forml.Print 顯示 End Sub 清除窗體上的打印信息使用 Cis 方法。參考代碼如下： Private Sub Form Ciick() Forml.CiS End Sub (5) 調(diào)試并運行程序。 (6) 按題目要求存盤。 2. 【解析】 本題主要考查滾動條的基本應用。滾動條表示的最大值通過 Max屬性設置， 最小值通過 Min屬性設置，滾動條的當前值通過 Value

21、 屬性設置；當滾動框的位置改變時， 觸發(fā) Change 事件。清除窗體上原來顯示的值可以用 Cis 方法來實現(xiàn)。 (1) 建立界面并設置控件屬性。本程序中用到 1 個滾動框，按題意將其命名為 HS1，即 將其 Name 屬性設置為 HS1。 (2) HS1 的 Min和 Max 屬性分別設置為 0 和 100。 (3) 清除窗體上原來的顯示值可以用 Cis 方法來實現(xiàn)。當滾動框的位置改變時，觸發(fā) Change 事件。參考程序如下： Private Sub HS1_Cha nge() C18 Form1.Pri nt HS1 End Sub (4) 調(diào)試開運仃欄序。 (5) 按題目要求存盤。 二

22、、簡單應用題 1. 【解析】本題主要考查單選按鈕和文本框的綜合應用。 單選按鈕和 切換”按鈕是通過 它們的 Caprion屬性來設置的，當單擊 切換”時觸發(fā)它的 Ciick 事件來使文本框的內(nèi)容改變。 文本框的字體設置通過它的 Font 屬性來實現(xiàn)。窗體的控件及其屬性已經(jīng)建好，只需編寫事 件過程空缺的代碼即可。 (1) 打開代碼窗口，得到程序代碼： OptiOil Explicit Private Sub CI_Click() If OPl The n Text1.Fo nt=Op1.? End If If Op2 The n Text1.?=楷體 _GB2312 End If End Sub

23、 (2) 研讀代碼，修改程序。 語句 Textl. Font=Opl . ?的目的是選擇 黑體”，它通過單選按鈕 Op1 的 Caprion 屬性 決定。即: Text1.Font = Op1.Caption語句 Text1.?=楷體_GB2312 的目的是選擇 楷體”，它 應使用單選按鈕 Op1 的 Caption屬性修改 Text1 的字體屬性。即：Text1. FontName=楷體 _GB2312” (3) 整理代碼。 參考代碼如下： OpTian Expliclt rivaco Sub C1_CIi亡紀 I 卜 If Opl Then Text I.Font 二 Opl匚鼻plion

24、 End If If TEe Jextl . HyrtNtme 亠 End if (4) 調(diào)試并運行程序。 (5) 按題目要求存盤。 2. 【解析】在窗體上建好控件后，先設置控件屬性，再編寫事件過程和調(diào)試程序，并使 其符合題目要求。當運行程序后，所彈出的對話框是通過調(diào)用函數(shù) InputBox 來實現(xiàn)(通過 Visual Basic 系統(tǒng)本身提供的)。本題主要是考查循環(huán)語句的應用。計算一個數(shù)值的階乘時使 用了 for循環(huán)，最后調(diào)用了所給模塊中的過程將結(jié)果進行保存。 (1) 畫 1 個文本框和 1 個命令按鈕，建立程序界面。 (2) 將命令按鈕的 Caption屬性設置為 計算”，Name 屬性設

25、置成 Cmd1。 (3) 文本框?qū)傩詾槟J設置。 (4) 聲明存儲運算結(jié)果的 Lon9 型變量。在編寫程序代碼時要注意變量范圍的設定，題目 要求將計算結(jié)果存入 Long 變量中，所以把最后放入文本框內(nèi)的變量設置為長整型。例如： Dim temp As Long (5) 研讀過程 putdata 的代碼，掌握其調(diào)用格式。 標準模塊代碼： Opt i on - Jtp 11 r 11 Sub jjJtrJatJ ： r._Fi A5 -?J - rL： j, T_S L r A?： Vr idM 1 Jim si1r 鼻呻 St rng sPi 1 十 4 t_F Qp n App r Pth 勒

26、 dW OtitpvL * 1 Print *1 ( T_St,r Close 1 End (6) 過程 putdata 有兩個參數(shù)，編寫的參考代碼如下： j*r i v a t e Sub ( 1 Dim 社 I nteoier Dim t A& Long EJi Tn L AS 曠 r d - VaJ Hntiut Box i *請岸匚入 J - 12* 1 tpmp IL 1 Fr 1 - 1 To 西IE t emp 寸 temp * i Nat Txci/reKt =織郵 putdata our .tr r To)ctL.TH) Eftd uh (7) 調(diào)試并運行程序。 (8

27、) 按題目要求存盤。 來源:考試大-計算機 三、綜合應用題 【解析】文本框顯示的內(nèi)容通過 Text 屬性設置；按鈕的標題通過 Caption屬性設置，單 擊命令按鈕觸發(fā) Click 事件。本題涉及到文件的操作，讀入順序文件以順序的方式打開，用 “In put#語句讀取數(shù)據(jù)。另外，需要注意的是，對文件操作結(jié)束后，一定要關閉文件。 (1)建立界面并設置控件屬性。程序中用到的控件及其屬性見表 2-1。 表 2-1 控件 屬性 設置值 Name Text1 文本框 Scrollbfirs 2 Multiline True Name Cmd1 命令按鈕 Caption 讀入數(shù)據(jù) 續(xù)表 控件 屬性 設置值

28、 Name Crod2 命令按鈕 Caption 計算保存 (2)打開代碼窗口，研讀程序提供的代碼: 窗體代碼語句 Input#1 , i(?)是讀入數(shù)據(jù)，它與語句 Forj = 1 TO 100 配合，所以為：Input#1, i (j) D:ta ill Ta LOO! Lnttgtr Private L*L CrtriljCllckt) Div j As Incegcr 1 3 Q O(xi pp.Pnth -in.txt For UJpMt A= For j - 1 To LOC * Input li i?l NCXt for j - L 7Q l 0 Tvut 1 -*7Kt r T

29、vxt t ,TeKt E 1*1； Ep”建 WMt Rrd Sub Private Sub Diitt tnp Ac Lcg Di n j A6 fnt *Par ? 1 Tc 100 I；二門】、 400 And 11 j)SOO Thf-n ttifflp - tPMp 4 i i H End ff H*xr Text 1.7 tertp puLflALa ttrrp Lnd ub 林朮攜地乳糾 b、卜 u?- dflT LI 1 3yV i 4“ 1 t egfr IF* 乾 r 1 啊 F1 Le - 41 revl t. Ext Op*?n. App. H 百 sf le Fa-

30、r &j.tput A.$ d Pr itiE 11 t 4 Cl1 Fo r j * 1 T*i ICO 1 P TPTC f = Ter 1 .TeiCt 4 h t X I Next. Enrt Sub rr Sub rd?wCUcl TH” Afi LiOn茍 Olxn H AA Tntf*aec FCI ,1 - t 7Q 1QD Tf 1 ( i J - 400 And L I 訂 卻IK Then top 1存匹 * Hi) Fnd ；f Next Tx匚；. Text r*?rp * 二 Mt1 Fnd S 愼A世崎 Su? fTji- -lit .115*yVi ；刁

31、 A3 In1- ) Dilft wFi le Ag GC F 1 * r 11* * r ftU.11 . t Ji t Qpdfl App .bdth 善Fi 丄E For Jtpuf As K I Print :* a扌 C lew/* *1 參考代碼如下： 巧巾卜 來源:考試大-計算機二級考試 2009 年 4 月全國計算機等級二級 VisualBaisc 上機試練習習題 第 3 套上機考試試題 一、基本操作題 下面出現(xiàn)的 考生文件夾”均為 c： wexam20060001。 請根據(jù)以下各小題的要求設計 Visual Basic 應用程序(包括界面和代碼)。 1.在名稱為 Form1

32、的窗體上建立一個名稱為 P1 的圖片框和兩個命令按鈕，名稱分別 為 Cmd1 和 Cmd2，標題分別為 輸出和 清除”如圖 3-1 所示。要求程序運行后，每單擊 一次輸出”按鈕，不使用任何變量而直接在圖片框中顯示小寫字母 load me;如果單擊清除 按鈕，則清除圖片框中的內(nèi)容。 圖 3-1 注意：保存時必須存放在考生文件夾下， 窗體文件名為 kt1.frm ,工程文件名為 kt1.vbp。 2.在名稱為 Forml 的窗體上建立一個名稱為 Listl 的列表框。要求程序運行后，通過 F orm LoadO 事件過程加載窗體時，執(zhí)行語句 Listl.Addltem “ AA，每當單擊某個列表項

33、時, 都執(zhí)行語句 Listl.Addltem Listt.Text 一次，如圖 3-2 所示。 圖 3-2 注意：保存時必須存放在考生文件夾下， 窗體文件名為 kt2.frm，工程文件名為 kt2.vbp。 二、 簡單應用題 下面出現(xiàn)的 考生文件夾”均為 c： wexam20060001。 1 在名稱為 Form1 的窗體上建立兩個主菜單，其標題分別為 ，文件”和幫助”名稱分 別為 vbFile 和 vbHelp ,文件”菜單下有三個子菜單項， 標題分別為 新建”打開”和存盤” 名稱分別為 vbNew、vbOpen和 vbSave。要求程序運行后，如果選中 文件”下的某個菜單項， 則通過 Ms

34、gBox對話框顯示該菜單項的標題，如圖 3 3 所示。 注意：保存時必須存放在考生文件爽下， 窗體文件名為 kt3.frm ,工程文件名為 kt3.vbp。 2.在窗體上建立一個名稱為 Text1 的文本框，再建立一個名稱為 Cmd1、標題為計算” 的命令按鈕，如圖 3-4 所示。要求程序運行后，單擊命令按鈕，將計算 100200 之間所有 素數(shù)之和，并在文本框中顯示結(jié)果，同時把結(jié)果存入文件 out.txt 中（在考生文件夾中有標準 模塊 mode.bas,其中的 putdata 過程可以把結(jié)果存入文件，而 isprime 函數(shù)可以判斷整數(shù) X 是否為素數(shù)，如果是素數(shù)，則函數(shù)返回 True，否

35、則返回 False,考生可以把該模塊文件添加 到自己的工程中）。 注意：保存時必須存放在考生文件夾下，窗體文件名為 kt4.frm，工程文件名為 kt4.vbp, 結(jié)果存入 result.txt 文件，否則沒有成績。 三、 綜合應用題 下面出現(xiàn)的 考生文件夾”均為 c： wexam20060001。 在考生文件夾中有工程文件 kt5.vbp 及其窗體文件 kt5.frm，該程序是不完整的，請在有 “？號的地方填入正確內(nèi)容，然后刪除 “？及所有注釋符（即“號），但不能修改其他部分。 本題描述如下： 在名稱為 Form1 的窗體上有一個文本框，名稱為 Text1 , MultiLine 屬性為 T

36、rue, Scroll Bars 屬性為 2;兩個命令按鈕，名稱分別為 Cmd1 和 Cmd2，標題分別為 讀入數(shù)據(jù)和 保存 數(shù)據(jù)”如圖 3-5 所示。程序運行后，如果單擊 讀入數(shù)據(jù)”按鈕，則讀入“inxt,文件中的 100 個整數(shù)，放入一個數(shù)組中（數(shù)組下界為 1），并在文本框 Text1 中顯示出來；如果單擊 保 存數(shù)據(jù)”按鈕，則把數(shù)組中的前 50 個數(shù)據(jù)在文本框 Textl 中顯示出來，并存入考生文件夾中 的 result.txt 文件中（考生文件夾中有標準模塊 prog.bas,其中的 putdata 過程可以把指定個數(shù) 的數(shù)組元素存入 result.txt 文件）。 注意：保存時必須存

37、放在考生文件夾下， 窗體文件名為 kt5.frm ,工程文件名為 kt5.vbp , 結(jié)果存入 out.txt 文件，否則沒有成績。 (1)建立界面并設置控件屬性。程序中只用到 1 個列表框控件。在窗體上畫出列表框, 其 Name 屬性默認為 List1 。 圖 3-5 來源:考試大-計算機二級考試 一、基本操作題 1. 【解析】本題主要考查圖片框控件的基本操作。命令按鈕的標題通過 Caption屬性 設置，單擊命令按鈕觸發(fā) Click 事件；打印信息用 Print 方法，清除用 Cls 方法。題目要求在 圖片框中打印信息，所以在編寫代碼時應指定 Print 方法和 Cls 方法的使用對象。

38、在窗體上建立好控件后，先設置控件屬性，再編寫事件過程。 (1) 建立界面并設置控件屬性。程序用到的控件及其屬性見表 3-1。 表 3 1 控件 屬性 設置值 Name Cmd1 命令按鈕 Caption 輸出 Name Crod2 命令按鈕 Caption 清除 圖片框 Name P1 命令按鈕 Cmd1 觸發(fā) Click 事件，打印信息用 Print 方法。題目要求在圖片框中打印 信息，所以在編寫代碼時，應指定 Print 方法使用對象。 ri. Pr i nt * l O-H1 間. Sub 清除用 Cls 方法。題目要求清除圖片框中的信息，所以在編寫代碼時，應指定 Cls 方 法的使用對

39、象。 ? ivflt F Snb Cmd?_Cl(J Fl.Cls (4) 調(diào)試并運行程序。 (5) 按題目要求存盤。 2. 【解析】本題主要考查列表框的基本操作，列表框用于在很多項目中做出選擇的操 作。向列表框中添加項目既可以在屬性窗口中進行，也可以在程序代碼中進行。 在窗體上建立好列表框后，先設置屬性，再編寫事件過程。 在窗體的 Load 事件中添加 Listl.Addltem ” AAA語句使程序開始運行時在列表框中添 加 AAA。參考代碼如下： U 2已戶 S.ib Foi nuLoncK I Llitl .Adtilteni 曲詛Suh 單擊列表框中的項目觸發(fā) Click 事件，題目

40、要求使用 Addltem 方法給列表框添加項目， 所以應該將 Listl.Addltem 的 Listl.Text 語句寫入列表框的 Click 事件中。 參考代碼如下： Pr j Sub Lis.i-ClicX I i I -Addlterr. L i Gt 1 -Tn.ly End Sutb Pr ivare !db vfeyjive_Click i MEq力3C 4 A * , vtCKQnly End Sib (3) 調(diào)試并運行程序。 (4) 按題目要求存盤。 2. 【解析】判斷某數(shù)是否為素數(shù)，主要用到選擇結(jié)構(gòu)程序設計的思想。在窗體上建立 好控件后，先設置控件的屬性值，再編寫事件過程。

41、文本框中顯示的內(nèi)容通過 Text 屬性設 置，命令按鈕的標題通過 Captilon屬性設置，單擊命令按鈕觸發(fā) Click 事件。 (1) 建立菜單項。程序中用到的控件及其屬性見表 3-3。 表 3-3 控件 屬性 設置值 文本框 Name Text1 NalTle Cmd1 按鈕 Caption 計算 (2) 打開代碼窗口，研讀給定的代碼。 標準模塊代碼： Optian Explieit Stib :ts .F: 1 吉K占M 肚弓：T .Htt顯首 Var lATit nFi L-e AG Siring srile ； 7 ) r_FileNre Aw，F(xiàn)-itfi 4 nrile Fo-i

42、 OllLpUf. Afl l Print Hr T_$ti Close 和 Etid Sub Funct yo+i i&prip As Integer * Af 耳:一勺bias Clfll J 翻 InEet i Eprine - Ft* rqr J 2 To L_I / 3 If tj Mud J i C Wwn &dt Ptar t_I / 2 Then lSprttne = Ttut End Rimian (3) 可以使用 isprime 函數(shù)判斷整數(shù) X 是否為素數(shù)。如果是，則將該素數(shù)計入。 If isprime(i)The n temp=temp+i (4) te

43、mp 應聲明為 Long 型。 (5) 使用如下調(diào)用形式把結(jié)果存入文件 out.txt 中：putdata “out.txt temp (6) Cmd1_Click()事件的參考代碼如下： Pr i Siti ?Tidl _r；ick Dim i As Ir Oln t qp Ada Lwigi t irivat Sub QndlUlLckf) Dip j As Tnceger j Cprn App. Path & * in . t xt or 【“put hw #1 For j 1 To 100 Input tl, i? Next ? #1 For j = 1 TQ 1QQ TexL

44、L- text 二 TL?XL 1. rex* 11 R Space (5) Next End Sub Pi ivate Sut CirKi2_ClicKO LIP LemiJ As Long Dim $ As Inteqt TSMtl.TGXt = ? For ? = 1 To 5C TeMtl -Tsct = Text.1. Text & 丄(j 匸 Bp? (5) Next. putdta i, 50 - End SUt (4) 研讀代碼，完成程序。 語句 Input#1 , i(?)用與語句 Forj=1 TO 100 相配合讀入數(shù)據(jù)，所以應為： Input#1 , i(j)

45、語句？#1 是在打開文件之后。涉及到文件的操作，讀入順序文件以順序的方式打開， 用“ In put#語句讀取數(shù)據(jù)，另外需要注意的是對文件操作完成后，一定要關閉文件。即： Close#1 語句 Text1.Text=?用來初始化文本框 Textl，使其開始時為空。即： Text1.Text= “” (5) 完整的參考代碼如下： 2009 年 4 月全國計算機等級二級 VisualBaisc 上機試練習習題(4 第 4 套上機考試試題 一、基本操作題 下面出現(xiàn)的 考生文件夾”均為 c： wexam20060001。 請根據(jù)以下各小題的要求設計 Visual Basic 應用程序（包括界面和代碼）。

46、 1 .在名稱為 Forml 的窗體上建立一個名稱為 Textl 的文本框，一個名稱為 Cmd1、標 題為 輸出”的命令按鈕，如圖 4-1 所示。要求程序運行后，在文本框輸入幾個字符， 單擊輸 出”按鈕，則在窗體上顯示文本框中輸入的字符。 注意：在程序中不能使用任何變量。保存時必須存放在考生文件夾下，窗體文件名為 ktl.frm，工程文件名為 ktl.vbp。 2.在名稱為 Forml 的窗體上建立兩個名稱分別為 Cmdl 和 Cmd2、標題分別為 按鈕一 ” 和按鈕二”的命令按鈕，如圖 4-2 所示。要求程序運行后，如果單擊 按鈕一”，則把按鈕二” 移到 按鈕一”上，使兩個按鈕重合，如圖 4

47、-3 所示。 j .a -j BY F - LSI I 圖 4-1 圖 4-2 圖 4-3 注意：在程序中不得使用任何變量 （必須通過屬性設置來移動控件 ）。保存時必須存放在 考生文件夾下，窗體文件名為 kt2.frm，工程文件名為 kt2.vbp。 二、簡單應用題 下面出現(xiàn)的 考生文件夾”均為 c： wexam20060001。 1.在考生文件夾下有一個工程文件 kt3.Vbp,窗體上已經(jīng)有一個標簽 L1，請畫一個單選 按鈕數(shù)組，名稱為 Op1，含三個單選按鈕，它們的 Index 屬性分別為 0、1 和 2，標題依次為 飛機” 火車和 汽車”再畫一個名稱為 Text1 的文本框。 窗體文件中

48、已經(jīng)給出了 op1 的 click 事件過程，但不完整，要求去摔程序中的注釋符（即 “號），把程序中的“致為正確的內(nèi)容，使得在運行時單擊 飛機”或 火車”單選按鈕時，在 Text1 中顯示我坐飛機去”或我坐火車去”單擊汽車”單選按鈕時，在 Text1 中顯示我開 汽車去”。程序運行界面如圖 4-4 所示。 圖 4-4 圖 4-5 注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名保存。 2.在窗體上建立一個名稱為 Textl 的文本框，建立一個名稱為 Cmd1、標題為 計算的 命令按鈕，如圖 4-5 所示。要求程序運行后，如果單擊 計算”按鈕；則求出 100-200 之間所 有能被

49、3 整除的數(shù)的總和，在文本框中顯示出來，并把結(jié)果存入考生文件夾下的 out.txt 文 件中（在考生的文件夾下有一個 mode.bas 標準模塊，該模塊中提供了保存文件的進程 putdata, 考生可以直接調(diào)用）。 注意：保存時必須存放在考生文件夾下， 窗體文件名為 kt4.frm ,工程文件名為 kt4.vbp , 結(jié)果存入 out.txt 文件。 三、綜合應用題 下面出現(xiàn)的 考生文件夾”均為 c： wexam20060001。 在考生文件夾中有工程文件 kt5. vbp 及其窗體文件 kt5. frm，該程序是不完整的，請 在有“?號的地方填入正確內(nèi)容然能修改其他部分。 本題描述如下： 在

50、名稱為 Form1 的窗體上有一個文本框， 名稱為 Text1 , MultiLine 屬性為 True, ScrollBars 屬性為 2;兩個命令按鈕，名稱分別為 Cmd1 和 Cmd2，標題分別為 讀入數(shù)據(jù)和排序并保 存”如圖 4 6 所示。程序運行后，如果單擊 讀入數(shù)據(jù)”按鈕，則讀入 in.txt 文件中的 100 個整數(shù)，放入一個數(shù)組中（數(shù)組下界為 1）;如果單擊 排序并保存”按鈕，則對這 100 個整數(shù) 按從小到大進行排序，并把排序后的全部數(shù)據(jù)在文本框 Text1 中顯示出來，然后存入考生文 件夾中的文件result.txt中 （在程序中的標準模塊 prog.bas過程可以把指定個

51、數(shù)的數(shù)組元素存 入result.txt文件中）。 圖 4-6 注意：文件必須存放在考生文件夾下，窗體文件名為 kt5.frm，工程文件名稱為 kt5.vbp，排 序結(jié)果存入 result.txt 文件，否則沒有成績。 來源:考試大-計算 表 4-3 的 Click 事件中利用 Print 方法將文本框中的內(nèi)容輸出，完成題目要求。 (6) 參考程序如下： ci a Print T*ex I. Texr nd Sub (7) 調(diào)試并運行程序。 (8) 按題目要求存盤。 2.【解析】在窗體上建立好控件后，先設置控件的屬性，再編寫事件過程。 (1) 建立界面并設置控件屬性。程序中用到的控件及其屬性見表

52、 4-2。 表 4-2 控件 屬性 設置值 Name Cmd1 按鈕 Caption 按鈕一 Name Cmd2 按鈕 Caption 按鈕二 (2) 命令按鈕的 Caption屬性用來設置其標題，單擊命令按鈕觸發(fā) Click 事件。 (3) 本題考查的是如何設置按鈕的擺放位置，涉及到對象的 Left 和 Top 屬性。Left 表示 控件與所在窗體的左邊之間的距離， Top 表示控件與所在窗體的頂邊之間的距離。 讓兩個按 鈕位置重合只需將兩個按鈕的 Left 和 Top 設置相同即可。參考代碼如下： Jiv*3te Sub i tk( I Loft - CHKH丄附t 5 幻皿# 二 Cmd

53、l .Top nd Sub (4) 調(diào)試并運行程序。 (5) 按題目要求存盤。 二、簡單應用題 1. 【解析】標簽和單選按鈕的標題均由各自的 Caption屬性設置。程序中需要檢測的 單選按鈕的狀態(tài)，這可以通過 Value 屬性來實現(xiàn)，如果單選按鈕被選中，則 Value 值為 1, 否則 Value 值為 0。當建立控件數(shù)組時，系統(tǒng)給每個元素賦一個唯一的索引號 (Index)，通過 屬性窗口的 Index 屬性，可以知道該控件的下標是多少。在文本框中顯示內(nèi)容通過 Text 屬 性設置，其形式為：文本框名 .Text=顯示的內(nèi)容，程序中用到了 SelectCase 語句，格式如下： Etekn

54、One XK ffERftft 料盤 4tnrF*KJ Ch 衣詁兀列選i 曲塊t C3M?農(nóng)富貞列誕2 itiW 2 |CibiC ELhfr 倚何lfc n+tl End S餵05 表 4-4 【解題步驟】 (1) 建立界面并設置控件屬性。程序用到的控件及其屬性見表 4. 3。 對象 屬性 設置值 Text Name Textl Name Op1(0) 單選按鈕 Caption 飛機 Nalrle Op10) 單選按鈕 Caption 火車 Natne Op1(2) 單選按鈕 Caption 汽車 Name Lable! 標簽框 Caption 請選擇 (2) 編寫程序代碼。 程序提供的代

55、碼： Pr lv*t Sui Oplcl lek index A* Jfitcger) ijn a A.E trin, b K& String, c kn Strm(s At* A,t* Glc-ct an* ? Cs e a H Tear - a t Mr I Cap cn * ” 畫* Pc j.7diL# Suh Op2 _tl ieJc 1 1 n2ex Afi 工匕 w 】 Pln 召兔 w J 衛(wèi) A& Str*n-9 j c 2 Str;n Select Cafi Lrtdex Cd Be C Text 1 ,Tsxt - a*He”gX(h fdDuicn *

56、X - Text, w H + ?(七丄、. Mptiw -t -吿* Case 2 Textl.Text b*M*.Opl 12). Capt i on * .古* Select End Sub (3) 調(diào)試并運行程序。 (4) 按題目要求存盤。 2. 【解析】本題主要考查窗體上控件的基本應用。先在窗體上建立控件，再設置控件 的屬性。命令按鈕的 Caption屬性用來設置其標題，單擊命令按鈕觸發(fā) Click 事件；在文本 框中顯示內(nèi)容通過其 Text 屬性來設置。表 4-5 (1)建立界面并設置控件屬性。程序中用到的控件及其屬性見表 4-4。 表 4-4 控件 屬性 設置值 NalTle C

57、md1 按鈕 Caption 計算 文本框 Name Text1 (2) 打開代碼窗口，研讀程序，獲得調(diào)用規(guī)則。 cptlort ZJtplieit uh putdat. t_Pi As r AF Variant D.at SFIIt AQ String ttlLe * * 也 Cp n Path L a?ile Per OULPJL AS J Print t_Str L皿耶! (3) 將用來存放結(jié)果的變量設計成 Long 型。 能被 3 整除，即 iMod 3=0 (5) 參考代碼如下： Pr 1 Sab A芒kJ I Din? te=ip AH 5旳 Din i An Tnlegr For

58、 i 100 To 200 T f i Hod 3 = C tcfl * i Etid IE 両吐 J T Kt L - t erflp putMt昭 *oit. txc * H reni End ub (6) 調(diào)試并運行程序。 (7) 按題目要求存盤。 來源:考試大-計算機二 三、綜合應用題 【解析】除了基本的操作外，本題涉及到的知識點主要有循環(huán)程序設計和數(shù)組的使用兩 個方面。先在窗體上建立控件， 再設置控件屬性，然后研讀提供的代碼，正確分析并完成程 序。 文本框顯示的內(nèi)容通過 Text 屬性設置； 按鈕的標題通過 Caption屬性設置， 單擊命令按 鈕觸發(fā) Click事件；在本題中涉及到

59、文件的操作，讀入順序文件以順序的方式打開，用 “Inp ut#語句讀取數(shù)據(jù)，另外需要注意的是對文件操作結(jié)束后，一定要關閉文件。 (1) 文本框顯示的內(nèi)容通過 Text 屬性設置，Multiline 屬性決定文本框是否可多行顯示。 若需要多行顯示，則必須將 Multiline 屬性設置為 True，同時將 Scrollbars 屬性設置為 2。 (2) 建立界面并設置控件屬性。按鈕的標題通過 Caption屬性設置，單擊命令按鈕觸發(fā) C 表 4-6 lick 事件。程序中用到的控件及屙性設置見表 4-5。 控件 屬性 設置值 Name Text1 本框 Scrollbars 2 本框 Multi

60、line True Name Cmd1 命令按鈕 Caption 讀入數(shù)據(jù) Name Cmd2 命令按鈕 Caption 排序顯示保存 (3) 打開代碼窗口，得到如下代碼： 標準模塊代碼 Sub putdatatan Ki Integer, n AB Dim s&4 3e As Str i aFllc 一 re ult r tJtf Open App PdLh & sFi le For + As a 1 For 1 - 1 To n Friit：4ili 。伽 m T匚 I CO J As int eger Fr ivat 九t1 tin At Open in.txt For Inpvt 恥 切 For j - 1 Fa 100 Text 1.Text : TextL.Tex: h 1(j) &a