計(jì)算機(jī)vb二級(jí)復(fù)習(xí)試題及答案

時(shí)間：2024-08-16 04:19:04 計(jì)算機(jī)等級(jí) 我要投稿

相關(guān)推薦

2016年計(jì)算機(jī)vb二級(jí)復(fù)習(xí)試題及答案

　　2016年第二次計(jì)算機(jī)等級(jí)考試9月即將開(kāi)始了，yjbys為幫助大家鞏固計(jì)算機(jī)基礎(chǔ)知識(shí)，下面為大家分享的是計(jì)算機(jī)vb二級(jí)復(fù)習(xí)試題，同學(xué)們趕緊來(lái)學(xué)習(xí)吧!

2016年計(jì)算機(jī)vb二級(jí)復(fù)習(xí)試題及答案

　　1.基本操作(2小題，每小題15分，共計(jì)30分)

　　(1)在名稱為Form1的窗體上畫(huà)一個(gè)文本框，其名稱為T(mén)1，寬度和高度分別為1400和400;再畫(huà)兩個(gè)命令按鈕，其名稱分別為C1和C2，標(biāo)題分別為“顯示”和“擴(kuò)大”，編寫(xiě)適當(dāng)?shù)氖录^(guò)程。程序運(yùn)行后，如果單擊C1命令按鈕，則在文本框中顯示“等級(jí)考試”，如圖1所示;如果單擊C2命令按鈕，則使文本框在高、寬方向上各增加一倍，文本框中的字體大小擴(kuò)大到原來(lái)的3倍，如圖2所示。

　　Private Sub C1_Click()

　　T1 = "等級(jí)考試"

　　End Sub

　　Private Sub C2_Click()

　　T1.Height = 2 * Me.T1.Height

　　T1.Width = 2 * T1.Width

　　T1.FontSize = 3 * Form1.T1.FontSize

　　End Sub

　　(2)在名稱為Form1的窗體上畫(huà)一個(gè)文本框，名稱為T(mén)ext1;再畫(huà)一個(gè)命令按鈕，名稱為C1，標(biāo)題為“移動(dòng)”(如圖所示)。請(qǐng)編寫(xiě)適當(dāng)?shù)氖录^(guò)程，使得在運(yùn)行時(shí)，單擊“移動(dòng)”按鈕，則文本框水平移動(dòng)到窗體的最左端。程序中不得使用任何變量。

　　*注意：存盤(pán)時(shí)必須存放在考生文件夾下，工程文件名為sjt12.vbp，窗體文件名為sjt12.frm。

　　Private Sub C1_Click()

　　Text1.Left = 0

　　End Sub

　　2.簡(jiǎn)單應(yīng)用(2小題，每題20分，計(jì)40分)

　　(1)在名稱為Form1的窗體上畫(huà)二個(gè)圖片框，名稱分別為P1、P2，高度均為1900，寬度均為1700，通過(guò)屬性窗口把圖片文件pic1.bmp放入P1中，把圖片文件pic2.jpg放入P2中;再畫(huà)一個(gè)命令按鈕，名稱為C1，標(biāo)題為“交換圖片”(如圖所示)。編寫(xiě)適當(dāng)?shù)氖录^(guò)程，使得在運(yùn)行時(shí)，如果單擊命令按鈕，則在P1中顯示Pic2.jpg，在P2中顯示Pic1.bmp。程序中不得使用變量，也不能使用第三個(gè)圖片框。

　　Private Sub C1_Click()

　　P1.Picture = LoadPicture("pic2.jpg")

　　P2.Picture = LoadPicture("pic1.bmp")

　　End Sub

　　(2)在考生文件夾下有一個(gè)工程文件sjt22.vbp，要求程序運(yùn)行后，如果按下Ctrl的同時(shí)單擊多個(gè)列表框中的項(xiàng)，則可同時(shí)選擇這些項(xiàng)。而如果單擊“顯示”按鈕，則在窗體上輸出所有選中的列表項(xiàng)(如圖所示)。

　　要求：修改列表框的適當(dāng)屬性，使得運(yùn)行時(shí)可以多選，并去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不得修改程序中的其他部分。最后把修改后的程序以原來(lái)的文件名存盤(pán)。

　　Private Sub C1_Click()

　　'題目

　　For i = 0 To Me.l1.ListCount - 1

　　If l1.Selected(i) = True Then

　　Print l1.List(i)

　　End If

　　End Sub

　　'答案

　　'4 或 L1.ListCount-1

　　'Selected(i)

　　3.綜合應(yīng)用(1小題，計(jì)30分)

　　在考生的文件夾下有一個(gè)工程文件sjt31.vbp，相應(yīng)的窗體文件為sjt31.frm.。在窗體上有兩個(gè)命令按鈕，其名稱分別為Command1和Command2，標(biāo)題分別為“寫(xiě)文件”和“讀文件”，如圖1所示。其中“寫(xiě)文件”命令按鈕事件過(guò)程用來(lái)建立一個(gè)通信錄，以隨機(jī)存取方式保存到文件t5.txt中;而“讀文件”命令按鈕事件過(guò)程用來(lái)讀出文件t5.txt中的每個(gè)記錄，并在窗體上顯示出來(lái)。通信錄中的每個(gè)記錄由3個(gè)字段組成，結(jié)構(gòu)如下：

　　姓名(Name) 電話(Tel) 郵政編碼(Pos)

　　LiuMingliang (010)62781234 100082

　　…… …… ……

　　各字段的類型和長(zhǎng)度為：

　　姓名(Name)：字符串 15

　　電話(Tel)：字符串 15

　　郵政編碼(Pos)長(zhǎng)整型(Long)

　　程序運(yùn)行后，如果單擊“寫(xiě)文件”命令按鈕，則可以隨機(jī)存取方式打開(kāi)文件t5.txt，并根據(jù)提示向文件中添加記錄，每寫(xiě)入一個(gè)記錄后，都要詢問(wèn)是否再輸入新記錄，回答“Y”(或“y”)則輸入新記錄，回答“N”(或“n”)則停止輸入;如果單擊“讀文件”命令按鈕，則可以隨機(jī)存取方式打開(kāi)文件t5.txt，讀出文件中的全部記錄，并在窗體上顯示出來(lái)，如圖所2所示。該程序不完整，請(qǐng)把它補(bǔ)充完整。

　　要求： 1)去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其能正確運(yùn)行，但不能修改程序中的其他部分。

　　2)文件t5.txt中已有3個(gè)記錄(如圖2所示)，請(qǐng)運(yùn)行程序，單擊“寫(xiě)文件”命令按鈕，向文件t5.txt中添加以下兩個(gè)記錄(全部采用西文方式)：

　　LiDaqing (027)87348765 430065

　　ChenQingshan (022)26874321 300120

　　3)運(yùn)行程序，單擊“讀文件”命令按鈕，在窗體上顯示全部記錄(共5個(gè))。

　　4)用原來(lái)的文件名保存工程文件和窗體文件。

　　圖1 圖2

　　Private Sub Command1_Click()

　　Open "t5.txt" For Random As #1 Len = Len(Pers)

　　RecNum = LOF(1) / Len(Pers)

　　Pers.Name = InputBox("請(qǐng)輸入姓名")

　　Pers.Tel = InputBox("請(qǐng)輸入電話")