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