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

2021年浙江省高考信息技術模擬試卷(6月份)(一)(選考)

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

一、選擇題(本大題共12小題,共24分)

  • 1.下列關于信息與信息技術的描述,正確的是( ?。?/h2>

    組卷:10引用:3難度:0.7
  • 2.下列說法不正確的是( ?。?/h2>

    組卷:14引用:2難度:0.9
  • 3.使用Access軟件打開數據庫文件,部分界面如圖所示,下列說法正確的是( ?。?img alt src="http://img.jyeoo.net/quiz/images/202006/224/f5678ccf.png" style="vertical-align:middle" />

    組卷:2引用:2難度:0.8
  • 4.使用UltraEdit軟件觀察字符“旻,讀作mín”的內碼,部分界面如圖所示。
    下列說法正確的是(  )

    組卷:12引用:4難度:0.5
  • 5.用 Photoshop 制作“2021拼搏”作品,部分界面如圖所示:

    下列說法正確的是( ?。?/h2>

    組卷:5難度:0.6

二、非選擇題(本大題共4小題,共26分)

  • 15.在 n 個元素的數組中,小程通過邊分段、邊合并的方法將 n 個數據處理成一個非降序數據段(a(1)≤a(2)≤a(3)≤……),排序的方法如下:
    (a)從第 1 個元素開始,在數組中依次搜索若干個非降序數據段;
    (b)將第 1、2 個非降序數據段合并成一個新的非降序數據段,再將第 3、4 個非降序數據段合并成一個新的非降序數據段,依次類推。若非降序數據段個數為奇數,則最后 1 個數據段不處理。
    (c)合并后的數據段總數大于 1 個時,重復(a)(b)的操作。
    編寫 VB 程序,實現上述合并排序功能。運行程序,在標簽 Label1 顯示原始數據,單擊“合并排序”按鈕 Command1,在列表框 List1 中顯示每次排序后結果。排序過程及程序運行界面如圖 a 所示。請回答下列問題:

    (1)下列既可作為輸入,也可作為輸出的對象是
     
    。(單選,填字母:A.Label1/B.Text1/C.List1)
    (2)為實現上述功能的 VB 程序如下,請在橫線處填入合適代碼。
    (3)程序中加框處代碼有錯,請改正。
    Const n=10
    Dim a(1 to n)As Integer
    Private Sub Form_Load ( ?。?br />'產生 n 個 1-100 之間的隨機數,存放在 a 數組中,并顯示在標簽 Label1 中,代碼略。
    End Sub
    Private Sub Command1_Click ( ?。?br />Dim num As Integer'num 表示非降序段數
    Dim b(n)As Integer,p1 As Integer,p2 As Integer,t As Integer
    Dim t1 As Integer,t2 As Integer,i As Integer,j As Integer,k As Integer
    num=0:p1=1
    Do While num<>1
    t1=pos(p1)
    num=num+1
     

    If p2>n Then
    p1=1
    Else
    t2=pos(p2)
    num=num+1
    i=p1:j=p2:t=1
    Do While t<=t1+t2'將兩個非降序段合并
    If j>=p2+t2 Or
     
     Then
    b(t)=a(i):i=i+1
    Else
    b(t)=a(j):j=j+1
    End If
    t=t+1
    Loop
    For k=1 To p1+p2'將合并后的結果存入 a 數組
    a(p1+k-1)=b(k)
    Next k
    p1=
    If p1>n Then p1=1:num=0
    '將每次的排序結果顯示在列表框 List1 中,代碼略。
    End If
    Loop
    End Sub
    Function pos(low As Integer)As Integer'查找從 low 開始連續(xù)非降序段長度
    Dim i As Integer
    For i=low To n-1
    If a(i)>a(i+1)Then Exit For
    Next i
     

    End Function

    組卷:0引用:1難度:0.2
  • 16.在圖像編碼的算法中,需要將一個給定的方形矩陣進行Z字形掃描(Zigzag Scan),以獲得更好的壓縮比。給定一個n×n的矩陣,Z字形掃描的過程如圖所示:
    ??????經過掃描后得到的數據結果為:“57,45,0,0,0,0,23,0,-30,-16,0,0,1,0,0,0,0,…,0,0”,數據元素個數為64個。進一步經過壓縮后,最終得到行程編碼:“57,1,45,1,0,4,23,1,0,1,-30,1,-16,1,0,2,1,1,0,51”,數據元素個數為20個。
    (1)行程編碼壓縮最壞情況下,數據壓縮后數據元素的數量將是原來的
     
    倍。
    (2)根據上述掃描算法,其 VB 代碼實現如下,請在橫線處填入合適的代碼。
    Dim a(0 To 1000)As Integer'存儲原矩陣數據,按行優(yōu)先存儲
    Dim b(0 To 1000)As Integer'存儲Z形掃描后數據
    Dim c(0 To 1000)As Integer'存儲行程編碼壓縮后數據
    Dim n As Integer
    ‘矩陣導入代碼略,以行優(yōu)先存儲在a數組中,如例子中數據存儲順序為“57,45,0,23,0,0…”
    Private Sub Command2_Click (  )
    Dim choice As Integer'1:向右移動;2:向右上移動;3向下移動 4向左下移動
    Dim row As Integer,col As Integer,i As Integer,j As Integer
    Dim pre As Integer,count As Integer
    choice=1:row=0:col=0:i=0
    Do While (row<>n-1 Or col<>n-1)
    b(i)=a(row*n+col):i=i+1
    If choice=1 Then
     

    If row=0 Then choice=4 Else choice=2
    ElseIf choice=2 Then
    row=row-1:col=col+1
    If
     
    Then
    choice=1
    ElseIf col=n-1 Then
    choice=3
    End If
    ElseIf choice=3 Then
    row=row+1
    If col=0 Then choice=2 Else choice=4
    ElseIf choice=4 Then
    row=row+1:col=col-1
    If row=n-1 Then
    choice=1
    ElseIf col=0 Then
    choice=3
    End If
    End If
    Loop
    b(i)=a(n*n-1):j=0:pre=b(0):count=0
    For i=0 To n*n-1'輸出Z形序列,并進行行程壓縮
    If pre=b(i)Then
    count=count+1
    Else
    c(j)=pre:c(j+1)=count
     

    pre=b(i):j=j+2
    End If
    Next i
    c(j)=pre:c(j+1)=count
    Text1.Text=““
    For i=0 To j+1
    Text1.Text=Text1.Text+Str(c(i))+“,“
    Next i
    End Sub

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