<source id="v77gz"></source>
    <u id="v77gz"><p id="v77gz"></p></u>

      <samp id="v77gz"></samp>

      <var id="v77gz"><td id="v77gz"><ins id="v77gz"></ins></td></var>

      <video id="v77gz"></video>
      <source id="v77gz"></source>
    1. 江蘇省高校計算機等級考試命題研究院 江蘇省高校計算機等級考試輔導
      2012年9月全國計算機二級VB考試真題

      2012年9月全國計算機二級VB考試真題

      二級VB

      一、選擇題(每小題2分,共70分)
      1)下列鏈表中,其邏輯結構屬于非線性結構的是
      A
      )循環鏈表     B)雙向鏈表   C)帶鏈的棧     D)二叉鏈表
      2)設循環隊列的存儲空間為Q(1:35),初始狀態為front=rear=35,現經過一系列入隊與退隊運算后,front=15,rear=15,則循環隊列中的元素個數為
      A
      16      B20   C035     D15
      3)下列關于棧的敘述中,正確的是
      A
      )棧頂元素一定是最先入棧的元素     B)棧操作遵循先進后出的原則
      C
      )棧底元素一定是最后入棧的元素     D)以上三種說法都不對
      4)在關系數據庫中,用來表示實體間聯系的是
      A
      )二維表     B)樹狀結構   C)屬性     D)網狀結構
      5)公司中有多個部門和多名職員,每個職員只能屬于一個部門,一個部門可以有多名職員,則實體部門和職員間的聯系是
      A
      m:1聯系     B1:m聯系   C1:1聯系     Dm:n聯系
      6 有兩個關系R如下:

      A

      B

      C

      a

      1

      2

      b

      2

      1

      c

      3

      1

      A

      B

      C

      c

      3

      1


          
      則由關系R得到關系S的操作是
      A
      )自然連接     B)選擇   C)并     D)投影
      7)數據字典(DD)所定義的對象都包含于
      A
      )程序流程圖     B)數據流圖(DFD圖)  C)方框圖     D)軟件結構圖
      8)軟件需求規格說明書的作用不包括
      A
      )軟件可行性研究的依據     B)用戶與開發人員對軟件要做什么的共同理解
      C
      )軟件驗收的依據           D)軟件設計的依據
      9)下面屬于黑盒測試方法的是
      A
      )邏輯覆蓋     B)語句覆蓋   C)路徑覆蓋     D)邊界值分析
      10)下面不屬于軟件設計階段任務的是
      A
      )數據庫設計       B)算法設計
      C
      )軟件總體設計     D)制定軟件確認測試計劃

      (11)以下敘述敘述中錯誤的是

        A)vbp是工程文件,一個工程可以包括.bas文件

        B).frm文件是窗體文件,一個窗體可以包含.bas文件

       C) vbp是工程文件,一個工程可以由多個.frm文件組成

        D).vbg文件是工程組文件,一個工程組可以由多個工程組成

       (12)以下敘述中錯誤的是

        A)Visual Basic的窗體中,一個命令按鈕是一個對象

        B)事件是能夠被對象識別的狀態變化或動作

        C)事件都是由用戶的鍵盤操作或鼠標操作觸發

        D)不同的對象可以具有相同的方法

      (13)x=3.3, y=4.5, 表達式x-Int(x)+Fix(y)的值是

      A)3.5    B)4.8 t    C)4.3    D)4.7

      (14)窗體上有一令名稱為Command1的命令按鈕, 其中部分代碼如下:

          Private Sub Command1_Click()

            Dim a(10)As Integer

            Dim n As Integer

            ... ...

            Call calc(a, n)  

            ... ...

          End Sub    

          calc過程的首行應該是

          A)Sub talc(x()As Integer, n As Integer)

          B)Public Sub calc(x() As Integer)

          C)Private Sub calc(a(n) As Integer, n As Integer)   

          D)Public Sub calc(a As Integer, n As Integer)

       (15)設有如下程序:

          Sub f(x As Integer,ByVal y As Integer)

            x=2*x

            y=y+x

          End Sub

          Private Sub Command1_Click()

            Dim a As Integer,b As Integer

            a=6:b=35  

            Call f(a, b)

            Print a, b

          End Sub

          程序運行后, 單擊命令按鈕Command1, 輸出結果為

          A)6 47    B)12 47    C)6 35    D)12 35

        (16)以下敘述中正確的是

          A)窗體及窗體上所有控件的事件過程代碼都保存在窗體文件中

          B)在工程中只有啟動窗體可以建立菜單

          c)窗體名稱必須與窗體文件的名稱相同

          D)程序一定是從某個窗體開始執行的

       (17)窗體上有一個名稱為Command1的命令按鈕, 其單擊事件過程代碼如下:

          Private Sub Command1_Click()

            Static x As Variant

            n=0

            x=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)

            while n<=4

              x(n)=x(n+5)

              Print x(n);

              n=n+1

            Wend

          End Sub

          運行程序, 單擊命令按鈕Command1, 窗體上顯示的是

          A)1 2 3 4 5    B)6 7 8 9 10    C)2 3 4 5 6    D)6 2 3 4 5

       (18)窗體上有一個名稱為Label1的標簽和一個名稱為Command1的命令按鈕。命令按鈕的單擊事件過程如下:

          Private Sub Command1_Click()   

            x=InputBox("輸入x:", , 0)   

            y=InputBox("輸入y:", , 0)

            Label1.Caption=x+y   

          End Sub   

          運行程序, 單擊命令按鈕, 在輸入對話框中分別輸入2、3, 運行的結果是

          A)程序運行有錯誤, 數據類型不匹配   

          B)程序運行有錯誤。InputBox函數的格式不時

          C)Labell中顯示5    1

          D)Labell中顯示23

       (19)窗體上有一個名稱為Shape1的形狀控件和由三個命令按鈕組成的名稱為cmdDraw的控件數組。窗體外觀如圖所示(從上到下的3個命令按鈕的下標值分別為0、1、2)。有事件過程如下:

          Private Sub cmdDraw_Click(Index As Integer)

            Select Case Index

              Case 0

                Shape1.Shape=0

              Case 1

                Shape1.Shape=1

              Case 2

                Shape1.Shape=3

            End Select

          End Sub

          當單擊"畫圓"命令按鈕時, 會執行cmdDraw_Click事件過程。以下敘述中正確的是

          A)Case 2分支有錯, Case后面表達式的值應該與賦給Shape1.Shape的值一致

          B)程序運行有錯, 控件數組的下標應該從1開始

          C)Index是形狀控件的參數

          D)程序正常運行.形狀控件被顯示為圓形

          (20)如果一個正整數從高位到低位上的數字依次遞減, 則稱其為降序數<:9632是降序數, 8516則不是降序數),F編寫如下程序, 判斷輸入的正整數是否為降序數。

          Private Sub Command1_Click()

            Dim n As Long   

            Dim flag As Boolean

            n=InputBox("輸入一個正整數")

            s=Trim(Str(n))

            For i=2 To Len(s)

             If Mid(s, i-1, 1)<Mid(S, i, 1) Then Exit For

            Next i

            If i=Len(s) Then flag=True Else flag=False

            If flag Then

              Print n; "是降序數"  

            Else

              Print n; "不是降序數"

            End If   

          End Sub    .

          運行以上程序, 發現有錯誤, 需要對給flag變量賦值的If語句進行修改。以下正確的修改是

          A)If i=Len(s)+1 Then flag=False Else flag=True   

          B)If i=Len(s)+1 Then flag=True Else flag=False

          C)If i=Len(s)-1 Then flag=False Else flag=Tihe   

          D)If i=Len(s)-1 Then flag=True Else flag=False   

          (21)現有以下程序:

          Private Sub Command1_Click()

             c1=0 

             c2=0

             For i=1 To 100

              If i Mod 3=0 Then

                c1=c1+1

              Elself i Mod 7=0 Then

                c2=c2+1

              End If

            Next  

            Print c1+c2

          End Sub 

          此程序運行后輸出的是在1100范圍內

          A)同時能被37整除的整數個數

          B)能被37整除的整數個數(同時被37整除的數只記一次) 

          C)能被3整除, 而不能被7整除的整數個數  

          D)能被7整除, 而不能被3整除的整數個數

      (22)設菜單編輯器中各菜單項的屬性設置如下表所示: 

      序號

      標題

      名稱

      復選

      有效      

      可見

      內縮符號

      1

      File

      File

       

      2    

      Open

      OpenFile

       

      1

      3

      Save

      SaveFile

       

       

      1

      4

      Exit

      EndOfAll

       

       

      1

      5

      Help

      ShowHdp

       

      1

       

      針對上述屬性設置, 以下敘述中錯誤的是

        A)屬性設置有錯, 存在"標題""名稱"重名現象

        B)運行程序, 序號為"3"的菜單項不顯示

        C)運行程序, 序號為"4"的菜單項不顯示

        D)運行程序, 序號為"5"的菜單項前顯示""

      (23)窗體上有一個名稱為Command1的命令按鈕, 并有如下程序:  

        Private Sub Commandl_Click()

          x=15 

          Do While x>0

            x=x-3  

            x=IIf(Int(x/5)=x/5, x+2, x)   

          Loop 

          Print x  

        End Sub

      程序運行后, 單擊命令按鈕Command1, 輸出結果為

        A)0    B)-1    C)-2    D)-3  

      (24)以下關于通用對話框的敘述中, 錯誤的是

        A)若沒有指定InitDir屬性值, 則起始目錄為當前目錄

        B)用一個通用對話框控件可以建立幾種不同的對話框

        C)FileTitle屬性指明了文件對話框中所選擇的文件名。

        D)文件對話框用屬性Filterlndex指定默認過濾器, 它是一個從0開始的整數

      (25)窗體上有一個名稱為Command1的命令按鈕, 并有如下程序:

          Private Sub Command1_Click()

            Dim m As Integer, n As Inleger

            m=InputBox("輸入第一個數")

            n=InputBox("輸入第二個數")

            Do While m<>n   

              Do While m>n   

                m=m-n 

              Loop 

              Do While n>m   

                n=n-m

              Loop   

            Loop  

            Print m

          End Sub

      該程序的功能是   

        A)求數值mn的最大公約數        B)求數值mn的最小公倍數  

        C)求數值mn中的較大數          D)求數值mn中的較小數

      (26)窗體上有一個名稱為Command1的命令按鈕, 其單擊事件過程及有關函數過程如下:

          Private Sub Command1_Click()

            Dim n As Integer

            n=add(5,10)

            Print n

          End Sub 

          Function add(v1 As Integer, v2 As Integer, Optional v3)As Integer  

            If Not IsMissing(v3)Then

              add=v1+v2+v3  

            Else   

              add=v1+v2

            End If   

          End Function 

      運行程序, 單擊命令按鈕, 以下敘述中正確的是。 

        A)程序不能正常運行, 因為函數add的參數定義有錯

        B)程序不能正常運行, 因為函數定義與函數調用語句的參數個數不匹配

        C)程序能正常運行, 結果是在窗體上顯示15

        D)程序能正常運行, 結果是在窗體上顯示510v3  

      (27)目錄列表框Path屬性所表示的含義是.

        A)當前驅動器或指定驅動器上的路徑

        B)當前驅動器或指定驅動器上的某目錄下的文件列表

        C)根目錄下的文件列表 

        D)指定路徑下的文件列表

      (28)以下關于函數過程的敘述中錯誤的是

          A)函數過程一定有返回值 

          B)函數過程一定有參數 

          C)函數過程可以在窗體模塊和標準模塊中定義。 

          D)函數過程參數的類型與返回值的類型無關

      (29)在窗體上畫一個名稱為C6mmand1的命令按鈕, 然后編寫如下程序

          Public Enum S  

            a=4

            b=3

          End Enum   

          Private Sub Command1_Click()

            Dim x As Integer

            x=a

            If x>=3 Then MsgBox "Pass!" 

          End Sub 

        運行程序, 其結果是

          A)運行錯誤, 因為Enum定義有錯    B)運行錯誤, 因為x=a類型不匹配   

          C)運行正常結束, 不顯示任何信息  D)運行正常, 顯示內容為"Pass!"的信息框

      (30)設有如下程序:  

          Option Base 1  

          Private Sub Form_Click()

            Dim a(5) As String, i As Integer

            For i=1 To 5   

              a(i)=Chr(Asc("A")+i)

              Call f(a,i)

            Next i

          End Sub

          Sub f(ta() As String, n As Integer)

            Dim i As Integer

            For i=1 To n

              Print ta(i);

            Next i  

            Print 

          End Sub

        對上述程序, 以下敘述中正確的是

          A)程序有錯, 因為在過程f的定義中數組參數格式不正確

          B)程序可正常運行, 輸出內容的第一行是一個字母"A"

          C)程序可正常運行, 輸出內容的第一行是一個字母"B"

          D)程序可正常運行, 輸出內容的第一行是數字65

      (31)窗體上有二個名稱為Picture1的圖片框控件, 一個名稱為Timer1的計時器控件, Interval屬性值

      1000。要求每隔5秒鐘圖片框右移100,F編寫程序如下: 

          Private Sub Timer1_Timet()

            Static n As Integer

            n=n+1

            If (n/5)=Int(n/5)  And  Picture1.Left<Form1.Width Then

              Picturet.Left=Picture1.Left+100

            End If 

          End Sub

          分析以上程序, 以下敘述中正確的是

          A)程序中沒有設置5秒鐘的時間, 所以不能每隔5秒移動圖片框一次

          B)此程序運行時圖片框位置保持不動

          C)此程序運行時圖片框移動方向與題目要求相反

          D)語句條件中的"Picture1.Left<Form1.Width"用于限制圖片框移動的范圍 

       (32)窗體上有一個名稱為Command1的命令按鈕, 其事件過程如下:

          Private Sub Command1_Click()

            Dim i As Integer, j As Integer, k As Integer

            Dim S As Double

            s=0: i=1: j=0: k=-1

            Do While i<6 

              s=s+k*(j/i)   

              i=i+1

              j=j+1

              k=-k

            Loop

            print s

          End Sub

      以上程序所計算的表達式是

         A)1/2-2/3+3/4-4/5          B)-1/2+2/3-3/4+4/5

         C)1-1/2+2/3-3/4+4/5        D)-1+1/2-2/3+3/4-4/5

      33)窗體上有一個名稱為Command1的命令按鈕,其單擊事件過程如下:

           Private Sub Command1_Click()

              Dim a,b(2,3) as initeger

              a=Array(3,7,5,11,31,43,17,62,9,23,37,41)

              i=0

              do while i<=Ubound(a)

                 for j=0 to 2

                   for k=0 to 3

                      b(j,k)=a(i)

                      i=i+1

                   next

              Loop

              print b(2,2)

      End Sub

      運行程序,窗體上顯示的是

       A)43    B)17    C)37      D)23

      (34) 窗體上有一個名稱為Command1的命令按鈕,其單擊事件過程如下:

        Private Sub Command1_Click()

           Dim s as string

           Open “C:\File1.txt” For Input As #1

           Open “C:\File2.txt” For OutPut As #2

           Do while not Eof(1)

              Input #1,s

              Input #2,s

           Loop

           Close #1,#2

        End Sub

      關于以上程序,以下敘述中錯誤的是

      A)     程序把File1.txt文件的內容存放在File2.txt文件中

      B)      程序中打開了兩個隨機文件

      C)     程序中打開了兩個順序文件

      D)     “EOF(1)”中的1”對應于File1.txt文件

      (35)以下關于文件與文件相關操作的敘述中錯誤的是

       A)Append方式打開的文件可以進行讀寫操作

      B)文件記錄的各個字段的數據類型可以不同

       C)隨機文件各記錄的長度是相同的

       D)隨機文件可以通過記錄號直接訪問文件中的指定記錄

       

      二、填空題(每空2分,共30分)
      請將每一個空的正確答案寫在答題卡【1】~【15】序號的橫線上,答在試卷上不得分。
      注意:以命令關鍵字填空的必須拼寫完整
      1)一棵二叉樹共有47個結點,其中有23個度為2的結點,假設根結點在底1層,則該二叉樹的深度為【1 。    
      2)設棧的存儲空間為S(1:40),初始狀態為bottom=0,top=0,現經過一系列入棧與出棧運算后,top=20,則當前棧中有【2】個元素。
      3)數據獨立性分為邏輯獨立性和物理獨立性。當總體邏輯結構改變時,其局部邏輯結構可以不變,從而根據局部邏輯結構編寫的應用程序不必修改,稱為【3 。
      4)關系數據庫中能實現的專門關系運算包括【4】、連接和投影。
      5)軟件按功能通?梢苑譃閼密浖、系統軟件和支撐軟件(或工具軟件),Unix操作系統屬于【5】軟件。

      (6)窗體上有從左到右4個單選按鈕組成的控件數組Opt1,下標從0開始,程序運行時,單擊命令按鈕選擇”(名稱為Command1),則在標簽Label1中顯示所選中的信息,如圖所示

        以下是完成上述功能的程序,請填空

        Private Sub Command1_Click()

           For i=0  to 3

              if Opt1(i).value=true then

                Call  f(___6___)

              End If

           Next

        End Sub

        Private Sub f(x as Control)

           Label1.Caption=”您選擇的是:” & ___7___.Caption

        End Sub

      (7)窗體上有一個名稱為List1的列表框, 列表框中有若干數據項, 列表框的Style屬性為1#有一個名稱Label2的標簽,還有一個名稱為Command1, Caption屬性為"計算"的命令按鈕(見圖)。運行程序,在列表框中選中某些數據項后,單擊命令按鈕, 則可以計算所選數據之和, 并將結果顯示在標簽Label2,以下是實現上述功能的程序, 請填空

          Private Sub Command1_Click()

            s=0

            For i=0 To List1.ListCount-1

             If ___8___  =True Then

               s=s+___9___

             End If

            Next

            Label2.Caption=___10___

          End Sub

          (8)以下程序的功能是從隨機產生的2020200(20

      200)的整數中, 找出能夠同時被35整除的數的最大值, 并顯示

      出來。請填空。

          Option Base 1

          Private Sub Command1_Click()

            Dim a(20) As Integer

            m=0  

            For i=1 To 20

              a(i)=Int(Rnd*___11___)+20

              If a(i) Mod 3=0] ___12___ a(i) Mod 5=0 Then

                  If a(i)>m Then m=a(i)

              End If

            Next

            If  ___13___ Then

               print "沒有滿足條件的數"

            Else

               Print "滿足條件的數是";m

            End lf

          End Sub

      9.窗體上畫一個名稱為Timer1的計時器控件, Enabled屬性值設為False, Interval屬性值設為100。要求程序運行后, 當鼠標在窗體上移動時, 沿鼠標經過的軌跡畫出一系列半徑為100的小圓。其效果如圖所示.以下是實現上述功能的程序,請填空

       

       

          Dim a As Integer, b As Integer

          Private Sub Form____14___ (Button As Integer, Shift As Integer, x As Single, Y as single)

            a=X

            b=Y

            Timer1.Enabled= ___15___

          End Sub

          Private Sub Timer1_Timer()

            Form1.Circle(a, b), 100    '(a, b)為圓心畫一個半徑為100的圓

          End Sub

       

       

       

      中文在线字幕第一页_中文字幕高跟丝袜作品番号_亚洲中文无无码第_日本亚洲欧美国产日韩a??y_在线观看亚洲av无码专区