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

          2019-2020學年浙江省嘉興一中高三(上)期中信息技術試卷

          發布:2024/12/1 17:30:2

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

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

            組卷:8引用:1難度:0.6
          • 2.下列有關網絡資源的說法,不正確的是(  )

            組卷:4引用:1難度:0.6
          • 3.下列應用中,體現了人工智能技術的是(  )

            組卷:2引用:1難度:0.6
          • 4.關于Access數據庫,下列說法正確的是(  )

            組卷:5引用:3難度:0.5
          • 5.用UltraEdit軟件觀察“Windows10中文版”這幾個字符的內碼如圖所示:下列描述中正確的是(  )

            組卷:11引用:1難度:0.4

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

          • 15.數組a存儲降序排列的m個數據,數組b中存儲的是升序排列的n個數據,且兩個數組中存儲的數據為區間[1,20]范圍內的不重復的隨機整數。現將兩個數組的數據合并到c數組中,使c數組的數據為左右交替上升,如表所示:

            當窗體 Form1加載時,自動產生a、b數組的數據,并分別顯示在列表框List1與List2中,單擊合并按鈕Command1后,在c數組中保存按規則合并后的a、b數組的數據,并顯示在列表框List3中。程序截圖如下所示:
            實現該功能的 VB 程序如下:
            Const m=5
            Const n=6
            Dim a(1 To m) As Integer
            Dim b(1 To n) As Integer
            Dim c(1 To m+n) As Integer
            ‘窗體加載時,生成數組 a、b 中的數據,并按要求排序后顯示在列表框中,代碼略
            Private Sub Command1_Click (  )
            Dim pa As Integer,pb As Integer,pc As Integer,s As Integer,flag As Boolean
            pa=m:pb=1:pc=1
            flag=True
            Do While
             

            If a(pa)<b(pb) Then
            s=a(pa)
            pa=pa-1
            Else
            s=b(pb)
            pb=pb+1
            End If
            c(pc)=s
            If flag Then
            pc=m+n-pc+1
            Else
            pc=-pc
            End If
             

            Loop
            ‘處理 a、b 數組中剩余數據,并在列表框 List3 中輸出數組 c,代碼略
            End Sub
            (1)窗體加載的事件處理過程名為
             
            。(填字母:A.Form1_Click/B.Form_Click/C.Form1_Load/D.Form_load)
            (2)加框處代碼有錯,請改正。
            (3)在橫線處填入合適的代碼。

            組卷:0引用:1難度:0.5
          • 16.小藍設計了一個數字字符串的簡單加密解密小程序,該程序的加密規則是計算連續升序子串的長度,將該長度字符插入到相應子串后面。例如:
            輸入2350123456783,先將字符串拆成三段,分別是235,012345678,3要求每一段必須嚴格有序,如果無法實現連續升序,則單獨作為一個拆分。
            原字符串 235 012345678 3
            連續升序字符數     3 9 1
            密文 235 3 012345678 9 3 1
            在文本框Text1中輸入原文,單擊“加密”按鈕,可在文本框Text2中輸出密文。
            在文本框Text2中輸入密文,單擊“解密”按鈕,可在文本框Text3中輸出原文。
            (1)程序運行時,在文本框Text2中輸入“1233012345678910”,則在Text3中顯示的內容為
             

            (2)實現上述功能的VB代碼段如下,請在橫線處填上合適代碼。

            Private Sub Command1_Click (  )'
            加密過程
            Dim a(1 To 100)As String
            Dim s1,s2 As String:Dim tmp As Integer
            tmp=1:s1=Text1.Text
            For i=1 To Len(s1)
            a(i)=Mid(s1,i,1)
            Next i
            s2=a(1)
            For i=2 To Len(s1)
            If
             
             Then
            s2=s2+a(i):tmp=tmp+1
            Else
            s2=s2+LTrim(Str(tmp))'LTrim
             
            函數用以移除左邊的符號位空字符
            s2=s2+a(i)
             

            End If
            Next i
            s2=s2+LTrim(Str(tmp)):Text2.Text=s2
            End Sub
            Private Sub Command2_Click (  )'解密過程
            Dim b(0 To 100)As String
            Dim k As String,t As Integer,n As Integer
            Dim s As String,s3 As String,j As Integer
            s=Text2.Text:n=Len(s)
            For i=1 To n
            b(i)=Mid(s,i,1)
            Next i
            t=n-1:k=Val(b(n))
            Do While t>0
            If k<>0 Then
            For j=1 To k
             

            t=t-1
            Next j
            k=Val(b(t))
            t=t-1
            Else
            k=10
            t=t-1
            End If
            Loop
            Text3.Text=s3
            End Sub

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