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

時間：2024-08-16 04:19:04 計算機等級我要投稿

相關(guān)推薦

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

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

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

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

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

　　Private Sub C1_Click()

　　T1 = "等級考試"

　　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的窗體上畫一個文本框，名稱為Text1;再畫一個命令按鈕，名稱為C1，標(biāo)題為“移動”(如圖所示)。請編寫適當(dāng)?shù)氖录^程，使得在運行時，單擊“移動”按鈕，則文本框水平移動到窗體的最左端。程序中不得使用任何變量。

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

　　Private Sub C1_Click()

　　Text1.Left = 0

　　End Sub

　　2.簡單應(yīng)用(2小題，每題20分，計40分)

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

　　Private Sub C1_Click()

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

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

　　End Sub

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

　　要求：修改列表框的適當(dāng)屬性，使得運行時可以多選，并去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其實現(xià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小題，計30分)

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

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

　　LiuMingliang (010)62781234 100082

　　…… …… ……

　　各字段的類型和長度為：

　　姓名(Name)：字符串 15

　　電話(Tel)：字符串 15

　　郵政編碼(Pos)長整型(Long)

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

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

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

　　LiDaqing (027)87348765 430065

　　ChenQingshan (022)26874321 300120

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

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

　　圖1 圖2

　　Private Sub Command1_Click()

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

　　RecNum = LOF(1) / Len(Pers)

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

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