2016年第二次計算機等級考試9月即將開始了，yjbys為幫助大家鞏固計算機基礎知識，下面為大家分享的是計算機vb二級複習試題，同學們趕緊來學習吧!
1.基本操作(2小題，每小題15分，共計30分)
(1)在名稱為Form1的窗體上畫一個文字框，其名稱為T1，寬度和高度分別為1400和400;再畫兩個命令按鈕，其名稱分別為C1和C2，標題分別為“顯示”和“擴大”，編寫適當的事件過程。程式執行後，如果單擊C1命令按鈕，則在文字框中顯示“等級考試”，如圖1所示;如果單擊C2命令按鈕，則使文字框在高、寬方向上各增加一倍，文字框中的字型大小擴大到原來的3倍，如圖2所示。
Private Sub C1_Click()
T1 = "等級考試"
End Sub
Private Sub C2_Click()
ht = 2 * ht
h = 2 * h
Size = 3 * Size
End Sub
(2)在名稱為Form1的窗體上畫一個文字框，名稱為Text1;再畫一個命令按鈕，名稱為C1，標題為“移動”(如圖所示)。請編寫適當的事件過程，使得在執行時，單擊“移動”按鈕，則文字框水平移動到窗體的最左端。程式中不得使用任何變數。
*注意： 存檔時必須存放在考生資料夾下，工程檔名為，窗體檔名為。
Private Sub C1_Click()
= 0
End Sub
2.簡單應用(2小題，每題20分，計40分)
(1)在名稱為Form1的窗體上畫二個圖片框，名稱分別為P1、P2，高度均為1900，寬度均為1700，通過屬性視窗把圖片檔案pic1.bmp放入P1中，把圖片檔案pic2.jpg放入P2中;再畫一個命令按鈕，名稱為C1，標題為“交換圖片”(如圖所示)。編寫適當的事件過程，使得在執行時，如果單擊命令按鈕，則在P1中顯示Pic2.jpg，在P2中顯示Pic1.bmp。程式中不得使用變數，也不能使用第三個圖片框。
Private Sub C1_Click()
ure = LoadPicture("pic2.jpg")
ure = LoadPicture("pic1.bmp")
End Sub
(2)在考生資料夾下有一個工程檔案，要求程式執行後，如果按下Ctrl的同時單擊多個列表框中的項，則可同時選擇這些項。而如果單擊“顯示”按鈕，則在窗體上輸出所有選中的列表項(如圖所示)。
要求： 修改列表框的適當屬性，使得執行時可以多選，並去掉程式中的註釋符，把程式中的?改為正確的內容，使其實現上述功能，但不得修改程式中的'其他部分。最後把修改後的程式以原來的檔名存檔。
Private Sub C1_Click()
'題目
For i = 0 To Count - 1
If cted(i) = True Then
Print (i)
End If
Next
End Sub
'答案
'0
'4 或 Count-1
'Selected(i)
3.綜合應用(1小題，計30分)
在考生的資料夾下有一個工程檔案，相應的窗體檔案為.。在窗體上有兩個命令按鈕，其名稱分別為Command1和Command2，標題分別為“寫檔案”和“讀檔案”，如圖1所示。其中“寫檔案”命令按鈕事件過程用來建立一個通訊錄，以隨機存取方式儲存到檔案中;而“讀檔案”命令按鈕事件過程用來讀出檔案中的每個記錄，並在窗體上顯示出來。通訊錄中的每個記錄由3個欄位組成，結構如下：
姓名(Name) 電話(Tel) 郵政編碼(Pos)
LiuMingliang (010)62781234 100082
…… …… ……
各欄位的型別和長度為：
姓名(Name)： 字串 15
電話(Tel)： 字串 15
郵政編碼(Pos)長整型(Long)
程式執行後，如果單擊“寫檔案”命令按鈕，則可以隨機存取方式開啟檔案，並根據提示向檔案中新增記錄，每寫入一個記錄後，都要詢問是否再輸入新記錄，回答“Y”(或“y”)則輸入新記錄，回答“N”(或“n”)則停止輸入;如果單擊“讀檔案”命令按鈕，則可以隨機存取方式開啟檔案，讀出檔案中的全部記錄，並在窗體上顯示出來，如圖所2所示。該程式不完整，請把它補充完整。
要求： 1)去掉程式中的註釋符，把程式中的?改為正確的內容，使其能正確執行，但不能修改程式中的其他部分。
2)檔案中已有3個記錄(如圖2所示)，請執行程式，單擊“寫檔案”命令按鈕，向檔案中新增以下兩個記錄(全部採用西文方式)：
LiDaqing (027)87348765 430065
ChenQingshan (022)26874321 300120
3)執行程式，單擊“讀檔案”命令按鈕，在窗體上顯示全部記錄(共5個)。
4)用原來的檔名儲存工程檔案和窗體檔案。
圖1 圖2
Private Sub Command1_Click()
Open "" For Random As #1 Len = Len(Pers)
RecNum = LOF(1) / Len(Pers)
Do
= InputBox("請輸入姓名")
= InputBox("請輸入電話")
= InputBox("請輸入郵政編碼")
RecNum = RecNum + 1
' RecNum = ?
Put #1, RecNum, Pers
' Put #1, ?
asp = InputBox("More(Y/N)?")
Loop While UCase(asp) <> "N"
' Loop While UCase(asp) ?
Close 1
End Sub
Private Sub Command2_Click()
Open "" For Random As #1 Len = Len(Pers)
RecNum = LOF(1) / Len(Pers)
' RecNum = ?
Cls
For i = 1 To RecNum
Get #1, i, Pers
' Get #1, ?
Print ; ;
Next i
Close 1
End Sub
