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

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

發(fā)布:2024/12/1 17:30:2

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

  • 1.下列有關信息的說法,不正確的是( ?。?/h2>

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

    組卷:4引用:1難度:0.6
  • 3.下列應用中,體現(xiàn)了人工智能技術的是( ?。?/h2>

    組卷:2難度:0.6
  • 4.關于Access數據庫,下列說法正確的是( ?。?br />菁優(yōu)網

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

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

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

  • 15.數組a存儲降序排列的m個數據,數組b中存儲的是升序排列的n個數據,且兩個數組中存儲的數據為區(qū)間[1,20]范圍內的不重復的隨機整數?,F(xiàn)將兩個數組的數據合并到c數組中,使c數組的數據為左右交替上升,如表所示:
    菁優(yōu)網
    當窗體 Form1加載時,自動產生a、b數組的數據,并分別顯示在列表框List1與List2中,單擊合并按鈕Command1后,在c數組中保存按規(guī)則合并后的a、b數組的數據,并顯示在列表框List3中。程序截圖如下所示:
    實現(xiàn)該功能的 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 ( ?。?br />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=菁優(yōu)網-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)在橫線處填入合適的代碼。
    菁優(yōu)網

    組卷:0引用:1難度:0.5
  • 16.小藍設計了一個數字字符串的簡單加密解密小程序,該程序的加密規(guī)則是計算連續(xù)升序子串的長度,將該長度字符插入到相應子串后面。例如:
    輸入2350123456783,先將字符串拆成三段,分別是235,012345678,3要求每一段必須嚴格有序,如果無法實現(xiàn)連續(xù)升序,則單獨作為一個拆分。
    原字符串 235 012345678 3
    連續(xù)升序字符數     3 9 1
    密文 235 3 012345678 9 3 1
    在文本框Text1中輸入原文,單擊“加密”按鈕,可在文本框Text2中輸出密文。
    在文本框Text2中輸入密文,單擊“解密”按鈕,可在文本框Text3中輸出原文。
    (1)程序運行時,在文本框Text2中輸入“1233012345678910”,則在Text3中顯示的內容為
     
    。
    (2)實現(xiàn)上述功能的VB代碼段如下,請在橫線處填上合適代碼。
    菁優(yōu)網
    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開發(fā)者:深圳市菁優(yōu)智慧教育股份有限公司| 應用名稱:菁優(yōu)網 | 應用版本:5.0.7 |隱私協(xié)議|第三方SDK|用戶服務條款
本網部分資源來源于會員上傳,除本網組織的資源外,版權歸原作者所有,如有侵犯版權,請立刻和本網聯(lián)系并提供證據,本網將在三個工作日內改正