2011年9月全國計算機等級考試二級筆試試卷VB語言程序設計一、選擇題1、下列敘述中正確的是A、算法就是程序 B、設計算法時只需要考慮數據結構的設計C、設計算法時只需要考慮結果的可靠性 D、以上三種說法都不對2、下列關于線性鏈表的敘述中，正確的是A、各數據結點存儲空間可以不連續，但它們的存儲順序與邏輯順序必須一致 B、各數據結點的存儲順序可以不一致，但它們的存儲空間必須連續C、進行插入與刪除時，不需要移動表中的元素 D、以上三種說法都不對3、下列關于二叉樹的敘述中，正確的是A、葉子結點總是比度為2的結點少一個 B、葉子結點總是比度為2的結點多一個C、葉子結點數是度為2的結點數的兩倍 D、度為2的結點數是度為1的結點數的兩倍4、軟件按功能可以分為應用軟件、系統軟件和支撐軟件(或工具軟件)。下面屬于應用軟件的是( )。A、學生成績管理系統 B、C語言編譯程序C、UNIX操作系統 D、數據庫管理系統XY系統功能1功能2功能3功能2.1功能2.2功能2.35、某系統總體結構圖如下圖所示該系統總體結構圖的深度是A、7 B、6 C、3 D、26、程序調試的任務是A、設計測試用例 B、驗證程序的正確性C、發現程序中的錯誤 D、診斷和改正程序的錯誤7、下列關于數據庫設計的敘述中，正確的是A、在需求分析階段建立數據字典B、在概念設計階段建立數據字典C、在邏輯設計階段建立數據字典D、在物理設計階段建立數據字典8、數據庫系統的三級模式不包括A、概念模式 B、內模式 C、外模式 D、數據模式9、有三個關系R、S和T如下：RABCa12b21c31SABCa12b21TABCc31則由關系R和S得到關系T的操作是A、自然連接 B、差 C、交 D、并10、下列選項中屬于面向對象設計方法主要特征的是A、繼承 B、自頂向下 C、模塊化 D、逐步求精11、以下描述中錯誤的是A、窗體的標題通過其Caption屬性設置B、窗體的名稱（Name屬性）可以在運行期間修改C、窗體的背景圖形通過其Picture屬性設置 D、窗體最小化時的圖標通過其Icon屬性設置12、在設計階段，當按Ctrl+R鍵時，所打開的窗口是A、代碼窗口 B、工具箱窗口 C、工程資源管理器窗口 D、屬性窗口13、設有如下變量聲明語句：Dim a，b as Boolean則下列敘述中正確的是（ ）。A、a和b都是布爾型變量 B、a是變體型變量，b是布爾型變量 C、a是整型變量，b是布爾型變量 D、a和b都是變體型變量14、下列可作為Visual Basic變量名的是（ ）。A、A#A B、4ABC C、?xy D、Print_Text15、假定一個滾動條的LargeChange屬性值為100，則100表示（ ）。A、單擊滾動條箭頭和滾動框之間某位置時滾動框位置的變化量B、滾動框位置的最大值 C、拖動滾動框時滾動框位置的變化量D、單擊滾動條箭頭時滾動框位置的變化量16、在窗體上畫一個命令按鈕，然后編寫如下事件過程：Pricate Sub Command1_Click( ) MsgBox Str（123+321）End Sub程序運行后，單擊命令按鈕，則在信息框中顯示的提示信息為（ ）。A、字符串“123+321” B、字符串“444” C、數值“444” D、空白17、假定有以下程序Pricate Sub Form_Click( ) a=1：b=a Do Until a=5 x=a*b Print b;x a=a+bb=b+a LoopEnd Sub程序運行后，單擊窗體，輸出結果是（ ）。A、1 1 B、1 1 C、1 1 D、1 1 2 3 2 4 3 8 3 618、在窗體上畫一個名稱為List1的列表框，列表框中顯示若干城市的名稱。當單擊列表框中的某個城市名時，該城市名消失。下列在List1_Click事件過程中能正確實現上述功能的語句是（ ）。A、List1.RemoveItem List1.Text B、List1.RemoveItem List1.Clear C、List1.RemoveItem List1.ListCount D、List1.RemoveItem List1.ListIndex19、列表框中的項目保存在一個數組中，這個數組的名字是（ ）。A、Column B、Style C、List D、MultiSelect20、有人編寫了如下程序：Private Sub Form_Click( ) Dim s As Integer,x As Integer s=0 x=0 Do While s=10000 x=x+1 s=s+x2 Loop Print sEnd Sub上述程序的功能是：計算s=1+22+32+n2+，直到s10000為止。程序運行后，發現得不到正確的結果，必須進行修改。下列修改中正確的是（ ）。A、把x=0改為x=1 B、把Do While s=10000改為Do While s10000D、交換x=x+1和s=s+x2的位置21、設有如下程序：Private Sub Form_Click( ) Dim s As Long,f As Long Dim n As Integer,i As Integer f=1 n=4 For i=1 To n f=f*i s=s+f Next i Print sEnd Sub程序運行后，單擊窗體，輸出結果是A、32 B、33 C、34 D、3522、閱讀下面的程序段：a=0For i=1 To 3 For j=1 To i For k=j To 3 a=a+1 Next k Next j Next i執行上面的程序段后，a的值為（ ）。A、3 B、9 C、14 D、2123、設有如下程序：Private Sub Form_Click( ) Cls a$=”123456” For i=1 To 6 Print Tab(12-i);_ Next iEnd Sub程序運行后，單擊窗體，要求結果如圖所示，則在_處應填入的內容為（ ）。A、Left(a$,i) B、Mid(a$,8-I,i) C、Right(a$,i) D、Mid(a$,7,i)24、設有如下程序：Private Sub Form_Click( ) Dim i As Integer,x As String,y As String x=”ABCDEFG” For i=4 To 1 Steo -1 y=Mid(x,i,i)+y Next i Print yEnd Sub程序運行后，單擊窗體，輸出結果為（ ）。A、ABCCDEDEFG B、AABBCDEFGC、ABCDEFG D、AABBCCDDEEFFGG25、設有如下程序：Private Sub Form_Click( ) Dim ary(1 To 5) As Integer Dim i As Integer Dim sum As Integer For i=1 To 5 ary(i)=i+1 sum=sum+ary(i) Next iPrint sumEnd Sub程序運行后，單擊窗體，輸出結果為（ ）。A、15 B、16 C、20 D、2526、有一個數列，它的前3個數為0，1，1，此后的每個數都是其前面3個數之和，即0，1，1，2，4，7，13，24，要求編寫程序輸出該數列中所有不超過1000的數。Private Sub Form_Click( ) Dim i As Integer,aAs Integer ,b As IntegerDim c As Integer,d As Integera=0:b=1:c=1d=a+b+ci=5While d=1000 Print d; a=b:b=c:c=d d=a+b+d i=i+1WendEnd Sub運行上面的程序，發現輸出的數列不完整，應進行修改。以下正確的修改是A、把While d1000 B、把i=5改為i=4 C、把i=i+1移到While d=1000的下面D、在i=5的上面增加一個語句：Print a;b;c27、下面的語句用Array函數為數組變量a的各元素賦整數值：a=Array(1,2,3,4,5,6,7,8,9)針對a的聲明語句應該是（ ）。A、Dim a B、Dim a As Integer C、Dim a(9) As Integer D、Dim a() As Integer28、下列描述中正確的是（ ）。A、Visual Basic只能通過過程調用執行通用過程 B、可以在Sub過程的代碼中包含另一個Sub過程的代碼 C、可以像通用過程一樣指定事件過程的名字 D、Sub過程和Function過程都有返回值28、閱讀程序：Function fac(ByVal n As Integer)As Integer Dim temp As Integer temp=1 For i%=1 To n temp=temp*i% Next i% fac=tempEnd FunctionPrivate Sub Form_Click( ) Dim nsum As Integer nsum=1 For i%=2 To 4 nsum=nsum+fac(i%) Next i% Print nsum End Sub程序運行后，單擊窗體，輸出結果是（ ）。A、35 B、31 C、33 D、3730、在窗體上畫一個命令按鈕和一個標簽，其名稱分別為Command1和Label1，然后編寫如下代碼：Sub S(x As Integer,y As Integer) Static z As Integer y=x*x+z z=yEnd SubPrivate Sub Command1_Click( ) Dim i As Integer,z As Integer m=0 z=0 For i=1 To 3 S i,z m=m+z Next i Label1.Caption=Str(m)End Sub程序運行后，單擊命令按鈕，在標簽中顯示的內容是（ ）。A、50 B、20 C、14 D、731、以下說法中正確的是（ ）。A、MouseUp事件是鼠標向上移動時觸發的事件B、MouseUp事件過程中的x，y參數用于修改鼠標位置C、在MouseUp事件過程中可以判斷用戶是否使用了組合鍵D、在MouseUp事件過程中不能判斷鼠標的位置32、假定已經在菜單編輯器中建立了窗體的彈出式菜單，其頂級菜單項的名稱為a1，其“可見”屬性為False。程序運行后，單擊鼠標左鍵或右鍵都能彈出菜單的事件過程是（ ）。A、Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Button =1 And Button =2 Then PopupMenu a1 End IfEnd SubB、Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)PopupMenu a1End SubC、Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Button =1 Then PopupMenu a1 End IfEnd SubD、Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Button =2 Then PopupMenu a1 End IfEnd Sub33、在窗體上畫一個名稱為CD1的通用對話框，并有如下程序：Private Sub Form_Load( ) CD1.DefaultExt=”doc” CD1.FileName=”c:file1.txt” CD1.Filter=”應用程序(*.exe)|*.exe”End Sub程序運行時，如果顯示了“打開”對話框，在“文件類型”下拉列表中的默認文件類型是（ ）。A、應用程序(*.exe) B、*.doc C、*,txt D、不確定34、以下描述中錯誤的是（ ）。A、在多窗體應用程序中，可以有多個當前窗體 B、多窗體應用程序的啟動窗體可以在設計設定C、多窗體應用程序中每個窗體作為一個磁盤文件保存 D、多窗體應用程序可以編譯生成一個EXE文件35、以下關于順序文件的敘述中，正確的是（ ）。A、可以用不同的文件號以不同的讀寫方式同時打開一個文件 B、文件中各記錄的寫入順序與讀出順序是一致的C、可以用Input #或Line Input #語句向文件寫記錄 D、如果用Append方式打開文件，則既可以在文件末尾添加記錄，也可以讀取原有記錄二、填空題（每空2分，共30分）1、數據結構分為線性結構和非線性結構，帶鏈的棧屬于_【1】_。2、在長度為n的順序存儲的線性表中插入一個元素，最壞情況下需要移動表中_【2】_個元素。3、常見的軟件開發方法有結構化方法和面向對象方法。對某應用系統經過需求分析建立數據流圖（DFD），則應采用_【3】_方法。4、數據庫系統的核心是_【4】_。5、在進行關系數據庫的邏輯設計時，E-R圖中的屬性常被轉換為關系中的屬性，聯系通常轉換為_【5】_。6、為了使標簽能自動調整大小以顯示標題（Caption屬性）的全部文本內容，應把該標簽的_【6】_屬性設置為True。7、在窗體上畫一個命令按鈕，其名稱為Command1，然后編寫如下事件過程：Private Sub Command1_Click() x = 1 Result = 1 While x = 10 Result = _【7】_ x = x + 1 Wend Print ResultEnd Sub上述事件過程用來計算10的階乘。請填空。8、在窗體上畫一個命令按鈕，其名稱為Command1，然后編寫如下事件過程：Private Sub Command1_Click()t=0:m=1:Sum=0Do t=t+【8】 Sum=Sum+【9】 m=m+2Loop While【10】Print SumEnd Sub該程序的功能是，單機命令按鈕，則計算并輸出以下表達式的值：1+(1+3)+(1+3+5)+(1+3+5+39)，請填空。(9)在窗體上畫一個命令按鈕（其Name屬性為Command1），然后編寫如下代碼：Private Sub Command1_Click()Dim M(10) As IntegerFor k =1 to 10 M(k)=12-kNextx=6Print M(2+M(x)End Sub程序運行后，單擊命令按鈕，輸出結果是【11】(10)在窗體上畫一個命令按鈕，（其Name屬性為Command1），然后編寫如下代碼：Private Sub Command1_Click()Dim n As Integern=Val(Inputbox(“請輸入一個整數：”)If n Mod 3=0 And n Mod 2=0 And n Mod 5=0 Then Print