亚洲国产福利在线一二三观看_精品国产伦一区二区三区欲臀_国产a∨视频精品视频护士_精品八戒人妻少妇av

江蘇省高校計算機等級考試命題研究院 江蘇省高校計算機等級考試輔導
2007年秋季江蘇省等級考試vb考試真題

2007年秋季vb考試真題

1  下面關于比特的敘述中,錯誤的是(   1      )

    A.比特是組成數字信息的最小單位

    B.比特只有“0和“1兩個符號

    C.比特既可以表示數值和文字,也可以表示圖像和聲音

    D. 比特”1總是大于比特“0  

2  在下列有關集成電路的敘述中,錯誤的是 (    2       )

  A.現代集成電路使用的半導體材料主要是硅

  B.大覷模集成電路一般以功能部件、子系統(tǒng)為集成對象

  C.我國第2代居民身份證中包含有IC芯片  

  D 目前超大規(guī)模集成電路中晶體管的基本線條已小到l納米左右

3  在下列有關通信技術的敘述中,錯誤的是  (   3       )

  A.通信的基本任務是傳遞信息,因而至少需由信源、信宿和信道組成

  B.通信可分為模擬通信和數字通信,計算機網絡屬于模擬通信

  C.在通信系統(tǒng)中,采用多路復用技術的目的主要是提高傳輸線路的利用率

D•學校的計算機機房一般采用5類無屏蔽雙絞線作為局域網的傳輸介質

4.下面是關于PC機主存儲器的一些敘述,其中正確的是(  4  )

  A.主存儲器是一種動態(tài)隨機存取存儲器(RAM)

  B.主存儲器的基本編址單位是字(32個二進位)

  C.目前市場上銷售的PC機,其內存容量可達數十GB

  D.所有PC機的內存條都是通用的:可以互換

5  現行PC機中,IDE(SATA)接口標準主要用于(      5      )

  A.打印機與主機的連接    C.聲卡與主機的連接

  B.顯示器與主機的連接    D.硬盤與主機的連接

6. 下列有關PC機的CPU、內存和主板的敘述中,正確的是(    6    ) 。

    A.大多數Pc機只存一塊CPu芯片,即使是“雙核”CPU也是一塊芯片

    B.所有Pentium系列微機的內存條相同,僅有速度和容量大小之分

    C.主板上芯片組的作用是提供存儲器控制功能,I/O控制與芯片組無關

D.主板上CMOS芯片用于存儲CMOS設置程序和一些軟硬件設置信息

7.下列有關目前Pc機輔助存儲器的敘述中,錯誤的是  (   7       )

  A.硬盤的容量越來越大,這是因為硬盤中磁盤碟片的數目越來越多

  B.硬盤的內部傳輸速率一般小于外部傳輸速率

  c.優(yōu)盤采用Flash存儲器技術,屬于半導體存儲器

  D.目前常見COMBO光驅是一種將CD-RWDVD-ROM組合在一起的光驅

8.下面有關Windows操作系統(tǒng),(95以后版本)的敘述中,錯誤的是 (   8   ) 。

AWindows操作系統(tǒng)支持系統(tǒng)中多個任務的并發(fā)執(zhí)行

B.利用Whldows附件“系統(tǒng)工具”中的“系統(tǒng)信息”可以查看內存的工作情況

C.系統(tǒng)規(guī)定文件名最多由128個字符組成

DVistaMicrosoft公司推出的Windows XP操作系統(tǒng)的后繼版本

9.算法設計是編寫程序的基礎。下列關于算法的敘述中,正確的是  (  9  )  。

A  算法必須產生正確的結果    C  算法可以沒有輸出

B  算法必須具有確定性        D.算法的表示必須使計算機能理解

10.因特網使用TCPIP協(xié)議實現全球范圍的計算機網絡互連,連接在因特網上的每一臺主機

 都有一個IP地址。下面不能作為IP地址的是(  10    )

A  12034018       C  21183348

B.   201.256.39.68        D  37250680

11.常用局域網有以太網、FDDI網等,下面的敘述中錯誤的是  (  11  )

A  總線式以太網采用帶沖突檢測載波偵聽多路訪問(CSMA/CD)方法進行通信

B FDDI網和以太網可以直接進行互連

C  交換式集線器比總線式集線器具有更高的性能,它能提高整個網絡的帶寬.

D  FDDI網采用光纖雙環(huán)結構,具有高可靠性和數據傳輸的保密性

12.某用戶在WWW瀏覽器地址欄內鍵入一個URLhttp://www.zdxy.cn/index.htm”,其中

的“/index.htm”代表(    12   )

A.協(xié)議類型      C.路徑及文件名

B.主機域名      D.用戶名

13.交換式以太網與總線式以太網在技術上有許多相同之處,下面敘述中錯誤的是(   13     )

A.使用的傳輸介質相同             C.傳輸的信息幀格式相同

B.網絡拓撲結構相同               D.使用的網卡相同

14.下面是關于我國漢字編碼標準的敘述,其中正確的是  (   14    )

  AUnicode是我國最新發(fā)布的也是收字最多的漢字編碼國家標準

  B.不同字型(如宋體、楷體等)的同一個漢字在計算機中的內碼不同

  C.在GBl8030漢字編碼標準中,共有2萬多個漢字

  DGBl8030GB2312GBK漢字編碼標準不能兼容

15.數字圖像的文件格式有多種,下列哪一種圖像文件能夠在網頁上發(fā)布且可具有動畫效

    (     15      )

  ABMP    BGIF    CJPEG DTIF

16.聲卡是獲取數字聲音的重要設備,.在下列有關聲卡的敘述中,錯誤的是

    A.聲卡既負責聲音的數字化(輸入),也負責聲音的重建(輸出)

    B.聲卡既處理波形聲音,也負責MIDI音樂的合成   。

    C.聲卡中的數字信號處理器(DSP)在完成數字聲音編碼、解碼及編輯操作中起著重

    要的作用

    D.因為聲卡非常復雜,所以它們都被做成獨立的PCI插卡形式

17.彩色圖像所使用的顏色描述方法稱為顏色模型。顯示器使用的顏色模型為RGB三基色模

型,PAL制式的電視系統(tǒng)在傳輸圖像時所使用的顏色模型為

    AYUV    BHSB    CCMYK

18.在信息系統(tǒng)的結構化生命周期開發(fā)方法中,繪制E-R圖屬于(   18       )階段的工作

  A.系統(tǒng)規(guī)劃   B  系統(tǒng)分析

  C.系統(tǒng)設計   D  系統(tǒng)實施

19.在下列有關Microsoft Word 20002003(中文版)功能的敘述中,(  19  )

  A.起始頁的頁碼可以不為1

  B.利用菜單命令,可更改所選英文文本的大小寫

  C.利用菜單命令“字數統(tǒng)計”,可以統(tǒng)計出當前文檔的行數和段落數

  D.表格中的數據不可排序,也不能利用公式進行統(tǒng)計計算

20.在下列有關Microsoft PowerPoint 2001/2003(中文版)功能的敘述中,錯誤的是(         )   

  A.可通過“另存為”操作,將每張幻燈片保存為一個圖片文件

  B.幻燈片的大小是固定的,用戶不可以對其進行設置

  C.在排練計時的基礎上,可以將幻燈片設置為循環(huán)放映

  D.可以對字體進行替換,例如將幻燈片中的“宋體”替換為“楷體”

 

21.下列語句中,正確的是__________

ATextlSetFocus    BFormlClear  CLabellSetFocus DListlCls

22.創(chuàng)建一個名為“文件”的菜單項,欲使其可用Alt+F方式訪問,則在菜單編輯器的標題文本框中應輸入_________。

 A.文件($F)    B.文件(&F)    C.文件(#F)    D.文件(F)

23.數學表達式的VB算術表達式為_______ 。

    ASin(27)+Sqr(X+Exp3)(X+Y)

    BSin(27*314159180)+Sqr(X+Exp(3))Abs(X+y)

    CSin(27*314159180)+Sqr(X+e^3)Abs(X+Y)

    DSin(27*pi180)+Sqr(X+Exp(3)Abs(X+Y)

24.以下說法不正確的是____________。

    A.使用不帶關鍵字PreserveReDim語句可以重新定義數組的維數

    B.使用不帶關鍵字PreserveReDim語句可以改變數組各維的上、下界

    c.使用不帶關鍵字PreserveReDim語句可以改變數組的數據類型

    D.使用不帶關鍵字PreserveReDim語句可以對數組中的所有元素進行初始化

25.下列____________是合法的變量名。

    Aabs    B-al    Ccdc  d  DAbe_10

26.要向文件dataltxt添加數據,正確的文件打開命令是_____________。

    AOpendataltxtFor Output  As #1

    BOpendataltxtFor Input  As #1

    COpendataltxtFor Append  As #5

    DOpendataltxt For Write As #5

27.以下對數組參數的說明中,錯誤的是___________ 。

    A.在過程中可以用Dim語句對形參數組進行聲明

    B.形參數組只能按地址傳遞

    c.實參為動態(tài)數組時,可用ReDim語句改變對應形參數組的維界

    D.只需把要傳遞的數組名作為實參,即可調用過程

28.設a=3,b=2,c=1,運行print a>b>c的結果是____________。

    ATrue    BFalse    C1    D.出錯

29.下列選項中,所包含的所有表達式能夠將兩位整數x的個位數與十位數對調(如將78轉換為87)的是_______________。

    Val(Right(X,1)&Left(X,1))

    Val(Right(Str(X),1)Left(Str(X),1))

    Val(Right(CStr(X),1)Left(CStr(X)1))

    Val(Mid(X,21)+Mid(X,1,1))

A.①②    B.②③    c.②④    D.①③④

30.下列______是正確的VB常量。

AD-6    BE-6    C5D    D5E-6

 

二、填空題(請將答案填寫在答題紙的相應答題號內,每個答案只占一行)

  1.執(zhí)行下面程序,單擊Commandl,則窗體上顯示的第一行是  (1)  ,第二行是

(3)  ,第三行是(3)  。

    Option Explicit

    Private Sub Commandl—Click()

        Dim a As String,i As Integer

        Dim X As String,z As String

        a=’’iamstudent’’

        i=InStr(5,a,”d”)

    Do

       x=Mid(a,i,3)

       z=Right(X,1)

       z=UCase(xZ)

       i=i-2

       Print z

    Loop Until i=1

    End Sub

 2.執(zhí)行以下程序,單擊Commandl,則在Picturel上顯示的第一行是  (4)  ,第二行是(5)  ,第三行是(6)  。

    Option Explicit

    Private Sub Commandl_Click()

       Dim A(3,3)As Integer,i As IntegerJ As Integer

       Dim k As Integer

       i=3j=2A(i,j)=lk=1

       Do Until k>9

           k=k+1

           If i+1>3 Aod j+1<=3 Then

                i=1J=j+1

           ElseIf  i+1<=3 And j+1>3 Then

                i=i+1j=1

           Elself  i+1>3 And j+1>3 Then

                i=i-1

           ElseIf i+1<=3 And j+1<=3 And A(i+1,j+1)<>0 Then

                i=i-1

           Else

                i=i+1j=j +1

           End If

           A(i,j)=k  

    Loop

    For i=1 To 3

       For j=1 To 3

          Picture1.Print A(i,J);

       Next J

    Next I

End Sub

3.執(zhí)行下面的程序,單擊Commandl,則窗體上第一行顯示的是  (7)  ,第二行顯示的

  (8)  。

    Option Explicit

    Dim X As Integer

    Private Sub Commandl_Click()

       Dim Y  as  Integer

       X=10Y=2

       Call process(Y)

       Print X,Y

       Call process((Y))

       Print XY

    End Sub

    Private Sub process(n As Integer)

       Dim Y As Integer

       If n>0 Then

         X=X—n

         Y=X

       Else

         X=X+n

         Y=X+2  

       End If

       n=-n

    End Sub

    4.執(zhí)行下面的程序,連續(xù)三次單擊命令按鈕Commandl之后,A數組共有  (9)  個元

  素;數組元素A(2)的值是(10)  ,A(4)的值是.(11) 

    Option Explicit

    Option Base 1

    Private Sub Commandl_Click()   

        Static A()As Integer,n As Integer

        Dim i As Integerk As Integer

        k=n   

        n=n +2

        ReDim  Preserve  A(n)

        For i=k+1 To  n   

A(i)=i*n+1

        Next i

        For i=1 To n

           Print A(i);

        Next i

        Print

    End Sub

    5.執(zhí)行下面的程序,單擊Commandl,在窗體界面上顯示的第一行是  (12) ,第二行是 (13)  ,第三行是(14)  ,第四行是(15) 

    Option Explicit

    Private Sub Commandl_Click()

         Dim a As Integer,b As Integer,i As Integer

         i=1218

         a=i\100

         b=i Mod 100

         If b<>0 Then

            Print a

            Print b

          Print Lcd((a),(b));ab

            Print Lcd(a,b)a;b

        End If

    End Sub

    Private Function Lcd(x As Integer,Y As Integer)As Integer

         Dim d As Integer   

         If x

             d=xx = YY = d

         End If

         d=X

         Do

            If x Mod Y=0 Then

              Lcd=x

              Exit Do

            Else

             X=x+d

            End If

         Loop

End Function

6.本程序的功能是利用無窮級數求cos(x)的近似值,已知:

當第n項的絕對值小于等于10^-7時計算終止。

    Option Explicit

    Private Sub Commandl_Click()

       Dim X As Single,n As Integersum As Single

       Dim a As Single

       x=Textl   

        (  16  )

       a=1

       n=1

       Do

         a=-a

         a=(   17   )

         sum=sum+a

         n=n+1

       Loop Until(  18  )

       Text2=sum

    End Sub

7.定義方陣的一種范數為該方陣各列元素的絕對值之和中的最大值。以下程序的功能

是求一個4×4方陣的范數。該方陣的數據是隨機生成的-2020之間的整數。

    Option Explicit

    Option Base 1

    Private Sub Commandl_Click()

      Dim a(4,4) As Integer

      Dim i As Integerj As Integer

      For i=1 T0 4

        For j=1 To 4

          a(i,j)=  ( 19 )

          PicturelPrint Right(" "

    &Str(a(ij)),4);

        Next j

        PicturelPrint

     Next i

     Textl.Text=  ( 20 )

    End Sub

    Private Function fan(a()As Integer)As Integer

         Dim b(4) As Integermax As Integer

         Dim i As Integer,j As Integer

         For i=1 To  4

For j=1 To 4

                 b(j)=(    21  )

              Next J

         Next i

    max=b(1)

         For i=2 To 4

           If max

         Next i

         fan=max

    End Function  

    8.下面程序的功能是:找出僅由數字12、3、4組成的4位素數,要求每個素數由4個不 同數字組成。算法提示:函數Validate用于驗證一個4位數是否由4個不同數字組成。在函 數中用A數組的各個元素分別對應數字09,只要某數字出現在四位數中,無論幾次,均將該數字對應的數組元素值置為1。

Option Explicit

   Private Sub Commandl_Click()

      Dim i As Integer,Flg As Boolean

      For i=1234 To 4321

          (  22 )

          Call Prime(iFlg)

          If Flg Then

             If Validate(i)Then

                 Textl=Textl & i & vbCrLf

           End If

          End If

      Next i

    End Sub

    Private Sub Prime(n As Integer,f As Boolean)

      Dim k As Integer

      For k=2 To Sqr(n)

          (   23   )

      Next k

      f=True

    End Sub

    Private Function Validate(n As Integer)As Boolean

       Dim A(0 To 9)As Integer,s As String,i As Integer

       Dim sl As String*1

     (   24   )

    For i=1 To Len(s)

       sl=Mid(si,1)

      (    25   )

    Next i

      If A(1)+A(2)+A(3)+A(4)=4 Then

       (   26   )

      End If

    End Function

    9.下面程序的功能是:首先生成一個由小到大已排好序的整數數組,再輸入一個數據,單擊“插入”按鈕會自動把這個數據插人到原數組適當的位置,并保持數組的有序性。

  Option Explicit

  Dim a( )As Integer

Private Sub Form_Activate()

    Dim i As Integer

    ReDim a(10)

    For i=1 To 10

      a(i)=(i-1)*10+1

      Textl=Textl & Str(a(i))

    Next i

    Text2.SetFocus

End Sub

Private Sub Commandl_Click()

  Dim n As Integer,i As Integer

  n=Text2

  For i=1 To UBound(a)

    If (   27   )Then Exit For

  Next i

  (   28   )

    For i=1 To UBound(a)

       Text3=Text3 & Str(a(i))

    Next i

End Sub

Private Sub inst(P()As Integer,n As Integerk As Integer)

                                  '數組元素移位并實現插入

    Dim i As Integer

    (   29   )

    For i=UBound(P)-l To k Step -1

    (   30   )

    Next i

    P(k)=n

End Sub

參考答案:

21.A22.B 23.B.24.C.25.D.26.C27A28B29D30D

填空

(1)DENN(2)TUDD(3)MSTT(4)4 9 2(5)3 5 7 (6)8 1 6 (7)8 -2  (8)6 -2  (9)6  (10)5 (11)17 (12)12 (13)18 (14)36 12 18  (15)36 36 12 (16)sum=1 (17)a*x*x/(2*n*(2*n-1)) (18)Abs(a)<=0.0000001  (19)Int(Rnd*41)-20  (20)fan(a)  (21)b(j)+Abs(a(i,j)) (22)Flg=False

(23)If n Mod k=0 Then Exit Sub  (24)s=Cstr(n)s=n (25)A(Val(s1))=1A(s1)=1 (26)Validate=True  (27)n (28)Call Inst(a,n,i)inst a,n,i (29)Redim Preserve p(UBound(p)+1)  (30)p(i+1)=p(i)

二:編程題目(26)

編寫一個查找介于整數A、B之間所有同構數的程序,若一個數出現在自己平方數的右端,則稱此數為同構數,例如:55^2=25的右端,2525^2=625的右端,故525為同構數