2016年計算機二級vb試題及答案

來源：文萃谷 1.95W

為幫助同學們更好複習九月的計算機等級考試，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

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

Else

led = True

End If

ElseIf which = 2 Then

' ElseIf which = ? Then

If = "" Then

led = False

Else

led = True

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試題庫及答案

VB 試題計算機二級