全國計算機等級考試二級VB上機試題庫以及解析

1、-全國計算機等級考試二級VB上機題庫(一)圖1 圖2T1.width=T1.width+1400T1.Height=T1.Height+400T1.fontsize=T1.fontsize*3最后單擊保存按鈕，工程命名為sjt1.vbp,窗體命名為sjt1.frm。 Te*t1.te*t=LCase(Te*t1.te*t) Te*t2.te*t=UCase(Te*t1.te*t)一、 簡單應用題2小題，每題20分，共計40分1.在考生目錄下有一個工程文件sjt3.vbp，相應的窗體文件為sjt3.frm。包含所有控件和局部程序，如下列圖。要求：1)利用屬性窗口向列表框添加四個工程：Visual

2、 Basic,Turbo C,C+,Java;2)請編寫適當?shù)某绦蛲瓿梢韵鹿δ埽褐羞x擇列表框中的一項和單項選擇按鈕Option1,然后單擊“確定命令按鈕，則文本框中顯示“*筆試；中選擇列表框中的一項和單項選擇按鈕Option2，然后單擊“確定命令按鈕，則文本框中的一項和單項選擇按鈕Option2，然后單擊“確定命令按鈕，則文本框中顯示“*上機。其中“*是在列表框中所選擇的工程。If Option1.Value=True then Te*t1.Te*t=List1.List(List1.ListInde*)+Option1.CaptionEnd IfIf Option2.Value=True t

3、hen Te*t1.Te*t=List1.List(List1.ListInde*)+Option2.CaptionEnd If最后單擊保存按鈕。2在考生目錄下有一個工程文件sjt4.vbp，相應的窗體文件為sjt4.frm。在窗體上已經有一個命令按鈕。其名稱為mand1,標題為“計算并輸出；程序運行后，如果單擊命令按鈕，程序將計算500以兩個數(shù)之間包括開頭和結尾的數(shù)所有連續(xù)數(shù)的和為1250的正整數(shù)，并在窗體上顯示出來，這樣的數(shù)有多組，程序輸出每組開頭和結尾的正整數(shù)，并用“連接起來,如下列圖，這個程序不完整，請把它補充完整。要求：去掉程序中的注釋符，把程序中的.該為正確的容，使其實現(xiàn)上述功能，

4、但不得修改程序中的其他局部。最后把修改的文件按原文件存盤。Private Sub mand1_Click() Dim i As Integer, j As Integer, iSum As Integer Print 連續(xù)和為1250的正整數(shù)是： For i = 1 To 500 isum = 0賦初值 For j = i To 500 iSum = j+iSum進展累加 If iSum = 1250 Then E*it For Ne*t If iSum = 1250 Then 和是否為1250 Print i; ; j End If Ne*tEnd Sub答案為：12)j+iSum 3)12

5、50二、 綜合應用題1小題，計40分在窗體上畫一個文本框，名稱為Te*t1,初始容為空白，并設置多行顯示格式；然后再畫兩個命令按鈕，其名稱分別為mand1和mand2,標題分別為“顯示和“保存，如下列圖，編寫適當?shù)氖录^程。程序運行后，如果單擊“顯示命令按鈕，則讀取考生 目錄下的in5.t*t文件，并在文本框中顯示出來，該文件是一種用隨機存取方式建立的文件，共有5個記錄，要求按記錄號順序顯示全部記錄，每個記錄一行；如果單擊“保存命令按鈕，則把所有記錄保存到考生目錄下的順序文件out5.t*t中。隨機文件in5.t*t中的每個記錄包括3個字段，分別為、性別和年齡，其名稱和長度分別為：Name 字

6、符串 8Se* 字符串 4Age Integer其類型定義為：Private Type StudInfo Name As String*8 Se* As String*4 Age As IntegerEnd Type要求：1) 文件out5.t*t以順序存取方式建立和保存。2) 存盤時必須放在考生目錄下，工程為sjt5.vbp，窗體文件名為sjt5.frm。Private Type StudInfo Name as string*8Se* as string*4Age as integerEnd TypeDim pers as studinfoDim recmum as integer顯示按鈕

7、腳本：Private sub mand1_click()Open app.path+in5.t*t for random as *1 Len=len(pers) reum=lof(1)/len(pers)ClsFor i=1 to reumGet *1,persTe*t1.te*t=te*t1.te*t++pers.se*+str(pers.age)+vbcrlfNe*t iClose 1End sub保存按鈕腳本：Private sub mand2_click()Open app.path+out5.t*t for output as *1Print *1,te*t1.te

8、*tClose *1End sub1在考生文件夾下有一個工程文件sjt3.vbp，相應的窗體文件為sjt3.frm。在名稱為Form1的窗體上有一個名稱為Te*t1的文本框和名稱為mand1、標題為確定的命令按鈕，一個名稱為List1的列表框和兩個名稱分別為Option1和Option2、標題分別為添加和刪除的單項選擇按鈕，如圖1所示。程序運行后，如果選擇單項選擇按鈕Option1并在文本框中輸入一個字符串，然后單擊確定命令按鈕，則把文本框中的字符串添加到列表框中，并去除文本框，如圖2所示；如果選擇列表框中的一項和單項選擇按鈕Option2，并單擊確定命令按鈕，則刪除列表框中所選擇的工程，如圖

9、3所示；如果不選擇列表框中的工程，或者沒有在文本框中輸入字符串，則單擊確定命令按鈕后，將顯示一個信息框未輸入或未選擇工程，如圖4所示。該程序不完整，請把它補充完整。要求：去掉程序中的注釋符，把程序中的.改為正確的容，使其能正確運行，但不能修改程序中的其他局部。最后用原來的文件名保存工程文件和窗體文件。*2在考生文件夾下有一個工程文件sjt4.vbp，相應的窗體文件為sjt4.frm。在窗體上有一個命令按鈕，其名稱為mand1，標題為計算。程序運行后，如果單擊命令按鈕，程序將根據(jù)下面的公式計算的值：/4 = 1 - 1/3 + 1/5 - 1/7 + .所提供的窗體文件已給出了命令按鈕的事件過程

10、，程序運行結果如下列圖。該程序不完整，請把它補充完整。要求：去掉程序中的注釋符，把程序中的.改為正確的容，使其能正確運行，但不能修改程序中的其他局部。最后用原來的文件名保存工程文件和窗體文件。第一小題：該題考察考生對ListBo*控件的使用。列表框的AddItem方法用來在列表框中插入一行文本，其語法為：列表框名.AddItem 字符串 ,索引值如果省略索引值，則字符串被添加到列表框的尾部；使用索引值可以將字符串插入列表框中的指定位置。索引值從0開場，到列表項總數(shù)-1止。列表框的RemoveItem方法用來刪除列表框中的指定工程，其語法為：列表框名.RemoveItem 索引值列表框的List

11、Inde*屬性用來設置或返回列表框中當前選中的列表項。第二小題：該題考察了Do-Loop循環(huán)構造語句和公式計算的算法實現(xiàn)，相關程序如下：Private Sub mand1_Click() Dim Result As DoubleDim Sign As Integer Dim i As IntegerResult = 0 Sign = 1 i = 1 Do Result = Result + Sign / i i = i + 2 Sign = -SignLoop While 1 / i = 0.0001 Te*t1.Te*t = Result * 4End Sub3. 綜合應用1小題，計30分注

12、意：下面出現(xiàn)的考生文件夾均為%USER%在考生文件夾下有一個工程文件sjt5.vbp，相應的窗體文件為sjt5.frm。窗體外觀如圖1所示。三個命令按鈕的名稱分別為mand1、mand2和mand3，標題分別為讀取數(shù)據(jù)、首字母大寫和存盤。程序運行后，如果單擊讀取數(shù)據(jù)命令按鈕，則讀取考生文件夾下in5.t*t中的全部文本文本中的單詞與單詞之間或標點符號與單詞之間均用一個空格分開，并在文本框中顯示出來，如圖2所示；如果單擊首字母大寫命令按鈕，則將文本框中每個單詞的第一個字母變?yōu)榇髮懽帜溉绻瓉硪咽谴髮懽帜竸t不改變，并在文本框中顯示出來，如圖3所示；如果單擊存盤命令按鈕，則把文本框中的容首字母大寫后

13、保存到考生文件夾下的文件out5.t*t中。窗體文件中已給出了局部程序，請把它補充完整，使其實現(xiàn)上述功能。要求：1編寫讀取數(shù)據(jù)命令按鈕的Click事件過程。2去掉首字母大寫命令按鈕和存盤命令按鈕事件過程中的注釋符，把程序中的.改為正確的容，使其能正確運行。3用原來的文件名保存工程文件和窗體文件。此題主要考察了文件的操作，文件中字符串的處理方法。主要代碼如下：Dim s As StringPrivate Sub mand1_Click() Open in5.t*t For Input As *1 s = Input$(LOF(1), 1) Close *1 Te*t1.Te*t = sEnd S

14、ubPrivate Sub mand2_Click() Dim oldSen As String Dim newSen As String Dim ch As String Dim lastCh As String oldSen = Te*t1.Te*t strlen = Len(oldSen) lastCh = Left(oldSen, 1) For i = 1 To strlen ch = Mid(Te*t1.Te*t, i, 1) If lastCh = Then ch = UCase(ch) End If newSen = newSen & ch lastCh = ch Ne*t i

15、Te*t1.Te*t = newSenEnd SubPrivate Sub mand3_Click() Open out5.t*t For Output As *1 Write *1, Te*t1.Te*t Close *1End Sub答案：Dim a(10) As IntegerDim b(10) As IntegerDim c(10) As IntegerPrivate Sub mand1_Click() Open App.Path & dataA.t*t For Input As *1 Open App.Path & dataB.t*t For Input As *2 For i =

16、0 To 9 Input *1, a(i) Input *2, b(i) Ne*t Close *1, *2End SubPrivate Sub find(*() As Integer, t As Control) Dim i As Integer, ma* As Integer ma* = *(1) For i = 2 To 10 If ma* *(i) Then ma* = *(i) Ne*t i t.Te*t = ma*End SubPrivate Sub mand2_Click() Dim i As Integer For i = 1 To 10 c(i) = a(i) + b(i)

17、Ne*t i Open App.Path & out51.t*t For Output As *1 For i = 0 To 9 Print *1, c(i) Ne*t Close *1End SubPrivate Sub mand3_Click() Call find(a, Te*t1) Call find(c, Te*t2) Open App.Path & out52.t*t For Output As *1 Print *1, Te*t1.Te*t, Te*t2.Te*t Close *1End Sub 編寫適當?shù)氖录^程，使程序運行后，可以使圖像框閃爍，其閃爍速度可以通過滾動條來調節(jié)。提示：圖像框的閃爍可以通過圖像框交替地顯示和隱藏來實現(xiàn)。要求：程序中不得使用變量，每個事件過程中只能寫一條語句。注意：存盤時必須存放在考生文件夾中，工程文件名為“sit2.vbp，窗體文件名為“sjt2.frm。解答：Private Sub HScroll1_Scroll() Timer1.Interval = HScroll1.ValueEnd SubPrivate Sub Timer1_Timer() Image1.Visible = Not Image1.VisibleEnd Sub題目：在名為Form1的窗體上繪制兩個圖像框，名稱分別為