试卷征集
加入会员
操作视频
当前位置: 试卷中心 > 试卷详情

2019年浙江省普通高等学校招生选考信息技术试卷

发布:2024/4/20 14:35:0

一、选择题(本大题共12小题,每小题2分,共24分,每小题列出的四个备选项中只有一个是符合题目要求的,不选、错选、多选均不得分。)

  • 1.下列关于信息和信息技术的说法错误的是(  )

    组卷:20引用:1难度:0.5
  • 2.手机浏览器与WEB服务器之间的信息传输过程中,使用的协议是(  )

    组卷:3引用:1难度:0.6
  • 3.小明扫描课本得到“相信未来3.jpg”图象,使用OCR软件进行字符识别,部分界面如图1所示;将识别结果用Word软件进一步进行编辑,部分界面如图2所示。

    下列说法正确的是(  )

    组卷:20引用:4难度:0.5
  • 4.对于数据库和数据表,下列说法正确的是(  )

    组卷:26引用:4难度:0.5
  • 5.某算法的部分流程图如图所示。执行这部分流程后,变量S和a的值分别为(  )

    组卷:4引用:1难度:0.6

二、非选择题(本大题共5小题,其中第13小题4分,第14小题5分,第15小题8分,第16小题3分,第17小题6分,共26分

  • 16.有一组正整数,要求仅对其中的偶数进行降序排序。排序后偶数在前,奇数在后。排序示例如图所示。

    实现上述功能的VB程序如下,但加框处代码有错。请改正。
    Const n=8
    Dim ad(1 To n) As Integer
    Private Sub Form_load(  )
    ′排序前数据存储在数组a中,并在文本框Text中显示代码略
    End sub
    Private Sub Commandl_Click(  )
    Dim k As Integer.i As Integer.j As Integer t As Integer
    i=1
    Do While i<=n-l
    k=i
    For j=i+1To n
    ′①
    k=j
    Elself a(k) Mod 2=0 And a(j) Mod 2=0 And an(j)>a(k) Then
    k=j
    End If
    Next j
    If k<>i Then
    t=a(k):a(k)=a(i):a(i)=l
    End If
    ′②
    Loop
    ′依次输出排序后的数据。代码略
    End Sub

    组卷:4引用:1难度:0.4
  • 17.对一个二进制数的各位数字重新编排,具体方法如下:每次取连续的8位二进制数,按以下方法进行转换:从第1个位置开始,从1开始数数,数到m时取出该位数字(取出位置的数字不参与下次数数),从下一个位置开始,继续从1开始数数,数到m时取出该位数字(当数到这8位二进制数的第8个位置后回到第1个位置继续数数),重复上述操作,直至这8位二进制数的各个数字被取完。然后,依次把取出的8位数字拼接成新的二进制数。用以上方法把整个二进制数转换完毕。
    编写一个VB程序,实现功能如下:程序运行时从文本框Text1中读入一个二进制数(长度为8的倍数),从文本框Text2中读入整数m,单击“转换”按钮Command1,对输如的二进制数按上述方法转换后在文本框Text3中显示。程序运行界面如图所示。
    (1)运行上述程序,若在文本框Text1中输入“11001100”。Text2中输入“3”,单击“确定”按钮,则文本框Text3中显示的内容是
     

    (2)实现上述功能的VB程序如下,请在画线处填入合适代码。
    Const n=100
    Private Sub Commandl_Click(  )
    Dim a(1 To 8*n)As Integer.b(1 To 8*n)As Integer
    Dim f(1 To 8)As Integer.c(1 To 8)As Integer
    Dim m As Integer.s As String.jye.ai As String
    Dim i As Integer.j As Integer.p As Integer
    s=Text1.Text:m=Val (Text2,Text)
    For i=1 To 8
    f(i)=①
     

    Nexi i
    ′以下代码功能:根据整数m确定每一个字节二进制数各位数字的出列顺序
    p=0
    For i=1 To 7
    Do While j<=n
     

    If f(p)=1 Then j=j+1
    Loop
    f(p)=0:c(i)=p
    Next i
    For j=1 To 8
    If f(j)=1 Then c(i)=j:Exit For
    Next j
    For i=1 To len(s)
    a(i)=Val( Mid(s,i.1))
    Next i
    i=l:start=-8
    Do Whilei<=Len(s)
    If i Mor 8=1 Then③
     

    b(i)=a(start+c((i-1)Mod 8+1))
    i=i+1
    Loop
    res=“”
    For i=1 To Len(s)
    res=res+Chr(Asc(“0”)+b(i))
    Nest i
    Text3.Text=res
    End Sub

    组卷:4引用:1难度:0.2
深圳市菁优智慧教育股份有限公司
粤ICP备10006842号公网安备44030502001846号
©2010-2025 jyeoo.com 版权所有
APP开发者:深圳市菁优智慧教育股份有限公司| 应用名称:菁优网 | 应用版本:5.0.7 |隐私协议|第三方SDK|用户服务条款
广播电视节目制作经营许可证|出版物经营许可证|网站地图
本网部分资源来源于会员上传,除本网组织的资源外,版权归原作者所有,如有侵犯版权,请立刻和本网联系并提供证据,本网将在三个工作日内改正