![[其它考試]2009年3月2012年9月計(jì)算機(jī)二級(jí)歷年VB考試真題及答案_第1頁(yè)](http://file2.renrendoc.com/fileroot_temp3/2021-11/13/4789f145-498a-4440-9e8a-08506bb7ad95/4789f145-498a-4440-9e8a-08506bb7ad951.gif)
![[其它考試]2009年3月2012年9月計(jì)算機(jī)二級(jí)歷年VB考試真題及答案_第2頁(yè)](http://file2.renrendoc.com/fileroot_temp3/2021-11/13/4789f145-498a-4440-9e8a-08506bb7ad95/4789f145-498a-4440-9e8a-08506bb7ad952.gif)
![[其它考試]2009年3月2012年9月計(jì)算機(jī)二級(jí)歷年VB考試真題及答案_第3頁(yè)](http://file2.renrendoc.com/fileroot_temp3/2021-11/13/4789f145-498a-4440-9e8a-08506bb7ad95/4789f145-498a-4440-9e8a-08506bb7ad953.gif)
![[其它考試]2009年3月2012年9月計(jì)算機(jī)二級(jí)歷年VB考試真題及答案_第4頁(yè)](http://file2.renrendoc.com/fileroot_temp3/2021-11/13/4789f145-498a-4440-9e8a-08506bb7ad95/4789f145-498a-4440-9e8a-08506bb7ad954.gif)
![[其它考試]2009年3月2012年9月計(jì)算機(jī)二級(jí)歷年VB考試真題及答案_第5頁(yè)](http://file2.renrendoc.com/fileroot_temp3/2021-11/13/4789f145-498a-4440-9e8a-08506bb7ad95/4789f145-498a-4440-9e8a-08506bb7ad955.gif)
版權(quán)說(shuō)明:本文檔由用戶(hù)提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
1、2009年3月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)筆試試卷Visual Basic 語(yǔ)言程序設(shè)計(jì)(考試時(shí)間90分鐘,滿(mǎn)分100分)一、選擇題(1)下列敘述中正確的是 BA) 棧是“先進(jìn)先出”的線(xiàn)性表B) 隊(duì)列是“先進(jìn)先出”的線(xiàn)性表C) 循環(huán)隊(duì)列是非線(xiàn)性結(jié)構(gòu)D) 有序性表既可以采用順序存儲(chǔ)結(jié)構(gòu),也可以采用鏈?zhǔn)酱鎯?chǔ)結(jié)構(gòu)(2)支持子程序調(diào)用的數(shù)據(jù)結(jié)構(gòu)是 A &
2、#160; A) 棧 B) 樹(shù) C) 隊(duì)列 D)二叉樹(shù)(3)某二叉樹(shù)有5個(gè)度為2的結(jié)點(diǎn),則該二叉樹(shù)中的葉子結(jié)點(diǎn)數(shù)是 A
3、160; A)10 B)8 C)6 D)4(4)下列排序方法中,最壞情況下比較次數(shù)最少的是 C A)冒泡排序 B)簡(jiǎn)單選擇排序 C)直接插入排序 D)堆排序(5
4、)軟件按功能可以分為:應(yīng)用軟件、系統(tǒng)軟件和支撐軟件(或工具軟件)。下面屬于應(yīng)用軟件的是 C A)編譯軟件 B)操作系統(tǒng) C)教務(wù)管理系統(tǒng) D)匯編程序(6)下面敘述中錯(cuò)誤的是 CA)軟件測(cè)試的目的是發(fā)現(xiàn)錯(cuò)誤并改正錯(cuò)誤B)對(duì)被調(diào)試的程序進(jìn)行“錯(cuò)誤定位”是程序調(diào)試的必要步驟C)程序調(diào)試通常也稱(chēng)為DebugD)軟件測(cè)試應(yīng)嚴(yán)格執(zhí)行測(cè)試計(jì)劃,排除測(cè)試的隨意性(7)耦合性和內(nèi)聚性是對(duì)模塊獨(dú)立性度量的兩個(gè)標(biāo)準(zhǔn)。下列敘述中正確的是 B A)提高耦合性降低內(nèi)聚性有利于提高模塊的獨(dú)立性B)降低耦合性提高內(nèi)聚性有利于提
5、高模塊的獨(dú)立性C)耦合性是指一個(gè)模塊內(nèi)部各個(gè)元素間彼此結(jié)合的緊密程度D)內(nèi)聚性是指模塊間互相連接的緊密程度(8)數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)中的核心問(wèn)題是 CA)數(shù)據(jù)庫(kù)設(shè)計(jì) B)數(shù)據(jù)庫(kù)系統(tǒng)設(shè)計(jì)C)數(shù)據(jù)庫(kù)維護(hù) D) 數(shù)據(jù)庫(kù)管理員培訓(xùn)(9)有兩個(gè)關(guān)系R,S如下:19R
6、0; A B C a 3 2 b 0 1 c 2 1 A Ba 3b 0c 2由關(guān)系R通過(guò)運(yùn)算得到關(guān)系S,則所使用的運(yùn)算為 AA) 選擇 B)投影 C) 插入 &
7、#160;D)連接(10)將E-R圖轉(zhuǎn)換為關(guān)系模式時(shí),實(shí)體和聯(lián)系都可以表示為 DA) 屬性 B)鍵 C) 關(guān)系 D) 域(11)執(zhí)行語(yǔ)句 Dim X, Y as Integer 后, DA)X 和Y 均被定義為整型變量B)X和Y被定義為變體類(lèi)型變量C)X被定義為整型變量,Y被定義為變體類(lèi)型變量D)X被定
8、義為變體類(lèi)型變量,Y被定義為整型變量(12)以下關(guān)系表達(dá)式中,其值為T(mén)rue的是 BA)”XYZ”>”XYz”B)”VisualBasic”<>”visualbasic”C)”the”=”there”D)”Integer”<”Int”(13)執(zhí)行以下程序段 a$=”Visual Basic Programming”b$=”C+”c$=Ucase(left$(a$,7)&b$& Right$(a$,12)后,變量c$ 的值為 BA)Visual Basic Programming
9、0;B)VISUALC+ ProgrammingC)Visual C+ Programming D)VISUAL BASIC Programming (14)下列敘述中正確的是 CA)MsgBox語(yǔ)句的返回值是一個(gè)整數(shù)B)執(zhí)行Msgbox語(yǔ)句并出現(xiàn)信息框后,不用關(guān)閉信息框即可執(zhí)行其他操作C)MsgBox語(yǔ)句的第一個(gè)參數(shù)不能省略D)如果省加略MsgBox語(yǔ)句的第三個(gè)參數(shù)(Title),則信息框的標(biāo)題為空 (15)在窗體上畫(huà)一個(gè)文本框(名稱(chēng)為text1)和一個(gè)標(biāo)簽(名稱(chēng)為label1),程序運(yùn)行后,在文本框中每輸入一個(gè)
10、字符,都會(huì)立即在標(biāo)簽中顯示文本框中字符的個(gè)數(shù),以下可以實(shí)現(xiàn)實(shí)現(xiàn)上述操作的事件過(guò)程是 CA)Private Sub Text1_Change()Label1.Caption = Str(Len(Text1.Text)End SubB)Private Sub Text1_Click()Label1.Caption = Str(Len(Text1.Text)End SubC)Private Sub Text1_Change()Label1.Caption = t
11、ext1.textEnd SubD)Private Sub label1_Change()Label1.Caption = Str(Len(Text1.Text)End Sub(16)在窗體上畫(huà)兩個(gè)單選按鈕(名稱(chēng)分別為Option1、option2,標(biāo)題分別為“宋體”和“黑體”)、1個(gè)復(fù)選框(名稱(chēng)為check1,標(biāo)題為“粗體”)和1個(gè)文本框(名稱(chēng)為text1,text屬性為“改變文字字體”),窗體外觀如圖所示。程序運(yùn)行后,要求“宋體”單選按鈕和“粗體”復(fù)選框被選中,則以下能夠?qū)崿F(xiàn)上述操作的語(yǔ)句序列是 D A) Option1
12、.value = FalseCheck1.value = True B) Option1.value = TrueCheck1.value = 0C) Option1.value = TrueCheck1.value = 2D) Option1.value = TrueCheck1.value (17)在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕,然后編寫(xiě)如下事件過(guò)程:Private
13、;Sub Command1_Click()c = 1234c1 = Trim(Str(c)For i = 1 To 4 Print NextEnd Sub程序運(yùn)行后,單擊命令按鈕,要求在窗體上顯示如下內(nèi)容:1121231234則在橫線(xiàn)上應(yīng)填入的內(nèi)容為 AARight(c1,i) B)Left(c1,i)
14、C)Mid(c1,I,1) D) Mid(c1,i,i)(18)假定有以下程序段 For i=1 to 3 For j=5 to 1 step -1 Print i*j Next j Next i則語(yǔ)句&
15、#160;Print i*j 的執(zhí)行次數(shù)是 AA)15 B)16 C)17 D)18(19)在窗體上畫(huà)兩個(gè)文本框(名稱(chēng)分別為text1和text2)和一個(gè)命令按鈕(名稱(chēng)為command1),然后編寫(xiě)如下事件過(guò)程:Private Sub Command1_Click() x = 0
16、160;Do While x < 50 x = (x + 2) * (x + 3) n = n + 1 Loop text1.Text = Str(n) text2.Text = Str(x)End Sub程序運(yùn)行后,單擊命令按鈕,在兩個(gè)文本框中顯示的值分別為 BA)1和0
17、 B)2和72 C)3和50 D)4和168(20)閱讀程序:Private Sub Command1_Click() A=0For j=1 to 15 a=a+j mod 3Next jPrint a End Sub程序運(yùn)行后,單擊窗體,輸出結(jié)果是 BA)105 B)1
18、 C)120 D)15(21)以下說(shuō)法中正確是的 DA)當(dāng)焦點(diǎn)在某個(gè)控件上時(shí),按下一個(gè)字母鍵,就會(huì)執(zhí)行該控件的keypress事件過(guò)程B)因?yàn)榇绑w不接受焦點(diǎn),所以窗體不存在自己的keypress事件過(guò)程C)若按下的鍵相同,keypress事件過(guò)程中的keyascii參數(shù)與keydown事件過(guò)程中的keycode參數(shù)的值也相同D)在keypress事件過(guò)程中,keyascii參數(shù)可以省略(22)語(yǔ)句 dim a(-3 to 4,3 to 6)as intege
19、r 定義的數(shù)組的元素個(gè)數(shù)是 DA)18 B)28 C)21 D)32(23)在窗體上畫(huà)一個(gè)命令按鈕,其名稱(chēng)為command1,然后編寫(xiě)如下代碼:Option Base 1Private Sub Command1_Click() Dim a a = Array(1, 2, 3, 4) &
20、#160;j = 1 For i = 4 To 1 Step -1 s = s + a(i) * j j = j * 10 Next i Print sEnd Sub程序運(yùn)行后,單擊命令按鈕后,其輸
21、出結(jié)果是 BA)4321 B)1234 C)34 D)12(24)假定通過(guò)復(fù)制,粘貼操作建立了一個(gè)命令按鈕數(shù)組Command1,以下說(shuō)法中錯(cuò)誤的是 DA)數(shù)組中每個(gè)命令按鈕的名稱(chēng)(name屬性)均為Command1B)若未做修改,數(shù)組中每個(gè)命令按鈕的大小都一樣C)數(shù)組中各個(gè)按鈕使用同一個(gè)click事件過(guò)程D)數(shù)組中每個(gè)命令按鈕的index屬性值都相同(25)在窗體上面畫(huà)一個(gè)命令按鈕,名稱(chēng)為Comma
22、nd1,然后編寫(xiě)如下代碼: Option Base 0Private Sub Command1_Click() Dim A1(4) As Integer,A2(4) As Integer For k=0 To 2 A1(k+1)=InputBox(“請(qǐng)輸入一個(gè)整數(shù)”) &
23、#160; A2(3-k)=A1(k+1) Next k Print A2(k) End Sub程序運(yùn)行后,單擊命令按鈕,在輸入對(duì)話(huà)框中依次輸入2、4、6,則輸出結(jié)果為 DA)0 B)1 C)2
24、160; D)3(26)以下關(guān)于函數(shù)過(guò)程的敘述中,正確的是 A)函數(shù)過(guò)程形參的類(lèi)型與函數(shù)返回值的類(lèi)型沒(méi)有關(guān)系 B)在函數(shù)過(guò)程中,過(guò)程的返回值可以有多個(gè) C)當(dāng)數(shù)組作為函數(shù)過(guò)程的參數(shù)時(shí),既能以值方式傳遞,也能以傳址方式傳遞 D)如果不指明函數(shù)過(guò)程參數(shù)的類(lèi)型,則該參數(shù)沒(méi)有數(shù)據(jù)類(lèi)型(27)在窗體上畫(huà)兩個(gè)標(biāo)簽和一個(gè)命令按鈕,其名稱(chēng)分別為L(zhǎng)abel1、Label2和Command1,然后編寫(xiě)如下程序:
25、 Private Sub func(L As Label) L.Caption=”1234” End sub Private Sub Form_Load() Label2.Caption=10 End sub Private Sub Co
26、mmand1_Click() A=Val(Label2.Caption) Call func(Label1) Label2.Caption=a End sub程序運(yùn)行后,單擊命令按鈕,則在兩個(gè)標(biāo)簽中顯示的內(nèi)容分別為 DA)ABCD和10
27、160; B)1234和100 C)ABCD和100 D)1234和10(28)在窗體上畫(huà)一個(gè)命令按鈕(名稱(chēng)為Command1),并編寫(xiě)如下代碼: Functin Fun1(Byval a As Integer ,b As Integer)
28、;As Integer Dim t As Integer t=a-b b=t+a Fun1=t+b End FunctionPrivate Sub Command1_Click()
29、Dim x As Integer X=10 Print Fun1(Fun1(x,(Fun1(x,x-1),x-1)End Sub程序運(yùn)行后,單擊命令按鈕,輸出結(jié)果是A)10 B)0 C)11
30、0; D)21(29)以下關(guān)于過(guò)程及過(guò)程參數(shù)的描述中,錯(cuò)誤的是A)過(guò)程的參數(shù)可以是控件名稱(chēng) B)調(diào)用過(guò)程時(shí)使用的實(shí)參的個(gè)數(shù)應(yīng)與過(guò)程形參的個(gè)數(shù)相同 C)只有函數(shù)過(guò)程能夠?qū)⑦^(guò)程中處理的信息返回到調(diào)用程序中 D)窗體可以作為過(guò)程的函數(shù)(30)有如下通用過(guò)程: Public Function Fun(xStr As String) As S
31、tring Dim tStr As String ,strL As Integer tStr=” strL=Len(xStr) i=strL/2 Do While i&l
32、t;=strL tStr=tStr & Mid(xStr,i+1,1) i=i+1 Loop Fun=tStr & tStr End&
33、#160;Function 在窗體上畫(huà)一個(gè)名稱(chēng)為T(mén)ext1的文本框和一個(gè)名稱(chēng)為Command1的命令按鈕,然后編寫(xiě)如下事件過(guò)程:Private Sub Command1_Click()Dim S1 As StringS1=”ABCDEF”Text1.Text=Lcase(Fun(S1)End Sub程序運(yùn)行后,單擊命令按鈕,文本框中顯示的是A)ABCDEF B)abcdef
34、 C)defded D)defabc(31)在窗體上畫(huà)一個(gè)命令按鈕和一個(gè)文本框(名稱(chēng)分別為Command1和Text1),并把窗體的Keyprewiew屬性設(shè)置為T(mén)rue,然后編寫(xiě)如下代碼:Dim SaveAll As StringPrivate Sub Form_Load () Show Text1.Text=”
35、160; Text1.SetFocusEnd SubPrivate Sub Command1_Click() Text1.Text=Lcase(SaveAll)+SaveAllEnd SubPrivate Sub Form_KeyPress(KeyAscii As Integer)SaveAll=SaveAll+Chr(KeyAscii)End Sub程序運(yùn)行后,直接用鍵盤(pán)輸入:VB,再單擊命令按鈕,則文本框中顯示的內(nèi)容為A)vbVB
36、160; B)不顯示任何信息 C)VB D)出錯(cuò)(32)設(shè)有以下程序: Private Sub Form_Click() X=50 For
37、;i=1 To 4 Y=InputBox(“請(qǐng)輸入一個(gè)整數(shù)”) Y=Val(y) If y Mod 5=0 Then
38、; a=a+y x=y Else a=a+x
39、 End If Next i Print a End Sub 程序運(yùn)行后,單擊窗體,在輸入對(duì)話(huà)框中依次輸入15、24、35、46,輸出結(jié)果為 A)100
40、 B)50 C)120 D)70(33)以下關(guān)于菜單的敘述中,錯(cuò)誤的是 A)當(dāng)前窗體為活動(dòng)窗體時(shí),用Ctrl+E鍵可以打開(kāi)菜單編輯器 B)把菜單項(xiàng)的Enabled屬性設(shè)置為False,則可刪除該菜單項(xiàng) C)彈出式菜單在菜單編輯器中設(shè)計(jì)
41、60;D)程序運(yùn)行時(shí),利用控件數(shù)組可以實(shí)現(xiàn)菜單項(xiàng)的增加或減少(34)以下敘述中錯(cuò)誤的是A)在程序運(yùn)行時(shí),通用對(duì)話(huà)框控件是不可見(jiàn)的 B)調(diào)用同一個(gè)通用對(duì)話(huà)框控件的不同方法(如ShowOpen 或ShowSave)可以打開(kāi)不同的對(duì)話(huà)框窗口 C)調(diào)用通用對(duì)話(huà)框控件的ShowOpen方法,能夠直接打開(kāi)在該通用對(duì)話(huà)框中指定的文件 D)調(diào)用通用對(duì)話(huà)框控件的ShowColor方法,可以打開(kāi)顏色對(duì)話(huà)框窗口(35)設(shè)在工程文件中有一個(gè)標(biāo)準(zhǔn)模塊,其中定義了如下記錄類(lèi)型
42、:Type Books Name As String * 10 TelNum As String * 20End Type在窗體上畫(huà)一個(gè)名為Command1的命令按鈕,要求當(dāng)執(zhí)行事件過(guò)程Command1_Click時(shí),在順序文件Person.txt中寫(xiě)入一條Books類(lèi)型的記錄。下列能夠完成該操作的事件過(guò)程是A)Private Sub Command1_Clic
43、k()Dim B As BooksOpen “Person.txt” For Output As #1B.Name=InputBox(“輸入姓名”)B.TelNum=InputBox(“輸入電話(huà)號(hào)碼”)Write #1,B.Name,B.TelNumClose #1End SubB)Private Sub Command1_Click()Dim B As BooksOpen “Person.txt” Fo
44、r input As #1B.Name=InputBox(“輸入姓名”)B.TelNum=InputBox(“輸入電話(huà)號(hào)碼”)Print #1,B.Name,B.TelNumClose #1End Sub C)Private Sub Command1_Click()Dim B As BooksOpen “Person.txt” For Output As #1B.Name=InputBox(
45、“輸入姓名”)B.TelNum=InputBox(“輸入電話(huà)號(hào)碼”)Write #1,BClose #1End SubD)Private Sub Command1_Click()Open “Person.txt” For input As #1Name=InputBox(“輸入姓名”)TelNum=InputBox(“輸入電話(huà)號(hào)碼”)Print #1, Name, TelNumClose #1End Sub二、填空題(每空2分,共30
46、分)請(qǐng)將每一個(gè)空的正確答案寫(xiě)在答題紙上【1】-【15】序號(hào)的橫線(xiàn)上,答在試卷上,在試卷上不得分, 注意:以命令關(guān)鍵字填空的必須寫(xiě)完整。(1)假設(shè)一個(gè)長(zhǎng)度為50的數(shù)組(數(shù)組元素的下標(biāo)從0到49)作為棧的存儲(chǔ)空間,棧底指針bottom指向棧底元素,棧頂指針top指向棧頂元素,如果bottom=49,top=30(數(shù)組下標(biāo)),則棧中具有 【1】 個(gè)元素。(2)軟件測(cè)試可分為白盒測(cè)試和黑盒測(cè)試。基本路徑測(cè)試屬于 【2】 測(cè)試。(3)符合結(jié)構(gòu)化原則的三種基本控制結(jié)構(gòu)是:選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)和 【3】 。(4)數(shù)據(jù)
47、庫(kù)系統(tǒng)的核心是 【4】(5)在E-R圖中,圖形包括矩形框、菱形框、橢圓框。其中表示實(shí)體聯(lián)系的是 【5 】框。(6)窗體如圖所示,其中汽車(chē)是名稱(chēng)為Image1的圖像框,命令按鈕的名稱(chēng)為Command1,計(jì)時(shí)器的名稱(chēng)為T(mén)imer1,直線(xiàn)的名稱(chēng)為L(zhǎng)ine1。程序運(yùn)行時(shí),單擊命令按鈕,則汽車(chē)每0.1秒向左移動(dòng)100,車(chē)頭到達(dá)左邊的直線(xiàn)時(shí)停止移動(dòng)。請(qǐng)?zhí)羁胀瓿上旅娴膶傩栽O(shè)置和程序,以便實(shí)現(xiàn)上述功能。1 Timer1的Interval屬性的值應(yīng)事先設(shè)置為【6】2 Private Sub Command1_Click
48、() Timer1.Enabled=True End Sub Private Sub Timer1_Timer() If Image1.Left>=【7】Then Image1.Left=【8】-100&
49、#160; End If End Sub(7)設(shè)窗體上有一個(gè)名稱(chēng)為Combol 的組合框,并有以下程序:Private Sub Combol_KeyPress(KeyAscii As Integer)If【9】=13 Then
50、; 回車(chē)符的ASCII碼是13For k=0 To Combol.ListCount-1If Combol.Text= Combol.List(k) ThenCombol.Text=”Exit ForEnd IfNext kIf Combol.Text <> “” ThenCombol.AddItem【10】End IfEnd I
51、fEnd Sub程序的功能是:在組合框的編輯區(qū)中輸入文本后按回車(chē)鍵,則檢查列表中有無(wú)與此文本相同的項(xiàng)目,若有,則把編輯區(qū)中的文本刪除,否則把編輯區(qū)中文本添加到列表的尾部。請(qǐng)?zhí)羁?。?)在當(dāng)前目錄下有一個(gè)名為“myfile.txt”的文本文件,其中有若干行文本。下面程序的功能是讀入此文件中的所有文本行,按行計(jì)算每行字符的ASCII碼之和,并顯示在窗體上。請(qǐng)?zhí)羁?。Private Sub Commandl_Click()Dim ch$,ascii As IntegerOpen “myfile.txt” For【11】
52、160;As #1While Not EOF(1)Line Input #1,chascii=toasill (【12】)Print asciiWend Close #1End SubPrivate Function toascii(mystr$) As Integern=0For k=1 To 【13】n=n+Asc(Mid(mystr,k,l)Next kToascii=nEnd Function(9)
53、本程序?qū)崿F(xiàn)文本加密。先給定序列:a1,a2,an,它們的取值范圍是1n,且互不相同。加密算法是:把原文本中第k個(gè)字符放到加密后的文本的第ak個(gè)位置處。若原文本長(zhǎng)度大于n,則只對(duì)前n個(gè)字符加密,后面的字符不變;若原文本長(zhǎng)度小于n,則在后面補(bǔ)字符“*”使文本長(zhǎng)度為n后再加密。例如:若給定序列a1,a2,a7分別為2,5,3,7,6,1,4當(dāng)文本為“PROGRAM”時(shí),加密后的文本為“APOMRRG”當(dāng)文本為“PROGRAMMING”,加密后的文本為“APOMRRGMING”當(dāng)文本為“THANK”時(shí),加密后的文本為“TA*HKN”下面的過(guò)程code實(shí)現(xiàn)這一算法。其中參數(shù)數(shù)組a()中存放給定序列(個(gè)數(shù)
54、與數(shù)組a的元素個(gè)數(shù)相等)a1,a2,a3的值,要加密的文本放在參數(shù)變量mystr中。過(guò)程執(zhí)行完畢,加密后的文本仍放在變量mystr中。請(qǐng)?zhí)羁?。Option Base 1Private Sub code(a () As Integer,mystr As String)Dim ch As string,cl As Stringn=Ubound(a)-Len(mystr)If n>0 Thenmystr= mystr&
55、 Strings(n,”*”)End IfCh=mystrFor k=【14】 To Ubound(a)Cl=Mid(mystr,k,l)n=【15】Mid$(ch,n)=clNext kMystr=chEnd Sub2009年4月二級(jí)VB參考答案1 選擇題:1-5: DDCDC 6-10:ABAAC11-15:DBBCA 16-20:DBABD21-25:ADBDC 26-30:ADBCC31-35:AABCA2 填空題1、19 2、白盒 3、順序結(jié)構(gòu)4、數(shù)據(jù)庫(kù)管理系統(tǒng) 5、菱形 6、1007
56、、Line1.x1 8、Image1.Left 9、KeyAscii10、Combo1.Text 11、Input 12、ch13、Len(mystr) 14、1 15、a(k)2009年9月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試試題及答案一、選擇題(每小題2分,共70分) 一、選擇題1下列數(shù)據(jù)結(jié)構(gòu)中,屬于非線(xiàn)性結(jié)構(gòu)的是( )。A. 循環(huán)隊(duì)列 B.帶鏈隊(duì)列C.二叉樹(shù) D.帶鏈棧答案 C解析 樹(shù)均是非線(xiàn)性結(jié)構(gòu)2. 下列數(shù)據(jù)結(jié)構(gòu)中,能夠按照”先進(jìn)后出”原則存取數(shù)據(jù)的是(
57、60; )。A. 循環(huán)隊(duì)列 B.棧 C.隊(duì)列 D.二叉樹(shù)答案 B解析:棧是先進(jìn)后出或后進(jìn)先出的線(xiàn)性表3. 對(duì)于循環(huán)隊(duì)列,下列敘述中正確的是( )。A.隊(duì)頭指針是固定不變的B.隊(duì)頭指針一定大于隊(duì)尾指針C.隊(duì)頭指針一定小于隊(duì)尾指針D.隊(duì)頭指針可以大于隊(duì)尾指針,也可以小于隊(duì)尾指針答案 D解析:如果隊(duì)頭指針大于隊(duì)尾指針說(shuō)明隊(duì)列已經(jīng)循環(huán)存放數(shù)據(jù)了,如果隊(duì)頭指針小于隊(duì)尾指針說(shuō)明沒(méi)有進(jìn)行循環(huán)存放4. 算法的空間復(fù)雜度是指( )。A.算法在執(zhí)行
58、過(guò)程中所需要的計(jì)算機(jī)存儲(chǔ)空間 B.算法所處理的數(shù)據(jù)量C.算法程序中的語(yǔ)句或指令條數(shù) D.算法在執(zhí)行過(guò)程中所需要的臨時(shí)工作單元數(shù)答案 A解析:算法的空間復(fù)雜度是指執(zhí)行算法所需要的內(nèi)存空間,包括算法程序所占空間,輸入的初始數(shù)據(jù)所占空間和執(zhí)行過(guò)程中所需要的額外空間.5. 軟件設(shè)計(jì)中劃分模塊的一個(gè)準(zhǔn)則是(&
59、#160; )。A. 低內(nèi)聚低耦合 B. 高內(nèi)聚低耦合 C. 低內(nèi)聚高耦合 D. 高內(nèi)聚高耦合答案 B解析:模塊內(nèi)部各元素之間的聯(lián)系要緊密,高內(nèi)聚,模塊間的連接的緊密程度要低,低耦合,這樣可以提高模塊的獨(dú)立性.6. 下列選項(xiàng)中不屬于結(jié)構(gòu)化程序設(shè)計(jì)原則的是( )。A.可封裝 B.自頂向下 C.模塊化 D.逐步求精答案 A7.軟件詳細(xì)設(shè)計(jì)產(chǎn)生的圖如下該圖是( ).A.N-S圖 B. PAD圖 C. 程序流程圖 D.E-R圖答案 C8.數(shù)據(jù)庫(kù)管理系統(tǒng)是(
60、60; )。A. 操作系統(tǒng)的一部分 B.在操作系統(tǒng)支持下的系統(tǒng)軟件 C.一種編譯系統(tǒng) D.一種操作系統(tǒng) 答案 B 9.在E-R圖中,用來(lái)表示實(shí)體聯(lián)系的圖形是( )。A.橢圓形 B.矩形 C.菱形 D .三角形 答案 C 10.有三個(gè)關(guān)系R,S,T 如下:R ABCa12b21c31S ABCd32T ABCa12b21c31d32 其中關(guān)系T由關(guān)系R和S通過(guò)某種操作得到,該操作稱(chēng)為( )。A.選擇 B.投影 C.
61、 交 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)模塊的敘述中,錯(cuò)誤的是 A)標(biāo)準(zhǔn)模塊不完全由代碼組成,還可以有窗體 (14)下面控件中,沒(méi)有Caption屬性的是 C)組合框 (15)用來(lái)設(shè)置文字字體是否斜體的屬性是 D)FontItalic (16)若看到程序有如下事件過(guò)程,則可以肯定的是,當(dāng)程序運(yùn)行時(shí) Private SubClick_MouseDown(Button As Integer, Shift As Inte
62、ger, X As Single, Y As Single) Print "VB Program" End Sub D)用鼠標(biāo)左鍵或右鍵單擊名稱(chēng)為“Click”的控件時(shí),執(zhí)行此過(guò)程 (17)可以產(chǎn)生30-50(含30到50)之間的隨機(jī)整數(shù)的表達(dá)式是 A)Int(Rnd*21+30) (18)在程序運(yùn)行時(shí),下面的敘述中正確的是 C)只裝入而不顯示窗體,也會(huì)執(zhí)行窗體的Form_Load事件過(guò)程 (19)窗體有名稱(chēng)為Command1的命令按鈕和名稱(chēng)為T(mén)ext1的文本框 Private Sub Command1_Click() Text1.Text = "程序設(shè)計(jì)&quo
63、t; Text1.SetFocus End Sub Private Sub Text1_GotFocus() Text1.Text = "等級(jí)考試" End Sub 運(yùn)行以上程序,單擊命令按鈕后 B)文本框中顯示的是“等級(jí)考試”,且焦點(diǎn)在文本框中 (20)設(shè)窗體上有名稱(chēng)為Option1的單選按鈕,且程序中有語(yǔ)句: If Option.Value=True Then 下面語(yǔ)句中與該語(yǔ)句不等價(jià)的是 C)If Value=True Then (21)設(shè)窗體上有1個(gè)水平滾動(dòng)條,已經(jīng)通過(guò)屬性窗口把它的Max屬性設(shè)置為1,Min屬性設(shè)置為100,下面敘述中正確的是 A)程序運(yùn)行時(shí),若使
64、滾動(dòng)條向左移動(dòng),滾動(dòng)條的Value屬性值就增加 (22)有如下過(guò)程代碼: 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過(guò)程,第3次調(diào)用時(shí)的輸出是 C)6 1 (23)在窗體上畫(huà)1個(gè)命令按鈕,并編寫(xiě)如下事件過(guò)程: Private Sub Command1_Click() For i = 5 To 1 Step -0.8 Print Int(i); Next i End Sub 運(yùn)行程序,單
65、擊命令按鈕,窗體上顯示的內(nèi)容為 A)5 4 3 2 1 1 (24)在窗體上畫(huà)1個(gè)命令按鈕,并編寫(xiě)如下事件過(guò)程: 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ù)過(guò)程: Function fun(a As Integer, b
66、 As Integer) Dim c As Integer If a < b Then c = a: a = b: b = c End If c = 0 Do c = c + a Loop Until c Mod b = 0 fun = c End Function 若調(diào)用函數(shù)fun時(shí)的實(shí)際參數(shù)都是自然數(shù),則函數(shù)返回的是 B)a、b的最小公倍數(shù) (26)窗體上有1個(gè)名稱(chēng)為T(mén)ext1的文本框;1個(gè)名稱(chēng)為T(mén)imer1的計(jì)時(shí)器控件,其Interval屬性為5000,Enabled屬性值是True。Timer1的事件過(guò)程如下: Private Sub Timer1_Timer() Static
67、flag As Integer If flag = 0 Then flag = 1 flag = -flag If flag = -1 Then Text1.ForeColor = &HFF& '&HFF&為紅色 Else Text1.ForeColor = &HC000& '&HC000&為綠色 End If End Sub 以下敘述中正確的是 C)程序執(zhí)行后,文本框的文字每5秒改變一次顏色 (27)為計(jì)算1+2+22+23+24+210的值,并把結(jié)果顯示在文本框Text1中,若編寫(xiě)如下事件過(guò)程: Private
68、 Sub Command1_Click() Dim a%, s%, k% s = 1 a = 2 For k = 2 To 10 a = a * 2 s = s + a Next k Text1.Text = s End Sub 執(zhí)行此事件過(guò)程后發(fā)現(xiàn)結(jié)果是錯(cuò)誤的,為能夠得到正確結(jié)果,應(yīng)做的修改是 D)同時(shí)進(jìn)行B)、C)兩種修改 (28)標(biāo)準(zhǔn)模塊中有如下程序代碼: Public x As Integer, y As Integer Sub var_pub() x = 10: y = 20 End Sub 在窗體上有1個(gè)命令按鈕,并有如下事件過(guò)程: Private Sub Command1_Cli
69、ck() Dim x As Integer Call var_pub x = x + 100 y = y + 100 Print x; y End Sub B)100 120 (29)設(shè)a,b都是自然數(shù),為求a除以b的余數(shù),默認(rèn)編寫(xiě)了以下函數(shù): Function fun(a As Integer, b As Integer) While a > b a = a - b Wend fun = a End Function 在調(diào)試時(shí)發(fā)現(xiàn)函數(shù)是錯(cuò)誤的,為使函數(shù)能產(chǎn)生正確的返回值,應(yīng)做的修改是 D)把While a>b改為While a>=b (30)下列關(guān)于通用對(duì)話(huà)框CommonD
70、ialog1的敘述中,錯(cuò)誤的是 A)只要在“打開(kāi)”對(duì)話(huà)框中選擇了文件,并單擊“打開(kāi)”按鈕,就可以將選中的文件打開(kāi) (31)在利用菜單編輯器設(shè)計(jì)菜單時(shí),為了把組合鍵“Alt+X”設(shè)置為“退出(X)”菜單項(xiàng)的訪問(wèn)鍵,可以將該菜單項(xiàng)的標(biāo)題設(shè)置為 B)退出(&X) (32)在窗體上畫(huà)1個(gè)命令按鈕和1個(gè)文本框,其名稱(chēng)分別為Command1和Text1,再編寫(xiě)如下程序: Dim ss As String Private Sub Text1_KeyPress(KeyAscii As Integer) If Chr(KeyAscii) <> "" Then ss = s
71、s + 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 100”,并單擊命令按鈕,則文本框中顯示的是 D)001REMBUN (33)窗體的左右兩端各有1條直線(xiàn),名稱(chēng)分別為L(zhǎng)ine1、Line2;名稱(chēng)為Shape1的圓靠在左邊的Line1直線(xiàn)上(見(jiàn)圖);另有1個(gè)名稱(chēng)為T(mén)i
72、mer1的計(jì)時(shí)器控件,其屬性值為T(mén)rue。要求程序運(yùn)行后,圓每秒向右移動(dòng)100,當(dāng)圓遇到Line2時(shí)則停止移動(dòng)。為實(shí)現(xiàn)上述功能,某人把計(jì)時(shí)器的Interval屬性設(shè)置為1000,并編寫(xiě)了如下程序: Private Sub Timer1_Timer() For k = Line1.X1 To Line2.X1 Step 100 If Shape1.Left + Shape1.Width < Line2.X1 Then Shape1.Left = Shape1.Left + 100 End If Next k End Sub 運(yùn)行程序時(shí)發(fā)現(xiàn)圓立即移動(dòng)到右邊的直線(xiàn)處,與題目要求的移動(dòng)方式不符。
73、為得到與題目要求相符的結(jié)果,下面修改方案中正確的是 B)把 For k = Line1.X1 To Line2.X1 Step 100 和Next k兩行刪除 (34)下列有關(guān)文件的敘述中,正確的是 C)隨機(jī)文件中,每個(gè)記錄的長(zhǎng)度是固定的 (35)窗體如圖1所示。要求程序運(yùn)行時(shí),在文本框Text1中輸入一個(gè)姓氏,單擊“刪除”按鈕(名稱(chēng)為Command1),則可刪除列表框List1中所有該姓氏的項(xiàng)目。若編寫(xiě)以下程序來(lái)實(shí)現(xiàn)此功能: Private Sub Command1_Click() Dim n%, k% n = Len(Text1.Text) For k = 0 To List1.ListC
74、ount - 1 If Left(List1.List(k), n) = Text1.Text Then List1.RemoveItem k End If Next k End Sub 在調(diào)試時(shí)發(fā)現(xiàn),如輸入“陳”,可以正確刪除所有姓“陳”的項(xiàng)目,但輸入“劉”,則只刪除了“劉邦”、“劉備”項(xiàng),結(jié)果如圖所示。這說(shuō)明程序不能適應(yīng)所有情況,需要改正。正確的修改方案是把For k=0 to List1.ListCount-1改為 A)For k = List1.ListCount - 1 To 0 Step -1 二、填空題(每空2分,共30分) (1)某二叉樹(shù)有5個(gè)度為2的結(jié)點(diǎn)以及3個(gè)度為1的結(jié)點(diǎn),
75、則該二叉樹(shù)中共有 【1】14 個(gè)結(jié)點(diǎn)。 (2)程序流程圖中的菱形框表示的是【2】 邏輯條件 或 邏輯判斷 或 條件或判斷。 (3)軟件開(kāi)發(fā)過(guò)程主要分為需求分析、設(shè)計(jì)、編碼與測(cè)試四個(gè)階段,其中【3】需求分析 階段產(chǎn)生“軟件需求規(guī)格說(shuō)明書(shū)”。 (4)在數(shù)據(jù)庫(kù)技術(shù)中,實(shí)體集之間的聯(lián)系可以是一對(duì)一或一對(duì)多的,那么“學(xué)生”和“可選課程”的聯(lián)系為【4】多對(duì)多。 (5)人員基本信息一般包括:身份證號(hào),姓名,性別,年齡等。其中可以作為主關(guān)鍵字的是【5】身份證號(hào)。 (6)工程中有Form1和Form2兩個(gè)窗體。Form1窗體外觀如圖1所示。程序運(yùn)行時(shí),在Form1中名稱(chēng)為T(mén)ext1的文本框中輸入一個(gè)數(shù)值(圓的半
76、徑),然后單擊命令按鈕“計(jì)算并顯示”(其名稱(chēng)為Command1),則顯示Form2窗體,且根據(jù)輸入的圓的半徑計(jì)算圓的面積,并在Form2的窗體上顯示出來(lái),如圖2所示。如果單擊命令按鈕時(shí),文本框中輸入的不是數(shù)值,則用信息框顯示“請(qǐng)輸入數(shù)值數(shù)據(jù)!”。請(qǐng)?zhí)羁铡?Private Sub Command1_Click() If Text1.Text = "" Then magbox "請(qǐng)輸入半徑!" ElseIf Not IsNumeric(【6】Text1.Text) Then MsgBox "請(qǐng)輸入數(shù)值數(shù)據(jù)!" Else r = Val(【
77、7】Text1.Text) Form2.Show 【8】Form2.Print "圓的面積是" & 3.14 * r * r End If End Sub (7)設(shè)有整型變量s,取值范圍為0100,表示學(xué)生的成績(jī),有如下程序段: If s >= 90 Then Level = "A" ElseIf s >= 75 Then Level = "B" ElseIf s >= 60 Then Level = "C" Else Level = "D" End If 下面用Sel
78、ect Case結(jié)構(gòu)改寫(xiě)上述程序,使兩段程序所實(shí)現(xiàn)的功能完全相同,請(qǐng)?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 或 Is<60 Level = "D" 【11】End Select (8)窗體上有名稱(chēng)為Command1的命令按鈕。事件過(guò)程及2個(gè)函數(shù)過(guò)程如下: Private Sub Command1_Click() Dim
79、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個(gè)值依次是【12】12和【13】10。 (9)窗體上有名稱(chēng)為Command1的命令按鈕及名稱(chēng)為T(mén)ext1、能顯示多行文本的文本框。程序運(yùn)行后,如果單擊命令按鈕,則可打開(kāi)磁盤(pán)文件c:test.txt,并將文件中的內(nèi)容(多行文本)顯示在文本框中。下面是實(shí)現(xiàn)此能的程序,請(qǐng)?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
溫馨提示
- 1. 本站所有資源如無(wú)特殊說(shuō)明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶(hù)所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶(hù)上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶(hù)上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶(hù)因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 教育機(jī)器人技術(shù)在特殊教育中的運(yùn)用
- 教育技術(shù)中的交互設(shè)計(jì)-以包容性為核心
- 公交優(yōu)先戰(zhàn)略下2025年城市交通擁堵治理成本效益分析報(bào)告
- 福建省泉州市2024-2025學(xué)年九上化學(xué)期末經(jīng)典模擬試題含解析
- 嵩山少林武術(shù)職業(yè)學(xué)院《企業(yè)文化建設(shè)》2023-2024學(xué)年第一學(xué)期期末試卷
- 承德護(hù)理職業(yè)學(xué)院《汽車(chē)造型設(shè)計(jì)2》2023-2024學(xué)年第一學(xué)期期末試卷
- 宿遷職業(yè)技術(shù)學(xué)院《網(wǎng)頁(yè)設(shè)計(jì)與制作實(shí)驗(yàn)》2023-2024學(xué)年第一學(xué)期期末試卷
- 陜西科技大學(xué)鎬京學(xué)院《建筑火災(zāi)防治與風(fēng)險(xiǎn)評(píng)估》2023-2024學(xué)年第一學(xué)期期末試卷
- 云南彌勒市2024年化學(xué)九上期末綜合測(cè)試模擬試題含解析
- 藁城舒卿培訓(xùn)課件
- WST821-2023托育機(jī)構(gòu)質(zhì)量評(píng)估標(biāo)準(zhǔn)
- 2025至2030中國(guó)循環(huán)腫瘤細(xì)胞(CTC)行業(yè)發(fā)展趨勢(shì)分析與未來(lái)投資戰(zhàn)略咨詢(xún)研究報(bào)告
- 2025至2030中國(guó)大型連鎖超市行業(yè)發(fā)展趨勢(shì)分析與未來(lái)投資戰(zhàn)略咨詢(xún)研究報(bào)告
- T-GDMDMA 0044-2025 一次性使用血液灌流器的臨床使用指南
- 2025-2030年中國(guó)鱈魚(yú)腸行業(yè)市場(chǎng)發(fā)展分析及發(fā)展前景與投資策略研究報(bào)告
- 2025-2030年中國(guó)智慧應(yīng)急行業(yè)市場(chǎng)深度調(diào)研及市場(chǎng)前瞻與投資策略研究報(bào)告
- 2025年全國(guó)統(tǒng)一高考語(yǔ)文試卷(全國(guó)一卷)含答案
- 2025年調(diào)解員職業(yè)技能考試試卷及答案
- 噴粉技術(shù)質(zhì)量協(xié)議書(shū)
- 2025年自考有效溝通技巧試題及答案
- 商場(chǎng)物業(yè)外包合同協(xié)議
評(píng)論
0/150
提交評(píng)論