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

2017年浙江省普通高校招生信息技術仿真模擬試卷(選考)(二)(4月份)

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

一、選擇題(本大題共12小題,每小題2分,共24分.每小題列出的四個備選項中只有一個是符合題目要求的,不選、多選、錯選均不得分)

  • 1.雞年春晚啟用了多個分會場,各會場的實況都通過處理變成了數(shù)字信號,以方便通過網(wǎng)絡傳送.這體現(xiàn)了信息的( ?。?/h2>

    組卷:13引用:1難度:0.9
  • 2.張經(jīng)理最近很煩,業(yè)務聯(lián)系全靠郵箱,可最近郵箱爆滿,絕大部分是自動回復的郵件,聽說有一種方法可以在郵件發(fā)送時就避免收到自動回復,是下列方法中的(  )
    菁優(yōu)網(wǎng)

    組卷:8引用:1難度:0.9
  • 3.小李家中新裝修,準備安裝智能居,希望可以通過語音來開啟燈光、調節(jié)燈光的亮度、開關窗簾、控制家用電器等等.這主要采用的技術是(  )

    組卷:6引用:1難度:0.9
  • 4.如圖所示,ID字段為自動編號,如果刪除了ID為3的行,則( ?。?br />菁優(yōu)網(wǎng)

    組卷:8引用:1難度:0.9
  • 菁優(yōu)網(wǎng)5.將輸入的字符連接成字符串,直到輸入-1為止(輸入字符保存在C變量中),如果依次輸入以下字符:3,S,2,D,1,-2,-1,f,-1則最后得到的字符串是( ?。?/h2>

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

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

  • 16.有一種壓縮算法,基本原理是:特殊字符+重復次數(shù)+字符.
    比如有文本字符串:A A A A A B C C C C B C C C,編碼后得到:B B 5A B B 4C B B 3C.編碼串的最開始說明特殊字符B,以后B后面跟著的數(shù)字就表示出重復的次數(shù).編程實現(xiàn)將從Text1輸入的一個字符串,點壓縮按鈕后用上述方法壓縮,壓縮后的編碼在Text2中輸出,text3中輸入特殊字符.壓縮算法:
    a)給壓縮串添加開關的特殊字符
    b)逐個判斷輸入字符串的字符(當前的字符與后一個比較),如果兩個字符不同,則連到了壓縮串中,如果有連續(xù)的重復字符則計數(shù)n+1
    c)最后一組重復字符或單個字符再連到壓縮串中.
    ?連入壓縮串方法:單個的直接連入,有重復的連入特殊字符開頭+數(shù)字+重復的字符
    菁優(yōu)網(wǎng)
    程序如下:
    Private Sub Command1_Click ( ?。?br />Dim src As String,t As String‘src保存輸入的字符串
    Dim desc As String‘desc保存壓縮后的字符串
    Dim c As String‘c保存特殊字符
    Dim n As Integer‘n用來記連續(xù)重復字符個數(shù)
    src=Text1.Text
    c=Text3.Text
    n=0
    desc=①
     

    For i=1To②
     

    n=n+1
    t=Mid(src,i,1)
    If t<>③
     
     Then
    desc=desc & zipstring(n,c,t)
    n=0
    End If
    Next i
    Text2.Text=desc & zipstring(n,c,④
     

    End Sub
    Private Function zipstring(n As Integer,c As String,sr As String) As String
    If n<=1Then
    zipstring=sr
    Else
    zipstring=c & Trim(Str(n)) & sr
    End If
    End Function
     

     

     

     

    組卷:5引用:1難度:0.1
  • 17.小麗在假期看到小朋友們在玩一個游戲,8個小朋友圍成一圈,從某個小朋友開始報數(shù),報到指定數(shù)時,該小朋友出圈,接著從出圈的位置開始再接著報.她希望通過VB程序模擬這個過程,思路如下:
    (1)用一個一維數(shù)組來模擬,編號1~N保存在數(shù)據(jù)a(1)~a(n)中,來代表N個小朋友.
    (2)K代表報數(shù)的起始位置,從數(shù)組的a(k)開始遍列,報到m出圈,將當前位置的元素刪除,后面的元素依次往前移位.總數(shù)減1.
    (3)當報數(shù)報到數(shù)組元素的最后一個時,返回數(shù)組開頭接著報數(shù).
    (4)當總數(shù)只剩下一個數(shù)時,直接輸出.
    界面如下:
    菁優(yōu)網(wǎng)
    Private Sub Command1_Click (  )
    Dim i As Integer
    Dim n As Integer
    Dim m As Integer,k As Integer
    Dim A(1To 50)As Integer'存放編號的數(shù)組
    n=Val(Text1.Text)'編號個數(shù)
    k=Val(Text2.Text)'報數(shù)起始位
    m=Val(Text3.Text)'報到出圈數(shù)
    If n>0And k>0And m>0   (1)n<=50Then
    For i=1To n'初始化編號a(1)=1,a(2)=2,…
    A(i)=i
    Next i
    Label1.Caption=(2)'調用出圈函數(shù),得到返回的出圈順序
    Else
    MsgBox“編號、起始位、報到出圈數(shù)都必須大于0!編號不能超過50!“
    End If
    End Sub
    Private Function chuquan(b As Integer,n As Integer,m As Integer,k As Integer) As String
    Dim i As Integer,j As Integer
    Dim s As String'出圈順序存放
    i=k-1
    s=“出圈順序為:“
    Do While n>1
    i=i+1
    m=m-1
    If(3)Then
    s=s+Str(b(i))+“,“
    For j=i To n-1
    b(j)=b(j+1)
    Next j
    b(j)=0
    n=n-1
    i=i-1
    m=4
    End If
    If i=n  Then  i=0
    Loop
    chuquan=(4)
    End Function
    (1)
     

    (2)
     

    (3)
     

    (4)
     

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