我要投稿 投訴建議

全國計算機二級vb考試題庫

时光:2022-11-06 12:57:25 計算機等級 我要投稿
  • 相關推薦

2016年全國計算機二級vb考試題庫

  在2016計算機第一次等級考試之際,小編爲大年夜家供给曆年的計算機二級vb考試題,盼望能爲大年夜家的考試帶來幫助,祝大年夜家考試順利!

2016年全國計算機二級vb考試題庫

  一、選擇題((1)~(35)每小題2分,共70分)

  下列各題A)、B)、C)、D)四個選項中,只有一個選項是正確档浞冬請將正確選項塗寫在答題卡相應地位上,答在試卷上不得分。

  (1)數據的存儲結構是指______。

  A)存储在表里存中的数据 B)数据所占的存储空间量

  C)数据在打算机中的次序存储方法 D)数据的逻辑构造在打算机中的表示

  (2)下列關于棧的描述中錯誤的是______。

  A) 栈是进步后出的线性表

  B) 栈只能次序存储

  C) 栈存在记忆感化

  D)對棧的拔出與刪除把持中,不必要改變棧底指針

  (3)對于長度爲n的線性表,在最壞情況下,下列各排序法所對應的比較次數中正確的是______。

  A)冒泡排序为n/2 B)冒泡排序为n

  C)疾速排序为n D)疾速排序为n(n-1)/2

  (4)對長度爲n的線性表進行順序查找,在最壞情況下所必要的比較次數爲______。

  A)log2n B)n/2 C)n D)n+1

  (5)下列對于線性鏈表的描述中正確的是______。

  A) 存储空间不必定是持续,且各元素的存储次序是恣意的

  B) 存储空间不必定是持续,且前件元素必定存储在后件元素的前面

  C) 存储空间必需持续,且前件元素必定存储在后件元素的前面

  D) 存储空间必需持续,且各元素的存储次序是恣意的

  (6)下列對于軟件測試的描述中正確的是______。

  A) 软件测试的目标是证明挨次能否正确

  B) 软件测试的目标是使挨次运转成果正确

  C) 软件测试的目标是尽可能多地发明挨次中的错误

  D) 软件测试的目标是使挨次符合构造化原则

  (7)爲了使典范塊盡可能獨破,请求______。

  A) 典范块的内聚程度要尽管高,且各典范块间的耦合程度要尽管强

  B) 典范块的内聚程度要尽管高,且各典范块间的耦合程度要尽管弱

  C) 典范块的内聚程度要尽管低,且各典范块间的耦合程度要尽管弱

  D) 典范块的内聚程度要尽管低,且各典范块间的耦合程度要尽管强

  (8)下列描述中正確的是______。

  A)挨次就是软件 B)软件开辟不受打算机体系的限制

  C)軟件既是邏輯實體,又是物理實體

  D)軟件是挨次、數據與相關文檔的凑集

  (9)數據獨破性是數據庫技術的重要特點之一。所謂數據獨破性是指______。

  A)數據與挨次獨破存放

  B)差其余數據被存放在差其余文件中

  C)差其余數據只能被對應的應用挨次所利用

  D)以上三種說法都不對

  (10)用樹形結構表示實體之間聯系的典范型是______。

  A)关联典范型 B)网状典范型 C)档次典范型 D)以上三个都是

  (11)在窗体(称号为Form1)上画一个称号为Text1的文本框跟一个称号为Command1的命令按钮,然后编写一个变乱过程。挨次运转后,假如在文本框中输入一个字符,则把命令按钮的标题设置为“計算機等級测验”。以下能实现上述把持的变乱过程是______。

  A) Private Sub Text1_Change()

  Command1.Caption = "計算機等級测验"

  End Sub

  B) Private Sub Command1_ Click ()

  Caption = "計算機等級测验"

  End Sub

  C) Private Sub Form1_ Click ()

  Text1.Caption = "計算機等級测验"

  End Sub

  D) Private Sub Command1_ Click ()

  Text1.Text = "計算機等級测验"

  End Sub

  (12)設a=5,b=4,c=3,d=2下列表達式的值是______。

  3 > 2 * b Or a = c And b <> c Or c > d

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

  (13)设a = "MicrosoftVisualBasic" ,则以下使变量b的值为“VisualBasic”的语句是______。

  A) b = Left(a, 10) B) b = Mid(a, 10)

  C) b = Right(a, 10) D) b = Mid(a, 11, 10)

  (14)假设有如下的窗體变乱過程:

  Private Sub Form_Click()

  a$ = "Microsoft Visual Basic"

  b$ = Right(a$, 5)

  c$ = Mid(a$, 1, 9)

  MsgBox a$, 34, b$, c$, 5

  End Sub

  挨次運行後,單擊窗體,則在彈出的信息框的標題欄中顯示的信息是______。

  A) Microsoft Visual B) Microsoft

  C) Basic D)5

  (15)设a = "a",b = "b",c = "c",d = "d",履行语句x=IIf((ad),”A”,”B”)后,x的值为 ______。

  A)”a” B)”b” C)”B” D)”A”

  (16)爲了使命令按鈕(名稱爲Command1)右移200,應利用的┞穁句是______。

  A) Command1.Move -200

  B) Command1.Move 200

  C) Command1.Left = Command1.Left + 200

  D) Command1.Left = Command1.Left - 200

  (17)在窗體上畫一個文本框,然後編寫如下变乱過程:

  Private Sub Form_Click()

  x = InputBox("请输入一个整数")

  Print x + Text1.Text

  End Sub

  挨次運行時,在文本框中輸入456,然後單擊窗體,在輸入對話框中輸入123,單擊“確定”按鈕後,在窗體上顯示的內容爲______。

  A) 123 B)456 C) 479 D) 123456

  (18)在窗體上畫一個文本框跟一個計時器控件,名稱分別爲Text1跟Timer1,在屬性窗口中把計時器的Interval屬性設置爲1000,Enabled屬性設置爲False。挨次運行後,假如單擊命令按鈕,則每隔一秒鍾在文本框中顯示一次當前的時間。以下是實現上述把持的挨次:

  Private Sub Command1_Click()

  Timer1.______

  End Sub

  Private Sub Timer1_Timer()

  Text1.Text = Time

  End Sub

  不才劃線處應填入的內容是______。

  A) Enabled = True B) Enabled = False

  C) Visible = True D) Visible = False

  (19)假设在圖片框Picture1中裝入了一個圖形,爲了清除該圖形(不刪除圖片框),應采取的┞俘確方法是______。

  A)選擇圖片框,然後按Del鍵

  B)履行语句Picture1.Picture = LoadPicture ("")

  C)履行语句Picture1.Picture =""

  D)選擇圖片框,在屬性窗口中選擇Picture屬性條,然後按回車鍵

  (20)在窗體上畫一個名稱爲List1的列表框,一個名稱爲Label1的標簽,列表框中顯示若幹個項目。當單擊列表框中的某個項目時,在標簽中顯示被選中項目标名稱。下列能正確實現上述把持的挨次是:_____。

  A)Private Sub List1_Click()

  Label1.Caption = List1.ListIndex

  End Sub

  B)Private Sub List1_Click()

  Label1.Name=List1.ListIndex

  End Sub

  C) Private Sub List1_Click()

  Label1.Name=List1.Text

  End Sub

  D) Private Sub List1_Click()

  Label1.Caption =List1.Text

  End Sub

  (21)在窗體上畫一個命令按鈕,其名稱爲Command1,然後編寫如下变乱過程:

  Private Sub Command1_Click()

  Dim i As Integer, x As Integer

  For i = 1 To 6

  If i = 1 Then x = i

  If i <= 4 Then

  x = x + 1

  Else

  x = x + 2

  End If

  Next i

  Print x

  End Sub

  挨次運行後,單擊命令按鈕,其輸出結果爲______。

  A)9 B)6 C)12 D)15

  (22)在窗體上畫一個名稱爲Command1命令按鈕,然後編寫如下变乱過程:

  Private Sub Command1_Click()

  c = “ABCD”

  For n= 1 To 4

  Print ______

  Next

  End Sub

  挨次運行後,單擊命令按鈕,请求在窗體上顯示如下內容

  D

  CD

  BCD

  ABCD

  則在______處填入的內容爲。

  A) Left(c,n) B) Right(c,n) C) Mid(c,n,1) D) Mid(c,n,n)

  (23)執行以下挨次段

  Dim i As Integer, x As Integer

  x = 0

  For i = 20 To 1 Step -2

  x = x + i \ 5

  Next

  Print x

  後,x的值爲______。

  A)16 B)17 C)18 D)19

  (24)在Visual Basic工程中,可能作为“启动东西”的挨次是______。

  A)任何窗体或标准典范块 B)任何窗体或过程

  C)Sub Main过程或其他任何典范块 D) Sub Main过程或任何窗体

  (25)假设树破了一個名爲Command1的命令按鈕數組,則以下說法中錯誤的是______。

  A)數組中每個命令按鈕的名稱(Name屬性)均爲Command1

  B)數組中每個命令按鈕的標題(Caption屬性)都一樣

  C)數組中全手命令按鈕可能利用同一個变乱過程

  D)用名稱Command1(下標)可能訪問數組中的每個命令按鈕

  (26)把窗體的KeyPreview屬性設置爲True,然後編寫如下变乱過程

  Private Sub Form_KeyPress(KeyAscii As Integer)

  Dim ch As String

  ch = Chr(KeyAscii)

  KeyAscii = Asc(UCase(ch))

  Print Chr(KeyAscii + 2)

  End Sub

  挨次運行後,按鍵盤上的“A”鍵,則在窗體上顯示的內容是______。

  A)A B) B C)C D)D

  (27)在窗體上畫一個命令按鈕跟一個文本框,名稱分別爲Command1跟Text1,然後編寫如下挨次:

  Private Sub Command1_Click()

  a=InputBox(“請輸入日期(1~31)”)

  t=”游览景点:” _

  & IIf ( a > 0 And a <= 10,”长城”,””) _

  & IIf ( a >10 And a <= 20,”故宫”,””) _

  & IIf ( a > 20 And a <= 31,”颐跟园”,””)

  Text1.Text = t

  End Sub

  挨次運行後,假如從鍵盤上輸入16,則在文本框顯示的內容是______。

  A) 游览景点:长城故宫 B) 游览景点:长城颐跟园

  C) 游览景点:颐跟园 D) 游览景点:故宫

  (28)在窗體上畫一個名稱爲Label1的標簽,然後編寫如下变乱過程:

  Private Sub Form_Click()

  Dim arr(10, 10) As Integer

  Dim i As Integer, j As Integer

  For i = 2 To 4

  For j = 2 To 4

  arr(i, j) = i * j

  Next j

  Next i

  Label1.Caption = Str(arr(2, 2) + arr(3, 3))

  End Sub

  挨次運行後,單擊窗體,在標簽中顯示的內容是______。

  A)12 B)13 C)14 D)15

  (29)在窗體上畫一個名稱爲Command1的命令按鈕,然後編寫如下通用過程跟命令按鈕的变乱過程:

  Private Function fun(ByVal m As Integer)

  If m Mod 2 = 0 Then

  fun = 2

  Else

  fun = 1

  End If

  End Function

  Private Sub Command1_Click()

  Dim i As Integer, s As Integer

  s = 0

  For i = 1 To 5

  s = s + fun(i)

  Next

  Print s

  End Sub

  挨次運行後,單擊命令按鈕,在窗體上顯示的是______。

  A)6 B)7 C)8 D)9

  (30)閱讀挨次:

  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

  挨次運行後,單擊窗體,輸入結果爲______。

  A)21 B)13 C)8 D)25

  (31)在窗體上畫一個名稱爲Command1的命令按鈕,然後編寫如下挨次:

  Option Base 1

  Private Sub Command1_Click()

  Dim c As Integer, d As Integer

  d = 0

  c = 6

  x = Array(2, 4, 6, 8, 10, 12)

  For i = 1 To 6

  If x(i) > c Then

  d = d + x(i)

  c = x(i)

  Else

  d = d - c

  End If

  Next

  Print d

  End Sub

  挨次運行後,假如單擊命令按鈕,則在窗體上輸出的內容爲______。

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

  (32)設有如下挨次:

  Private Sub Command1_Click()

  Dim c As Integer, d As Integer

  c = 4

  d = InputBox("请输入一个整数")

  Do While d > 0

  If d > c Then

  c = c + 1

  End If

  d = InputBox("请输入一个整数")

  Loop

  Print c + d

  End Sub

  挨次運行後,單擊命令按鈕,假如在輸入對話框中按序輸入1、2、3、4、5、6、7、8、9、0,則輸出結果是______。

  A)12 B)11 C)10 D)9

  (33)在窗体上画一个称号为Command1的命令按钮跟一个称号为Text1的文本框,在文本框中输入以下字符串:Microsoft Visual Basic Programming

  然後編寫如下变乱過程:

  Private Sub Command1_Click()

  Open "d:\temp\outf.txt" For Output As #1

  For i = 1 To Len(Text1.Text)

  c = Mid(Text1.Text, i, 1)

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

  Print #1, LCase(c)

  End If

  Next i

  Close

  End Sub

  挨次運行後,單擊命令按鈕,文件outf.txt中的內容是______。

  A)MVBP B)mvbp C)M D)m

  V v

  B b

  P p

  (34)在窗體上畫一個名稱爲Command1的命令按鈕,然後編寫如下挨次:

  Dim SW As Boolean

  Function func(X As Integer) As Integer

  If X < 20 Then

  Y = X

  Else

  Y = 20 + X

  End If

  func = Y

  End Function

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

  SW = False

  End Sub

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

  SW = True

  End Sub

  Private Sub Command1_Click()

  Dim intNum As Integer

  intNum = InputBox("")

  If SW Then

  Print func(intNum)

  End If

  End Sub

  挨次運行後,單擊命令按鈕,將顯示一個輸入對話框,假如在輸入對話框中輸入25,則挨次的執行結果爲______。

  A)输出0 B)输出25 C)输出45 D)无任何输出

  (35)設有如下通用過程:

  Public Sub Fun(a() As Integer, x As Integer)

  For i = 1 To 5

  x = x + a(i)

  Next

  End Sub

  在窗體上畫一個名稱爲Text1的文本框跟一個名稱爲Command1的命令按鈕。然後編寫如下的变乱過程:

  Private Sub Command1_Click()

  Dim arr(5) As Integer, n As Integer

  For i = 1 To 5

  arr(i) = i + i

  Next

  Fun arr, n

  Text1.Text = Str(n)

  End Sub

  挨次運行後,單擊命令按鈕,則在文本框中顯示的內容是______。

  A)30 B)25 C)20 D)15

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

  請將每空的┞俘確答案寫在答題卡【1】~【15】序號的橫線上,答在試卷上不得分。

  (1)某二叉树中度为2的结点有18个,则该二叉树中有 【1】 个叶子结点。

  (2)在面向东西方法中,类的实例称为 【2】 。

  (3)诊断跟改┞俘挨次中错误的任务平日称为 【3】 。

  (4)在关联数据库中,把数据表示成二维表,每一个二维表称为 【4】 。

  (5)成绩处理打算的┞俘确而完全的描述称为 【5】 。

  (6)以下语句输出成果是 【6】 。

  Print Int(12345.6789 * 100 + 0.5) / 100

  (7)在窗體上畫一個文本框跟一個圖片框,然後編寫如下兩個变乱過程:

  Private Sub Form_Click()

  Text1.Text = "VB挨次计划"

  End Sub

  Private Sub Text1_Change()

  Picture1.Print "VB Programming"

  End Sub

  挨次运转后,单击窗体,则在文本框中表示的内容是 【7】 ,而在图片框中表示的内容是 【8】 。

  (8)閱讀下面的挨次:

  Private Sub Form_Click()

  Dim Check As Boolean, Counter As Integer

  Check = True

  Counter = 5

  Do

  Do While Counter < 20

  Counter = Counter + 1

  If Counter = 10 Then

  Check = False

  Exit Do

  End If

  Loop

  Loop Until Check = False

  Print Counter

  End Sub

  挨次运转后,单击窗体,输出成果为 【9】 。

  (9)設有如下挨次:

  Private Sub Form_Click()

  Dim n As Integer, s As Integer

  n = 8

  s = 0

  Do

  s = s + n

  n = n - 1

  Loop While n > 0

  Print s

  End Sub

  以上挨次的功能是 【10】 。挨次运转后,单击窗体,输出成果为 【11】 。

  (10)設有如下挨次:

  Option Base 1

  Private Sub Command1_Click()

  Dim arr1

  Dim Min As Integer, i As Integer

  arr1 = Array(12, 435, 76, -24, 78, 54, 866, 43)

  Min = 【12】

  For i = 2 To 8

  If arr1(i) < Min Then 【13】

  Next

  Print "最小值是:"; Min

  End Sub

  以上挨次的功能是:用Array函數树破一個含有8個元素的數組,然後查找並輸出該數組中各元素的最小值。請填空。

  (11)在名稱爲Form1的窗體上畫一個文本框,其名稱爲Text1,在屬性窗口中把該文本框的MultiLine屬性設置爲True,然後編寫如下的变乱過程:

  Private Sub Form_Click()

  Open "d:\test\smtext1.txt" For Input As #1

  Do While Not 【14】

  Line Input #1, aspect$

  whole$ = whole$ + aspect$ + Chr$(13) + Chr$(10)

  Loop

  Text1.Text = whole$

  Close #1

  Open "d:\test\smtext2.txt" For Output As #1

  Print #1, 【15】

  Close #1

  End Sub

  上述挨次的功能是,把磁盤文件smtext1.txt的內容讀到內存並在文本框中顯示出來,然後把該文本框中的內容存入磁盤文件smtext2.txt。請填空。

  【參考答案】

  選擇題:

  1---5 DBDCA

  6---10 CBDDC

  11--15 ABBCD

  16--20 CDABD

  21--25 ABCDB

  26--30 CDBBA

  31--35 CDDDA

  填空題:

  【1】19

  【2】 东西

  【3】 挨次调试

  【4】 关联

  【5】 算法

  【6】12345.68

  【7】VB挨次設計

  【8】 VB Programming

  【9】 10

  【10】 求1-8的跟

  【11】36

  【12】 arr1(1)

  【13】min=arr1(i)

  【14】 EOF(1)

  【15】text1.text(或whole$)

【全國計算機二級vb考試題庫】相干文┞仿:

計算機二級VB考試題07-16

全國計算機二級考試VB挨次設計複習試題07-21

計算機二級VB考試重點知識08-15

計算機二級VB考試題及答案07-20

計算機二級VB考試練習及答案07-21

計算機二級VB考試題精选及答案07-21

計算機等級测验二级VB测验题及答案07-21

計算機二級考試VB選擇題試題08-09

計算機等級测验二级VB考点:挨次调试11-08

打算机二级考試試題VB练习题02-14

xxfseo.com