一、 選擇題(第小題2分,共70分)

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

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

A) 算法的效率只與問題的規模有關，而與數據的存儲結構無關

B) 算法的時間復雜度是指執行算法所需要的計算工作量

C) 數據的邏輯結構與存儲結構是一一對應的

D) 算法的時間復雜度與空間復雜度一定相關

(2) 在結構化程序設計中，模塊劃分的原則是

A) 各模塊應包括盡量多的功能

B) 各模塊的規模應盡量大

C) 各模塊之間的聯系應盡量緊密

D) 模塊內具有高內聚度、模塊間具有低耦合度

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

A) 軟件測試的主要目的是發現程序中的錯誤

B) 軟件測試的主要目的是確定程序中錯誤的位置

C) 為了提高軟件測試的效率，由程序編制者自己來完成軟件的測試工作

D) 軟件測試是證明軟件沒有錯誤

(4) 下面選項中不屬于面向對象程序設計特征的是

A)繼承性 B)多態性 C)類比性 D)封裝性

(5) 下列對隊列的敘述正確的是

A) 隊列屬于非線性表

B) 隊列按“先進后出”原則組織數據

C) 隊列在隊尾刪除數據

D) 隊列按“先進先出”原則組織數據

(6) 對下列二叉樹

A

B C

D E F X

Y Z

進行前序遍歷的結果為

A)DYBEAFCZX B)YDEBFZXCA

C)ABDYECFXZ D)ABCDEFXYZ

(7)某二叉樹中有n個度為2的結點,則該二叉樹中的葉子結點數為

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

(8)在下列關系運算中,不改變關系表中的屬性個數但能減少元組個數的是

A)并 B)交 C)投影 D)笛卡兒乘積

(9)在E—R圖中,用來表示實體之間聯系的圖形是

A)矩形 B)橢圓形 C)菱形 D)平行四邊形

(10)下列敘述中錯誤的是

A)在數據庫系統中,數據的物理結構必須與邏輯結構一致

B)數據庫技術的根本目標是解決數據共享問題

C)數據庫技術是指己有數據管理系統的基礎上建立數據庫

D)數據庫系統需要操作系統的支持

(11)下面可以正確定義2個整形變量和1個字符串變量的語句的是

A)Dim n,m AS Interger,s AS String B)Dim a%,b$,c AS String

C)Dim a AS Integer,b,c AS String D)Dim x%,y AS Integer,z AS String

(12)下列表述中不能判斷x是否為偶數的是

A)x/2=Int(x/2) B)x Mod 2=0 C)Fix(x/2)=x/2 D)x\2=0

13)設在名稱為Myform的窗體上只有1個名稱為C1的命令按鈕,下面敘述中正確的是

A)窗體的Click事件過程的過程名是Myform_Click

B)命令按鈕的Click事件過程名是C1_Click

C)命令按鈕的Click事件過程的過程名是Command1_Click

(14)設窗體上有1個滾動條,要求單擊滾動條右端的◢按鈕一次,滾動條移動一定的刻度值,決定此刻度的屬性是

A)Max B)Min C)SmallChange D)LargeChang

(15)1個二維數組可以存放1個矩形.在程序開始有語句Option Base 0,則下面定義的數組中正好可以存放1個4*3矩陣(即只有12個元素)的是

A)Dim a(-2 To 0,2) AS Integer B)Dim a(3,2) AS Ingeger

C)Dim a(4,3)AS Ingeger D)Dim a(-1 To -4,-1 To -3)AS Ingeger

(16)若設置了文本框的屬性PasswordChar=”$”,則運行程序時向文本框中輸入8個任意字符后,文本框中顯示的是

A)8個”$” B)1個”$” C)8個”*” D)無任何內容

(17)設在窗體上有1個名稱為Combo1的組合框,含有5個項目,要刪除最后一項,正確的語句是

A)Combo1.RemoveItem Combo1.Text B) Combo1.RemoveItem4

C) Combo1.RemoveItem Combo1.ListCount D) Combo1.RemoveItem5

(18)工程中有2個窗體,名稱分別為Form1.Form2,Form1為啟動窗體,該窗體上有命令按鈕Command1,要求程序運行后單擊該命令按鈕時顯示Form2,則按鈕的Click事件過程應該是

A)Private Sub Command1_Click( ) B) Private Sub Command1_Click( )

Form2.Show Form2.Visible

End Sub End Sub

C) Private Sub Command1_Click( ) D)Private Sub Command1_Click( )

Load Form2 Form2.Load

End Sub End Sub

(19)若在某窗體模塊中有如下事件過程

Private Sub Command1_Click(Index AS Integer)

……

End Sub

則以下敘述中正確的是

A) 此事件過程與不帶參數的事件過程沒有區別

B) 有1個名稱為Command1的窗體,單擊此窗體則執行此事件過程

C) 有1個名稱為Command1的空件數組,數組中有多個不同類型控件

D) 有1個名稱為Command1的空件數組,數組中有多個相同類型控件

(20)以下循環語句中在任何情況下都至少執行一次循環體的是

A)Do While B)While

循環體 循環體

Loop Wend

C)Do D)Do Until

循環體 循環體

Loop Until Loop

(21)在窗體上有1個名為Cd1的通用對話框,為了在運行程序時打開保存文件對話框,則在程序總應使用的語句是

A)Cd1.Action=2 B)Cd1.Action=1

C)Cd1.ShowSave=Ture D)Cd1.ShowSave=0

(22)下面關于菜單的敘述中錯誤的是

A)各級菜單中的所有菜單項的名稱必須

B)同一子菜單中的菜單項名稱必須,但不同子菜單中的菜單項名稱可以相同

C)彈出式菜單也用菜單編輯器編輯

(23)已知有下面的過程

Private Sub proc1(a As Integer,b As String,Optional x As Boolean)

……

End Sub

正確調用此過程的語句是

A)Call procl(5) B)Call proc1 5,”abc”,False

C)proc1(12,”abc”,True) D)proc1 5, “abc”

(24)在窗體上有一個文件名稱為Text1的文本框和1個名稱為Command1的命令按鈕，要求在程序執行時，每單擊命令按鈕一次，文本框向右移動一定距離。下面能夠正確實現上述功能的程序是

A)Private Sub Command1_Click() B) Private Sub Command1_Click()

Text1.Left=100 Text1.Left= Text1.Left-100

End Sub End Sub

C)Private Sub Command1_Click() D) Private Sub Command1_Click()

Text1.Move.Text.Left+100 Text1.Move.Text.Left

End Sub End Sub

(25)某人創建了1個工程，其中的窗體名稱為Form1;之后又添加了1個名為Form2的窗體，并希望程序執行時先顯示Form2窗體，那么，他需要做的工作是

A)在工程屬性對話框中把“啟動對象”設置為Form2

B)在Form1的Load事件過程中加入語句 Load Form2

C)在Form2的Load事件過程中加入語句Form2.Show

D)在Form2的TabIndex屬性設置為１，把Form1的TabIndex屬性設置為２

(26)窗體上有１個名稱為Text1的文本框和１個名稱為Command1的命令按鈕。要求程序運行時，單擊命令按鈕，就可以把文本框中的內容寫到文件out.txt中，每次寫入的內容附加到文件原有內容之后。下面能夠實現上述功能的程序是

A)Private Sub Command1_Click() B) Private Sub Command1_Click()

Open “out.txt” For Inpit As#1 Open “out.txt” For Outpit As#1

Print#1,Text1.Text Print#1,Text1.Text

Close#1 Close#1

End Sub End Sub

C) Private Sub Command1_Click() D) Private Sub Command1_Click()

Open “out.txt” For Append As#1 Open “out.txt” For Random As#1

Print#1,Text1.Text Print#1,Text1.Text

Close#1　　　　　　　　　　　　　 Close#1

End Sub End Sub

(27)為計算1+3+5+……+99的值，某人編程如下

k=1

s=0

While k<=99

k=k+2 : s=s+k

Wend

Print s

在調試時發現運行結果有錯誤，需要修改。下列錯誤原因和修改方案中正確的是

A) While …Wend循環語句錯誤，應改為For k=1 To 99 …Next k

B) 循環條件錯誤，應改為Whlie k<99

C) 循環前的賦值語句k=1錯誤，應改為k=0

D) 循環中兩條賦值語句的順序錯誤，應改為s=s+k : k=k+2

(28)下面程序在調試時出現了死循環

Private Sub Command1_Click()

n=InputBox(“請輸入一個整數”)

Do

If n Mod 2=0 Then

n=n+1

Else

n=n+2

Else If

Loop Until n=1000

End Sub

下面關于死循環的敘述中正確的是

A) 只有輸入的n是偶數時才會出現死循環，否則不會

B) 只有輸入的n是奇數時才會出現死循環，否則不會

C) 只有輸入的n是大于1000的整數時才會出現死循環，否則不會

D) 輸入任何整數都會出現死循環

(29)在窗體上有1個名稱為CommonDialog1的通用對話框和1個名稱為Command1的命令按鈕，以及其他一些控件。要求在程序運行時，單擊Command1按鈕，則顯示打開文件對話框，并在選擇或輸入了1個文件名后，就可以打開該文件。以下是Command1_Click事件過程的兩種算法

算法1：

Private Sub Command1_Click()

CommonDialog1.ShowOpen

Open CommonDialog1.FileName For Input As#1

End Sub

算法2：

Private Sub Command1_Click()

CommonDialog1.ShowOpen

IfCommonDialog1.FileName<>””Then

Open CommonDialog1.FileName For Input As#1

End If

End Sub

下面關于這兩種算法的敘述中正確的是

A) 顯示打開文件對話框后若未選擇或輸入任何文件名，則算法2會出錯，算法1不會

B) 顯示打開文件對話框后若未選擇或輸入任何文件名，則算法1會出錯，算法2不會

C) 兩種算法的執行結果完全一樣

D) 算法1允許輸入的文件名中含有空格，而算法2不允許

(30)窗體上有1個名稱為List的列表框，其中已經輸入了若干個項目(如圖所示)：還有2個文本框，名稱分別為Text1、Text2, 1個名稱為Command1的命令按鈕，并有以下程序

Private Sub Command1_Click()

Dim str As String, s As String, k As Integer

s=Text1

Str=””

For k=List1.ListCount-1 to 0 Step-1

If InStr(List.List(k),s)>0 then

str=str&List.List(k)&” ”

End If

Next k

If str=””Then

Text2=”沒有匹配的項目”

Else

Text2=str

End If

End Sub

程序運行時，在Text1中輸入“京”，單擊命令按鈕，則在Text2中顯示的內容是

A) 京 B) 北京 南京

C) 南京 D) 沒有匹配的項目

(31)在窗體上畫1一個名稱為Command1的命令按鈕，并編寫以下程序

Private Sub Command1_Click()

Print fun(“ABCDEFG”)

End Sub

Function fun(st As String) As String

stlen=Len(st)

temp=””

For k

fun=temp

End Function

程序運行時，單擊命令按鈕，則窗體上顯示的是

A)ABCDEFG B)AGBFCE C)GFEDCBA D)AGBFCED

(32)在窗體上先后畫2個圖片框，名稱分別為Picture1和banana,banana中添加了香蕉圖片(見圖1)，且將banana.DragMode屬性設置為1。要求程序運行時，可以用鼠標把banana拖拽到Picture1中(見圖2)。能實現此功能的事件過程是

A) Priate Sub Form_DragDrop(Source As Control,X As Single,Y As Single banana.Move Picture1.Left+X,Picture1.Top+Y)

End Sub

B)Private Sub banana _DragDrop(Source As Control,X As Single,Y As Single )

Source.Move Picture1.Left+X.Picture1.Top+Y

End Sub

C) B)Private Sub Picture1_DragDrop(Source As Control,X As Single,Y As Single )

Source.Move Picture1.Left+X.Picture1.Top+Y

End Sub

D) B)Private Sub Picture1_DragDrop(Source As Control,X As Single,Y As Single )

banana.Move banana.Left+X, banana.Top+Y

End Sub

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

Option Base 1

Pribate Sub Command1_Click()

Dim a(5.5) As Integer

For i=1 To 5

a(I,j)*5\10

Next j

Next i

S=0

For i=1 To 5

S=s+a(i,i)

Next i

Print s

End Sub

程序運行后，單擊命令按鈕，輸出結果是

A) 15 B)13 C)11 D)9

(34)在窗體上從左到右有Text1、Text2兩個文本框(見圖)，要求程序運行時，在Text1中輸入1個分數后按回車鍵，則判斷分數的合法性，若分數為0~100中的1個數，周圍光標移到Text2中；否則光標不動，并彈出對話框顯示“分數錯”，下面程序中正確的是

A)Private Sub Text1__KeyPress(KeyAscii AS Integer)

If KeyAscii=13 Then ‘回車符的ACSII碼是13

a=Val(Text1)

If a>=0 or a<=100 Then

Text2.SetFocus

Else

Text1. SetFocus MsgBox(“分數錯”)

End If

End If

End Sub

B) Private Sub Text1__KeyPress(KeyAscii AS Integer)

If KeyAscii=13 Then ‘回車符的ACSII碼是13

a=Val(Text1)

If a>=0 And a<=100 Then

Text1.SetFocus

Else

Text2. SetFocus MsgBox(“分數錯”)

End If

End If

End Sub

C) Private Sub Text1__KeyPress(KeyAscii AS Integer)

If KeyAscii=13 Then ‘回車符的ACSII碼是13

a=Val(Text1)

If a<0 And a>100 Then

Text2.SetFocus

Else

Text1. SetFocus MsgBox(“分數錯”)

End If

End If

End Sub

D) Private Sub Text1__KeyPress(KeyAscii AS Integer)

If KeyAscii=13 Then ‘回車符的ACSII碼是13

a=Val(Text1)

If a>=0 And a<=100 Then

Text2.SetFocus

Else

Text1. SetFocus MsgBox(“分數錯”)

End If

End If

End Sub

(35)在窗體上畫2個命令按鈕，名稱分別為Command1、command2，并編寫如下程序

Const n=5,m=4

Dim a(m,n)

Private Sub Command1_Click()

K=1

For i=1 To m

For j=1 To n

a(i,j)=k

k=k+1

Next j

Next i

Private Sub Command2_Click()

Summ=0

For i=1 To m

For j=1 To n

If i=1 Or i=m Then

Summ=summ+a(i,j)

Else

If j=I Or j=n Then

Summ=summ+a(i,j)

End If

End If

Next j

Next i

Print summ

End Sub

過程Command1_Click()的作用是二維數組a 中存放1個 m行n列的矩陣；過程Command2_Click()的作用是

A) 計算矩陣外圍一圈元素的累加和

B) 計算矩陣除外一圈以外的所有元素的累加和

C) 計算矩陣第1列和最后一列元素的累加和

D) 計算矩陣第1行和最后一行元素的累加和

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

請將每一個空的正確答案寫在答題紙上[1]~[15]序號的橫線上，答在試卷上，答在試卷上不得分，

注意：以命令關鍵字填空的必須寫完整

(1)在深度為7的滿二叉樹中，度為2的結點個數為__________。

(2)軟件測試分為白箱(盒)測試和黑箱(盒)測試，等價類劃分法屬于___________ 測試。

(3)在數據庫系統中，實現各種數據管理功能的核心軟件稱為 數據庫管理系統__________

(4)軟件生命周期可分為多個階段，一般分為定義階段、開發階段和維護階段。編碼和測試屬于 _____階段。

(5)在結構化分析使用的數據流圖(DFD)中，利用 _____ 對其中的圖形元素進行確切解釋。

(6)1+ + + +…….n的的n。請填空

Private Sub Command1__Click()

Dim s ,m,n AS Integer

m=Val(InputBox(“請輸入一個大于100的整數”))

n= ______________

s=0

Do While sN=n+1

S=s+n*n

Loop

Print “滿足不等式的n是 ____________

End Sub

(7)下面程序的功能是把文件file11.txt中重復字符去掉后(即若有多個字符相同，則只保留1個)寫入文件file2.txt。請填空。

Private Sub Command1__Click()

Dim inchar AS String,temp AS String,outchar AS String

Outchar=” ”

Open=”file1.txt” For Input AS #1

Open=”file2.txt” For Output AS _________

n=LOF( __________ )

inchar=Input$(n,1)

For k=1 To n

temp=Mid(inchar,k,1)

If InStr(outchar,temp)= _________ Then

outchar=outchar & temp

End If

Next k

print #2, ______________

close #2

close #1

End Sub

(8)在窗體上先畫1個名為Text1的文本框和平個名為Label1的標簽,再畫1個名為OP1的有4個單選按鈕數組,其Index屬性按季度順序為0∽3(見圖1)。在文件sales.txt中按月份順序存有某企業某年12個月的銷售額。要求在程序執行時，鼠標單擊1個單選按鈕，則Text1中顯示相應季度的銷售總額，并把相應的文字顯示在標簽上。圖2是單擊“第3季度”單選按鈕產生的結果。請填空。

Dim sales(12) As Long

Private Sub Form__Load()

open “sales.txt” For Input AS #1

For k=1 To 12

Input #1,sales(k)

Next k

Close #1

End Sub

Private Sub ___________ (Index, AS Integer)

Dim sum AS Long ,k AS Ingeger,month AS Ingeger

sum=0

month=Index* ____________

For k=1 To 3

month=month+1

sum=sum+sales(month)

Next k

Label1.Caption=Opl(Index). ________________ & “銷售總額：”

Text1=sum

End Sub

(9)某人編寫如下函數來判斷a是否為素數，若是，則函數返回True；否則返回False

Function Prime(a As Integer)AS Boolean

Dim k As Interger,isprime AS Boolean

If a<2 Then

isprime=False

Else

isprime=True

k=2

Do While kIf a Mod k=0 Then

isprime=False

ELSE

k=k+1

End IF

LOOP

End If

prime=isprime

End Function

在測試時發現有1個非素數也被判斷為素數，這個錯判的數是 ________

2007年4月二級全國計算機等級考試二級VB筆試參考答案

一、選擇：

1-10 bdacd cabca

11-20 ddbcb abadc

21-30 abdca cddbc

31-35 bcada

二.填空題

(1)【答案】 63

(2)【答案】黑盒

(3)【答案】數據庫管理系統

(4)【答案】開發

(5)【答案】數據字典

(6)【答案】0

(7)【答案】 N-1

(8)【答案】#2

(9)【答案】1

(10)【答案】0

(11)【答案】outchar

(12)【答案】 op1_click

(13)【答案】3

(14)【答案】 caption

(15)【答案】 4

2007年4月全國計算機等級考試二級VB筆試試卷及參考答案.doc

下載Word文檔到電腦，方便收藏和打印[全文共8327字]

編輯推薦：

下載Word文檔

總結

以上是生活随笔為你收集整理的vb计算机水平考试笔试,2007年4月全国计算机等级考试二级VB笔试试卷及参考答案...的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。