《全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB上機(jī)題庫(kù)(第一套)Visual Basic 復(fù)習(xí)試題 VB 復(fù)習(xí)資料 大學(xué)生必備》由會(huì)員分享，可在線閱讀，更多相關(guān)《全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB上機(jī)題庫(kù)(第一套)Visual Basic 復(fù)習(xí)試題 VB 復(fù)習(xí)資料 大學(xué)生必備（6頁(yè)珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。

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

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

3、鈕，在屬性面板中將“名稱”分別修改為C1和C2，“Caption”分別修改為顯示和擴(kuò)大。 接下來雙擊顯示按鈕，進(jìn)入代碼編寫窗口，鍵入：（按鈕的Click事件） T1.text=”等級(jí)考試” 雙擊擴(kuò)大按鈕，鍵入：（按鈕的Click事件） T1.width=T1.width+1400 T1.Height=T1.Height+400 T1.fontsize=T1.fontsize*3 最后單擊保存按鈕，工程命名為sjt1.vbp,窗體命名為sjt1.frm。 總結(jié)：這道題只要錯(cuò)一點(diǎn)就沒有分，主要考大家仔細(xì)認(rèn)真及屬性設(shè)置的熟練程度，大家一定了解Caption、Text等屬性在不同控

4、件含義是不同，有的控件有這個(gè)屬性，而那個(gè)控件沒有，名稱屬性是不能在運(yùn)行期間改變的等等。以上限于時(shí)間原因，不能一一舉例、分析，我會(huì)在以后給出更多總結(jié)。 2．在名稱為Form1的窗體上畫一個(gè)命令按鈕，其名稱為C1,標(biāo)題為“轉(zhuǎn)換”；然后再畫兩個(gè)文本框，其名稱分別為Text1和Text2，初始內(nèi)容為空白，編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，在Text1中輸入一行英文字符串，如果單擊命令按鈕，則Text1文本框中的字母都變?yōu)樾?，而Text2的字符變?yōu)榇髮?。例如，在Text1中輸入Visual Basic Programming，則單擊命令按鈕后，結(jié)果如圖所示。 要求： 不得使用任何變量

5、。 注意： 存盤時(shí)必須放在考生文件夾下，工程文件名為sjt2.vbp，窗提文件名為sjt2.frm。 解析：（大家請(qǐng)注意，以下分析加入我個(gè)人的理解和方法，都已通過上機(jī)驗(yàn)證，有的題方法不止一種，大家可以和我互相交流，我的郵箱：） 這道題主要考查控件的屬性及字母大小寫轉(zhuǎn)換函數(shù)，新建一個(gè)工程，在窗體上添加一個(gè)”CommandButton”控件，將“名稱”屬性修改為C1，“Caption”屬性修改為轉(zhuǎn)換；再添加兩個(gè)“TextBox”控件，將“名稱”屬性分別修改為“Text1”和“Text2”,將“Text”屬性中的內(nèi)容清空。 接下來雙擊“轉(zhuǎn)換”按鈕，進(jìn)入腳本編寫窗口，鍵入：（按鈕的Cli

6、ck事件） Text1.text=LCase(Text1.text) Text2.text=UCase(Text1.text) 最后保存工程為sjt2.vbp,窗體為sjt2.frm. 總結(jié)：大家一定要掌握VB中的常用函數(shù)（數(shù)學(xué)函數(shù)、字符串函數(shù)、輸入輸出函數(shù)等）及各種運(yùn)算符。 二、 簡(jiǎn)單應(yīng)用題（2小題，每小題20分，共計(jì)40分） 1.在考生目錄下有一個(gè)工程文件sjt3.vbp，相應(yīng)的窗體文件為sjt3.frm。包含所有控件和部分程序，如圖所示。 要求： 1)利用屬性窗口向列表框添加四個(gè)項(xiàng)目：Visual Bas

7、ic,Turbo C,C++,Java; 2)請(qǐng)編寫適當(dāng)?shù)某绦蛲瓿梢韵鹿δ埽寒?dāng)選擇列表框中的一項(xiàng)和單選按鈕Option1,然后單擊“確定”命令按鈕，則文本框中顯示“XXX筆試”；當(dāng)選擇列表框中的一項(xiàng)和單選按鈕Option2，然后單擊“確定”命令按鈕，則文本框中的一項(xiàng)和單選按鈕Option2，然后單擊“確定”命令按鈕，則文本框中顯示“XXX上機(jī)”。其中“XXX”是在列表框中所選擇的項(xiàng)目。 注意： 考生不得修改窗體文件中已經(jīng)存在的程序，退出程序時(shí)必須通過單擊窗體右上角的關(guān)閉按鈕。在結(jié)束程序運(yùn)行之前，必須至少進(jìn)行一次選擇操作（包括列表框和單選按鈕），否則不得分。最后把修改的文件按原文件名存盤。

8、 解析：（大家請(qǐng)注意，以下分析加入我個(gè)人的理解和方法，都已通過上機(jī)驗(yàn)證，有的題方法不止一種，大家可以和我互相交流，我的郵箱：） 這道題考查大家列表框、單選按鈕的屬性設(shè)置 首先打開工程sjt3.vbp，打開窗體sjt3.frm，選擇其中的List1控件，在屬性面板中，在“List”屬性中添加“Visual Basic”、“Turbo C”、“C++”、“Java”。雙擊窗體的“確定”按鈕并輸入以下代碼：（按鈕的Click事件） If Option1.Value=True then End If If Option2.Value=True then Text1.Tex

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

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

11、 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 Ne

12、xt ' If iSum = ? Then 和是否為1250 Print i; " ～ "; j End If Next End Sub 答案為： 1）isum 2)j+iSum 3)1250 總結(jié)：不要忘記將程序前面的‘去掉，否則還會(huì)認(rèn)為是注釋語句 掌握選擇、循環(huán)語句，因?yàn)樵趯?shí)際問題中經(jīng)常用到 三、 綜合應(yīng)用題（1小題，計(jì)40分） 在窗體上畫一個(gè)文本框，名稱為Text1,初始內(nèi)容為空白，并設(shè)置多行顯示格式；然

13、后再畫兩個(gè)命令按鈕，其名稱分別為Command1和Command2,標(biāo)題分別為“顯示”和“保存”，如圖所示，編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，如果單擊“顯示”命令按鈕，則讀取考生 目錄下的in5.txt文件，并在文本框中顯示出來，該文件是一種用隨機(jī)存取方式建立的文件，共有5個(gè)記錄，要求按記錄號(hào)順序顯示全部記錄，每個(gè)記錄一行；如果單擊“保存”命令按鈕，則把所有記錄保存到考生目錄下的順序文件?out5.txt中。隨機(jī)文件in5.txt中的每個(gè)記錄包括3個(gè)字段，分別為姓名、性別和年齡，其名稱和長(zhǎng)度分別為： Name 字符串 8 Sex 字符串 4 Age Integer 其類型定義為： Pr

14、ivate Type StudInfo Name As String*8 Sex As String*4 Age As Integer End Type 要求： 1) 文件out5.txt以順序存取方式建立和保存。 2) 存盤時(shí)必須放在考生目錄下，工程為sjt5.vbp，窗體文件名為sjt5.frm。 解析：（大家請(qǐng)注意，以下分析加入我個(gè)人的理解和方法，都已通過上機(jī)驗(yàn)證，有的題方法不止一種，大家可以和我互相交流，我的郵箱：） 這道題主要考查順序和隨機(jī)文件的讀、寫操作 新建一個(gè)工程，在窗體上添加“TextBox”控件，在屬性

15、面板中，將“Text”屬性設(shè)為空，把“名稱”屬性設(shè)為“Text1”，把“Multiline”屬性設(shè)為True。然后再添加兩個(gè)“CommandButton”控件，在屬性面板中將“名稱”屬性分別改為“Command1”、“Command2”，將“Caption”屬性分別設(shè)為“顯示”、“保存”。在窗體上單擊右鍵選擇“查看代碼”選項(xiàng)，在代碼窗體中寫下如下代碼： Private Type StudInfo Name as string*8 Sex as string*4 Age as integer End Type Dim pers as studinfo Dim

16、recmum as integer 顯示按鈕腳本： Private sub command1_click() Open app.path+”” 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.name+pers.sex+str(pers.age)+vbcrlf Next i Close 1 End sub 保存按鈕腳本： Private sub command2_click() Open app.path+”” for output as #1 P Close #1 End sub 最后，單擊保存按鈕，工程保存為sjt5.vbp,窗體保存為sjt5.frm。 總結(jié)：VB考試的最后大題許多都是隨機(jī)和順序文件的讀寫操作，如果大家想得優(yōu)秀的話，就一定要好好掌握。 Vbcrlf為回車換行操作，可以自動(dòng)換行，相當(dāng)于Chr$(13)+chr$(10)