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
