3月全國計(jì)算機(jī)等級(jí)考試二級(jí)vb筆試題要點(diǎn)

1、2013年3月全國計(jì)算機(jī)等級(jí)考試二級(jí)筆試試卷Visual Basic語言程序設(shè)計(jì)一、單選題。(1)下列數(shù)據(jù)結(jié)構(gòu)中，屬于非線性結(jié)構(gòu)的是(2)在下列鏈表中，能夠從任意一個(gè)結(jié)點(diǎn)出發(fā)直接訪問到所有結(jié)點(diǎn)的是(3)下列與棧結(jié)構(gòu)有關(guān)聯(lián)的是(4)下面對(duì)軟件特點(diǎn)描述不正確的是(5)下面屬于黑盒測(cè)試方法的是(6)下面不屬于軟件設(shè)計(jì)階段任務(wù)的是(7)數(shù)據(jù)庫管理系統(tǒng)是(8)在E-R圖中，表示實(shí)體的圖元是(9)有兩個(gè)關(guān)系R和T如下R TA B C A Ca 1 2 a 2b 4 4 b 4c 2 3 c 3d 3 2 d 2則由關(guān)系R得到關(guān)系T的操作是(10)對(duì)圖書進(jìn)行編目時(shí)，圖書有如下屬性：ISBN書號(hào)，書名，作者，

2、出版社，出版日期。能作為關(guān)鍵字的是(11)下列關(guān)于Visual Basic標(biāo)準(zhǔn)模塊的描述中，錯(cuò)誤的是(12)下列變量名中合法的是(13)表達(dá)式 66 8 mod 5 & "avg" 的值是(14)下列能正確計(jì)算 s=1+2+100的程序段是(15)設(shè)有如下程序：Private Sub Form_Click() a = 10: b = 20 x = a = b Print x End Sub程序運(yùn)行后，單擊窗體，輸出結(jié)果為(16)在面向?qū)ο蟮某绦蛟O(shè)計(jì)中，對(duì)象可以執(zhí)行的操作和可被對(duì)象識(shí)別的動(dòng)作分別被稱為 (17)下列說法中，錯(cuò)誤的是(18)設(shè)有如下程序：Private

3、Sub Command1_Click()Dim i As Integer, j As IntegerFori = 1 To 10 i = i + j j = j + 1 Next i End Sub程序運(yùn)行后，單擊命令按鈕 Command1 ,循環(huán)執(zhí)行的次數(shù)為(19)設(shè)有如下程序:Private Sub Command1_Click()Dim m As Integer, n As Integerm = 1For n = 1 To 5m = m * nIf m > 15 ThenExit ForElsen = n + 1End IfNext nPrint m; nEnd Sub程序運(yùn)行后，

4、單擊命令按鈕Command1 ,輸出結(jié)果為(20)設(shè)有如下程序：Private Sub Form_Click()Dim a, k As IntegerDim n As Integer, s As Integera = Array(1, 1, 1,2, 2, 2)For k = LBound(a) To UBound(a)s = s + a(k)NextPrint n; sEnd Sub程序運(yùn)行后，如果單擊窗體，則在窗體上輸出的內(nèi)容為：(21)窗體上有一個(gè)文本框，用于接收正整數(shù)。為保證輸入數(shù)據(jù)的合法性(即正整數(shù)),可以在該數(shù)據(jù)輸入結(jié)束后準(zhǔn)備繼續(xù)其他操作時(shí)進(jìn)行數(shù)據(jù)的合法性檢查。為實(shí)現(xiàn)上述目的，應(yīng)選

5、用的事件是(22)設(shè)有如下程序：Private Sub Command1_Click()Dim a(10) As IntegerDim i As Integer, n As Integern = 6For i = 1 To na(i) = i * iNext iFor i = 1 To n / 2temp = a(i)a(i) = a(n - i)a(n - i) = tempNext iFor i = 1 To nPrint a(i);NextEnd Sub程序運(yùn)行后，單擊命令按鈕Commandl ,輸出結(jié)果為(23)工程中包含F(xiàn)orml、Form2兩個(gè)窗體，F(xiàn)orml是啟動(dòng)窗體，兩個(gè)窗體上

6、都有名稱為 Labell的標(biāo)簽和名稱為 Command1的命令按鈕，窗體外觀分別如圖1、圖2所示：Form1的事件過程如下：Private Sub Command1_Click()Form2.ShowEnd SubForm2中的事件過程如下：Private Sub Command1_Click()Label1.Caption = Form1.Label1.CaptionEnd Sub關(guān)于以下程序，下面敘述中錯(cuò)誤的是(24)窗體上有一個(gè)名稱為 Dir1的目錄列表框，一個(gè)名稱為File1的文件列表框。當(dāng)改變目錄列表框的內(nèi)容時(shí)，文件列表框的內(nèi)容應(yīng)該與之同步改變。為實(shí)現(xiàn)兩控件同步操作，應(yīng)該使用的事件過

7、程是(25)列表框List1中沒有數(shù)據(jù)項(xiàng)，現(xiàn)編制如下程序：Private Sub Command1_Click()Fori = 1 To 6List1.AddItem iNext iFor i = 5 To 3 Step -1Listl.Removeltem iNext iEnd Sub程序運(yùn)行后，單擊命令按鈕Command1 ,則列表框List1中的數(shù)據(jù)項(xiàng)為(26)一個(gè)工程文件中含有窗體 Form1、Form2和標(biāo)準(zhǔn)模塊 Model1。如果Form1的聲明部 分有語句 Private x As Integer,且Model1中有語句 Public y As Integer,則下列說法中， 正

8、確 的是(27)下列關(guān)于文件及其操作的描述中，正確的是(28)下列操作說明中，錯(cuò)誤的是(29)在窗體上畫一個(gè)名稱為CD1的通用對(duì)話框，并編寫如下程序：Private Sub Command1_Click()CDl.Filter ="所有文件(*.*)|*.*| 文本文件(*.txt)|*.txt|Word 文檔(*.doc)|*.doc”CDl.Filterlndex = 2CDl.Action = 2End Sub運(yùn)行程序，并單擊命令按鈕Commandl ,下面描述中正確的是(30)下列關(guān)于Visual Basic菜單的敘述中，錯(cuò)誤的是(31)下列關(guān)于Sub Main過程的描述中，

9、錯(cuò)誤的是(32)設(shè)有如下程序：Private Sub Command1_Click()Dim i As Integerstrl = InputBox("輸入一個(gè)字符串”)str2 =""i = 0Do While i < Len(strl) / 2str2 = str2 + Mid(str1, i + 1,1)str2 = str2 + Mid(str1, Len(str1) - i, 1) i = i + 1LoopPrint str2End Sub程序運(yùn)行后，單擊命令按鈕Command1 ,在彈出的輸入對(duì)話框中輸入"abcdef,”則輸出結(jié)果為

10、(33)命令按鈕Command1的單擊事件過程如下：Private Sub Command1_Click()Dim x As StringDim y As Stringx = InputBox("輸入字母"，"輸入")y = IIf(ucase9x) <> "A"," 表達(dá)式 1","表達(dá)式 2")Print yEnd Sub運(yùn)行程序，單擊命令按鈕，在彈出的輸入對(duì)話框中輸入a,”則以下描述中正確的是(#)設(shè)有如下程序:Sub proc(x() As Integer)Static i

11、As IntegerDox(i) = x(i) + x(i + 1)i = i + 1Loop While i < 2End SubPrivate Sub Command1_Click()Dim a(5) As Integer, i As IntegerFor i = 0 To 4a(i) = i + 1Next iCall proc(a)Call proc(a)For i = 0 To 4Print a(i);Next iEnd Sub程序運(yùn)行后，單擊命令按鈕Command1 ,輸出結(jié)果為(35)以下程序?qū)㈦S機(jī)產(chǎn)生n個(gè)兩位整數(shù)，并使用冒泡法將它們按遞增順序排序后輸出。Option Ba

12、se 1Private Sub Command1_Click()Dim a() As IntegerDim i As Integer, j As IntegerRandomizen = InputBox("輸入數(shù)據(jù)個(gè)數(shù)")ReDim a(n)For i = 1 To na(i) = Int(Rnd * 90) + 10Next iFor i = 1 To n - 1For j = 1 To n - iIf a(j) < a(j - 1) Thentemp = a(j): a(j) = a(j - 1): a(j - 1) = tempEnd IfNext jNext

13、iFor i = 1 To nPrint a(i);Next i運(yùn)行以上程序，發(fā)現(xiàn)有錯(cuò)誤，需要對(duì) j循環(huán)的開始語句進(jìn)行修改。以下正確的修改是二、填空題。(1)某二叉樹有5個(gè)度為2的結(jié)點(diǎn)，則該二叉樹中的葉子結(jié)點(diǎn)數(shù)為_。(2)設(shè)一個(gè)隊(duì)列的初始狀態(tài)為空?，F(xiàn)將元素A,B,C,D,E,F,5,4,3,2,1依次入隊(duì)，然后再依次退隊(duì)，則元素退隊(duì)的順序?yàn)?3)對(duì)模塊獨(dú)立性度量的兩個(gè)定性標(biāo)準(zhǔn)是耦合性與內(nèi)聚性。描述模塊間互相連接的緊密 程度的是_o(4)軟件系統(tǒng)”的系統(tǒng)結(jié)構(gòu)圖如下圖所示：該系統(tǒng)的最大扇出數(shù)是(5)數(shù)據(jù)庫設(shè)計(jì)包括概念設(shè)計(jì)、_和物理設(shè)計(jì)。(6)設(shè)有如下程序：Option Base 0Private

14、Sub Command1_Click()Dim 或【arrDim i As Integerarr = Array(1,2, 3, 4, 5, 6, 7, 8, 9)Fori = 0 To 3Print arrNextEnd Sub當(dāng)運(yùn)行程序，并單擊命令按鈕后，窗體上顯示5 4 3 2。請(qǐng)?zhí)羁?，使程序能夠完成此?xiàng)功(7)在窗體上建立一個(gè)有 4個(gè)元素、名稱為L(zhǎng)abell的標(biāo)簽數(shù)組，下標(biāo)從 0開始，各元素 的Caption屬性值依次為 等“、級(jí)“、考“、試”再畫一個(gè)名稱為Timeh的計(jì)時(shí)器控件，其 Interval屬性設(shè)為1000.窗體如圖所示。程序運(yùn)行時(shí)，從左到右反復(fù)顯示這4個(gè)字，但每次只顯示1個(gè)

15、。請(qǐng)?zhí)羁?，使程序?qū)崿F(xiàn)上述功能。Dim i As IntegerPrivate Sub Form_Load()Fori = 0 To 3Label1(i).Visible = FalseNextEnd SubPrivate Sub Timer1_Timer()If i 3 ThenLabel1(i).Visible = TrueIf i = 0 ThenLabel1(3).Visible = _ElseLabel1 .Visible = FalseEnd If1 = i + 1Else1 = 0End Sub(8)窗體上有一個(gè)名稱為 Combol的組合框，其中已經(jīng)添加了若干項(xiàng)目。程序運(yùn)行時(shí), 單擊Commandl命令按鈕，會(huì)把選中的項(xiàng)目從組合框中刪除。請(qǐng)?zhí)羁?。Private Sub Command1_Click()Dim str As StringDim i As Integerstr = RTrim( .Text)If str > "" ThenFor i = 0 ToIf Combo1.List(i) = str Then Combo1.RemoveItem _Next iEnd IfEnd Sub(9)設(shè)命令按鈕的單擊事件過程如下：