|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
 |
2011年3月全國(guó)計(jì)算機(jī)二級(jí)VB考試真題 |
||||||||||||||||||||||||||||||||||||||||||||||||||
2011全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB考試真題 一、選擇題(每小題2分，共70分) 下列各題A)、B)、C)、D)四個(gè)選項(xiàng)中，只有一個(gè)選項(xiàng)是正確的。請(qǐng)將正確選項(xiàng)填涂在答題卡相應(yīng)位置上，答在試卷上不得分。 (1)下列敘述中正確的是 (2)算法的時(shí)間復(fù)雜度是指 (3)軟件按功能可以分為：應(yīng)用軟件、系統(tǒng)軟件和支撐軟件(或工具軟件)。下面屬于系統(tǒng)軟件的是 (4)軟件(程序)調(diào)試的任務(wù)是 (5)數(shù)據(jù)流程圖(DFD圖)是 (6)軟件生命周期可分為定義階段，開(kāi)發(fā)階段和維護(hù)階段。詳細(xì)設(shè)計(jì)屬于 (7)數(shù)據(jù)庫(kù)管理系統(tǒng)中負(fù)責(zé)數(shù)據(jù)模式定義的語(yǔ)言是 (8)在學(xué)生管理的關(guān)系數(shù)據(jù)庫(kù)中，存取一個(gè)學(xué)生信息的數(shù)據(jù)單位是 (9)數(shù)據(jù)庫(kù)設(shè)計(jì)中，用E-R圖來(lái)描述信息結(jié)構(gòu)但不涉及信息在計(jì)算機(jī)中的表示，它屬于數(shù)據(jù)庫(kù)設(shè)計(jì)的 (10)有兩個(gè)關(guān)系R和T如下：
則由關(guān)系R得到關(guān)系T的操作是 (11)在Visual Basic集成環(huán)境中,可以列出工程中所有模塊名稱的窗口是_________ (A)工程資源管理器 (B)窗體設(shè)計(jì)窗口 (C)屬性窗口 (D)代碼窗口 (12)假定編寫(xiě)了如下4個(gè)窗體事件的事件過(guò)程,則運(yùn)行應(yīng)用程序并顯示窗體后,已經(jīng)執(zhí)行的事件過(guò)程是___ (A)Load (B)Click (C)LostFocus (D)KeyPress (13)為了使標(biāo)簽具有"透明"的顯示效果,需要設(shè)置的屬性是___ (A)Caption (B)Alignment (C)BackStyle (D)AutoSize (14)下面可以產(chǎn)生20--30(含20和30)的隨機(jī)整數(shù)的表達(dá)式是___ (A)Int(Rnd*10+20) (B)Int(Rnd*11+20) (C)Int(Rnd*20+30) (D)Int(Rnd*30+20) (15)設(shè)窗體上有一個(gè)名稱為HS1的水平滾動(dòng)條,如果執(zhí)行了語(yǔ)句:HS1.Value=(HS1.Max*HS1.Min)/2+HS1.Min則: (A)滾動(dòng)塊處于最左端(B)滾動(dòng)塊處于最右端(C)滾動(dòng)塊處于中間位置(D)滾動(dòng)塊處于任何位置 (16)窗體上有一個(gè)名稱為Cb1的組合框,程序運(yùn)行后,為了輸出選中的列表項(xiàng),應(yīng)使用的語(yǔ)句是 A)Print Cb1.Selected B)Print Cb1.List(Cb1.ListIndex) C)Print Cb1.Selected.Text D)Print Cb1.List(ListIndex) (17)為了在窗體上建立2組單選按鈕,并且當(dāng)程序運(yùn)行時(shí),每組都可以有一個(gè)單選按鈕被選中,則以下做法中正確的是_____ A)把這2組單選按鈕設(shè)置為名稱不同的2個(gè)控件數(shù)組 B)使2組單選按鈕的Index屬性分別相同 C)使2組單選按鈕的名稱分別相同 D)把2組單選按鈕分別畫(huà)到2個(gè)不同的框架中 (18)如果一個(gè)直線控件在窗體上呈現(xiàn)為一條垂直線,則可以確定的是______ A)它的Y1、Y2屬性的值相同 B)它的X1、X2屬性的值相等 C)它的X1、Y1屬性的值分別與X2、Y2屬性的值相等 D)它的X1、X2屬性的值分別與Y1、Y2屬性的值相等 (19)設(shè)a=2,b=3,c=4,d=5,則下面語(yǔ)句的輸出是___ Print 3>2*b Or a=c And b<>c or c>d A)False B) (20)窗體Form1上有一個(gè)名稱為Command1的命令按鈕,以下對(duì)應(yīng)窗體單擊事件的事件過(guò)程是___ A)Print Sub Form1_Click() ... End Sub B)Print Sub Form_Click() ... End Sub C)Print Sub Command1_Click() ... End Sub D)Print Sub Command_Click() ... End Sub (21)默認(rèn)情況下,下面聲明的數(shù)組的元素個(gè)數(shù)是___ Dim a(5,-2 to 2) A)20 B) (22)設(shè)有如下程序段 Dim a(10) ... For Each x In a print x; next x 在上面的程序段中,變量x必須是___ A)整型變量 B)變體型變量 C)動(dòng)態(tài)數(shù)組 D)靜態(tài)數(shù)組 (23)設(shè)有如下函數(shù)過(guò)程 Private Function Fun(a() as Inteer, b as string) as Integer ... End Function 若已有變量聲明: Dim x(5) as integer, n as integer, ch as string 則下面正確的過(guò)程調(diào)用語(yǔ)句是___ A)x(0)=Fun(x,"ch") B)n=Fun(n,ch) C)Call Fun x,"ch" D)n=Fun(x(5),ch) (24)假定用下面的語(yǔ)句打開(kāi)文件: Open "File.txt" For Input As #1 則不能正確讀文件的語(yǔ)句是 A)Input #1,Ch$ B)Line Input #1,ch$ C)ch$=Input$(5,#1) D)Read #1,ch$ (25)下面程序的執(zhí)行結(jié)果是 Private Sub Command1_Click() a=10 For k=1 To 5 Step -1 a=a-k Next k Print a;k End Sub A)-5 6 B)-5 (26)設(shè)窗體上有一個(gè)名為Text1的文本框和一個(gè)名為 Comamand1的命令按鈕,并有以下事件過(guò)程 Private Sub Command1_Click() x!=Val(text1.text) Select Case x Case Is<-10,Is>=20 Print "輸入錯(cuò)誤" Case Is<0 Print 20-x Case Is<10 print 20 Case Is<=20 Print x+10 End Select End Sub 程序運(yùn)行時(shí),如果在文本框中輸入-5,則單擊命令按鈕后輸出結(jié)果是___ A)5 B) (27)設(shè)有如下程序 Private Sub Command1_Click() x=10 : y=0 For i=1 to 5 Do x=x-2 y=y+2 Loop Until y>5 Or x<-1 Next End Sub 運(yùn)行程序,其中Do循環(huán)執(zhí)行的次數(shù)是___ A)15 B) (28)閱讀程序 Private Sub Command1_CLIck() Dim arr Dim i as integer arr=Array(0,1,2,3,4,5,6,7,8,9,10) For i=0 to 2 print arr(7-i); Next End Sub 程序運(yùn)行后,窗體上顯示的是___ A)8 7 6 B)7 6 5 C)6 5 4 D)5 4 3 (29)在窗體上畫(huà)一個(gè)名為Command1的 命令按鈕,然后編寫(xiě)以下程序 Private Sub Command1_Click() Dim a(10) as integer For k=10 to 1 Step -1 a(k)=20-2*k Next k k=k+7 Print a(k-a(k)) End Sub 運(yùn)行程序后,單擊命令按鈕,輸出結(jié)果是___ A)18 B) (30)窗體上有一個(gè)名為Command1的命令按鈕,并有如下程序: Private Command1_Click() Dim a(10),x% For k=1 to 10 a(k)=Int(Rnd*90+10) x=x+a(k) Mod 2 Next k print x End Sub 程序運(yùn)行后，單擊命令按鈕．輸出結(jié)果是 A)10個(gè)數(shù)中奇數(shù)的個(gè)數(shù) B)10個(gè)數(shù)中偶數(shù)的個(gè)數(shù) C)10個(gè)數(shù)中奇數(shù)的累加和 D)10個(gè)數(shù)中偶數(shù)的累加和 (31)窗體上有一個(gè)名為Command1的命令按鈕和一個(gè)Timer1的計(jì)時(shí)器,并有下面的事件過(guò)程 Private Sub Command1_Click() Timer1.Enabled=True End Sub Private Sub Form_Load() Timer1.Interval=10 Timer1.Enabled=False End Sub Private Sub Timer1_Timer() Command1.Left=Command1.Left+10 End Sub 程序運(yùn)行時(shí),單擊命令按鈕,則產(chǎn)生的結(jié)果是___ A)命令按鈕每10秒向左移動(dòng)一次 B)命令按鈕每10秒向右移動(dòng)一次 C)命令按鈕每10毫秒向左移動(dòng)一次 D)命令按鈕每10毫秒向右移動(dòng)一次 (32)設(shè)窗體上有一個(gè)名為List1的列表框,并編寫(xiě)下面的事件過(guò)程 Private Sub List1_Click() Dim ch as String ch=List1.List(List1.ListIndex) List1.RemoveItem List1.ListIndex List1.AddItem ch End Sub 程序運(yùn)行時(shí),單擊一個(gè)列表項(xiàng),則產(chǎn)生的結(jié)果是___ A)該列表項(xiàng)被移到列表的最前面 B)該列表項(xiàng)被刪除 C)該列表項(xiàng)被移到列表的最后面 D)該列表項(xiàng)被刪除后又在原位置插入 (33)窗體上有一個(gè)名為Command1的命令按鈕,并有如下程序: private Sub Command1_Click() Dim a as integer,b as integer a=8 b=12 Print Fun(a,b);a;b End Sub Private Function Fun(Byval a as Integer, b as integer) As Integer a=a Mod 5 b=b\5 Fun=a End Function 程序運(yùn)行時(shí),單擊命令按鈕,額輸出結(jié)果是 A)3 3 2 B)3 8 2 C)8 8 12 D)3 8 12 (34)為了從當(dāng)前文件夾中讀入文件File.txt,某人編寫(xiě)了下面的程序: Private Sub Command1_Click() Open "FIle1.txt" For Output As #20 Do While Not EOf(20) Line Input #20,ch$ Print ch Close #20 End Sub 程序調(diào)試時(shí),發(fā)現(xiàn)有錯(cuò)誤,下面的修改方案中正確的是___ A)在Open語(yǔ)句中的文件名前添加路徑 B)把程序中各處的"20"改為"1" C)把Print ch語(yǔ)句改為Print #20,ch D)把Open語(yǔ)句中的Output改為Input (35)以下程序運(yùn)行后的窗體如圖所示,其中組合框的名稱是Combo1,已有列表框如圖所示:命令按鈕的名稱是Command1 Private Sub Command1_Click() if not Check(Combo1.Text) then MsgBox("輸入錯(cuò)誤") Exit Sub End If For k=0 to Combo1.ListCount-1 if Combo1.Text=Combo1.List(k) Then MsgBox("添加項(xiàng)目失敗") Exit Sub End If next k Combo1.AddItem Combo1.Text MsgBox("添加項(xiàng)目成功") Enb Sub Private Function Check(ch as string) as Boolean n=Len(ch) For k=1 to n c$=Ucase(Mid(ch,k,1)) if c<"A" or C>"Z" then Check=False Exit Function End Sub Next k Check=True End Function 程序運(yùn)行時(shí),如果在組合框的編輯區(qū)輸入"Java",則單擊命令按鈕后產(chǎn)生的結(jié)果是 A)顯示"輸入錯(cuò)誤" B)顯示"添加項(xiàng)目失敗" C)顯示"添加項(xiàng)目成功" D)沒(méi)有任何顯示 二、填空題（每空2分,共30分） 請(qǐng)將每一個(gè)空的正確答案寫(xiě)在答題卡【1】～【15】序號(hào)的橫線上，答在試卷上不得分。 注意:以命令關(guān)鍵字填空的必須拼寫(xiě)完整。 (1)一個(gè)隊(duì)列的初始狀態(tài)為空�，F(xiàn)將元素A,B,C,D,E,F,5,4,3,2,1依次入隊(duì)，然后再依次退隊(duì)，則元素退隊(duì)的順序?yàn)?U> 【1】 。 (2)設(shè)某循環(huán)隊(duì)列的容量為50，如果頭指針front=45（指向隊(duì)頭元素的前一位置），尾指針rear=10（指向隊(duì)尾元素），則該循環(huán)隊(duì)列中共有 【2】 個(gè)元素。 A B C D E F G H 對(duì)該二叉樹(shù)進(jìn)行后序遍歷的結(jié)果為 【3】 。 (4)軟件是 【4】 、數(shù)據(jù)和文檔的集合。
(5)有一個(gè)學(xué)生選課的關(guān)系，其中學(xué)生的關(guān)系模式為：學(xué)生(學(xué)號(hào)，姓名，班級(jí)，年齡)，課程的關(guān)系模式為：課程(課號(hào)，課程名，學(xué)時(shí))，其中兩個(gè)關(guān)系模式的鍵分別是學(xué)號(hào)和課號(hào)，則關(guān)系模式選課可定義為：選課(學(xué)號(hào)， 【5】 ，成績(jī))。 (6)在窗體上有1個(gè)名稱為Command1的命令按鈕,并有如下事件過(guò)程和函數(shù)過(guò)程___ Private Sub Command1_Click() Dim p as integer p=m(1)+m(2)+m(3) print p End Sub Private Function m(n as integer) as integer Static s as integer For k=1 to n s=s+1 Next m=s End Function 運(yùn)行程序,單擊命令按鈕Command1后的輸出結(jié)果為___ (7)在窗體上畫(huà)1個(gè)名稱為Command1的命令按鈕,然后編寫(xiě)如下程序: private Sub Command1_Click() Dim m as integer, x as integer Dim flag as Boolean flag=False n=Val(InputBox("請(qǐng)輸入任意1個(gè)正整數(shù)")) Do While not flag a=2 flag=__(7)___ Do While flag And a<=Int(Sqr(n)) if n/a=n\a then flag=False Else ___(8)___ End If If Not Flag Then n=n+1 Print ___(9)___ End Sub 上述程序的功能是,當(dāng)在鍵盤(pán)輸入任意的1個(gè)正整數(shù)時(shí),將輸出不小于該整數(shù)的最小素?cái)?shù), (8)以下程序的功能是:先將隨機(jī)產(chǎn)生的整數(shù)放入數(shù)組a中,再將這10個(gè)數(shù)按升序方式輸出,請(qǐng)?zhí)羁?/SPAN> private Sub Form_Click() Dim a(10) as Integer, i as integer Randomize i=0 Do num=Int(Rnd*90)+10 For j=1 to i if num=a(j) then Exit For End If Next j If j>i then i=i+1 a(i)=___(10)___ End If For i=1 to 9 For j=___(11)___ to 10 if a(i)>a(j) then Temp=a(i): a(i)=a(j): ___(12)___ Next j Next i For i=1 to 10 Print a(i) Next i End Sub (9)窗體上已有名稱分別為Drive1、Dir1、File1的驅(qū)動(dòng)器列表框、目錄框、和文件列表框,且有1個(gè)名稱為Text1的文本框,以下程序的功能是:將指定位置中擴(kuò)展名為".txt"的文件顯示在File1中,如果雙擊File1中的某個(gè)文件,則在Text1中顯示該文件的內(nèi)容,請(qǐng)?zhí)羁?/SPAN> Private Sub Form_Load() File1.Pattern=___(13)___ End Sub Private Sub Drive1_Change() Dir1.Path=Drive1.Path End Sub Private Sub Dir1_Change() File1.Path=Dir1.Path End Sub Private Sub File1_DblClick() Dim s as string*1 If Right(FIl1.Path,1)="\" Then f_name=File1.Path+Fil1.FileName Else f_name=File1.Path+"\"+File1.FileName End if Open f_name ___(14)___ as #1 Text1.text="" Do While ___(15)___ s=Input(1,#1) Text1.text=Text1.text+s Close #1 End Sub |
||||||||||||||||||||||||||||||||||||||||||||||||||