1、VB上機(jī)試題全國計(jì)算機(jī)等級考試二級VB上機(jī)題庫(第一套)一、 根本操作題2小題，每題15分，共計(jì)30分1在名稱為Form1的窗體上畫一個文本框，其名稱為T1,寬度和高度分別為1400和400；在畫兩個按鈕，其名稱分別為C1和C2，標(biāo)題分別為“顯示和“擴(kuò)大，編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，如果單擊C1命令按鈕，那么在文本框中顯示“等級考試，如圖1所示，如果單擊C2命令按鈕，那么使文本框在高、寬方向上各增加一倍，文本框中的字體大小擴(kuò)大到原來的3倍，如圖2所示。注意：要求程序中不得使用變量。存盤時必須放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm。 圖1 圖2解析：大家

2、請注意，以下分析參加我個人的理解和方法，都已通過上機(jī)驗(yàn)證，有的題方法不止一種，大家可以和我互相交流，我的郵箱：hero_chenxisina ，QQ:313691262，也可從論壇討論bbs.ncre 這道題沒什么難度，主要考你窗體、按鈕及文本框的根本屬性，所以大家一定要熟練掌握常用控件的根本屬性。翻開VB(不用我說了吧)，新建一個工程標(biāo)準(zhǔn)的EXE，單擊控件面板的“TextBox控件也可雙擊，直接在窗體建立，在屬性面板中將“名稱修改為T1，“Width修改為1400，“Height修改為400。然后單擊控件面板的“CommanButton添加兩個命令按鈕，在屬性面板中將“名稱分別修改為C1和C

3、2，“Caption分別修改為顯示和擴(kuò)大。接下來雙擊顯示按鈕，進(jìn)入代碼編寫窗口，鍵入：按鈕的Click事件T1.text=等級考試雙擊擴(kuò)大按鈕，鍵入：按鈕的Click事件T1.width=T1.width+1400T1.Height=T1.Height+400T1.fontsize=T1.fontsize*3最后單擊保存按鈕，工程命名為sjt1.vbp,窗體命名為sjt1.frm。總結(jié)：這道題只要錯一點(diǎn)就沒有分，主要考大家仔細(xì)認(rèn)真及屬性設(shè)置的熟練程度，大家一定了解Caption、Text等屬性在不同控件含義是不同，有的控件有這個屬性，而那個控件沒有，名稱屬性是不能在運(yùn)行期間改變的等等。以上限于

4、時間原因，不能一一舉例、分析，我會在以后給出更多總結(jié)。2在名稱為Form1的窗體上畫一個命令按鈕，其名稱為C1,標(biāo)題為“轉(zhuǎn)換；然后再畫兩個文本框，其名稱分別為Text1和Text2，初始內(nèi)容為空白，編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，在Text1中輸入一行英文字符串，如果單擊命令按鈕，那么Text1文本框中的字母都變?yōu)樾懀鳷ext2的字符變?yōu)榇髮憽＠纾赥ext1中輸入Visual Basic Programming，那么單擊命令按鈕后，結(jié)果如下圖。要求：不得使用任何變量。注意：存盤時必須放在考生文件夾下，工程文件名為sjt2.vbp，窗提文件名為sjt2.frm。解析：大家請注意，以下分析

5、參加我個人的理解和方法，都已通過上機(jī)驗(yàn)證，有的題方法不止一種，大家可以和我互相交流，我的郵箱：hero_chenxisina ，QQ:313691262，也可從論壇討論bbs.ncre 這道題主要考查控件的屬性及字母大小寫轉(zhuǎn)換函數(shù)，新建一個工程，在窗體上添加一個CommandButton控件，將“名稱屬性修改為C1，“Caption屬性修改為轉(zhuǎn)換；再添加兩個“TextBox控件，將“名稱屬性分別修改為“Text1和“Text2,將“Text屬性中的內(nèi)容清空。接下來雙擊“轉(zhuǎn)換按鈕，進(jìn)入腳本編寫窗口，鍵入：按鈕的Click事件 Text1.text=LCase(Text1.text) Text2.

6、text=UCase(Text1.text)最后保存工程為sjt2.vbp,窗體為sjt2.frm.總結(jié)：大家一定要掌握VB中的常用函數(shù)數(shù)學(xué)函數(shù)、字符串函數(shù)、輸入輸出函數(shù)等及各種運(yùn)算符。二、 簡單應(yīng)用題2小題，每題20分，共計(jì)40分1.在考生目錄下有一個工程文件sjt3.vbp，相應(yīng)的窗體文件為sjt3.frm。包含所有控件和局部程序，如下圖。要求：1)利用屬性窗口向列表框添加四個工程：Visual Basic,Turbo C,C+,Java;2)請編寫適當(dāng)?shù)某绦蛲瓿梢韵鹿δ埽褐羞x擇列表框中的一項(xiàng)和單項(xiàng)選擇按鈕Option1,然后單擊“確定命令按鈕，那么文本框中顯示“XXX筆試；中選擇列表框中

7、的一項(xiàng)和單項(xiàng)選擇按鈕Option2，然后單擊“確定命令按鈕，那么文本框中的一項(xiàng)和單項(xiàng)選擇按鈕Option2，然后單擊“確定命令按鈕，那么文本框中顯示“XXX上機(jī)。其中“XXX是在列表框中所選擇的工程。注意：考生不得修改窗體文件中已經(jīng)存在的程序，退出程序時必須通過單擊窗體右上角的關(guān)閉按鈕。在結(jié)束程序運(yùn)行之前，必須至少進(jìn)行一次選擇操作包括列表框和單項(xiàng)選擇按鈕，否那么不得分。最后把修改的文件按原文件名存盤。解析：大家請注意，以下分析參加我個人的理解和方法，都已通過上機(jī)驗(yàn)證，有的題方法不止一種，大家可以和我互相交流，我的郵箱：hero_chenxisina ，QQ:313691262，也可從論壇討論b

8、bs.ncre 這道題考查大家列表框、單項(xiàng)選擇按鈕的屬性設(shè)置首先翻開工程sjt3.vbp，翻開窗體sjt3.frm，選擇其中的List1控件，在屬性面板中，在“List屬性中添加“Visual Basic、“Turbo C、“C+、“Java。雙擊窗體的“確定按鈕并輸入以下代碼：按鈕的Click事件If Option1.Value=True then Text1.Text=List1.List(List1.ListIndex)+Option1.CaptionEnd IfIf Option2.Value=True then Text1.Text=List1.List(List1.ListInde

9、x)+Option2.CaptionEnd If最后單擊保存按鈕。總結(jié)：列表框ListBox和組合框(ComboBox)、單項(xiàng)選擇按鈕(OptionButton)和復(fù)選框(CheckBox)這幾個控件的區(qū)別事件和屬性 。例如，同樣是Value事件，對于單項(xiàng)選擇按鈕來說，可以設(shè)置為True和Flase；而對于復(fù)選按鈕來說，設(shè)置的值為0,1,2。2在考生目錄下有一個工程文件sjt4.vbp，相應(yīng)的窗體文件為sjt4.frm。在窗體上已經(jīng)有一個命令按鈕。其名稱為Command1,標(biāo)題為“計(jì)算并輸出；程序運(yùn)行后，如果單擊命令按鈕，程序?qū)⒂?jì)算500以內(nèi)兩個數(shù)之間包括開頭和結(jié)尾的數(shù)所有連續(xù)數(shù)的和為1250

10、的正整數(shù)，并在窗體上顯示出來，這樣的數(shù)有多組，程序輸出每組開頭和結(jié)尾的正整數(shù)，并用“連接起來,如下圖，這個程序不完整，請把它補(bǔ)充完整。要求：去掉程序中的注釋符，把程序中的？該為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不得修改程序中的其他局部。最后把修改的文件按原文件存盤。解析：大家請注意，以下分析參加我個人的理解和方法，都已通過上機(jī)驗(yàn)證，有的題方法不止一種，大家可以和我互相交流，我的郵箱：hero_chenxisina ，QQ:313691262，也可從論壇討論bbs.ncre 這到題用到了循環(huán)語句和選擇語句題目給出的程序如下：一共三個空Private Sub Command1_Click() Dim

11、 i As Integer, j As Integer, iSum As Integer Print "連續(xù)和為1250的正整數(shù)是：" For i = 1 To 500 ' ? = 0 賦初值 For j = i To 500' iSum = ? 進(jìn)行累加 If iSum >= 1250 Then Exit For Next' If iSum = ? Then 和是否為1250 Print i; " " j End If NextEnd Sub答案為：1isum 2)j+iSum 3)1250總結(jié)：不要忘記將程序前面的去掉，

12、否那么還會認(rèn)為是注釋語句掌握選擇、循環(huán)語句，因?yàn)樵趯?shí)際問題中經(jīng)常用到三、 綜合應(yīng)用題1小題，計(jì)40分在窗體上畫一個文本框，名稱為Text1,初始內(nèi)容為空白，并設(shè)置多行顯示格式；然后再畫兩個命令按鈕，其名稱分別為Command1和Command2,標(biāo)題分別為“顯示和“保存，如下圖，編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，如果單擊“顯示命令按鈕，那么讀取考生 目錄下的in5.txt文件，并在文本框中顯示出來，該文件是一種用隨機(jī)存取方式建立的文件，共有5個記錄，要求按記錄號順序顯示全部記錄，每個記錄一行；如果單擊“保存命令按鈕，那么把所有記錄保存到考生目錄下的順序文件 out5.txt中。隨機(jī)文件

13、in5.txt中的每個記錄包括3個字段，分別為、性別和年齡，其名稱和長度分別為：Name 字符串 8Sex 字符串 4Age Integer其類型定義為：Private Type StudInfo Name As String*8 Sex As String*4 Age As IntegerEnd Type要求：1) 文件out5.txt以順序存取方式建立和保存。2) 存盤時必須放在考生目錄下，工程為sjt5.vbp，窗體文件名為sjt5.frm。解析：大家請注意，以下分析參加我個人的理解和方法，都已通過上機(jī)驗(yàn)證，有的題方法不止一種，大家可以和我互相交流，我的郵箱：hero_chenxisin

14、a ，QQ:313691262，也可從論壇討論bbs.ncre 這道題主要考查順序和隨機(jī)文件的讀、寫操作新建一個工程，在窗體上添加“TextBox控件，在屬性面板中，將“Text屬性設(shè)為空，把“名稱屬性設(shè)為“Text1，把“Multiline屬性設(shè)為True。然后再添加兩個“CommandButton控件，在屬性面板中將“名稱屬性分別改為“Command1、“Command2，將“Caption屬性分別設(shè)為“顯示、“保存。在窗體上單擊右鍵選擇“查看代碼選項(xiàng)，在代碼窗體中寫下如下代碼：Private Type StudInfo Name as string*8 Sex as string*4 A

15、ge as integerEnd TypeDim pers as studinfoDim recmum as integer顯示按鈕腳本：Private sub command1_click() Open app.path+in5.txt for random as #1 Len=len(pers) recnum=lof(1)/len(pers) Cls For i=1 to recnum Get #1,pers Text1.text=text1.text++pers.sex+str(pers.age)+vbcrlf Next i Close 1End sub保存按鈕腳本：P

16、rivate sub command2_click() Open app.path+out5.txt for output as #1 Print #1,text1.text Close #1End sub最后，單擊保存按鈕，工程保存為sjt5.vbp,窗體保存為sjt5.frm。全國計(jì)算機(jī)等級考試二級VB上機(jī)題庫(第二套)1. 根本操作2小題，每題15分，共計(jì)30分注意：下面出現(xiàn)的"考生文件夾"均為C:WEXAM00000000*請根據(jù)以下各小題的要求設(shè)計(jì)Visual Basic應(yīng)用程序包括界面和代碼。1在名稱為Form1，標(biāo)題為"窗體" 的窗體上畫一

17、個標(biāo)簽，其名稱為Label1，標(biāo)題為"等級考試"，BorderStyle屬性為1，且可以自動調(diào)整大小，再畫一個框架，名稱為Frame1，標(biāo)題為"科目"，如下圖。 注意：存盤時必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm。 *2在名稱為Form1的窗體上畫兩個圖像框，其名稱分別為Image1和Image2，Stretch屬性分別為True和False，然后通過屬性窗口在Image1中裝入一個圖形文件pic.jpg位于考生文件夾下,編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，如果單擊窗體，那么可去除Image1中的圖形，并把該圖形復(fù)

18、制到Image2中，如下圖。 注意：要求程序中不得使用變量。存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。 第一題主要考查了Frame控件屬性的使用及Label控件的使用。在Label與Frame控件中可通過使用Caption屬性來指定其要顯示的內(nèi)容，同時可通過Font屬性來設(shè)定要顯示文字的字體。第二題主要考查了Image控件的Stretch屬性的使用方法，通過指定Stretch可以指定圖片是否被拉伸，同時也考查了Image控件中圖片的去除方法，可用Set控件名.Picture=Nothing來去除Image控件中的圖片。2. 簡單應(yīng)用2小題，每題2

19、0分，計(jì)40分注意：下面出現(xiàn)的"考生文件夾"均為%USER%*1在考生文件夾下有一個工程文件sjt3.vbp，相應(yīng)的窗體文件為sjt3.frm。在名稱為Form1的窗體上有一個名稱為Text1的文本框和名稱為Command1、標(biāo)題為"確定"的命令按鈕，一個名稱為List1的列表框和兩個名稱分別為Option1和Option2、標(biāo)題分別為"添加"和"刪除"的單項(xiàng)選擇按鈕，如圖1所示。程序運(yùn)行后，如果選擇單項(xiàng)選擇按鈕Option1并在文本框中輸入一個字符串，然后單擊"確定"命令按鈕，那么把文本框中的

20、字符串添加到列表框中，并去除文本框，如圖2所示；如果選擇列表框中的一項(xiàng)和單項(xiàng)選擇按鈕Option2，并單擊"確定"命令按鈕，那么刪除列表框中所選擇的工程，如圖3所示；如果不選擇列表框中的工程，或者沒有在文本框中輸入字符串，那么單擊"確定"命令按鈕后，將顯示一個信息框"未輸入或未選擇工程"，如圖4所示。該程序不完整，請把它補(bǔ)充完整。要求：去掉程序中的注釋符，把程序中的 ？ 改為正確的內(nèi)容，使其能正確運(yùn)行，但不能修改程序中的其他局部。最后用原來的文件名保存工程文件和窗體文件。 *2在考生文件夾下有一個工程文件sjt4.vbp，相應(yīng)的窗體文

21、件為sjt4.frm。在窗體上有一個命令按鈕，其名稱為Command1，標(biāo)題為"計(jì)算"。程序運(yùn)行后，如果單擊命令按鈕，程序?qū)⒏鶕?jù)下面的公式計(jì)算的值：/4 = 1 - 1/3 + 1/5 - 1/7 + .所提供的窗體文件已給出了命令按鈕的事件過程，程序運(yùn)行結(jié)果如下圖。該程序不完整，請把它補(bǔ)充完整。要求：去掉程序中的注釋符，把程序中的 ？ 改為正確的內(nèi)容，使其能正確運(yùn)行，但不能修改程序中的其他局部。最后用原來的文件名保存工程文件和窗體文件。 第一小題：該題考查考生對ListBox控件的使用。列表框的AddItem方法用來在列表框中插入一行文本，其語法為：列表框名.AddIte

22、m 字符串 ,索引值如果省略"索引值"，那么字符串被添加到列表框的尾部；使用"索引值"可以將字符串插入列表框中的指定位置。"索引值"從0開始，到列表項(xiàng)總數(shù)-1止。列表框的RemoveItem方法用來刪除列表框中的指定工程，其語法為：列表框名.RemoveItem 索引值列表框的ListIndex屬性用來設(shè)置或返回列表框中當(dāng)前選中的列表項(xiàng)。第二小題：該題考查了Do-Loop循環(huán)結(jié)構(gòu)語句和公式計(jì)算的算法實(shí)現(xiàn)，相關(guān)程序如下：Private Sub Command1_Click() Dim Result As Double Dim Sign

23、As Integer Dim i As Integer Result = 0 Sign = 1 i = 1 Do Result = Result + Sign / i i = i + 2 Sign = -Sign Loop While 1 / i >= 0.0001 Text1.Text = Result * 4End Sub3. 綜合應(yīng)用1小題，計(jì)30分注意：下面出現(xiàn)的"考生文件夾"均為%USER%在考生文件夾下有一個工程文件sjt5.vbp，相應(yīng)的窗體文件為sjt5.frm。窗體外觀如圖1所示。三個命令按鈕的名稱分別為Command1、Command2和Comma

24、nd3，標(biāo)題分別為"讀取數(shù)據(jù)"、"首字母大寫"和"存盤"。程序運(yùn)行后，如果單擊"讀取數(shù)據(jù)"命令按鈕，那么讀取考生文件夾下in5.txt中的全部文本文本中的單詞與單詞之間或標(biāo)點(diǎn)符號與單詞之間均用一個空格分開，并在文本框中顯示出來，如圖2所示； 如果單擊"首字母大寫"命令按鈕，那么將文本框中每個單詞的第一個字母變?yōu)榇髮懽帜溉绻瓉硪咽谴髮懽帜改敲床桓淖儯⒃谖谋究蛑酗@示出來，如圖3所示；如果單擊"存盤"命令按鈕，那么把文本框中的內(nèi)容首字母大寫后保存到考生文件夾下的文件out5.t

25、xt中。窗體文件中已給出了局部程序，請把它補(bǔ)充完整，使其實(shí)現(xiàn)上述功能。 要求：1編寫"讀取數(shù)據(jù)"命令按鈕的Click事件過程。2去掉"首字母大寫"命令按鈕和"存盤"命令按鈕事件過程中的注釋符，把程序中的 ？改為正確的內(nèi)容，使其能正確運(yùn)行。3用原來的文件名保存工程文件和窗體文件。此題主要考查了文件的操作，文件中字符串的處理方法。主要代碼如下：Dim s As StringPrivate Sub Command1_Click() Open "in5.txt" For Input As #1 s = Input$(LOF

26、(1), 1) Close #1 Text1.Text = sEnd SubPrivate Sub Command2_Click() Dim oldSen As String Dim newSen As String Dim ch As String Dim lastCh As String oldSen = Text1.Text strlen = Len(oldSen) lastCh = Left(oldSen, 1) For i = 1 To strlen ch = Mid(Text1.Text, i, 1) If lastCh = " " Then ch = UCas

27、e(ch) End If newSen = newSen & ch lastCh = ch Next i Text1.Text = newSenEnd SubPrivate Sub Command3_Click() Open "out5.txt" For Output As #1 Write #1, Text1.Text Close #1End Sub答案：Dim a(10) As IntegerDim b(10) As IntegerDim c(10) As IntegerPrivate Sub Command1_Click()   

28、 Open App.Path & "dataA.txt" For Input As #1    Open App.Path & "dataB.txt" For Input As #2    For i = 0 To 9        Input #1, a(i)        Input #2, b(i)   

29、Next    Close #1, #2End SubPrivate Sub find(x() As Integer, t As Control)  Dim i As Integer, max As Integer  max = x(1)  For i = 2 To 10     If max < x(i) Then max = x(i)  Next i  t.Text = maxEnd SubPrivate Sub Command2_Click() 

30、0;  Dim i As Integer    For i = 1 To 10       c(i) = a(i) + b(i)    Next i    Open App.Path & "out51.txt" For Output As #1    For i = 0 To 9        Print #1, c(i)    Next    Close #1End Sub