年9月計算機(jī)考試二級VB真題

1、2009年9月全國計算機(jī)等級考試二級VB筆試試題及答案一、選擇題（每小題2分，共70分） 一、選擇題1下列數(shù)據(jù)結(jié)構(gòu)中，屬于非線性結(jié)構(gòu)的是（ ）。A. 循環(huán)隊列 B.帶鏈隊列C.二叉樹 D.帶鏈棧答案 C解析 樹均是非線性結(jié)構(gòu)2. 下列數(shù)據(jù)結(jié)構(gòu)中,能夠按照”先進(jìn)后出”原則存取數(shù)據(jù)的是（ ）。A. 循環(huán)隊列 B.棧 C.隊列 D.二叉樹答案 B解析:棧是先進(jìn)后出或后進(jìn)先出的線性表3. 對于循環(huán)隊列,下列敘述中正確的是（ ）。A.隊頭指針是固定不變的B.隊頭指針一定大于隊尾指針C.隊頭指針一定小于隊尾指針D.隊頭指針可以大于隊尾指針，也可以小于隊尾指針答案 D解析:如果隊頭指針大于隊尾指針說明隊列已

2、經(jīng)循環(huán)存放數(shù)據(jù)了,如果隊頭指針小于隊尾指針說明沒有進(jìn)行循環(huán)存放4. 算法的空間復(fù)雜度是指（ ）。A.算法在執(zhí)行過程中所需要的計算機(jī)存儲空間 B.算法所處理的數(shù)據(jù)量C.算法程序中的語句或指令條數(shù) D.算法在執(zhí)行過程中所需要的臨時工作單元數(shù)答案 A解析:算法的空間復(fù)雜度是指執(zhí)行算法所需要的內(nèi)存空間,包括算法程序所占空間,輸入的初始數(shù)據(jù)所占空間和執(zhí)行過程中所需要的額外空間.5. 軟件設(shè)計中劃分模塊的一個準(zhǔn)則是（ ）。A.低內(nèi)聚低耦合 B. 高內(nèi)聚低耦合 C. 低內(nèi)聚高耦合 D. 高內(nèi)聚高耦合答案 B解析:模塊內(nèi)部各元素之間的聯(lián)系要緊密,高內(nèi)聚,模塊間的連接的緊密程度要低,低耦合,這樣可以提高模塊的獨

3、立性.6. 下列選項中不屬于結(jié)構(gòu)化程序設(shè)計原則的是（ ）。A.可封裝 B.自頂向下 C.模塊化 D.逐步求精答案 A7.軟件詳細(xì)設(shè)計產(chǎn)生的圖如下該圖是( ).A.N-S圖 B. PAD圖 C. 程序流程圖 D.E-R圖答案 C8.數(shù)據(jù)庫管理系統(tǒng)是（ ）。A. 操作系統(tǒng)的一部分 B.在操作系統(tǒng)支持下的系統(tǒng)軟件 C.一種編譯系統(tǒng) D.一種操作系統(tǒng)答案 B 9.在E-R圖中，用來表示實體聯(lián)系的圖形是（ ）。A.橢圓形 B.矩形 C.菱形 D .三角形答案 C10.有三個關(guān)系R,S,T 如下：R ABCa12b21c31S ABCd32T ABCa12b21c31d32其中關(guān)系T由關(guān)系R和S通過某種操

4、作得到，該操作稱為（ ）。A.選擇 B.投影 C. 交 D. 并答案 D解析:T是由S表或R表中的元素組成的（11）以下變量名中合法的是 C）str_n （12）把數(shù)學(xué)表達(dá)式表示為正確的VB表達(dá)式應(yīng)該是 D）(x*5+3)/(y*2-6) （13）下面有關(guān)標(biāo)準(zhǔn)模塊的敘述中，錯誤的是 A）標(biāo)準(zhǔn)模塊不完全由代碼組成，還可以有窗體 （14）下面控件中，沒有Caption屬性的是 C）組合框 （15）用來設(shè)置文字字體是否斜體的屬性是 D）FontItalic （16）若看到程序有如下事件過程，則可以肯定的是，當(dāng)程序運(yùn)行時 Private SubClick_MouseDown(Button As Int

5、eger, Shift As Integer, X As Single, Y As Single) Print VB Program End Sub D）用鼠標(biāo)左鍵或右鍵單擊名稱為“Click”的控件時，執(zhí)行此過程 （17）可以產(chǎn)生30-50（含30到50）之間的隨機(jī)整數(shù)的表達(dá)式是 A）Int(Rnd*21+30) （18）在程序運(yùn)行時，下面的敘述中正確的是 C）只裝入而不顯示窗體，也會執(zhí)行窗體的Form_Load事件過程 （19）窗體有名稱為Command1的命令按鈕和名稱為Text1的文本框 Private Sub Command1_Click() Text1.Text = 程序設(shè)計 Te

6、xt1.SetFocus End Sub Private Sub Text1_GotFocus() Text1.Text = 等級考試 End Sub 運(yùn)行以上程序，單擊命令按鈕后 B）文本框中顯示的是“等級考試”，且焦點在文本框中 （20）設(shè)窗體上有名稱為Option1的單選按鈕，且程序中有語句： If Option.Value=True Then 下面語句中與該語句不等價的是 C）If Value=True Then （21）設(shè)窗體上有1個水平滾動條，已經(jīng)通過屬性窗口把它的Max屬性設(shè)置為1，Min屬性設(shè)置為100，下面敘述中正確的是 A）程序運(yùn)行時，若使?jié)L動條向左移動，滾動條的Value

7、屬性值就增加 （22）有如下過程代碼： Sub var_dim() Static numa As Integer Dim numb As Integer numa = numa + 2 numb = numb + 1 Print numa; numb End Sub 連續(xù)3次調(diào)用var_dim過程，第3次調(diào)用時的輸出是 C）6 1 （23）在窗體上畫1個命令按鈕，并編寫如下事件過程： Private Sub Command1_Click() For i = 5 To 1 Step -0.8 Print Int(i); Next i End Sub 運(yùn)行程序，單擊命令按鈕，窗體上顯示的內(nèi)容為 A

8、）5 4 3 2 1 1 （24）在窗體上畫1個命令按鈕，并編寫如下事件過程： Private Sub Command1_Click() Dim a(3, 3) For m = 1 To 3 For n = 1 To 3 If n = m Or n = 4 - m Then a(m, n) = m + n Else a(m, n) = 0 End If Print a(m, n); Next n Print Next m End Sub B）2 0 4 0 4 0 4 0 6 （25）設(shè)有如下函數(shù)過程： Function fun(a As Integer, b As Integer) Dim

9、c As Integer If a b a = a - b Wend fun = a End Function 在調(diào)試時發(fā)現(xiàn)函數(shù)是錯誤的，為使函數(shù)能產(chǎn)生正確的返回值，應(yīng)做的修改是 D）把While ab改為While a=b （30）下列關(guān)于通用對話框CommonDialog1的敘述中，錯誤的是 A）只要在“打開”對話框中選擇了文件，并單擊“打開”按鈕，就可以將選中的文件打開 （31）在利用菜單編輯器設(shè)計菜單時，為了把組合鍵“Alt+X”設(shè)置為“退出(X)”菜單項的訪問鍵，可以將該菜單項的標(biāo)題設(shè)置為 B）退出(&X) （32）在窗體上畫1個命令按鈕和1個文本框，其名稱分別為Command1和T

10、ext1，再編寫如下程序： Dim ss As String Private Sub Text1_KeyPress(KeyAscii As Integer) If Chr(KeyAscii) Then ss = ss + Chr(KeyAscii) End Sub Private Sub Command1_Click() Dim m As String, i As Integer For i = Len(ss) To 1 Step -1 m = m + Mid(ss, i, 1) Next Text1.Text = UCase(m) End Sub 程序運(yùn)行后，在文本框中輸入“Number 1

11、00”，并單擊命令按鈕，則文本框中顯示的是 D）001REMBUN （33）窗體的左右兩端各有1條直線，名稱分別為Line1、Line2；名稱為Shape1的圓靠在左邊的Line1直線上（見圖）；另有1個名稱為Timer1的計時器控件，其屬性值為True。要求程序運(yùn)行后，圓每秒向右移動100，當(dāng)圓遇到Line2時則停止移動。為實現(xiàn)上述功能，某人把計時器的Interval屬性設(shè)置為1000，并編寫了如下程序： Private Sub Timer1_Timer() For k = Line1.X1 To Line2.X1 Step 100 If Shape1.Left + Shape1.Width

12、 = 90 Then Level = A ElseIf s = 75 Then Level = B ElseIf s = 60 Then Level = C Else Level = D End If 下面用Select Case結(jié)構(gòu)改寫上述程序，使兩段程序所實現(xiàn)的功能完全相同，請?zhí)羁铡?Select Case s Case【9】 Is = 95 Level = A Case 75 To 90 Level = B Case 60 To 74 Level = C Case 【10】Else 或 Is60 Level = D 【11】End Select （8）窗體上有名稱為Command1的命令

13、按鈕。事件過程及2個函數(shù)過程如下： Private Sub Command1_Click() Dim x As Integer, y As Integer, z x = 3 y = 5 z = fy(y) Print fx(fx(x), y End Sub Function fx(ByVal a As Integer) a = a + a fx = a End Function Function fy(ByRef a As Integer) a = a + a fy = a End Function 運(yùn)行程序，并單擊命令按鈕，則窗體上顯示的2個值依次是【12】12和【13】10。 （9）窗體上

14、有名稱為Command1的命令按鈕及名稱為Text1、能顯示多行文本的文本框。程序運(yùn)行后，如果單擊命令按鈕，則可打開磁盤文件c:test.txt，并將文件中的內(nèi)容（多行文本）顯示在文本框中。下面是實現(xiàn)此能的程序，請?zhí)羁铡?Private Sub Command1_Click() Text1 = Number = FreeFile Open c:test.txt For Input As Number Do While Not EOF(【14】Number) Line Input #Number, s Text1.Text = Text1.Text +【15】 s + Chr(13) + Chr(10) Loop Close #Number End Sub參考答案一選擇題 11.C 12.D 13.A 14.C 15.D16.D