試卷征集
          加入會員
          操作視頻
          當前位置: 試卷中心 > 試卷詳情

          2020年浙江省杭州市西湖區學軍中學高考信息技術模擬試卷(4月份)

          發布:2024/4/20 14:35:0

          一、選擇題(本大題共12小題,每小題2分,共24分.在每小題給出的四個選項中,只有一個符合題目要求)

          • 1.下列有關信息技術的說法,不正確的是(  )

            組卷:5引用:1難度:0.6
          • 2.小龍用IE瀏覽一個圖文并茂的網頁,地址欄信息為“http://www.baidu.com/index.jye.ai”.下列描述不正確的是(  )

            組卷:5引用:1難度:0.6
          • 3.Access中的一張數據表設計視圖如圖所示,下列說法正確的是(  )

            組卷:5引用:1難度:0.5
          • 4.下列有關多媒體技術的描述,正確的是(  )

            組卷:24引用:3難度:0.5
          • 5.十進制正整數n轉換為二進制數,該二進制數末位是“1”。下列說法正確的是(  )

            組卷:2引用:1難度:0.5

          二、非選擇題(本大題共4小題,其中第13小題5分,第14小題8分,第15小題6分,第16小題7分,共26分)

          • 15.星期天,小龍來到動物園游玩,園內共有N個景點(可在10個以上),每個景點都有一個標號,標號為1至N.現在只知道每個景點有一條路連接下一個景點。小龍想知道,根據這些道路信息,從其中一個景點出發,最后再回到出發景點,最多能游玩多少個景點。
            例如,共有N=5個景點,每個景點連接的下一個景點分別是2,4,5,5,2。
            景點號 1 2 3 4 5
            下一景點號 2 4 5 5 2
            則他可以從2號景點出發,最多可以游玩2號、4號、5號三個景點。
            程序代碼如下:
            PrivateSubCommand1_Click (  )
            Dima(1To100)AsInteger,d(1To100)AsInteger
            DimjdAsString,mAsString,cAsInteger,iAsInteger
            DimsAsInteger,pAsInteger,kAsInteger,ansAsInteger
            jd=Text1.Text+″,″
            s=0:c=0
            Fori=1ToLen(jd)
            m=Mid(jd,i,1)
            Ifm<>″,″Then

            Else
            c=c+1:a(c)=s:s=0
            EndIf
            Nexti
            ans=0:k=0
            Fori=1Toc
            Fork=1Toc
            d(k)=0
            Nextk
            Ifd(i)=0Then
            p=i
            DoWhilep<=c
            Ifd(p)=0Then
            k=k+1:d(p)=k
            Else

            Ify>ansThenans=y
            k=0
            ExitDo
            EndIf

            Loop
            EndIf
            Nexti
            Text2.Text=Str(ans)
            EndSub
            (1)要使程序運行時,Form1的BackColor屬性值為黑色,以下代碼正確的是
             
            。(單選,填字母)
            A.PrivateSubForm_Load (  )
            Form1.BackColor=RGB(255,255,255)
            EndSub
            B.PrivateSubForm_Load (  )
            Form1.BackColor=RGB(0,0,0)
            EndSub
            C.PrivateSubForm1_Load (  )
            orm1.BackColor=RGB(255,255,255)
            EndSub
            D.PrivateSubForm1_Load (  )
            Form1.BackColor=RGB(0,0,0)
            EndSub
            (2)若有7個景點,且每個景點的連接情況為:6,3,7,2,7,5,4,那么小龍最多可以游玩的景點數是
             

            (3)請把橫線處的代碼補充完整:
             

             

            (4)程序加框處代碼有錯,請改正:
             

            組卷:2引用:2難度:0.2
          • 16.對n項(n<=100)數據序列的前x項求和,可設計如下算法:將數據序列存儲在數組a中,并按一定規則轉換成數組c,再借助數組c實現求和。
            將數組a轉換成數組c的方法描述如下:
            ①將數組a中的元素依次存儲到數組c中,把當前數組c看作第一層;
            ②把第一層中的各元素進行如下處理:奇數項值不變,偶數項的值更新為自己與自己前一項的和,將更新后的數組元素看作第二層;
            ③把第二層中的各元素,按上述方法進行同樣操作,更新后的數組元素看作第三層;
            ④以此類推,直到當前層中僅有一項為止。
            例如x=11時,轉換過程如圖所示:

            借助數組c,可快速計算出數組a中前x項的和。例如,數組a中前11項的和,可由表達式c(11)+c(10)+c(8)得到。表達式具體分析過程如下:
            ②表達式第一項為c(11);
            ②將下標11轉換成二進制數1011,計算該二進制數最右邊的“1”所對應的權值,再用11減去此權值得到10,即表達式第二項為c(10);
            ③按上述方法繼續操作,直到計算結果等于0為止。
            小龍依據上述方法設計了如下vb程序。請回答下列問題:
            (1)計算數組a中前22項和的表達式為
             
            。(填寫表達式,如c(11)+c(10)+c(8))
            (2)請在橫線處填入合適的代碼。
            DimnAsInteger
            Dima(1To1000)AsLong,c(1To1000)AsLong
            PrivateSubForm_Load
             

            '讀取n個數據,并存儲到數組a中(代碼略)
            EndSub
            PrivateSubCommand1_Click (  )
            DimiAsInteger,jAsInteger,kAsInteger,spaceAsInteger
            Fori=1Ton
            c(i)=a(i)
            Nexti
            k=2'當前層第一個偶數項的位置
            space=1'當前層偶數項與前一項的間距
            DoWhilek<=n
            Fori=kTonStepk
            c(i)=c(i)+c(i-space)
            Nexti
            k=k*2
             

            Loop
            EndSub
            PrivateSubCommand2_Click (  )
            DimxAsInteger,sumAsLong
            x=Val(Text1.Text):sum=0
            DoWhilex<>0
            sum=sum+c(x)
             

            Loop
            Text2.Text=Str(sum)
            EndSub
            Functionlowbit(xAsInteger)AsInteger
            DimtempAsInteger
            temp=x:lowbit=1
            DoWhile③
             
            '
            lowbit=lowbit*2
            temp=temp\2
            Loop
            EndFunction

            組卷:2引用:1難度:0.2
          APP開發者:深圳市菁優智慧教育股份有限公司| 應用名稱:菁優網 | 應用版本:5.0.7 |隱私協議|第三方SDK|用戶服務條款
          本網部分資源來源于會員上傳,除本網組織的資源外,版權歸原作者所有,如有侵犯版權,請立刻和本網聯系并提供證據,本網將在三個工作日內改正