izllio全國計(jì)算機(jī)二級考試vb試題

1、、| !_一個人總要走陌生的路，看陌生的風(fēng)景，聽陌生的歌，然后在某個不經(jīng)意的瞬間，你會發(fā)現(xiàn)，原本費(fèi)盡心機(jī)想要忘記的事情真的就這么忘記了. 2010年3月全國計(jì)算機(jī)等級考試二級VB筆試試卷(含參考答案)一、選擇題（每題2分，共70分）（1）下列敘述中正確的是(    )A)對長度為n的有序鏈表進(jìn)行查找，最壞情況下需要比較次數(shù)為nB)對長度為n的有序鏈表進(jìn)行對分查找，最壞情況下需要比較次數(shù)為（n/2）C)對長度為n的有序鏈表進(jìn)行對分查找，最壞情況下需要的比較次數(shù)（log2n）D)對長度為n的有序鏈表進(jìn)行對分查找，最壞情況下需要的比較次數(shù)（nlog2n）（2）

2、算法的時間復(fù)雜是指(    )A)算法的執(zhí)行時間                B)算法所處理的數(shù)據(jù)量C)算法程序中的語句或指令條數(shù)    D)算法在執(zhí)行過程中所需要的基本運(yùn)算次數(shù)（3）軟件按功能可以分為：應(yīng)用軟件、系統(tǒng)軟件和支持軟件（或工具軟件），下面屬于系統(tǒng)軟件的是(    )A)編輯軟件  &

3、#160; B)操作系統(tǒng)     C)教務(wù)管理系統(tǒng)     D）瀏覽器（4）軟件（程序）調(diào)試的任務(wù)是(    )A)診斷和改正程序中的錯誤           B)進(jìn)肯能多的發(fā)現(xiàn)程序中的錯誤C)發(fā)現(xiàn)并改正程序中的所有錯誤       D)確定程序中錯誤的性質(zhì)（5）數(shù)據(jù)流

4、程圖（DFD圖）是(    )A)軟件概要設(shè)計(jì)的工具               B)軟件詳細(xì)設(shè)計(jì)的工具C)機(jī)構(gòu)化方法的需求分析工具         D)面向?qū)ο蠓椒ǖ男枨蠓治龉ぞ撸?）軟件生命周期可以分為定義階段，開發(fā)階段和維護(hù)階段。詳細(xì)設(shè)計(jì)屬于(    )A)定義階段

5、0;  B)開發(fā)階段   C)維護(hù)階段     D)上述三個階段（7）數(shù)據(jù)庫管理系統(tǒng)中負(fù)責(zé)數(shù)據(jù)模式定義的語言是A）數(shù)據(jù)定義語言B）數(shù)據(jù)管理語言C）數(shù)據(jù)操縱語言D）數(shù)據(jù)控制語言（8）在學(xué)生管理的關(guān)系數(shù)據(jù)庫中，存取一個學(xué)生信息的數(shù)據(jù)單位是A）文件B）數(shù)據(jù)庫C）字段D）記錄（9）數(shù)據(jù)庫設(shè)計(jì)中，用E-R圖來描述信息結(jié)構(gòu)但不涉及信息在計(jì)算機(jī)中的表示，它屬于數(shù)據(jù)庫設(shè)計(jì)的A）需求分析階段B）邏輯設(shè)計(jì)階段C）概念設(shè)計(jì)階段D）物理設(shè)計(jì)階段（10）有兩個關(guān)系R和T如下： 則由關(guān)系R得到關(guān)系T的操作是A）選

6、擇B）投影C）交D）并（11）在VB集成環(huán)境中要結(jié)束一個正在運(yùn)行的工程，可單擊工具欄上的一個按鈕，這個按鈕是（12）設(shè)x是整型變量，與函數(shù)f(x>0,-x,x)有相同結(jié)果的代數(shù)式是A）|x|B）-|x|C）xD）-x（13）設(shè)窗體文件中有下面的事件過程：Private Sub Command1_Click（）Dim sa%=100Print aEnd Sub其中變量a和s的數(shù)據(jù)類型分別是A）整型，整型B）變體型，變體型C）整型，變體型D）變體型，整型（14）下面哪個屬性肯定不是框架控件的屬性A）TextB）CaptionC）LeftD）E

7、nabled（15）下面不能在信息框中輸出“VB”的是A）MsgBox "VB"B）x=MsgBox（"VB"）C）MsgBox（"VB"）D）Call MsgBox "VB"（16）窗體上有一個名稱為Option1的單選按鈕數(shù)組，程序運(yùn)行時，當(dāng)單擊某個單選按鈕時，會調(diào)用下面的事件過程Private Sub Option1_C1ick（Index As Integer）End Sub下面關(guān)于此過程的參數(shù)Index的敘述中正確的是A）In

8、dex為1表示單選按鈕被選中，為O表示未選中B）Index的值可正可負(fù)C）Index的值用來區(qū)分哪個單選按鈕被選中D）Index表示數(shù)組中單選按鈕的數(shù)量（17）設(shè)窗體中有一個文本框Text1，若在程序中執(zhí)行了Text1.SetFocus，則觸發(fā)A）Text1的SetFocus事件B）Text1的GotFocus事件C）Text1的LostFocus事件D）窗體的GotFocus事件（18）VB中有3個鍵盤事件：KeyPress、KeyDown、KeyUp，若光標(biāo)在Text1文本框中，則每輸入一個字母A）這3個事件都會觸發(fā)B）只觸發(fā)KeyPress事件C）只觸發(fā)KeyDown、KeyUp事件D）

9、不觸發(fā)其中任何一個事件（19）下面關(guān)于標(biāo)準(zhǔn)模塊的敘述中錯誤的是A）標(biāo)準(zhǔn)模塊中可以聲明全局變量B）標(biāo)準(zhǔn)模塊中可以包含一個Sub Main過程，但此過程不能被設(shè)置為啟動過程C）標(biāo)準(zhǔn)模塊中可以包含一些Public過程D）一個工程中可以含有多個標(biāo)準(zhǔn)模塊（20）設(shè)窗體的名稱為Form1，標(biāo)題為Win，則窗體的MouseDown事件過程的過程名是A）Form1_MouseDownB）Win_MouseDownC）Form_MouseDownD）MouseDown_Form1（21）下面正確使用動態(tài)數(shù)組的是A）Dim arr() As Integer 

10、60;    ReDim arr(3,5)B）Dim arr() As Integer      ReDim arr(50)As StringC）Dim arr()      ReDim arr(50) As IntegerD）Dim arr(50) As Integer   &

11、#160;  ReDim arr(20)（22）下面是求最大公約數(shù)的函數(shù)的首部Function gcd(ByVal x As Integer, ByVal y As Integer) As Integer若要輸出8、12、16這3個數(shù)的最大公約數(shù)，下面正確的語句是A）Print gcd(8,12)，gcd(12,16)，gcd(16,8)B）Print gcd(8,12,16)C）Print gcd(8)，gcd(12)，gcd(16)

12、D）Print gcd(8,gcd(12,16)（23）有下面的程序段，其功能是按圖1所示的規(guī)律輸出數(shù)據(jù)Dim a(3,5) As IntegerFor i=1 To 3 For j=1 To 5   A(i,j)=i+j   Print a(i,j); Next PrintNext若要按圖2所示的規(guī)律繼續(xù)輸出數(shù)據(jù)，則接在上述程序段后面的程序段應(yīng)該是A）For i=1 To&#

13、160;5    For j=1 To 3      Print a（j,i）;    Next    Print  NextB）For i=1 To 3    For j=1 To 5      P

14、rint a（j,i）;    Next    Print  NextC）For j=1 To 5    For i=1 To 3      Print a（j,i）;    Next    Print  NextD）F

15、or i=1 To 5    For j=1 To 3      Print a（i,j）;    Next    Print  Next（24）窗體上有一個Text1文本框，一個Command1命令按鈕，并有以下程序Private Sub Commandl_Click（）   

16、Dim n   If Text1.Text<>"23456" Then       n=n1       Print "口令輸入錯誤" & n & "次"   End IfEnd Sub希望程序運(yùn)行時得到左圖所示

17、的效果，即：輸入口令，單擊“確認(rèn)口令”命令按鈕，若輸入的口令不是“123456”，則在窗體上顯示輸入錯誤口令的次數(shù)。但上面的程序?qū)嶋H顯示的是右圖所示的效果，程序需要修改。下面修改方案中正確的是A）在Dim n語句的下面添加一句：n=OB）把Print "口令輸入錯誤" & n & "次"改為Print "口令輸入錯誤" +n+"次"C）把Print "口令輸入錯誤" &&#

18、160;n & "次"改為Print "口令輸入錯誤"&Str(n)&"次"D）把Dim n改為Static n（25）要求當(dāng)鼠標(biāo)在圖片框P1中移動時，立即在圖片框中顯示鼠標(biāo)的位置坐標(biāo)。下面能正確實(shí)現(xiàn)上述功能的事件過程是A）Private Sub P1_MouseMove（Button AS Integer,Shift As Integer,X As Single, Y&#

19、160;As Single）       Print X,YEnd SubB）Private Sub P1_MouseDown（Button AS Integer,Shift As Integer,X As Single, Y As Single）       Picture.Print X,YEnd

20、0;SubC） Private Sub P1_MouseMove（Button AS Integer,Shift As Integer,X As Single, Y As Single）       P1.Print X,YEnd SubD）Private Sub Form_MouseMove（Button AS Integer,Shift

21、0;As Integer,X As Single, Y As Single）       P1.Print X,YEnd Sub（26）計(jì)算二的近似值的一個公式是。某人編寫下面的程序用此公式計(jì)算并輸出的近似值：Private Sub Comand1_Click（）   PI1   Sign1   n=20000  &#

22、160;For k=3 To n       Sign=-Sign/k       PI=PI+Sign/k   Next k   Print PI*4End Sub運(yùn)行后發(fā)現(xiàn)結(jié)果為3.22751，顯然，程序需要修改。下面修改方案中正確的是A）把For k=3 To n 改為 For

23、60;k=1 To nB）把n=20000改為n=20000000C）把For k=3 To n改為For k=3 To n Step 2D）把PI=1改為PI=0（27）下面程序計(jì)算并輸出的是Private Sub Comand1_Click（）a=10s=0Dos=s+a*a*aa=a-1Loop Until a<=0Print sEnd SubA）13+23+33+103的值B）10!+3!+2!+1!的值C）（1+2+3+

24、10）3的值D）10個103的和（28）若在窗體模塊的聲明部分聲明了如下自定義類型和數(shù)組Private Type rec   Code As Integer   Caption As StringEnd TypeDim arr（5） As rec則下面的輸出語句中正確的是A）Print arr.Code(2),arr.Caption(2)B）Print arr.Code,arr.CaptionC）Print 

25、;arr(2).Code,arr(2).CaptionD）Print Code(2),Caption(2)（29）設(shè)窗體上有一個通用對話框控件CD1，希望在執(zhí)行下面程序時，打開如圖所示的文件對話框Private Sub Comand1_Click（）   CD1.DialogTitle="打開文件"   CD1.InitDir="C:"   CD1.Filter="所有文件|*.*|Word文檔|*.doc|文本文件|*.Tx

26、t"   CD1.FileName=""   CD1.Action=1   If CD1.FileName=""Then       Print"未打開文件"   Else       Print"要打開文件"& CD1.

27、FileName   End IfEnd Sub但實(shí)際顯示的對話框中列出了C:下的所有文件和文件夾，“文件類型”一欄中顯示的是“所有文件”。下面的修改方案中正確的是A）把CD1.Action=1改為CD1.Action=2B）把“CD1.Filter=”后面字符串中的“所有文件”改為“文本文件”C）在語句CD1.Action=1的前面添加：CD1.FilterIndex=3D）把CD1.FileName=""改為CD1.FileName="文本文件"（30）下面程序運(yùn)行時，若輸入395，則輸出結(jié)果是Pri

28、vate Sub Comand1_Click（）   Dim x%   x=InputBox("請輸入一個3位整數(shù)")   Print x Mod 10,x100,(x Mod 100)10End SubA）3 9 5B）5 3 9C）5 9 3D）3 5 9（31）窗體上有List1、List2兩個列表框，List1

29、中有若干列表項(xiàng)（見圖），并有下面的程序：Private Sub Comand1_Click（）   For k=List1.ListCount-1 To 0 Step -1    If List1.Selected（k） Then       List2.AddItem List1.List（k）     &

30、#160; List1.RemoveItem k    End If   Next kEnd Sub程序運(yùn)行時，按照圖示在List1中選中2個列表項(xiàng)，然后單擊Commandl命令按鈕，則產(chǎn)生的結(jié)果是A）在List2中插入了“外語”、“物理”兩項(xiàng)B）在List1中刪除了“外語”、“物理”兩項(xiàng)C）同時產(chǎn)生A）和B）的結(jié)果D）把List1中最后1個列表項(xiàng)刪除并插入到List2中（32）設(shè)工程中有2個窗體： Form1、Form2，F(xiàn)orm1為啟動窗體。Form2中有菜單。

31、其結(jié)構(gòu)如表。要求在程序運(yùn)行時，在Form1的文本框Text1中輸入口令并按回車鍵（回車鍵的ASCII碼為13）后，隱藏Form1，顯示Form2。若口令為“Teacher”，所有菜單項(xiàng)都可見；否則看不到“成績錄入”菜單項(xiàng)。為此，某人在Form1窗體文件中編寫如下程序：Private Sub Text1_KeyPress（KeyAscii As Integer）   If KeyAscii=13 Then       If Te

32、xt1.Text="Teacher" Then            Form2.input.visible=True       Else            Form2.input.visible=False    

33、;   End If   End If   Form1.Hide   Form2.ShowEnd Sub程序運(yùn)行時發(fā)現(xiàn)剛輸入口令時就隱藏了Form1，顯示了Form2，程序需要修改。下面修改方案中正確的是A）把Form1中Text1文本框及相關(guān)程序放到Form2窗體中B）把Form1.Hide、Form2.Show兩行移到2個End If之間C）把If KeyAscii=13 Then改為 If 

34、KeyAscii="Teaeher" ThenD）把2個Form2.input.Visible中的“Form2”刪去（33）某人編寫了下面的程序，希望能把Text1文本框中的內(nèi)容寫到out.txt文件中Private Sub Comand1_Click（）   Open "out.txt" For Output As #2   Print "Text1"   

35、;Close #2End Sub調(diào)試時發(fā)現(xiàn)沒有達(dá)到目的，為實(shí)現(xiàn)上述目的，應(yīng)做的修改是A）把Print "Text1"改為Print #2,Text1B）把Print "Text1"改為Print Text1C）把Print "Text1"改為Write "Text1"D）把所有#2改為#1（34）窗體上有一個名為Command1的命令按鈕，并有下面的程序：Private Sub Comand1_Click（）

36、0;  Dim arr（5） As Integer   For k=1 To 5       arr（k）=k   Next k   prog arr（）   For k=1 To 5       Print&

37、#160;arr（k）   Next kEnd SubSub prog（a（） As Integer）   n=Ubound（a）   For i=n To 2 step -1       For j=1 To n-1       

38、0;   if a（j）<a（j+1） Then               t=a（j）:a（j）=a（j+1）:a（j+1）=t           End If       Next j&

39、#160;  Next iEnd Sub程序運(yùn)行時，單擊命令按鈕后顯示的是A）12345B）54321C）01234D）43210（35）下面程序運(yùn)行時，若輸入“Visual Basic Programming”，則在窗體上輸出的是Private Sub Comand1_Click（）Dim count（25） As Integer, ch As Stringch=Ucase（InputBox（"請輸入字母字符串"）For k

40、=1 To Len（ch）n=Asc（Mid（ch,k,1）-Asc（"A"）If n>=0 ThenCount（n）=Count（n）+ 1End IfNext km=count（0）For k=1 To 25If m<count（k） Thenm=count（k）End IfNext kPrint mEnd SubA）0B）1C）2D）3二、填空題（1）一個隊(duì)列的初始狀態(tài)為空。現(xiàn)將元素A,B,C,D,

41、E,F,5,4,3,2,1依次入隊(duì)，然后再依次退隊(duì)，則元素退隊(duì)的順序?yàn)?#160; 【1】  。（2）設(shè)某循環(huán)隊(duì)列的容量為50，如果頭指針front=45（指向隊(duì)頭元素的前一位置），尾指針rear=10（指向隊(duì)尾元素），則該循環(huán)隊(duì)列中共有  【2】  個元素。（3）設(shè)二叉樹如下： 對該二叉樹進(jìn)行后序遍歷的結(jié)果為  【3】  。（4）軟件是  【4】 、數(shù)據(jù)和文檔的集合。（5）有一個學(xué)生選課的關(guān)系，其中學(xué)生的關(guān)系模式為：學(xué)生（學(xué)號，姓名，班級，年齡

42、），課程的關(guān)系模式為：課程（課號，課程名，學(xué)時），其中兩個關(guān)系模式的鍵分別是學(xué)號和課號，則關(guān)系模式選課可定義為：選課（學(xué)號，  【5】  ，成績）。（6）為了使復(fù)選框禁用（即呈現(xiàn)灰色），應(yīng)把它的value屬性設(shè)置為  【6】  。（7）在窗體上畫一個標(biāo)簽、一個計(jì)時器和一個命令按鈕，其名稱分別為Labl1、Timer1和Command1，如圖1所示。程序運(yùn)行后，如果單擊命令按鈕，則標(biāo)簽開始閃爍，每秒鐘“歡迎”二字顯示、消失各一次，如圖2所示。以下是實(shí)現(xiàn)上述功能的程序，請?zhí)羁?。Private Sub 

43、;Form_Load（）   Label1.Caption="歡迎"   Timer1.Enabled=False   Timer1.Interval=  【7】End SubPrivate Sub Timer1_Timer（）   Label1.Visible=  【8】End SubPrivate Sub command1_Click（） &#

44、160; 【9】End Sub（8）有如下程序：Private Sub Form_Click（）   n=10   i=0   Do       i=i+n       n=n-2   Loop While n>2   Print i

45、End Sub程序運(yùn)行后，單擊窗體，輸出結(jié)果為  【10】 。（9）在窗體上畫一個名稱為Command1的命令按鈕。然后編寫如下程序：Option Base 1Private Sub Command1_Click（）   Dim a（10） As Integer   For i=1 To 10       a（i）=i 

46、;  Next   Call swap （  【11】  ）   For i=1 To 10       Print a（i）;   NextEnd SubSub swap（b（） As Integer）    n=Ubound（b）   For i=1 To n / 2       t=b（i）       b（i）=b（n）       b（n）=t       【12】   NextEnd Sub上述程序的功能是，通過調(diào)用過程s