全國計(jì)算機(jī)等級(jí)考試二級(jí)VB上機(jī)題庫以及解析

1、晨曦制作全國計(jì)算機(jī)等級(jí)考試二級(jí) VB上機(jī)題庫（一）圖1T1.width=T1.width+1400T1.Height=T1.Height+400Tl.fo ntsize=T1.fo ntsize*3Forml圖2最后單擊保存按鈕，工程命名為sjtl.vbp,窗體命名為 sjtl.frm 。第12頁共10頁Text1.text=LCase（Text1.text）Text2.text=UCase（Text1.text）一、簡單應(yīng)用題（2小題，每小題20分，共計(jì)40分）1.在考生目錄下有一個(gè)工程文件 sjt3.vbp，相應(yīng)的窗體文件為sjt3.frm 。包含 所有控件和部分程序，如圖所示。要求：1）

2、利用屬性窗口向列表框添加四個(gè)項(xiàng)目： Visual Basic,Turbo C,C+,Java;2）請編寫適當(dāng)?shù)某绦蛲瓿梢韵鹿δ埽寒?dāng)選擇列表框中的一項(xiàng)和單選按鈕 Optio n1,然后單擊“確定”命令按鈕，則文本框中顯示“XXX筆試”；當(dāng)選擇列表框中的一項(xiàng)和單選按鈕Option2,然后單擊“確定”命令按鈕，則文本框中的一項(xiàng)和單 選按鈕Option2，然后單擊“確定”命令按鈕，則文本框中顯示“ XXX上機(jī)”。其 中“XXX是在列表框中所選擇的項(xiàng)目。If Optio n1.Value=True the nText1.Text=List1 丄 ist(List1. ListI ndex)+Optio

3、n1.Capti onEnd IfIf Optio n2.Value=True the nText1.Text=List1. List(List1 丄 istI ndex)+Optio n2.CaptionEnd If最后單擊保存按鈕。2.在考生目錄下有一個(gè)工程文件 sjt4.vbp ，相應(yīng)的窗體文件為sjt4.frm 。在窗 體上已經(jīng)有一個(gè)命令按鈕。其名稱為Command1標(biāo)題為“計(jì)算并輸出”；程序運(yùn)行后，如果單擊命令按鈕，程序?qū)⒂?jì)算500以內(nèi)兩個(gè)數(shù)之間（包括開頭和結(jié)尾的 數(shù)）所有連續(xù)數(shù)的和為1250的正整數(shù)，并在窗體上顯示出來，這樣的數(shù)有多組， 程序輸出每組開頭和結(jié)尾的正整數(shù)，并用“”連接

4、起來，如圖所示，這個(gè)程序不完整，請把它補(bǔ)充完整。要求： 去掉程序中的注釋符，把程序中的？該為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不 得修改程序中的其他部分。最后把修改的文件按原文件存盤。4 Forml痙續(xù)和為1頁0的正整數(shù)是:33 6253 7224S 252311 314Private Sub Comma nd1_Click()Dim i As In teger, j As In teger, iSum As In tegerPrint "連續(xù)和為1250的正整數(shù)是："For i = 1 To 500賦初值進(jìn)行累加和是否為1250' isum = 0For j = i

5、 To 500 iSum = j+iSumIf iSum >= 1250 Then Exit ForNext' IfiSum = 1250 ThenPrint i;""jEnd IfNextEnd Sub答案為：1) 2)j+iSum 3)1250二、綜合應(yīng)用題（1小題，計(jì)40分）在窗體上畫一個(gè)文本框，名稱為 Text1,初始內(nèi)容為空白，并設(shè)置多行顯示格式； 然后再畫兩個(gè)命令按鈕，其名稱分別為Comma nd和Comma nd2標(biāo)題分別為“顯示”和“保存”，如圖所示，編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，如果單擊“顯 示”命令按鈕，則讀取考生 目錄下的in5.txt

6、文件，并在文本框中顯示出來， 該文件是一種用隨機(jī)存取方式建立的文件， 共有5個(gè)記錄，要求按記錄號(hào)順序顯示全部記錄，每個(gè)記錄一行；如果單擊“保存”命令按鈕，則把所有記錄保存到 考生目錄下的順序文件out5.txt中。隨機(jī)文件in5.txt中的每個(gè)記錄包括3個(gè)字段，分別為姓名、性別和年齡，其名稱和長度分別為：Name字符串8Sex字符串4Age In teger其類型定義為：Private Type Stud InfoName As Stri ng*8Sex As Stri ng*4Age As In tegerEnd Type要求：1）文件out5.txt以順序存取方式建立和保存。2）存盤時(shí)必須

7、放在考生目錄下，工程為 sjt5.vbp，窗體文件名為sjt5.frm 。Private Type Stud Info Name as stri ng*8 Sex as stri ng*4 Age as in tegerEnd TypeDim pers as studi nfoDim recmum as in teger顯示按鈕腳本：Private sub comma nd1_click()Open app.path+ ” in5.txt ” for random as #1 Len=len(pers) recnum=lof(1)/le n(pers)ClsFor i=1 to rec num

8、Get #1,persText1.text=text1.text+pers .n ame+pers.sex+str(pers.age)+vbcrlf Next iClose 1End sub保存按鈕腳本：Private sub comma nd2_click()Open app.path+ ” out5.txt ” for output as #1Print #1,text1.textClose #1End sub(1)在考生文件夾下有一個(gè)工程文件sjt3.vbp，相應(yīng)的窗體文件為sjt3.frm 。 在名稱為Form1的窗體上有一個(gè)名稱為Text1的文本框和名稱為Comma nd、標(biāo)題為 &

9、quot;確定"的命令按鈕，一個(gè)名稱為List1的列表框和兩個(gè)名稱分別為Option1和 Option2、標(biāo)題分別為"添加"和"刪除"的單選按鈕，如圖1所示。程序運(yùn)行后，如 果選擇單選按鈕Option1并在文本框中輸入一個(gè)字符串，然后單擊"確定"命令按 鈕，則把文本框中的字符串添加到列表框中，并清除文本框，如圖2所示；如果選擇列表框中的一項(xiàng)和單選按鈕 Opti on2,并單擊"確定"命令按鈕，則刪除列表 框中所選擇的項(xiàng)目，如圖3所示；如果不選擇列表框中的項(xiàng)目，或者沒有在文本 框中輸入字符串，則單擊&quo

10、t;確定"命令按鈕后，將顯示一個(gè)信息框"未輸入或未選 擇項(xiàng)目"，如圖4所示。該程序不完整，請把它補(bǔ)充完整。要求：去掉程序中的注釋符，把程序中的？改為正確的內(nèi)容，使其能正確運(yùn)行，但不 能修改程序中的其他部分。最后用原來的文件名保存工程文件和窗體文件。圖兇耒輸入或未選擇項(xiàng)目*(2)在考生文件夾下有一個(gè)工程文件sjt4.vbp，相應(yīng)的窗體文件為sjt4.frm在窗體上有一個(gè)命令按鈕，其名稱為Comma nd1標(biāo)題為"計(jì)算"。程序運(yùn)行后，如 果單擊命令按鈕，程序?qū)⒏鶕?jù)下面的公式計(jì)算n的值：n /4 = 1-1/3 + 1/5 - 1/7 +所提供的窗體

11、文件已給出了命令按鈕的事件過程，程序運(yùn)行結(jié)果如圖所示。該程序不完整，請把它補(bǔ)充完整。要求：去掉程序中的注釋符，把程序中的？改為正確的內(nèi)容，使其能正確運(yùn)行，但不 能修改程序中的其他部分。最后用原來的文件名保存工程文件和窗體文件。第一小題：該題考查考生對(duì)ListBox控件的使用。列表框的AddItem方法用來在列表框中插入一行文本，其語法為：列表框名.AddItem字符串,索引值如果省略"索引值"，則字符串被添加到列表框的尾部；使用"索引值"可以將字符 串插入列表框中的指定位置。"索引值"從0開始，到列表項(xiàng)總數(shù)-1止。列表框的Remove

12、lten方法用來刪除列表框中的指定項(xiàng)目，其語法為：列表框名.Removeitem索引值列表框的Listl ndex屬性用來設(shè)置或返回列表框中當(dāng)前選中的列表項(xiàng)。第二小題：該題考查了 Do-Loop循環(huán)結(jié)構(gòu)語句和公式計(jì)算的算法實(shí)現(xiàn)，相關(guān)程序如下：Private Sub Comma nd1_Click()Dim Result As DoubleDim Sig n As in tegerDim i As in tegerResult = 0Sig n = 1i = 1DoResult = Result + Sig n / ii = i + 2Sig n = -Sig nLoop While 1 / i

13、 >= 0.0001Text1.Text = Result * 4End Sub3.綜合應(yīng)用(1小題，計(jì)30分)注意：下面出現(xiàn)的"考生文件夾"均為USER%在考生文件夾下有一個(gè)工程文件sjt5.vbp ,相應(yīng)的窗體文件為sjt5.frm 。窗體外 觀如圖1所示。三個(gè)命令按鈕的名稱分別為 Comma nd1 Comma nd和Comma nd3標(biāo) 題分別為"讀取數(shù)據(jù)"、"首字母大寫"和"存盤"。程序運(yùn)行后，如果單擊"讀取數(shù) 據(jù)"命令按鈕，則讀取考生文件夾下in5.txt中的全部文本（文本中的

14、單詞與單詞 之間或標(biāo)點(diǎn)符號(hào)與單詞之間均用一個(gè)空格分開），并在文本框中顯示出來，如圖 2所示；如果單擊"首字母大寫"命令按鈕，則將文本框中每個(gè)單詞的第一個(gè)字母 變?yōu)榇髮懽帜福ㄈ绻瓉硪咽谴髮懽帜竸t不改變），并在文本框中顯示出來，如 圖3所示；如果單擊"存盤"命令按鈕，則把文本框中的內(nèi)容（首字母大寫后）保 存到考生文件夾下的文件out5.txt中。窗體文件中已給出了部分程序，請把它補(bǔ) 充完整，使其實(shí)現(xiàn)上述功能?！?Farml二包乂Tucked Deep Wilhini Ths Rromisas And Palicies * f His 卻攻曰 Of Th*e

15、 UnionPresidentBush Utteted Three Words That Speak Volumes About Washingtan'? Paralysis Im Addressing The Plight Of The Fortjp Million Airoficans Who Lack Health Insurance. In Between His Discomse On Medicare And His Support For ALow-irKcme Health Cafe Tax Credit. Bush Called For要求：1）編寫"讀取數(shù)

16、據(jù)"命令按鈕的Click事件過程。2）去掉"首字母大寫"命令按鈕和"存盤"命令按鈕事件過程中的注釋符，把程序 中的？改為正確的內(nèi)容，使其能正確運(yùn)行。3）用原來的文件名保存工程文件和窗體文件。本題主要考查了文件的操作，文件中字符串的處理方法。主要代碼如下:Dim s As Stri ngPrivate Sub Comma nd1_Click()Open "in5.txt" For Input As #1s = In put$(LOF(1), 1)Close #1Text1.Text = sEnd SubPrivate Sub

17、Comma nd2_Click()Dim oldSen As Stri ngDim n ewSe n As Stri ngDim ch As Stri ngDim lastCh As Stri ngoldSen = Text1.Textstrle n = Len( oldSe n) lastCh = Left(oldSe n, 1)For i = 1 To strle nch = Mid(Text1.Text, i, 1)If lastCh = " " The nch = UCase(ch)End Ifn ewSe n = n ewSe n & ch lastCh

18、= chNext iText1.Text = n ewSe nEnd SubPrivate Sub Comma nd3_Click()Open "out5.txt" For Output As #1Write #1, Text1.TextClose #1End Sub舉北次NCRE 二£ff¥"tid Hii.iic-T t(*t- fr! fi: r *£uf A>: 26J0999399020BZ0|5(豈牛文ft* E:EGn?fia2IH?D司年工匡遼 fSSsifflH3.綜獸應(yīng)用（小頃計(jì)恥卸注萬Tffiiwfc的*務(wù)

19、生文你”均為K叭斷典琳0200腳中鋌臣幷了 冬阜有 A麴生大己 從爭酣件 分擊*E.it w'Tfl 將爭 序啟出 sn I緒札聖匸 運(yùn)礙舌> 韋嘖.! "3 別t: 用零你技仃 tLnh. Mnw- 文客 的少 后至 莘 ffin 后?t 晟件杵3事n I 備旳fiTe 評(píng)數(shù)桿用tt" 工維下湎亍荃 個(gè)一同顯冗 一個(gè)聞¥ 白兩甲鄆”廿仔 己X坦按旻押 下黎昇絡(luò)詛 錄 目第J-.即聲葉!覽殲希岀為J t in £D L性的 憶不 '仃 部* § &甬 4試 訐期 Forsl峨組最大值合并后最大值融讀數(shù)據(jù)I合并數(shù)組找

20、最大值I答案：Dim a(10) As In tegerDim b(10) As In tegerDim c(10) As In tegerPrivate Sub Comma nd1_Click()Ope n App.Path & "dataA.txt" For In put As #1Ope n App.Path & "dataB.txt" For In put As #2For i = 0 To 9In put #1, a(i)In put #2, b(i)NextClose #1, #2End SubPrivate Sub fin

21、d(x() As In teger, t As Con trol)Dim i As In teger, max As In tegermax = x(1)For i = 2 To 10If max < x(i) The n max = x(i)Next it.Text = maxEnd SubPrivate Sub Comma nd2_Click()Dim i As In tegerFor i = 1 To 10c(i) = a(i) + b(i)Next iOpen App.Path & "out51.txt" For Output As #1For i = 0 To 9Print #1, c(i)NextClose #1End SubPrivate Sub Comma nd3_Click()Call fin d(a, Textl)Call fin d(c, Text2)Open App.Path &