計(jì)算機(jī)二級VB上機(jī)試題及答案

時間：2023-03-14 07:02:11 計(jì)算機(jī)等級我要投稿

相關(guān)推薦

　　在平時的學(xué)習(xí)、工作中，許多人都需要跟試題打交道，試題是命題者按照一定的考核目的編寫出來的。你知道什么樣的試題才能切實(shí)地幫助到我們嗎？下面是小編為大家收集的計(jì)算機(jī)二級VB上機(jī)試題及答案，僅供參考，希望能夠幫助到大家。

計(jì)算機(jī)二級VB上機(jī)試題及答案

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

　　注意：下面出現(xiàn)的“考生文件夾”均為%USER%

　　請根據(jù)以下各小題的要求設(shè)計(jì)Visual Basic應(yīng)用程序(包括界面和代碼)。

　　(1)在名稱為Form1，標(biāo)題為“框架”的窗體上畫一個名稱為Frame1，且沒有標(biāo)題的框架�？蚣軆�(nèi)含有二個單選按鈕，名稱分別為Opt1 和Opt2、標(biāo)題分別為“字體”、“大小”。

　　注意：

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

　　解題思路：

　　啟動Visual Basic系統(tǒng)，創(chuàng)建一個Form1窗體。

　　在該窗體上畫一個框架控件，通過其屬性窗口將名稱設(shè)為Frame1。在框架內(nèi)畫二個單選按鈕控件，通過其屬性窗口將名稱分別為Opt1和Opt2、標(biāo)題(Caption屬性)分別設(shè)為“字體”和“大小”。激活Form1窗體，通過其屬性窗口將標(biāo)題(Caption屬性)設(shè)為“框架”。

　　參考文件：c:wexam26990001hlpsys參考答案sjt1.vbp、sjt1.frm、sjt1.vbw

　　請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt1.vbp文件并運(yùn)行。

　　(2)考生文件夾下的工程文件sjt2.vbp中有一個由直線Line1、Line2和Line3組成的三角形，直線Line1、Line2和Line3的坐標(biāo)值如下所示：

　　名稱 X1 Y1 X2 Y2

　　Line1 600 1200 1600 300

　　Line2 600 1200 2600 1200

　　Line3 1600 300 2600 1200

　　要求畫一條直線Line4以構(gòu)成三角形的高，且該直線的初始狀態(tài)為不可見。再畫二個命令按鈕，名稱分別是Cmd1、Cmd2，標(biāo)題分別為“顯示高”、“隱藏高”，如圖所示。

　　請編寫適當(dāng)?shù)氖录^程使得在運(yùn)行時，單擊“顯示高”按鈕，則顯示三角形的高;單擊“隱藏高”按鈕，則隱藏三角形的高。

　　注意：

　　要求程序中不得使用變量，每個事件過程只能寫一條語句。不得修改已經(jīng)存在的控件，最后將修改后的文件按原文件名存盤。

　　解題思路：

　　啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt2.vbp，相應(yīng)的窗體文件名為sjt2.frm。

　　由于所提供的窗體控件不完整，需在該窗體上畫一根直線控件，通過其屬性窗口將名稱設(shè)為Line4，點(diǎn)X1屬性設(shè)為1600，點(diǎn)X2屬性分別設(shè)為1600，點(diǎn)Y1屬性設(shè)為300，點(diǎn)Y2屬性設(shè)為1200，Visible屬性設(shè)為False。畫二個命令按鈕控件，通過其屬性窗口將名稱分別設(shè)為Cmd1和Cmd2，標(biāo)題(Caption屬性)分別設(shè)為“顯示高”和“隱藏高”。

　　單擊“顯示高”按鈕(即運(yùn)行Click事件過程)，在該P(yáng)rivate Sub Cmd1_Click()事件過程中加入語句：

　　Private Sub Cmd1_Click()

　　Line4.Visible = True

　　End Sub

　　單擊“隱藏高”按鈕(即運(yùn)行Click事件過程)，在該P(yáng)rivate Sub Cmd2_Click()事件過程中加入語句：

　　Private Sub Cmd2_Click()

　　Line4.Visible = False

　　End Sub

　　參考文件：c:wexam26990001hlpsys參考答案sjt2.vbp、sjt2.frm、sjt2.vbw

　　請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt2.vbp文件并運(yùn)行。

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

　　注意：下面出現(xiàn)的“考生文件夾”均為%USER%

　　(1)在考生文件夾下有一個工程文件sjt3.vbp，在Form1的窗體中有一個文本框，二個命令按鈕和一個計(jì)時器。程序的功能是在運(yùn)行時，單擊“開始計(jì)數(shù)”按鈕，就開始計(jì)數(shù)，每隔1秒，文本框中的數(shù)加1;單擊“停止計(jì)數(shù)”按鈕，則停止計(jì)數(shù)(如圖所示)。要求：修改適當(dāng)?shù)目丶膶傩裕⑷サ舫绦蛑械淖⑨尫�，把程序中�?改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分。最后把修改后的文件以原來的文件名存盤。

　　解題思路：

　　啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt3.vbp，相應(yīng)的窗體文件名為sjt3.frm。

　　由于所提供的窗體控件屬性不完整，通過屬性窗口將計(jì)時器的Enabled屬性設(shè)為False，Interval屬性設(shè)為1000。

　　由于所提供的窗體程序不完整，在命令按鈕的Private Sub C1_Click(Index As Integer)事件過程中，有二處地方需要修改。

　　1) 將語句

　　Select Case ?

　　改為

　　Select Case Index

　　2) 將語句

　　Case ?

　　改為

　　Case 0

　　由于所提供的窗體程序不完整，在計(jì)時器的Private Sub Timer1_Timer()事件過程中，有一處地方需要修改。

　　1) 將語句

　　Text1.Text = Text1.Text ?

　　改為

　　Text1.Text = Text1.Text + 1

　　參考文件：c:wexam26990001hlpsys參考答案sjt3.vbp、sjt3.frm、sjt3.vbw

　　請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt3.vbp文件并運(yùn)行。

　　(2)已知出租車行駛不超過4公里時一律收費(fèi)10元。超過4公里時分段處理，具體處理方式為：15公里以內(nèi)每公里加收 1.2元，15公里以上每公里收 1.8元。

　　在考生文件夾下有一個工程文件sjt4.vbp。程序的功能是：單擊“輸入”按鈕，將彈出一個輸入對話框，接收出租車行駛的里程數(shù);單擊“計(jì)算”按鈕，則可根據(jù)輸入的里程數(shù)計(jì)算應(yīng)付的出租車費(fèi)，并將計(jì)算結(jié)果顯示在名稱為Text1的文本框內(nèi)。

　　在窗體文件中已經(jīng)給出了全部控件(如圖所示)，但程序不完整，要求去掉程序中的注釋符，把程序中的 ?改為正確的內(nèi)容。

　　注意：

　　不得修改已經(jīng)存在的內(nèi)容和控件屬性，最后將修改后的文件按原文件名存盤。

　　解題思路：

　　啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt4.vbp，相應(yīng)的窗體文件名為sjt4.frm。

　　由于所提供的窗體程序不完整，在Private Sub Command2_Click()事件過程中，有五處地方需要修改。

　　1) 將語句

　　Select Case ?

　　改為

　　Select Case s

　　2) 將語句

　　改為

　　f = 10

　　3) 將語句

　　f = 10 + ?

　　改為

　　f = 10 + (s - 4) * 1.2

　　4) 將語句

　　改為

　　Case Else

　　5) 將語句

　　f = 10 + ? + (s - 15) * 1.8

　　改為

　　f = 10 + (15 - 4) * 1.2 + (s - 15) * 1.8

　　參考文件：c:wexam26990001hlpsys參考答案sjt4.vbp、sjt4.frm、sjt4.vbw

　　請把這些文件復(fù)制到c:wexam26990001中，然后打開sjt4.vbp文件并運(yùn)行。

　　3. 綜合應(yīng)用(1小題，計(jì)30分)

　　注意：下面出現(xiàn)的“考生文件夾”均為%USER%

　　在考生文件夾下有一個工程文件sjt5.vbp，窗體上有二個標(biāo)題分別是“讀數(shù)據(jù)”和“統(tǒng)計(jì)”的命令按鈕。請畫二個標(biāo)簽，名稱分別為Label1和Label2，標(biāo)題分別為“出現(xiàn)次數(shù)最多的字母是”和“它出現(xiàn)的次數(shù)為”;再畫二個名稱分別為Text1和Text2，初始值為空的文本框，如圖所示。

　　程序功能如下：

　　1)單擊“讀數(shù)據(jù)”按鈕，則將考生文件夾下in5.dat文件的內(nèi)容讀到變量s中(此過程已給出);

　　2)單擊“統(tǒng)計(jì)”按鈕，則自動統(tǒng)計(jì)in5.dat文件中所含各字母(不區(qū)分大小寫)出現(xiàn)的次數(shù)，并將出現(xiàn)次數(shù)最多的字母顯示在Text1文本框內(nèi)，它所出現(xiàn)的次數(shù)顯示在Text2文本框內(nèi)。

　　“讀數(shù)據(jù)”按鈕的Click 事件過程已經(jīng)給出，請為“統(tǒng)計(jì)”按鈕編寫適當(dāng)?shù)氖录^程實(shí)現(xiàn)上述功能。

　　注意：

　　考生不得修改窗體文件中已經(jīng)存在的控件和程序，在結(jié)束程序運(yùn)行之前，必須進(jìn)行統(tǒng)計(jì)，且必須用窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無成績。最后，程序按原文件名存盤。

　　解題思路：

　　啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt5.vbp，相應(yīng)的窗體文件名為sjt5.frm。

　　由于所提供的窗體控件不完整，需畫二個標(biāo)簽控件，通過其屬性窗口將名稱分別設(shè)為Label1和Label2，標(biāo)題(Caption屬性)分別設(shè)為“出現(xiàn)次數(shù)最多的字母是”和“它出現(xiàn)的次數(shù)為”。畫二個文本框控件，通過其屬性窗口將名稱分別設(shè)為Text1和Text2，初始內(nèi)容(Text屬性)均設(shè)為空。

　　由于所提供的窗體程序不完整，需在“統(tǒng)計(jì)”命令按鈕的Click事件過程中加入語句：

　　Private Sub Command2_Click()

　　考生編寫

　　Dim a(26) As Integer

　　n = Len(s)

　　For i = 1 To n

　　c = UCase(Mid(s, i, 1))

　　If c >= "A" And c <= "Z" Then

　　j = Asc(c) - Asc("A") + 1

　　a(j) = a(j) + 1

　　End If

　　Next i