美国伦理〈欲奴3〉,免费无码又爽又刺激A片涩涩软件,久久久久久精品成人免费图片

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

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

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

　　一、選擇題(每小題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)在長(zhǎng)度為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)簽(其名稱為L(zhǎng)abel1)，程序運(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

　　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è)名稱為L(zhǎng)ist1的列表框，一個(gè)名稱為L(zhǎng)abel1的標(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

　　Next i

　　End Sub

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

A）	1 2 3	B）	2 3 4	C）	1 4 7	D）	1 2 3
	2 4 6		3 4 5		2 5 8		4 5 6
	3 6 9		4 5 6		3 6 9		7 8 9

　　(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é)果為

A）	2	B）	5	C）	10	D）	出錯(cuò)
	4		6		12
	6		7		14
	8		8		16

　　(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ī)文件中各記錄的長(zhǎng)度是隨機(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é)果是

　　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

　　Next i

　　End Sub

　　(10)在窗體上畫一個(gè)名稱為Combo1的組合框，然后畫兩個(gè)名稱分別為L(zhǎng)abel1、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