2017計(jì)算機(jī)二級(jí)考試VB練習(xí)題及答案

　　為了幫助同學(xué)們更好的學(xué)習(xí)，并在考試中取得優(yōu)異的成績。以下是百分網(wǎng)小編搜索整理的一份計(jì)算機(jī)二級(jí)考試VB練習(xí)題及答案，供參考練習(xí)，希望對(duì)大家有所幫助!想了解更多相關(guān)信息請(qǐng)持續(xù)關(guān)注我們應(yīng)屆畢業(yè)生考試網(wǎng)!

　　一、選擇題(每小題2分，共70分)

　　下列各題A)、B)、C)、D)四個(gè)選項(xiàng)中，只有一個(gè)選項(xiàng)是正確的。請(qǐng)將正確選項(xiàng)填涂在答題卡相應(yīng)位置上，答在試卷上不得分。

　　(1)下列選項(xiàng)中不符合良好程序設(shè)計(jì)風(fēng)格的是

　　A) 源程序要文檔化 B) 數(shù)據(jù)說明的次序要規(guī)范化

　　C) 避免濫用goto語句 D) 模塊設(shè)計(jì)要保證高耦合、高內(nèi)聚

　　(2)從工程管理角度，軟件設(shè)計(jì)一般分為兩步完成，它們是

　　A) 概要設(shè)計(jì)與詳細(xì)設(shè)計(jì) B) 數(shù)據(jù)設(shè)計(jì)與接口設(shè)計(jì)

　　C) 軟件結(jié)構(gòu)設(shè)計(jì)與數(shù)據(jù)設(shè)計(jì) D) 過程設(shè)計(jì)與數(shù)據(jù)設(shè)計(jì)

　　(3)下列選項(xiàng)中不屬于軟件生命周期開發(fā)階段任務(wù)的是

　　A)軟件測(cè)試 B)概要設(shè)計(jì) C)軟件維護(hù) D)詳細(xì)設(shè)計(jì)

　　(4)在數(shù)據(jù)庫系統(tǒng)中，用戶所見的數(shù)據(jù)模式為

　　A) 概念模式 B)外模式 C)內(nèi)模式 D)物理模式

　　(5)數(shù)據(jù)庫設(shè)計(jì)的四個(gè)階段是：需求分析、概念設(shè)計(jì)、邏輯設(shè)計(jì)和

　　A) 編碼設(shè)計(jì) B) 測(cè)試階段 C)運(yùn)行階段 D)物理設(shè)計(jì)

　　(6)設(shè)有如下三個(gè)關(guān)系表

	R		S				T
	A		B	C		A	B	C
	m		1	3		m	1	3
	n					n	1	3

　　下列操作中正確的是

　　A)T=R∩S B)T=R∪S

　　C)T=R×S D)T=R/S

　　(7)下列敘述中正確的是

　　A)一個(gè)算法的空間復(fù)雜度大，則其時(shí)間復(fù)雜度也必定大

　　B)一個(gè)算法的空間復(fù)雜度大，則其時(shí)間復(fù)雜度必定小

　　C)一個(gè)算法的時(shí)間復(fù)雜度大，則其空間復(fù)雜度必定小

　　D)上述三種說法都不對(duì)

　　(8)在長度為64的有序線性表中進(jìn)行順序查找，最壞情況下需要比較的次數(shù)為

　　A)63 B)64 C)6 D)7

　　(9)數(shù)據(jù)庫技術(shù)的根本目標(biāo)是要解決數(shù)據(jù)的

　　A)存儲(chǔ)問題 B)共享問題 C)安全問題 D)保護(hù)問題

　　(10)對(duì)下列二叉樹

　　進(jìn)行中序遍歷的結(jié)果是

　　A)ACBDFEG B)ACBDFGE C)ABDCGEF D)FCADBEG

　　(11)以下敘述中正確的是

　　A)窗體的Name 屬性指定窗體的名稱，用來標(biāo)識(shí)一個(gè)窗體

　　B)窗體的Name 屬性值是顯示在窗體標(biāo)題欄中的文本

　　C)可以在運(yùn)行期間改變窗體的Name 屬性的值

　　D)窗體的Name 屬性值可以為空

　　(12)以下敘述中錯(cuò)誤的是

　　A)打開一個(gè)工程文件時(shí)，系統(tǒng)自動(dòng)裝入與該工程有關(guān)的窗體文件

　　B)保存Visual Basic程序時(shí)，應(yīng)分別保存窗體文件及工程文件

　　C)Visual Basic應(yīng)用程序只能以解釋方式執(zhí)行

　　D)窗體文件包含該窗體及其控件的屬性

　　(13)設(shè)a = 2, b = 3, c = 4, 下列表達(dá)式的值是

　　Not a <= c Or 4*c = b^2 And b <> a + c

　　A)-1 B)1 C)True D)False

　　(14)設(shè)有如下的用戶定義類型：

　　Type Student

　　number As String

　　name As String

　　age As Integer

　　End Type

　　則以下正確引用該類型成員的代碼是

　　A)Student.name = "李明" B)Dim s As Student

　　s.name = "李明"

　　C)Dim s As Type Student D)Dim s As Type

　　s.name = "李明" s.name = "李明"

　　(15)設(shè)a = 5，b = 6，c = 7，d = 8，執(zhí)行下列語句后，x的值為

　　x = IIf((a > b) And (c > d), 10, 20)

　　A)10 B)20 C)True D)False

　　(16)執(zhí)行以下程序段后，變量c$的值為

　　a$ = "Visual Basic Programming"

　　b$ = "Quick"

　　c$ = b$ & UCase(Mid$(a$, 7, 6)) & Right$(a$, 12)

　　A)Visual BASIC Programming B)Quick Basic Programming

　　C)QUICK Basic Programming D)Quick BASIC Programming

　　(17)在窗體上畫一個(gè)文本框(其名稱為Text1)和一個(gè)標(biāo)簽(其名稱為Label1)，程序運(yùn)行后，如果在文本框中輸入指定的信息，則立即在標(biāo)簽中顯示相同的內(nèi)容。以下可以實(shí)現(xiàn)上述操作的事件過程是

　　A)Private Sub Text1_Click() B)Private Sub Text1_Change()

　　Label1.Caption = Text1.Text Label1.Caption = Text1.Text

　　End Sub End Sub

　　C)Private Sub Label1_Change() D)Private Sub Label1_Click()

　　Label1.Caption = Text1.Text Label1.Caption = Text1.Text

　　End Sub End Sub

　　(18)在窗體上畫一個(gè)命令按鈕和一個(gè)標(biāo)簽，其名稱分別為Command1和Label1，然后編寫如下事件過程：

　　Private Sub Command1_Click()

　　Counter = 0

　　For i = 1 To 4

　　For j = 6 To 1 Step -2

　　Counter = Counter + 1

　　Next j

　　Next i

　　Label1.Caption = Str(Counter)

　　End Sub

　　程序運(yùn)行后，單擊命令按鈕，標(biāo)簽中顯示的內(nèi)容是

　　A) 11 B)12 C) 16 D)20

　　(19)在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程：

　　Private Sub Command1_Click()

　　Dim i As Integer, n As Integer

　　For i = 0 To 50

　　i = i + 3

　　n = n + 1

　　If i > 10 Then Exit For

　　Next

　　Text1.Text = Str(n)

　　End Sub

　　程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是

　　A)5 B)4 C)3 D)2

　　(20)在窗體上畫一個(gè)命令按鈕和兩個(gè)標(biāo)簽，其名稱分別為Command1、Label1和Label2，然后編寫如下事件過程：

　　Private Sub Command1_Click()

　　a = 0

　　For i = 1 To 10

　　a = a + 1

　　b = 0

　　For j = 1 To 10

　　a = a + 1

　　b = b + 2

　　Next j

　　Next i

　　Label1.Caption = Str(a)

　　Label2.Caption = Str(b)

　　End Sub

　　程序運(yùn)行后，單擊命令按鈕，在標(biāo)簽Label1和Label2中顯示的內(nèi)容分別是

　　A)10和20 B)20和110 C)200和110 D)110和20

　　(21)在窗體上畫一個(gè)名稱為List1的列表框，一個(gè)名稱為Label1的標(biāo)簽，列表框中顯示若干城市的名稱。當(dāng)單擊列表框中的某個(gè)城市名時(shí)，該城市名從列表框中消失，并在標(biāo)簽中顯示出來。下列能正確實(shí)現(xiàn)上述操作的程序是

　　A)Private Sub List1_Click() B)Private Sub List1_Click()

　　Label1.Caption = List1.ListIndex Label1. Name = List1. ListIndex

　　List1.RemoveItem List1.Text List1.RemoveItem List1.Text

　　End Sub End Sub

　　C)Private Sub List1_Click() D)Private Sub List1_Click()

　　Label1.Caption = List1.Text Label1.Name = List1.Text

　　List1.RemoveItem List1.ListIndex List1.RemoveItem List1.ListIndex

　　End Sub End Sub

　　(22)在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下程序：

　　Private Sub Command1_Click()

　　Dim i As Integer, j As Integer

　　Dim a(10, 10) As Integer

　　For i = 1 To 3

　　For j = 1 To 3

　　a(i, j) = (i - 1) * 3 + j

　　Print a(i, j);

　　Next j

　　Print

　　Next i

　　End Sub

　　程序運(yùn)行后，單擊命令按鈕，窗體上顯示的是

　　(23)在窗體上畫一個(gè)命令按鈕，名稱為Command1，然后編寫如下代碼：

　　Option Base 0

　　Private Sub Command1_Click()

　　Dim A(4) As Integer,B(4) As Integer

　　For k = 0 To 2

　　A(k + 1) = InputBox("請(qǐng)輸入一個(gè)整數(shù)")

　　B(3 - k) = A(k + 1)

　　Next k

　　Print B(k)

　　End Sub

　　程序運(yùn)行后，單擊命令按鈕，在輸入對(duì)話框中分別輸入2、4、6，輸出結(jié)果為

　　A)0 B)2 C)3 D)4

　　(24)有以下程序：

　　Option Base 1

　　Dim arr() As Integer

　　Private Sub Form_Click()

　　Dim i As Integer, j As Integer

　　ReDim arr(3, 2)

　　For i = 1 To 3

　　For j = 1 To 2

　　arr(i, j) = i * 2 + j

　　Next j

　　Next i

　　ReDim Preserve arr(3, 4)

　　For j = 3 To 4

　　arr(3, j) = j + 9

　　Next j

　　Print arr(3, 2); arr(3, 4)

　　End Sub

　　程序運(yùn)行后，單擊窗體，輸出結(jié)果為

　　A)8 13 B)0 13 C)7 12 D)0 0

　　(25)以下敘述中正確的是

　　A)一個(gè)Sub過程至少要有一個(gè)Exit Sub語句

　　B)一個(gè)Sub過程必須有一個(gè)End Sub語句

　　C)可以在Sub過程中定義一個(gè)Function過程，但不能定義Sub過程

　　D)調(diào)用一個(gè)Function過程可以獲得多個(gè)返回值

　　(26)有以下程序：

　　Sub subP(b() As Integer)

　　For i = 1 To 4

　　b(i) = 2 * i

　　Next i

　　End Sub

　　Private Sub Command1_Click()

　　Dim a(1 To 4) As Integer

　　a(1) = 5

　　a(2) = 6

　　a(3) = 7

　　a(4) = 8

　　subP a()

　　For i = 1 To 4

　　Print a(i)

　　Next i

　　End Sub

　　運(yùn)行上面的程序，單擊命令按鈕，輸出結(jié)果為

　　(27)設(shè)有如下通用過程：

　　Public Function Fun(xStr As String) As String

　　Dim tStr As String, strL As Integer

　　tStr = ""

　　strL = Len(xStr)

　　i = 1

　　Do While i <= strL / 2

　　tStr = tStr & Mid(xStr, i, 1) & Mid(xStr, strL - i + 1, 1)

　　i = i + 1

　　Loop

　　Fun = tStr

　　End Function

　　在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕。然后編寫如下的事件過程：

　　Private Sub Command1_Click()

　　Dim S1 As String

　　S1 = "abcdef"

　　Text1.Text = UCase(Fun(S1))

　　End Sub

　　程序運(yùn)行后，單擊命令按鈕，則Text1中顯示的是

　　A)ABCDEF B)abcdef C)AFBECD D)DEFABC

　　(28)在窗體上畫一個(gè)名稱為TxtA的文本框，然后編寫如下的事件過程：

　　Private Sub TxtA_KeyPress(KeyAscii As Integer)

　　......

　　End Sub

　　假定焦點(diǎn)已經(jīng)位于文本框中，則能夠觸發(fā)KeyPress事件的操作是

　　A)單擊鼠標(biāo) B)雙擊文本框

　　C)鼠標(biāo)滑過文本框 D)按下鍵盤上的某個(gè)鍵

　　(29)在窗體上畫一個(gè)命令按鈕和兩個(gè)文本框，其名稱分別為Command1、Text1和Text2，然后編寫如下程序：

　　Dim S1 As String, S2 As String

　　Private Sub Form_Load()

　　Text1.Text = ""

　　Text2.Text = ""

　　End Sub

　　Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

　　S2 = S2 & Chr(KeyCode)

　　End Sub

　　Private Sub Text1_KeyPress(KeyAscii As Integer)

　　S1 = S1 & Chr(KeyAscii)

　　End Sub

　　Private Sub Command1_Click()

　　Text1.Text = S2

　　Text2.Text = S1

　　S1 = ""

　　S2 = ""

　　End Sub

　　程序運(yùn)行后，在Text1中輸入“abc”，然后單擊命令按鈕，在文本框Text1和Text2中顯示的內(nèi)容分別為

　　A)abc和ABC B)abc和abc C)ABC和abc D)ABC和ABC

　　(30)以下說法中正確的是

　　A)任何時(shí)候都可以通過執(zhí)行“工具”菜單中的“菜單編輯器”命令打開菜單編輯器

　　B)只有當(dāng)某個(gè)窗體為當(dāng)前活動(dòng)窗體時(shí)，才能打開菜單編輯器

　　C)任何時(shí)候都可以通過單擊標(biāo)準(zhǔn)工具欄上的“菜單編輯器”按鈕打開菜單編輯器

　　D)只有當(dāng)代碼窗口為當(dāng)前活動(dòng)窗口時(shí)，才能打開菜單編輯器

　　(31)在窗體上畫一個(gè)通用對(duì)話框，其名稱為CommonDialog1，然后畫一個(gè)命令按鈕，并編寫如下事件過程：

　　Private Sub Command1_Click()

　　CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _

　　"(*.txt)|*.txt| Executable Files(*.exe)|*.exe"

　　CommonDialog1.FilterIndex = 3

　　CommonDialog1.ShowOpen

　　MsgBox CommonDialog1.FileName

　　End Sub

　　程序運(yùn)行后，單擊命令按鈕，將顯示一個(gè)“打開”對(duì)話框，此時(shí)在“文件類型”框中顯示的是

　　A)All Files(*.*) B)Text Files(*.txt)

　　C)Executable Files(*.exe) D)不確定

　　(32)以下敘述中錯(cuò)誤的是

　　A)一個(gè)工程中可以包含多個(gè)窗體文件

　　B)在一個(gè)窗體文件中用Public定義的通用過程不能被其他窗體調(diào)用

　　C)窗體和標(biāo)準(zhǔn)模塊需要分別保存為不同類型的磁盤文件

　　D)用Dim定義的窗體層變量只能在該窗體中使用

　　(33)以下敘述中錯(cuò)誤的是

　　A)語句“Dim a, b As Integer”聲明了兩個(gè)整型變量

　　B)不能在標(biāo)準(zhǔn)模塊中定義Static型變量

　　C)窗體層變量必須先聲明，后使用

　　D)在事件過程或通用過程內(nèi)定義的變量是局部變量

　　(34)設(shè)有語句：Open "d:\Test.txt" For Output As #1 ，以下敘述中錯(cuò)誤的是

　　A)若d盤根目錄下無Test.txt文件，則該語句創(chuàng)建此文件

　　B)用該語句建立的文件的文件號(hào)為1

　　C)該語句打開d盤根目錄下一個(gè)已存在的文件Test.txt，之后就可以從文件中讀取信息

　　D)執(zhí)行該語句后，就可以通過Print #語句向文件Test.txt中寫入信息

　　(35)以下敘述中錯(cuò)誤的是

　　A)順序文件中的數(shù)據(jù)只能按順序讀寫

　　B)對(duì)同一個(gè)文件，可以用不同的方式和不同的文件號(hào)打開

　　C)執(zhí)行Close語句，可將文件緩沖區(qū)中的數(shù)據(jù)寫到文件中

　　D)隨機(jī)文件中各記錄的長度是隨機(jī)的

　　二、填空題(每空2分，共30分)

　　請(qǐng)將每空的正確答案寫在答題卡【1】～【15】序號(hào)的橫線上，答在試卷上不得分。

　　(1)下列軟件系統(tǒng)結(jié)構(gòu)圖

　　的寬度為 【1】 。

　　(2) 【2】 的任務(wù)是診斷和改正程序中的錯(cuò)誤。

　　(3)一個(gè)關(guān)系表的行稱為 【3】 。

　　(4)按“先進(jìn)后出”原則組織數(shù)據(jù)的數(shù)據(jù)結(jié)構(gòu)是 【4】 。

　　(5)數(shù)據(jù)結(jié)構(gòu)分為線性結(jié)構(gòu)和非線性結(jié)構(gòu)，帶鏈的隊(duì)列屬于 【5】 。

　　(6)描述“X是小于100的非負(fù)整數(shù)”的Visual Basic表達(dá)式是 【6】 。

　　(7)在窗體上有一個(gè)名稱為Command1的命令按鈕和一個(gè)名稱為Text1的文本框。程序運(yùn)行后，Command1為禁用(灰色)，此時(shí)如果在文本框中輸入字符，則命令按鈕Command1變?yōu)榭捎�。�?qǐng)?zhí)羁铡?/p>

　　Private Sub Form_Load()

　　Command1.Enabled = False

　　End Sub

　　Private Sub Text1_ 【7】 ()

　　Command1.Enabled = True

　　End Sub

　　(8)在窗體上畫一個(gè)名稱為“Command1”的命令按鈕，然后編寫如下事件過程：

　　Private Sub Command1_Click()

　　Dim a As String

　　a = "123456789"

　　For i = 1 To 5

　　Print Space(6 - i); Mid$(a, 【8】 , 2 * i - 1)

　　Next i

　　End Sub

　　程序運(yùn)行后，單擊命令按鈕，窗體上的輸出結(jié)果是

　　5

　　456

　　34567

　　2345678

　　123456789

　　請(qǐng)?zhí)羁铡?/p>

　　(9)以下程序的功能是：將一維數(shù)組A中的100個(gè)元素分別賦給二維數(shù)組B的每個(gè)元素并打印出來，要求把A(1)到A(10)依次賦給B(1,1)到B(1,10)，把A(11)到A(20)依次賦給B(2,1)到B(2,10)，……，把A(91)到A(100)依次賦給B(10,1)到B(10,10)。請(qǐng)?zhí)羁铡?/p>

　　Option Base 1

　　Private Sub Form_Click()

　　Dim i As Integer, j As Integer

　　Dim A(1 To 100) As Integer

　　Dim B(1 To 10, 1 To 10) As Integer

　　For i = 1 To 100

　　A(i) = Int(Rnd * 100)

　　Next i

　　For i = 1 To 【9】

　　For j = 1 To 【10】

　　B(i, j) = 【11】

　　Print B(i, j);

　　Next j

　　Print

　　Next i

　　End Sub

　　(10)在窗體上畫一個(gè)名稱為Combo1的組合框，然后畫兩個(gè)名稱分別為Label1、Label2，標(biāo)題分別為“城市名稱”和空白的標(biāo)簽。程序運(yùn)行后，在組合框中輸入一個(gè)新項(xiàng)目并按回車鍵，如果輸入的項(xiàng)目在組合框的列表中不存在，則自動(dòng)將其添加到組合框的列表中，并在Label2中給出提示“已成功添加新輸入項(xiàng)。”，如圖所示。如果輸入的項(xiàng)目已存在，則在Label2中給出提示“輸入項(xiàng)已在組合框中。”。請(qǐng)?zhí)羁铡?/p>

　　Private Sub Combo1_KeyPress(KeyAscii As Integer)

　　If KeyAscii = 13 Then

　　For i = 0 To Combo1.ListCount - 1

　　If Combo1.Text = 【12】 Then

　　Label2.Caption = "輸入項(xiàng)已在組合框中。"

　　Exit Sub

　　End If

　　Next i

　　Label2.Caption = "已成功添加新輸入項(xiàng)。"

　　Combo1. 【13】 Combo1.Text

　　End If

　　End Sub

　　(11)在窗體上畫一個(gè)命令按鈕和一個(gè)文本框，其名稱分別為Command1和Text1，然后編寫如下事件過程：

　　Private Sub Command1_Click()

　　Dim inData As String

　　Text1.Text = ""

　　Open "d:\myfile.txt" For 【14】 As #1

　　Do While 【15】

　　Input #1, inData

　　Text1.Text = Text1.Text + inData

　　Loop

　　Close #1

　　End Sub

　　程序的功能是，打開D盤根目錄下的文本文件myfile.txt，讀取它的全部內(nèi)容并顯示在文本框中。請(qǐng)?zhí)羁铡?/p>

【計(jì)算機(jī)二級(jí)考試VB練習(xí)題及答案】相關(guān)文章：

計(jì)算機(jī)二級(jí)vb練習(xí)題及答案08-19

2016計(jì)算機(jī)二級(jí)考試VB語言練習(xí)題及答案10-05

全國計(jì)算機(jī)二級(jí)《VB》練習(xí)題及答案09-08

2017計(jì)算機(jī)二級(jí)VB考前練習(xí)題及答案07-13

計(jì)算機(jī)二級(jí)考試《VB》基礎(chǔ)習(xí)題及答案07-22

計(jì)算機(jī)二級(jí)考試《VB》操作試題及答案07-25

計(jì)算機(jī)二級(jí)《VB》備考練習(xí)題及答案202402-27

2016年計(jì)算機(jī)二級(jí)考試VB試卷及答案09-17

2017計(jì)算機(jī)二級(jí)考試VB選擇題及答案09-02

計(jì)算機(jī)二級(jí)VB考試自測(cè)題及答案201707-22