為幫助同學們更好複習九月的計算機等級考試，yjbys小編為大家分享最新計算機vb考試試題及答案如下，快來瞧瞧吧!
1.基本操作(2小題，每小題15分，共計30分)
(1)在名稱為Form1的窗體上畫一個標籤，其名稱為Label1，標題為“等級考試”，BorderStyle屬性為1，可以根據標題自動調整大小;然後再畫一個命令按鈕，其名稱和標題均為Command1，編寫適當的事件過程。程式執行後，其介面如圖1所示，此時如果單擊命令按鈕，則標籤消失，同時用標籤的標題作為命令按鈕的標題，如圖2所示。
注意：
存檔時必須存放在考生資料夾下，工程檔名為，窗體檔名為。
Private Sub Command1_Click()
ion = Label1
ble = False
End Sub
(2)在名稱為Form1的窗體上畫兩個文字框，名稱分別為Text1、Text2，再畫兩個命令按鈕，名稱分別為Command1、Command2，標題分別為“複製”、“刪除”。程式執行時，在Text1中輸入一串字元，並用滑鼠託拽的方法選擇幾個字元，然後單擊“複製”按鈕，則被選中的字元被複制到Text2中(如圖所示)。若單擊“刪除”按鈕，則被選擇的字元從Text1中被刪除。請編寫兩個命令按鈕的Click過程完成上述功能。
注意： 要求程式中不得使用變數，事件過程中只能寫一條語句。
存檔時必須存放在考生資料夾下，工程檔名為，窗體檔名為。
Private Sub Command1_Click()
'Text2 = ext
'或
= ext
End Sub
Private Sub Command2_Click()
ext = ""
End Sub
2.簡單應用(2小題，每題20分，計40分)
(1)在考生目錄下有一個工程檔案，包含了所有控制元件和部分程式，如圖所示。
要求： 1)利用屬性視窗設定適當的屬性，使Text1、Text2中資料右對齊;
2)請編寫適當的程式完成以下功能：在Text1中輸入40(度數)，選擇組合框中的一個專案，單擊“計算”按鈕，則根據所選擇的專案，計算出相應的正弦、餘弦值(保留3位小數，第4位截去，π取3.14159)，並顯示在Text2中。
注意： 考生不得修改窗體檔案中已經存在的程式，在結束程式執行之前，必須進行一種計算;在Text1中輸入的必須是40;必須用窗體右上角的關閉按鈕結束程式，否則無成績。最後，按原檔名存檔。
Private Sub Command1_Click()
Const PI = 3.14159
Select Case
Case "sin": a = Sin(CInt() * PI / 180)
Case "cos": a = Cos(CInt() * PI / 180)
Case "tg": a = Tan(CInt() * PI / 180)
Case "ctg": a = 1 / Tan(CInt() * PI / 180)
' Case "tg": a = Sin(CInt() * PI / 180) / Cos(CInt() * PI / 180)
' Case "ctg": a = Cos(CInt() * PI / 180) / Sin(CInt() * PI / 180)
End Select
Text2 = Int(a * 1000) / 1000
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call mysub
End Sub
Sub mysub()
Open "" For Output As #1
Print #1, , ,
Close #1
End Sub
(2)在考生資料夾下有一個工程檔案，窗體上已經畫出所有控制元件。程式的作用是構成一個簡單的時鐘。剛執行時，不計時，選擇一個單選按鈕後，再單擊“計時”按鈕，則開始計時，並根據所選的單選按鈕決定是每秒顯示一次秒數，還是每10秒顯示一次秒數。Text2用於顯示秒，如圖所示。窗體檔案中已經給出了程式，但不完整，請去掉程式中的註釋符，把程式中的?改為正確的.內容。
Dim num
Private Sub Command1_Click()
led = True
End Sub
Private Sub Timer1_Timer()
num = num + 1
' num = ?
If num < 60 Then
If e = True Then
= num
Else
If (num / 10 = CInt(Int(num / 10))) Then
= + 10
' = + ?
End If
End If
Else
= 0
num = 0
= + 1
' = + ?
End If
End Sub
3.綜合應用(1小題，計30分)
在考生資料夾下有一個工程檔案，其名稱為Form1的窗體上已有三個文字框Text1、Text2、Text3，以及程式。請完成以下工作：
1)在屬性視窗中修改Text3的適當屬性，使其在執行時不顯示，窗體如圖所示;
2)建立下拉式選單，如下表所示：
標題 | 名稱 |
編輯 | Edit |
剪下 | Cut |
複製 | Copy |
貼上 | Paste |
3)窗體檔案中給出了所有事件過程，但不完整，請去掉程式中的註釋符，把程式中的?改為正確的內容。以便實現以下功能：當游標所在的文字框中無內容時，“剪下”、“複製”不可用，否則可以把該文字框中的內容剪下或複製到Text3中;若Text3中無內容，則“貼上”不能用，否則可以把Text3中的內容貼上在游標所在的文字框中的內容之後。
Dim which As Integer
Private Sub copy_Click()
If which = 1 Then
=
ElseIf which = 2 Then
=
End If
End Sub
Private Sub cut_Click()
If which = 1 Then
=
= ""
ElseIf which = 2 Then
=
= ""
End If
End Sub
Private Sub edit_Click()
If which = 1 Then
' If which = ? Then
If = "" Then
led = False
led = False
Else
led = True
led = True
End If
ElseIf which = 2 Then
' ElseIf which = ? Then
If = "" Then
led = False
led = False
Else
led = True
led = True
End If
End If
If = "" Then
led = False
Else
led = True
End If
End Sub
Private Sub paste_Click()
If which = 1 Then
= Text1 +
' = ?
ElseIf which = 2 Then
= Text2 +
' = ?
End If
End Sub
Private Sub Text1_GotFocus() '本過程的作用是：當焦點在Text1中時，which = 1
which = 1
End Sub
Private Sub Text2_GotFocus() '本過程的作用是：當焦點在Text2中時，which = 2
which = 2
End Sub
Private Sub Text3_Change()
End Sub
更多計算機二級相關試題推薦：
1.2016計算機二級VB考試試題
2.2016年計算機二級VB考試衝刺題（含答案）
3.2016年計算機二級考試vb題庫及答案
4.2016年計算機二級vb試題及答案
5.2016計算機二級考試vb複習試題及答案
6.2016年計算機二級《VB》備考練習題及答案
7.2016年全國計算機二級vb考試題庫及答案
8.2016年計算機二級VB模擬試題及答案
9.2016年計算機二級vb試題庫
10.2016年計算機二級vb試題庫及答案
