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

          2018-2019學年浙江省杭州地區(qū)(含周邊)重點中學高二(下)期中信息技術試卷

          發(fā)布:2024/4/20 14:35:0

          一、選擇題(共12小題,每小題2分,滿分24分)

          • 1.關于信息和網(wǎng)絡安全的說法,不正確的是( ?。?/h2>

            組卷:5引用:1難度:0.6
          • 2.下列有關瀏覽器和網(wǎng)頁的說法,正確的是( ?。?/h2>

            組卷:3引用:1難度:0.6
          • 3.使用Word軟件編輯某文檔,部分界面如圖所示。下列說法正確的是(  )

            組卷:5引用:1難度:0.4
          • 4.如圖所示Access數(shù)據(jù)庫文件的界面,下列說法正確的是(  )

            組卷:8引用:2難度:0.6
          • 5.使用GoldWave軟件打開某音頻文件,部分界面如圖所示,以下說法正確的是( ?。?br />

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

          二、解答題(共4小題,滿分26分)

          • 15.如圖所示加密程序:在文本框Text1中輸入明文,單擊命令按鈕“加密”,在文本框Text2中輸出密文。加密算法思路如下:1、只針對英文字符和數(shù)字進行加密,其余字符不變;2、將原文中的小寫字母轉(zhuǎn)換為大寫字母;3、根據(jù)第2步所得結(jié)果,若是英文字符,則逐個后移4位(例如:A->E,Z->D),若是數(shù)字,則逐個前移2位(例如:3->1,1->9)。
            綜上所述:原文為Jim is at room 4!,加密后輸出密文為:NMQ MW EX VSSQ 2!
            (1)該程序單擊命令按鈕“加密”事件處理過程名為
             

            (2)程序代碼如下,請?zhí)羁?br />
            Private Sub Cmd1_Click
             

            Dim str1 As String,str2 As String,ch As String
            Dim i As Integer,j As Integer,n As Integer
            str1=Text1.Text
            str2=““
            n=Len(Text1.Text)
            For i=1 To n
            ch=Mid(str1,i,1)
            If
             
            Then
            ch=Chr((Asc(ch)-32))
            End If
            If ch>=“A“And ch<=“Z“Then
            ch=Chr((Asc(ch)-Asc(“A“)+4)Mod 26+Asc(“A“))
            ElseIf ch>=“0“And ch<=“9“Then
            ch=
             

            End If
             

            Next i
            Text2.Text=str2
            End Sub
            (3)若在Text1中輸入的明文為:Num  15*,則程序運行后在Text2中輸出的密文為:
             

            組卷:4引用:1難度:0.7
          • 16.羅列對分查找中可能查到的中點。對分查找是我們常用的查找方式。在對分查找過程中,計算中點是非常重要的步驟。以下程序?qū)崿F(xiàn)了“羅列對分查找中可能查到的中點”的功能。算法如下:用戶在文本框Text1中輸入模擬對分查找數(shù)據(jù)的個數(shù)n,單擊“產(chǎn)生隨機數(shù)并升序排列”按鈕,在List1中顯示n個不重復且已經(jīng)升序排列的數(shù)(范圍[1,100]),單擊“可能查到的中點”,在list2中分行顯示各個可能查到的中點
            (1)實現(xiàn)上述功能的VB程序如下,請在橫線處填入合適代碼。

            Private Sub Command1_Click ( ?。?br />Dim i As Integer
            Randomize
            For i=1 To 100
            f(i)=False
            Next i
            n=Val(Text1.Text)
            For i=1 To n
            t=Int(Rnd*100+1)
            Do While f(t)=True
             

            Loop
            f(t)=True
            Next i
            j=0
            For i=1 To 100
            If
             
             Then
            j=j+1
            a(j)=i
            List1.AddItem Str(i)
            End If
            Next i
            End Sub
            Private Sub Command2_Click ( ?。?br />Dim b(1 To 100)As Integer,k As Integer,c As Integer,max As Integer
            Dim s As String
            Dim j As Integer
            n=Val(Text1.Text)
            max=0
            For k=1 To n
            i=1:j=n:c=0
            Do While i<=j
            m=(i+j)\2:c=c+1
            If c>max Then max=c
            If m=k Then b(m)=c:Exit Do
            If m<k Then i=m+1 Else j=m-1
            Loop
            Next k
            For i=1 To max
            s=““
            For j=1 To n
            If
             
             Then
            s=s+Str(a(j))
            Else
            s=s+““
            End If
            Next j
            List2.AddItem s
            Next i
            End Sub
            (2)當數(shù)據(jù)是11,22,33,44,55,66,77,88,99時,第3行第3個數(shù)為
             

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