鸭子tv国产极品在线观看_成人69视频在线播放_91精品免费在线观看_亚洲AT永久偷窥无码精品_国产精品自产拍在线观看涩浪潮久

2014年3月全國(guó)計(jì)算機(jī)二級(jí)VB選擇題真題

1.設(shè)循環(huán)隊(duì)列為Q(1: m)，其初始狀態(tài)為front=rear=m。經(jīng)過一系列入隊(duì)與退隊(duì)運(yùn)算后，front=15，rear=20。現(xiàn)要在該循環(huán)隊(duì)列中尋找最大值的元素，最壞情況下需要比較的次數(shù)為

A.4

B.6

C.m-5

D.m-6

2.下列敘述中正確的是

A.循環(huán)隊(duì)列屬于隊(duì)列的鏈?zhǔn)酱鎯?chǔ)結(jié)構(gòu)

B.雙向鏈表是二叉樹的鏈?zhǔn)酱鎯?chǔ)結(jié)構(gòu)

C.非線性結(jié)構(gòu)只能采用鏈?zhǔn)酱鎯?chǔ)結(jié)構(gòu)

D.有的非線性結(jié)構(gòu)也可以采用順序存儲(chǔ)結(jié)構(gòu)

3.某二叉樹中有n個(gè)葉子結(jié)點(diǎn)，則該二叉樹中度為2的結(jié)點(diǎn)數(shù)為

A.n+1

B.n-1

C.2n

D.n/2

4.下列敘述中錯(cuò)誤的是

A.算法的時(shí)間復(fù)雜度與算法所處理數(shù)據(jù)的存儲(chǔ)結(jié)構(gòu)有直接關(guān)系

B.算法的空間復(fù)雜度與算法所處理數(shù)據(jù)的存儲(chǔ)結(jié)構(gòu)有直接關(guān)系

C.算法的時(shí)間復(fù)雜度與空間復(fù)雜度有直接關(guān)系

D.算法的時(shí)間復(fù)雜度與算法程序執(zhí)行的具體時(shí)間是不一致的

5.軟件工程的三要素是

A.方法、工具和過程

B.建模、方法和工具

C.建模、方法和過程

D.定義、方法和過程

6.通常軟件測(cè)試實(shí)施的步驟是

A.集成測(cè)試、單元測(cè)試、確認(rèn)測(cè)試

B.單元測(cè)試、集成測(cè)試、確認(rèn)測(cè)試

C.確認(rèn)測(cè)試、集成測(cè)試、單元測(cè)試

D.單元測(cè)試、確認(rèn)測(cè)試、集成測(cè)試

7.下面可以作為軟件設(shè)計(jì)工具的是

A.系統(tǒng)結(jié)構(gòu)圖

B.數(shù)據(jù)字典(DD)

C.數(shù)據(jù)流程圖(DFD圖)

D.甘特圖

8.在數(shù)據(jù)庫(kù)設(shè)計(jì)中，將E-R圖轉(zhuǎn)換成關(guān)系數(shù)據(jù)模型的過程屬于

A.邏輯設(shè)計(jì)階段

B.需求分析階段

C.概念設(shè)計(jì)階段

D.物理設(shè)計(jì)階段

9.設(shè)有關(guān)系表學(xué)生S( 學(xué)號(hào)，姓名，性別，年齡，身份證號(hào)) ，每個(gè)學(xué)生學(xué)號(hào)唯一。除屬性學(xué)號(hào)外，也可以作為鍵的是

A.姓名

B.身份證號(hào)

C.姓名，性別，年齡

D.學(xué)號(hào)，姓名

10.在數(shù)據(jù)庫(kù)系統(tǒng)中，考慮數(shù)據(jù)庫(kù)實(shí)現(xiàn)的數(shù)據(jù)模型是

A.概念數(shù)據(jù)模型

B.邏輯數(shù)據(jù)模型

C.物理數(shù)據(jù)模型

D.關(guān)系數(shù)據(jù)模型

11.在Visual Basic標(biāo)準(zhǔn)工具欄中，"菜單編輯器"的圖標(biāo)是

12.類模塊文件的擴(kuò)展名為

A..res

B..cls

C..vbp

D..vbg

13.對(duì)于窗體而言，在運(yùn)行期間對(duì)其值改變無效的屬性是

A.Caption

B.Enabled

C.AutoRedraw

D.BorderStyle

14.對(duì)于語句Dim Var1, Var2 As String * 10，下列說法中正確的是

A.Var1和Var2都被定義為定長(zhǎng)字符串變量

B.Var1被定義為變長(zhǎng)字符串變量，Var2被定義為定長(zhǎng)字符串變量

C.Var1被定義為定長(zhǎng)字符串變量，Var2被定義為變長(zhǎng)字符串變量

D.Var1被定義為變體變量

15.已知num1 = 15，則表達(dá)式Len("abc" & num1) + InStr("Internet", "net")的值為

A.11

B.9

C.5

D.錯(cuò)誤

16.下列關(guān)于數(shù)組的敘述中，錯(cuò)誤的是

A.Visual Basic中的數(shù)組必須先定義，后使用

B.語句Option Base n中的n用以設(shè)置數(shù)組下標(biāo)的下界，它可以是任意的非負(fù)整數(shù)

C.同一個(gè)過程中定義的數(shù)組與變量不能同名

D.在定義數(shù)組時(shí)，每一維的元素個(gè)數(shù)必須是常數(shù)，不能是變量或表達(dá)式

17.在程序運(yùn)行時(shí)，不會(huì)引發(fā)窗體Resize事件的操作是

A.使用了窗體的"還原"按鈕

B.使用Move方法改變了窗體的大小

C.使用Move方法改變了窗體的位置

D.通過鼠標(biāo)拖動(dòng)邊框調(diào)整了窗體的大小

18.不能使某個(gè)對(duì)象獲得焦點(diǎn)的操作是

A.在運(yùn)行時(shí)單擊該對(duì)象

B.在運(yùn)行時(shí)用訪問鍵選擇該對(duì)象

C.在程序代碼中使用該對(duì)象的SetFocus方法

D.在程序代碼中使用該對(duì)象的GotFocus方法

19.不能脫離對(duì)象而獨(dú)立存在的過程是

A.子程序過程

B.函數(shù)過程

C.事件過程

D.通用過程

20.下列描述中錯(cuò)誤的是

A.窗體是對(duì)象

B.窗體必須有Name屬性

C.窗體可以拖放和移動(dòng)

D.在設(shè)計(jì)階段雙擊一個(gè)控件可以打開屬性窗口

21.Visual Basic為每種控件規(guī)定了一個(gè)默認(rèn)屬性，在設(shè)置默認(rèn)屬性時(shí)，不必給出屬性名。下列控件中默認(rèn)屬性為Text的控件是

A.框架（Frame）

B.組合框（ComboBox）

C.標(biāo)簽（Label）

D.形狀（Shape）

22.窗體上有2個(gè)名稱分別為L(zhǎng)ist1和List2的列表框，各顯示有若干個(gè)項(xiàng)目。當(dāng)雙擊List1中的某個(gè)項(xiàng)目時(shí)，該項(xiàng)目就會(huì)自動(dòng)添加到List2中。下列無法實(shí)現(xiàn)上述操作的事件過程是

Private Sub List1_DblClick()

List2.List(List2.ListCount) = List1.Text

End Sub

Private Sub List1_DblClick()

List2.AddItem List1.Text

End Sub

Private Sub List1_DblClick()

List2.AddItem List1.List(ListIndex)

End Sub

Private Sub List1_DblClick()

Call List2.AddItem(List1.Text)

End Sub

23.對(duì)于文本框控件，下列說法錯(cuò)誤的是

A.當(dāng)Locked屬性值為True時(shí)，可以通過程序代碼修改文本框內(nèi)容

B.當(dāng)Locked屬性值為False時(shí)，用戶可以直接編輯修改文本框內(nèi)容

C.MaxLength屬性值既可以在設(shè)計(jì)階段設(shè)定，也可以在運(yùn)行時(shí)設(shè)定

D.當(dāng)文本框可以顯示多行文本時(shí)，MaxLength屬性用來確定每行最大字符數(shù)

24.下列操作中，不能夠引發(fā)命令按鈕Click事件的是

A.使用Tab鍵將輸入焦點(diǎn)移到命令按鈕上，并按空格鍵

B.使用Tab鍵將輸入焦點(diǎn)移到命令按鈕上，并按Enter鍵

C.在程序中將命令按鈕的Value屬性值賦以True2

D.當(dāng)命令按鈕的Default屬性為False時(shí)，按Enter鍵

25.對(duì)于圖片框和圖像控件，下列說法錯(cuò)誤的是

A.AutoSize屬性為True時(shí)，圖片框控件會(huì)自動(dòng)改變大小以適應(yīng)所顯示圖片的大小

B.Stretch屬性為True時(shí)，圖像框會(huì)自動(dòng)縮放所顯示圖片，使其充滿圖像框控件

C.圖片框?yàn)槿萜骺丶?o:p>

D.圖像控件不支持DblClick事件

26.Visual Basic組合框可表現(xiàn)為簡(jiǎn)單組合框、下拉式組合框、下拉式列表框三種類型，決定組合框表現(xiàn)為哪種類型的屬性是

A.Style

B.Sorted

C.DataSource

D.Appearance

27.對(duì)于計(jì)時(shí)器控件，下列敘述錯(cuò)誤的是

A.計(jì)時(shí)器控件沒有Visible屬性

B.將Interval屬性設(shè)置為0時(shí)，計(jì)時(shí)器控件不起作用

C.將Enabled屬性設(shè)置為False時(shí)，計(jì)時(shí)器控件無效

D.為了實(shí)現(xiàn)每秒發(fā)生一個(gè)計(jì)時(shí)器事件，需將Interval屬性設(shè)置為100

28.窗體上有1個(gè)名稱為Text1的文本框和1個(gè)名稱為L(zhǎng)abel1的標(biāo)簽。運(yùn)行以下程序，在文本框中輸入VisualBasic，則標(biāo)簽中顯示內(nèi)容為basic的是

Private Sub Text1_Change()

Label1.Caption = LCase(Mid(Text1.Text, 7))

End Sub

Private Sub Text1_Change()

Label1.Caption = UCase(Left(Text1.Text, 5))

End Sub

Private Sub Text1_Change()

Label1.Caption = UCase(Right(Text1.Text, 5))

End Sub

Private Sub Text1_Change()

Label1.Caption = LCase(Left(Text1.Text, 5))

End Sub

29.為了改變文本框中所顯示文本的顏色，需設(shè)置的屬性為

A.FontColor

B.BackColor

C.ForeColor

D.FillColor

30.窗體上有1個(gè)名稱為CD1的通用對(duì)話框，1個(gè)名稱為Command1的命令按鈕，并有如下程序：

Private Sub Command1_Click()

CD1.CancelError = True

CD1.FileName = "new.txt"

CD1.Filter = "All Files|*.*|Word|*.doc|"

CD1.FilterIndex = 2

CD1.ShowSave

End Sub

運(yùn)行程序，下面敘述中正確的是

A.單擊"取消"按鈕關(guān)閉對(duì)話框時(shí)，將顯示出錯(cuò)信息

B.對(duì)話框文件的"保存類型"框中顯示"*.doc"

C.Filter屬性中沒有指定類型".txt"，導(dǎo)致程序運(yùn)行出錯(cuò)

D.實(shí)現(xiàn)打開文件操作，且文件名為"new.txt"

31.編寫如下程序：

Private Sub Command1_Click()

x = InputBox("請(qǐng)輸入一個(gè)字符:")

Select Case x

Case Is <= 9

Print "分支1"

Case Is <= "Z"

Print "分支2"

Case Else

Print "分支3"

End Select

End Sub

程序運(yùn)行后，單擊命令按鈕Command1，并在輸入對(duì)話框中輸入字符"a"，輸出結(jié)果為

A.分支1

B.分支2

C.分支3

D.程序出錯(cuò)

32.編寫如下程序：

Private Sub Command1_Click()

Dim i As Integer, n As Integer

Dim arr() As Integer

n = InputBox("請(qǐng)輸入數(shù)值：")

ReDim arr(n)

For i = 1 To UBound(arr)

arr(i) = i

For i = 1 To UBound(arr) \ 2

temp = arr(i)

arr(i) = arr(n - i + 1)

arr(n - i + 1) = temp

For i = 1 To UBound(arr)

Print arr(i);

End Sub

程序運(yùn)行后，單擊命令按鈕Command1，并在輸入對(duì)話框中輸入7，輸出結(jié)果為

A.7 6 5 4 3 2 1

B.1 2 3 4 5 6 7

C.3 2 1 4 7 6 5

D.4 3 2 1 5 6 7

33.編寫如下程序：

Dim x As Integer, y As Integer, z As Integer

Private Sub Command1_Click()

Dim x As Integer

x = 1: y = 2: z = 3

z = fun_s(x)

Print x; y; z

End Sub

Public Function fun_s(ByVal y As Integer) As Integer

x = 5

y = z + 1

fun_s = x + y

End Function

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

A.4 2 9

B.1 2 9

C.5 2 9

D.5 4 9

34.編寫如下程序：

Private Sub Command1_Click()

Dim i As Integer, x As Integer

i = 1

While i <= 5

x = InputBox("請(qǐng)輸入第" & i & "個(gè)數(shù)：")

If x Mod 3 = 2 Then

If x \ 5 = x / 5 Then

Print "A";

Else

Print "B";

End If

i = i + 1

Wend

End Sub

程序運(yùn)行后，單擊命令按鈕Command1，并依次在輸入對(duì)話框中輸入11、20、15、32、17，輸出結(jié)果為

A.BAABB

B.ABBAA

C.BABB

D.ABAA

35.在窗體上畫1個(gè)名稱為Command1的命令按鈕，1個(gè)名稱為L(zhǎng)abel1的標(biāo)簽，然后編寫如下事件過程：

Private Sub Command1_Click()

Dim n As Integer, t As Integer

n = 1: t = 1

n = n + 1

t = t * n

Loop Until n > 4

Label1.Caption = t

End Sub

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

A.1

B.2

C.24

D.120

36.編寫如下程序：

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer

Dim n As Integer, s As Integer

a = 1

While a <= 3

For b = 1 To a

For c = b To 3

s = s + 1

Next c

n = n + 1

Next b

a = a + 1

Wend

Print n; s

End Sub

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

A.3 14

B.6 14

C.3 9

D.6 9

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

Private Sub Command1_Click()

Dim k As Integer, x As Integer

Randomize

For k = 1 To 1000

x = Int(Rnd() * 100)

Print x;

Select Case x

Case 10

Exit For

Case 50

Exit Do

Case 60, 90

End

End Select

Next k

Loop

End Sub

上述事件過程執(zhí)行后，下列敘述中正確的是

A.事件過程無法正常結(jié)束

B.DO循環(huán)的執(zhí)行次數(shù)為1000次

C.當(dāng)產(chǎn)生的隨機(jī)數(shù)為10時(shí)退出所有循環(huán)

D.當(dāng)產(chǎn)生的隨機(jī)數(shù)為60或90時(shí)關(guān)閉窗體，結(jié)束程序

38.在窗體上畫1個(gè)名稱為Command1的命令按鈕，1個(gè)名稱為L(zhǎng)abel1的標(biāo)簽，然后編寫如下事件過程：

Private Sub Command1_Click()

Dim m As Integer, x As Integer

Dim tag As Boolean

x = InputBox("請(qǐng)輸入一個(gè)正整數(shù)：")

tag = True

m = 2

Do While tag And m < x \ 2

If x Mod m = 0 Then

tag = False

Else

m = m + 1

End If

Loop

If Not tag Then x = x + 1

Loop While Not tag

Label1.Caption = x

End Sub

程序運(yùn)行后，單擊命令按鈕Command1，并在輸入對(duì)話框中輸入14，則標(biāo)簽中顯示的內(nèi)容是

A.7

B.13

C.14

D.17

39.編寫如下程序：

Private Sub Command1_Click()

Dim a As Integer, i As Integer

a = 2

For i = 1 To 3

Print fun_s(a);

Next i

End Sub

Function fun_s(a As Integer) As Integer

Dim b As Integer

Static c As Integer

a = a + 1

b = b + 1

c = c + 1

fun_s = a + b + c

End Function

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

A. 4 5 6

B. 5 6 7

C. 5 7 9

D. 4 6 8

40.窗體上有2個(gè)名稱為L(zhǎng)ist1、List2的列表框，1個(gè)標(biāo)題為"移動(dòng)"的命令按鈕Command1，如圖所示。在List1中選擇多個(gè)項(xiàng)目，并單擊"移動(dòng)"命令按鈕，則選中的項(xiàng)目被移動(dòng)到List2中。編寫如下程序：

Private Sub Command1_Click()

Dim i As Integer,j As Integer, k As Integer

Dim n As Integer,arr() As Integer

n=List1.SelCount

ReDim arr(1 to n)

m=1

For i=1 To List1.ListCount 'i循環(huán)

If List1.Selected(i) Then

arr(m)=i

m=m+1

End if

Next i

For j=1 To n 'j循環(huán)

List2.AddItem.List1.List(arr(i))

List1.RemoveItem arr(i)

For k=j+1 TO n 'k循環(huán)

arr(k)=arr(k)-1

next k

next j

End Sub

運(yùn)行程序，發(fā)現(xiàn)有錯(cuò)誤，以一下正確的修改是

A.i循環(huán)的初始語句應(yīng)改為：For i = 0 To List1.ListCount - 1

B.k循環(huán)的循環(huán)體應(yīng)改為：arr(k) = arr(k) + 1

C.j循環(huán)的初始語句應(yīng)改為：For j = m - 1 To n

D.刪除k循環(huán)涉及的三行代碼

1.A 2.D 3.B 4.C 5.A 6.B 7.A 8.A 9.B 10.B 11.C 12.B 13.D 14.D 15.A 16.B 17.C 18.D 19.C 20.D 21.B 22.C 23.D 24.D 25.D 26.A 27.D 28.A 29.C 30.A 31.C 32.A 33.B 34.C 35.D 36.B 37.D 38.D 39.C 40.A