2015年6月份增考

江蘇省計算機等級考試二級VB真題

本套題目詳細的視頻講解見:http://school.njwww.net/kecheng/detail_962307

第1部分  公共基礎知識(共10題)

1.下列關于信息技術的敘述中,錯誤的是________

A.信息技術的發展歷史不足百年,它是隨著計算機技術的發展而逐漸發展起來的

B.信息技術已經成為當今社會最有活力,最有效益的生產力之一

C.現代信息技術的主要特點之一是以電(光)信號來傳輸信息

D.目前常講的新一代信息技術包括大數據、云計算、移動互聯網等技術

2.下列關于目前臺式PC機的敘述中，錯誤的是______

A.芯片組是PC機各組成部分相互連接和通信的樞紐,它實現了PC機總線的功能

B.大多數CPU芯片中集成有高速緩沖存儲器(cache),其工作速度很快(與CPU速度相差不大)

C.目前PCI-E總線是PC機最為重要的I/O總線之一,大多數的獨立顯卡使用該總線接口

D.USB3.0與USB2.0的接口連接器相同,區別在于前者的數據傳輸速度是后者的一倍以上

3.下列關于I//O設備的敘述中,錯誤的是______

A.目前鍵盤和鼠標等設備可以通過無線方式與PC主機相連接

B.光學分辨率是掃描儀的主要性能指標之一,目前普通家用掃描儀的分辨率已達幾千dpi

C.傳統顯示器的寬度與高度之比一般是1:1,現在主流的液晶顯示器的寬高之比是4:3

D.目前用于打印數碼照片的打印機主要是噴墨打印機

4.下列關于PC機外存儲器,錯誤的是__________

A.移動硬盤通常采用USB接口或eSata接口,可隨時插上或拔下(即支持"熱插拔")

B.存儲卡是閃存做成的一種固態存儲器,所有存儲卡的形狀,大小,接口都是相同的

C.固態硬盤(簡稱SSD)是基于半導體存儲器芯片的一種存儲設備,其接口規范、功能及使用方法與普通硬盤幾乎相同

D.DVD盤片有單面單層、單面雙層、雙面單層和雙面雙層等品種,單面單層的120mm DVD存儲容器約4.7GB

5.從操作系統發布的時間來看,下列四個Windows操作系統中最早發布的是________

 A.Windows Xp

 B.Windows 2000

 C.Windows Vista

 D.Windows 7

6.下面給出的四個語言中,不屬于程序設計語言的是______

 A.Lisp語言

 B.Matlab語言

 C.Html語言

 D.Ada語言

7.下列關于數字通信技術的敘述中,錯誤的是________

 A.光纖具有通信容量大,傳輸距離遠,不會受高壓線和雷電電磁感應影響

 B.移動通信技術的發展已經歷的四代,目前我國所有的智能手機均使用3G

 C.我國自行研發的北斗衛星導航定位系統日趨成熟,并已逐漸投入商業運行

 D.路由器的主要作用是將兩個或多個計算機網絡進行互連

8.Internet使用TCP/IP協議實現了全球范圍的計算機網絡的互連,連接在

Internet上的每一臺主機都有一個IP地址,目前使用的IPv4標準,其IP地址為_____

 A.32位

 B.64位

 C.96位

 D.128位

9.在下列的漢字標準中,不屬于漢字編碼標準的是______

 A.GB2312-80

 B.GB8566-88

 C.GBK

 D.GB18030-2000

10.由于采用的壓縮編碼方式及數據組織方式的不同,聲音文件形成了

多種不同的文件格式,在下列四種文件中,不屬于數字聲音文件的是_____

A.APE

B.WMA

C.MP3

D.TIF

程序設計理論部分

1.單選題

若要正確執行顯示Text1.Text=a & vbCrlf & b語句,其中a和b為字符串變量,則須設置Text1的_________屬性

A.Text

B.ScrollBars

C.MultiLine

D.Alignment

2.以下敘述中錯誤的是_______

A.一個工程可以包括多種類型的文件

B.Visual Basic應用程序既能以編譯方式執行,也能以解釋方式執行

C.程序運行后,在內存中只能駐留一個窗體

D.對于事件驅動的應用程序,每次運行時的執行順序可以不一樣

3.下列數據類型與其類型說明符對應錯誤的是__________

A.Integer  %   

B.Double   #

C.String   $

D.Currentcy  &

4.假定建立了1個命令按鈕控件數組Command1包含多個元素,則以下說法中錯誤的是_______

A.數組中每個命令按鈕的名稱(Name)屬性均為Command1

B.數組中每個命令按鈕的大小可以不同

C.數組中每個命令按鈕都是用同一個事件過程

D.使用名稱Command1即可直接訪問數組中每個命令按鈕

5.下列關于過程參數的敘述中，錯誤的是__________

A.實參和形參的個數、順序、類型必須一致

B.Sub過程調用可以使用Call或直接使用過程名

C.實參和形參的名稱可以不同

D.形參可以是變量或數組

6.填空題

執行下面的程序后,單擊Command1按鈕后,在彈出的輸入框中輸入"255"后,窗體上顯示的第一行內容是_________,第二行內容是_______

Option Explicit

Private Sub Command1_Click()

  Dim x As Long, y As Long, s As Long

  x=InputBox("請輸入一個正整數","程序",255)

  Do

      x=x+h(x)

      print x

  Loop Until h(x)=x

End Sub

Private Function h(Byval x As Long) As Long

   Do

      h=h*10+(x Mod 10)

      x=x\10

   Loop Until x=0

End Function

7.填空題

執行下面的程序后,單擊Command1按鈕后,在彈出的輸入框中輸入"3"后,在窗體上輸出的數組元素a(1)的值是______,a(4)的值是_______

Option Explicit

Private Sub Command1_Click()

  Dim a(10) as Integer,i as Integer,j as Integer

  For i=1 to 10

    a(i)=i

  Next i

  j=InputBox("輸入","程序",3)

  For i=1 to j

    Call jd(a)

  next i

  For i=1 to 10

     Print a(i);

  Next i

End Sub

Private Sub yd(a() As Integer)

  Dim i as Integer, t As Integer

  t=a(UBound(a))

  For i=Ubound(a) To 2 Step -1

     a(i)=a(i-1)

  Next i

  a(1)=t

End Sub

8.執行下面程序,單擊命令按鈕Command1后,窗體顯示的第一行內容是_____,第三行內容是______,最后一行內容是_________

Option Explicit

Private Sub Command1_Click()

  Dim a As Integer,b As Integer, c As Integer

  a=6

  b=18

  c=24

  Print  L(L(a,b),c)

  Print a

End Sub

Private Function L(x As Integer, y As Integer) As Integer

   Dim i As Integer

   Do

      i=i+1

      x=x*i

   Loop  Until  x Mod y=0

   L=x

   Print i

End Function   

9.執行下面程序,在文本框Text1中輸入"54,30"后單擊Command1按鈕,則在窗體上顯示的第一行內容是______,第二行內容是______,最后一行內容是_________

Option Explicit

Option Base 1

Private Sub Command1_Click()

   Dim s As String, i As Integer

   Dim a as Integer, b As Integer

   s=Text1.Text

   i=Instr(s,",")

   a=Val(Left(s,i-1))

   b=Val(Mid(s,i+1))

   Print a

   Print G(a,b)

End Sub

Private Function G(Byval x As Integer,Byval y As Integer)

  if y=0 then

     G=x

  else

    G=G(y, x Mod y)

    Print x

  End if

End Function

操作題

1.程序填空題

【要求】

打開T盤中"P1.vbp"文件,按參考界面形式編輯窗體界面,完善程序后,直接保存所有文件

【題目】本程序的功能是:輸入任意兩個英文單詞,將其分別按字典序列排序,并將二者不重復的字符合并,要求合并后的字符仍保持字典序。

Option Explicit

Option Base 1

Private Sub Command1_Click()

    Dim s1 As String, s2 As String, s As String

    s1 = Text1.Text

    s2 = Text2.Text

    Sort s1

    Sort s2

    Text3.Text = __________

End Sub

Private Sub Sort(s As String)  '排序

    Dim i As Integer, j As Integer, a() As String * 1, t As String * 1

    ReDim a(Len(s))

    For i = 1 To Len(s)

        a(i) = Mid(s, i, 1)

    Next i

    For i = 1 To UBound(a) - 1

        For j = i + 1 To UBound(a)

            If __________ Then

                t = a(i)

                a(i) = a(j)

                a(j) = t

            End If

        Next j

    Next i

    '按字典序重新排列單詞中的字母，并刪除其中的重復字母

    s = a(1)

    For i = 1 To UBound(a) - 1

        If a(i + 1) <> a(i) Then s = s & a(i + 1)

    Next i

End Sub

Private Function Combine(s1 As String, s2 As String) As String

    Dim i As Integer, j As Integer

    i = 1

    j = 1

    Do

        If Mid(s1, i, 1) > Mid(s2, j, 1) Then

            __________

            j = j + 1

        ElseIf Mid(s1, i, 1) < Mid(s2, j, 1) Then

            Combine = Combine & Mid(s1, i, 1)

            i = i + 1

        Else

            Combine = Combine & Mid(s2, j, 1)

            i = i + 1

            j = j + 1

        End If

    Loop Until __________

    If i > Len(s1) Then

        Combine = Combine & Mid(s2, j)

    Else

        Combine = Combine & Mid(s1, i)

    End If

End Function

2.改錯題

【要求】

(1)打開T盤中"P2.vbp"文件,按參考界面形式編輯窗體界面,改正程序中的錯誤后,直接保存所有文件

(2)改錯時,不得增加或刪除語句,但可適當調整語句位置

【題目】本程序的功能是查找滿足下列條件的整數:該數的三次方是四位數,四次方是六位數,且該數三次方得到的四位數和四次方得到的六位數的各位數字正好是0--9不重復的10個數字組成

Option Explicit

Private Sub Command1_Click()

    Dim x As Integer, y As Integer, z As Integer

    For x = 10 To 20

        y = x ^ 3

        z = x ^ 4

        If Len(z) = 6 Then

            If BT(y + z) Then

                Text1.Text = Text1.Text & x

            End If

        End If

    Next x

End Sub

Private Function BT(s As String) As Boolean

    Dim a(0 To 9) As Boolean

    Dim i As Integer, j As Integer

    For i = 1 To Len(s)

        j = Val(Mid(s, i, 1))

        If a(j) = False Then

            a(j) = True

        Else

            Exit For

        End If

    Next i

    BT = True

End Function

3.(編程題)

【要求】

(1)打開T盤中"p3.vbp"文件,根據題目要求編寫和調試程序后,直接保存所有文件

(2)程序代碼書寫呈鋸齒形,否則適當扣分

【題目】編寫程序,找出給定范圍內含有三個不同素數因子的整數,例如204包含

2,3,17三個不同的素數因子

【編程要求】

1)程序參考界面如圖所示,編程時不得增加或減少界面對象或改變對象的種類,

窗體及界面元素大小適中,且均可見;

2)運行程序,在"a:"文本框中輸入數據范圍的起始值,在"b:"文本框中輸入數據范圍

的終止值后,單擊"查找"按鈕,若數據范圍內存在符合要求的整數,則將它們按附圖

參考界面所示的格式輸出到列表框中,否則在列表框中輸出"指定范圍內無符合要求的整數"

的信息;按"清除"按鈕,將所有的文本框與列表框清空,焦點置于"a:"文本框上,按"結束"

按鈕,結束程序運行;

3)程序中至少應定義一個通用過程,用于判斷一個數是否為素數

本套題目詳細的視頻講解見:http://school.njwww.net/kecheng/detail_962307

完善程序答案

(1) Combine(s1,s2)

(2)a(i)>a(j)或Asc(a(i))

(3)Combine=Combine  & Mid(s2,j,1)

(4)i>Len(s1) Or j>Len(s2)

編程題答案

Option Explicit

Private Sub Command1_Click()

  Dim a As Integer, b As Integer

  Dim i As Integer, j As Integer

  Dim js As Integer, st As String

a = Val(Text1.Text)

b = Val(Text2.Text)

 For i = a To b

   js = 0

   st = ""

   For j = 2 To i - 1

       If i Mod j = 0 And Prime(j) Then

         js = js + 1

         st = st & j & ","

       End If

    Next j

    If js = 3 Then List1.AddItem i & ":" & Left(st, Len(st) - 1)

  Next i

End Sub

Private Function Prime(x As Integer) As Boolean

  Dim i As Integer

   For i = 2 To Sqr(x)

      If x Mod i = 0 Then Exit Function

   Next i

   Prime = True

End Function

Private Sub Command2_Click()

  Text1.Text = ""

  Text2.Text = ""

  List1.Clear

  Text1.SetFocus

End Sub

Private Sub Command3_Click()

  End

End Sub