2017年9月計算機二級考試VB強化練習題

9月計算機二級考試VB強化練習題及答案推薦度：
相關推薦

　　在計算機二級考試VB考試前，最重要的是充分做題，減少錯誤率。下面小編為大家整理了2017年9月計算機二級考試VB強化練習題，希望能幫到大家！

2017年9月計算機二級考試VB強化練習題

　　單選題

　　1). 以下關于多重窗體程序的敘述中，錯誤的是( ).

　　A.對于多重窗體程序，需要單獨保存每個窗體

　　B.在多重窗體程序中，可以根據需要指定啟動窗體

　　C.在多重窗體程序中，各窗體的菜單是彼此獨立的

　　D.用Hide方法不僅可以隱藏窗體，而且還可以清除內存中的窗體

　　正確答案：D

　　答案解析：用Hide方法只是隱藏窗體，不卸載窗體，所以不會清除內存中的窗體。故選項D錯誤。

　　2). 以下關于焦點的敘述中，錯誤的是( )

　　A.如果文本框的TabStop屬性為False，則不能接收從鍵盤上輸入的數據

　　B.當文本框失去焦點時，觸發LostFocus事件

　　C.當文本框的Enabled屬性為False時，其Tab順序不起作用

　　D.可以用TabIndex屬性改變Tab順序

　　正確答案：A

　　3). 當把框架的何屬性設置為False時，其標題會變灰，框架中所有的對象均被屏蔽?

　　A.Name

　　B.Enabled

　　C.Caption

　　D.Visible

　　正確答案：B

　　4). 以下關于函數過程的敘述中，正確的是

　　A.函數過程形參的類型與函數返回值的類型沒有關系

　　B.在函數過程中，過程的返回值可以有多個

　　C.當數組作為函數過程的參數時，既能以傳值方式傳遞，也能以傳址方式傳遞

　　D.如果不指明函數過程參數的類型，則該參數沒有數據類型

　　正確答案：A

　　5). 下列關于別名和自聯接的說法中，正確的是

　　A.SQL語句中允許在WHERE短語中為關系定義別名

　　B.為關系定義別名的格式為：

　　C.在關系的自聯接操作中，別名是必不可少的

　　D.以上說法均正確

　　正確答案：C

　　6). 鏈表不具有的特點是

　　A.不必事先估計存儲空間

　　B.可隨機訪問任一元素

　　C.插入刪除不需要移動元素

　　D.所需空間與線性表長度成正比

　　正確答案：B

　　二、綜合應用題

　　在考生文件夾下有一個工程文件sjt5.vbp，按照要求完成以下操作：

　　在名稱為Forml的窗體上添加兩個命令按鈕，其名稱分別為Cl和c2，標題分別為“讀人數據”和“計算”(如圖所示)。程序運行后，如果單擊“讀人數據”按鈕，則調用題目所提供的ReadDatal和ReadData2過程讀入datainl.txt和datain2.txt文件中的各20個整數，分別放入Arrl和Arr2兩個數組中;如果單擊“計算”按鈕，則把兩個數組中對應下標的元素相減，其結果放入第三個數組中(第1個數組的第n個元素減去第2個數組的第n個元素，其結果作為第3個數組的第n個元素。這里的n為1、2…20)，最后計算第3個數組各元素之和，把所求得的和在窗體上顯示出來;并調用題目中給出的WriteData過程將所求得的和存人考生文件夾下的dataout.txt文件中。

　　注意：考生不得修改窗體文件中已經存在的程序，且必須執行一次，最后將修改后的文件以原來的文件名存盤。

　　參考答案

　　【考點分析】本題考點有：命令按鈕的Name和Caption屬性、OptionBase數組下標、Call語句、Print方法、For循環語句以及文件操作。

　　【解題思路】本題源程序已給出讀文件中的數據和向文件中寫數據的三個過程，只需適時調用它們，即在“讀人數據”和保存過程中調用;要把數組Arrl和Arr2中對應下標的元素相減并把結果存入第3個數組中，需利用For循環逐一取出Arrl和Arr2對應元素;由于數組Arrl、Arr2及存儲第3個數組和的變量要跨過程使用，因此需定義成窗體級變量;調用過程WnteData時需傳遞兩個參數，分別是存入數據的文件名和存儲第3個數組和的變量;語句0ptionBase1用于限定數組下標的下限，默認為1。

　　【操作步驟】

　　步驟1：打開本題工程文件，按照題目要求建立命令按鈕控件并設置命令按鈕的相應屬性，程序中用到的控件及屬性見表3.23。

　　步驟2：打開代碼編輯窗口，在代碼編輯窗口指定位置編寫以下代碼。

　　參考答案

　　PrivateSubCl_Click()

　　CallReadDatal′調用過程ReadDatal

　　CallReadData2′調用過程ReadData2

　　EndSub

　　PrivateSubC2_Click()

　　DimArr3(1To20)AsInteger

　　DimsumAsInteger

　　sum=0