1. <small id="kntrr"><delect id="kntrr"></delect></small>
    2. <sub id="kntrr"></sub>
        1. <form id="kntrr"><listing id="kntrr"></listing></form>
            江蘇省高校計算機等級考試命題研究院 江蘇省高校計算機等級考試輔導
            2007年秋季江蘇省等級考試vb考試真題

            2007年秋季vb考試真題

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

              A.主存儲器是一種動態隨機存取存儲器(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.優盤采用Flash存儲器技術,屬于半導體存儲器

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

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

            AWindows操作系統支持系統中多個任務的并發執行

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

            C.系統規定文件名最多由128個字符組成

            DVistaMicrosoft公司推出的Windows XP操作系統的后繼版本

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

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

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

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

             都有一個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網采用光纖雙環結構,具有高可靠性和數據傳輸的保密性

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

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

            A.協議類型      C.路徑及文件名

            B.主機域名      D.用戶名

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

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

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

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

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

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

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

              DGBl8030GB2312、GBK漢字編碼標準不能兼容

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

                (     15      )

              ABMP    BGIF    CJPEG DTIF

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

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

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

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

                要的作用

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

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

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

                AYUV    BHSB    CCMYK

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

              A.系統規劃   B  系統分析

              C.系統設計   D  系統實施

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

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

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

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

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

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

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

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

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

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

             

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

            ATextlSetFocus    BFormlClear  CLabellSetFocus DListlCls

            22.創建一個名為“文件”的菜單項,欲使其可用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.實參為動態數組時,可用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,2,1)+Mid(X,1,1))

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

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

            AD-6    BE-6    C5D    D5E-6

             

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

              1.執行下面程序,單擊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.執行以下程序,單擊Commandl,則在Picturel上顯示的第一行是  (4)  ,第二行是(5)  ,第三行是(6)  。

                Option Explicit

                Private Sub Commandl_Click()

                   Dim A(3,3)As Integer,i As Integer,J 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.執行下面的程序,單擊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 X,Y

                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.執行下面的程序,連續三次單擊命令按鈕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 Integer,k 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.執行下面的程序,單擊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));a;b

                        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 Integer,sum 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 Integer,j As Integer

                  For i=1 T0 4

                    For j=1 To 4

                      a(i,j)=  ( 19 )

                      PicturelPrint Right(" "

                &Str(a(i,j)),4);

                    Next j

                    PicturelPrint

                 Next i

                 Textl.Text=  ( 20 )

                End Sub

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

                     Dim b(4) As Integer,max 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.下面程序的功能是:找出僅由數字1、2、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(i,Flg)

                      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(s,i,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 Integer,k 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為同構數

            国产在线精品一区二区三区不卡_亚洲第一极品精品无码_永久免费无码网站在线观看_亚洲av综合日韩