9月vb計(jì)算機(jī)考試試題及答案

時(shí)間：2020-09-08 14:40:36 計(jì)算機(jī)等級(jí) 我要投稿

2016年9月vb計(jì)算機(jī)考試試題及答案

　　為幫助同學(xué)們順利考過計(jì)算機(jī)二級(jí)，yjbys小編為大家?guī)碛?jì)算機(jī)等級(jí)vb考試試題及答案如下，希望對(duì)同學(xué)們復(fù)習(xí)有所幫助!

2016年9月vb計(jì)算機(jī)考試試題及答案

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

　　(1)在名稱為Form1的窗體上畫兩個(gè)命令按鈕，其名稱分別為C1和C2，標(biāo)題分別為“命令按鈕1”和“命令按鈕2”，編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，“命令按鈕2”隱藏，此時(shí)如果單擊“命令按鈕1”，則“命令按鈕2”出現(xiàn)，“命令按鈕1”隱藏;而如果單擊“命令按鈕2”，則“命令按鈕1”出現(xiàn)，“命令按鈕2”隱藏。程序的運(yùn)行情況如圖所示。

　　注意：程序中不得使用變量。存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt11.vbp，窗體文件名為sjt11.frm。

　　Private Sub C1_Click()

　　C1.Visible = False

　　C2.Visible = True

　　End Sub

　　Private Sub C2_Click()

　　C1.Visible = True

　　C2.Visible = False

　　End Sub

　　(2)在名稱為Form1的窗體上畫一個(gè)標(biāo)簽，其名稱為L(zhǎng)abel1，在屬性窗口中把BorderStyle屬性設(shè)置為1(如圖1所示)，編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，如果單擊窗體，則可使標(biāo)簽移到窗體的右上角(只允許在程序中修改適當(dāng)屬性來實(shí)現(xiàn))。

　　程序的運(yùn)行情況如圖2所示。

　　要求：不得使用任何變量。

　　*注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt12.vbp，窗體文件名為sjt12.frm。

　　Private Sub Form_Click()

　　' Label1.Left = -Label1.Width + Me.Width

　　' Label1.Top = 0

　　End Sub

　　Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

　　' Label1.Left = -Label1.Width + Me.Width

　　Label1.Top = 0

　　End Sub

　　Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

　　Label1.Left = -Form1.Label1.Width + Me.Width

　　' Label1.Top = 0

　　End Sub

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

　　(1)在考生目錄下有一個(gè)工程文件sjt21.vbp，窗體上有一個(gè)命令按鈕Command1(標(biāo)題為“下一個(gè)”)。

　　要求：在窗體上建立一個(gè)單選按鈕數(shù)組Option1，含4個(gè)單選按鈕，標(biāo)題分別為“選項(xiàng)1”、“選項(xiàng)2”、“選項(xiàng)3”、“選項(xiàng)4”，初始狀態(tài)下，“選擇1”為選中狀態(tài)。如圖所示。窗體文件中已經(jīng)給出了命令按鈕的Click事件過程，但不完整，請(qǐng)去掉程序中的.注釋符，把程序中的?改為正確的內(nèi)容，使得每單擊命令按鈕一次，就選中下一個(gè)單選按鈕，如果已經(jīng)選中最后一個(gè)單選按鈕，再單擊命令按鈕，則選中第1個(gè)單選按鈕。

　　注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。

　　Private Sub Command1_Click()

　　' For k = 0 To ?

　　For k = 0 To 3

　　If Option1(k).Value Then

　　' n = ?

　　n = k

　　End If

　　Next k

　　Option1(n).Value = False

　　n = n + 1

　　If n = 4 Then

　　' n = ?

　　n = 0

　　End If

　　Option1(n).Value = True

　　End Sub

　　(2)在考生文件夾下有一個(gè)工程文件sjt22.vbp，窗體上已經(jīng)畫出所有控件。如圖所示。在Text1文本框中輸入一個(gè)任意的字符串(要求串的長(zhǎng)度≥10)，然后選擇組合框中的3個(gè)截取運(yùn)算選項(xiàng)之一。單擊“計(jì)算”按鈕，將截取運(yùn)算后的結(jié)果顯示在Text2中。

　　窗體文件中已經(jīng)給出了程序，但不完整，請(qǐng)去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。

　　注意：不得修改已經(jīng)給出的程序。最后把修改后的文件按原文件名存盤。

　　Dim is_num As Boolean

　　Private Sub Command1_Click()

　　Dim tmpStr As String * 50

　　Select Case Form1.Combo1.ListIndex

　　'Select Case ?

　　Case 0

　　tmpStr = Left(Trim(Text1.Text), 3)

　　Case 1

　　tmpStr = Right(Trim(Text1.Text), 3)

　　Case 2

　　tmpStr = Mid(Trim(Text1.Text), 3, 4)

　　'tmpStr = Mid(Trim(Text1.Text), ? )

　　End Select

　　Text2.Text = tmpStr

　　'Text2.Text = ?

　　End Sub

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

　　在考生文件夾下有一個(gè)工程文件sjt31.vbp，窗體上有兩個(gè)圖片框，名稱為P1、P2，分別用來表示信號(hào)燈和汽車，其中在P1中輪流裝入“黃燈.ico”、“紅燈.ico”、“綠燈.ico”文件來實(shí)現(xiàn)信號(hào)燈的切換;還有兩個(gè)計(jì)時(shí)器Timer1和Timer2，Timer1用于變換信號(hào)燈，黃燈1秒，紅燈2秒，綠燈3秒;Timer2用于控制汽車向左移動(dòng)。運(yùn)行時(shí)，信號(hào)燈不斷變換，單擊“開車”按鈕后。汽車開始移動(dòng)，如果移動(dòng)到信號(hào)燈前或信號(hào)燈下，遇到紅燈或黃燈，則停止移動(dòng)，當(dāng)變?yōu)榫G燈后再繼續(xù)移動(dòng)。

　　在窗體中已經(jīng)給出了全部控件和程序，但程序不完整，要求閱讀程序并去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分，也不能修改控件的屬性。最后把修改后的文件以原文件名存盤。

　　Dim a%, b As Boolean

　　Private Sub C1_Click()

　　' Timer2.Enabled = ?

　　Timer2.Enabled = True

　　b = True

　　End Sub

　　Private Sub Timer1_Timer()

　　a = a + 1

　　If a > 6 Then

　　a = 1

　　End If