2017下半年計算機二級考試即將開始，考生們在複習過程中要多做題多練習，以下是小編搜尋整理的計算機二級VB強化訓練題及答案，供參考練習，希望對大家有所幫助!
一、單選題
1). 資料庫系統的核心是( )。
A.資料模型
B.資料庫管理系統
C.資料庫
D.資料庫管理員
正確答案：B
2). 為了對多個控制元件執行操作，必須選中這些控制元件。下列不能選中多個控制元件的操作是( ).
A.按住Alt鍵，不要鬆開，然後單擊每個要選中的控制元件
B.按住Shift鍵，不要鬆開，然後單擊每個要選中的控制元件
C.按住Ctrl鍵，不要鬆開，然後單擊每個要選中的控制元件
D.拖動滑鼠畫出一個虛線矩形，使所選中的控制元件位於這個矩形內
正確答案：A
答案解析：按住Alt鍵只能選中單個控制元件，不能同時選中多個控制元件。故選A。
3). 下面的變數名合法的是( )
A.k_name
D.k-name
正確答案：A
4). 為了使窗體左上角不顯示控制框，需設定為False的屬性是( ).
ble
led
rolBox
ion
正確答案：C
答案解析：窗體的Visible屬性是設定窗體可見不可見;Enabled屬性是設定可用不可用;Caption屬性是用來設定窗體標題欄上顯示的內容;ControlBox屬性是設定窗體左上角是否顯示控制框，當屬性值為True時，顯示控制框，否則False時，不顯示。故選項C正確。
5). 以下關於控制元件的敘述中，正確的是( )
A.標籤控制元件能夠獲得焦點
B.不能對列表框中的'列表項進行多項選擇
C.命令按鈕的外觀可以被設定為圖形
D.設定形狀控制元件的Shape屬性，可以使其呈現為直線
正確答案：C
答案解析：標籤、框架、選單、直線、形狀、影象框、計時器都不能接收焦點，選項A錯誤;列表框用於顯示可供做單一或多個選擇的列表項，選項B錯誤;形狀控制元件(Shape)提供了顯示一些規則圖形的簡易方法，通過設定形狀控制元件Shape屬性值，可顯示6種圖形：0-矩形、1-正方形、2-橢圓、3-圓、4-圓角矩形、5-圓角正方形，選項D錯誤。
二、簡單應用題
(1)在考生資料夾下有一個工程檔案，相應的窗體檔案為。其功能是隨機產生30個0～1000的整數，放入一個數組中，然後輸出其中的最小值。程式執行後，單擊命令按鈕(名稱為Commandl，標題為“輸出最小值”)，即可求出其最小值，並在窗體上顯示出來(如圖所示)。這個程式不完整，請把它補充完整，並使其能正確執行。
要求：去掉程式中的註釋符，把程式中的?改為正確的內容，使其實現上述功能，但不能修改程式中的其他部分。最後將修改後的檔案按原名存檔。
(2)在考生資料夾下有一個工程檔案，相應的窗體檔案為，在窗體上有一個文字框和一個命令按鈕。程式執行後，單擊命令按鈕，即可計算出0～1000範圍內不能被7整除的整數的個數，並在文字框中顯示出來。在窗體的程式碼視窗中，已給出了部分程式，其中計算不能被7整除的整數的個數的操作在通用過程Fun中實現，請編寫該過程的程式碼。
要求：請勿改動程式中的任何內容，只在FunctionFun()和EndFunction之間填入你編寫的若干語句。最後將修改後的檔案按原檔名存檔。
參考答案
(1)【考點分析】本題考點有：Randomize語句、Rnd()函式、Int()函式、迴圈語句、判斷語句以及Print方法。
【解題思路】本題程式用變數Min記錄最小數，最初把陣列的第一個元素的值賦給Min，然後通過For迴圈語句將其後的元素依次與之比較，如果其值小於Min，則將其賦值給Min，依次類推，最終Min的值就是陣列各元素中的最小值。
【操作步驟】
步驟1：開啟本題工程檔案。
步驟2：開啟程式碼編輯視窗，去掉程式中的註釋符“′”，將問號改為正確的內容。
參考答案(橫線部分是需考生填入的內容)
OptionBase1
PrivateSubCommandl_Click()
DimarrN(30)AsInteger
DimMinAsInteger
RandomiZe
Fori=lTo30
arrN(i)：Int(Rnd+__________)
Nexti
__________=arrN(1)將第一個數賦給Min，以提供判斷
Fori=2T030
If__________
Then′比較最小值與其他數值，找出最小值
Min=arrN(i)
EndIf
Npxti
PrIntMin
EndSub
步驟3：除錯並執行程式，關閉程式後按題目要求存檔。
【易錯提示】產生0～1000範圍內的隨機數，應該是RndX1000。
(2)【考點分析】本題考點有：Mod運算子、檔案編輯、For迴圈語句、If判斷語句以及過程函式。
【解題思路】可通過求餘運算子Mod來計算某數M能否被7整除，如果MMod7=0，那麼M能被7整除;如果MMod7<>0，那麼M不能被7整除。可利用For迴圈語句來逐個判斷0～1000範圍內的整數能否被7整除，然後用一個變數來統計不能被7整除的整數個數。
【操作步驟】
步驟1：開啟本題工程檔案。
步驟2：開啟程式碼編輯視窗，在程式碼編輯視窗指定位置編寫以下程式碼。
參考答案
FunctionFun()
DimSAsInteger，iAsInteger
Fori=0To1000。求0～1000中滿足條件的數
IfiMod7<>OThen
s=s+1′將滿足條件的數的個數累加
EndIf
Nexti
Fun=s’返回結果
EndFunction
步驟3：除錯並執行程式，關閉程式後按題目要求存檔。
