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

2018年浙江省宁波市高考信息选考试卷(3月份)

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

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

  • 1.下列有关信息和信息技术的描述,正确的是(  )

    组卷:1引用:1难度:0.6
  • 2.下列有关浏览器与网页的说法,正确的是(  )

    组卷:4引用:3难度:0.6
  • 3.用 Word 软件编辑某文档,部分界面如图所示。

    对于图中信息,下列说法不正确的是(  )

    组卷:6引用:2难度:0.3
  • 4.使用UltraEdit软件观察“Word 软件”这几个字符的内码,部分界面如图所示。下列说法正确的是(  )

    组卷:1引用:1难度:0.6
  • 5.某算法的部分流程图如图所示,下列VB代码与图中流程一致的是(  )

    组卷:0引用:1难度:0.4

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

  • 16.小李基于选择排序算法编写了一个VB程序,功能如下:在文本框Text1中显示排序前的数据,单击“排序”按钮Command1,在文本框Text2中显示剔除重复数据后的升序排序结果。程序运行界面如图所示。

    实现上述功能的VB程序如下,但加框处代码有错,请改正。
    Const n=10
    Dim a(1 To n) As Integer
    Private Sub Command1_Click (  )
    Dim i As Integer,j As Integer,t As Integer
    Dim k As Integer,bottom As Integer
    ’获取排序前数据,依次存储在数组a中,并在文本框Text1中显示。代码略
    bottom=n:i=1
    Do While i<=bottom-1
    k=i:j=bottom
    Do While j>i
    If a(j)<a(k) Then
    k=j
    ElseIf a(j)=a(i) Then’若发现重复数据,进行剔除处理
    a(j)=a(bottom)
    If k=bottom Then’(1)
    bottom=bottom-1
    End If
    j=j-1
    Loop
    If k<>i Then
    t=a(k):a(k)=a(i):a(i)=t
    ’(2)
    End If
    i=i+1
    Loop
    Text2.Text=““
    For i=1 To bottom
    Text2.Text=Text2.Text+Str(a(i))
    Next i
    End Sub

    组卷:0引用:1难度:0.3
  • 17.小林发给小周一串密文“VghpcyBpcyBhbiBleGFtcGxl”并告诉小周,这串密文由明文字符串(仅包含ASCII字符,且字节数为3的倍数)经以下规则加密而成:
    (1)将明文ASCII码分成3个字节一组,顺次连接后得到24位二进制数;
    (2)将得到的24位二进制数字按每6位一组分成4组,每组6个位;
    (3)在(2)中得到的6个位前补上两个0,得到4个字节的二进制数;
    (4)将(3)中得到的四个二进制数分别转换为十进制数;
    (5)将每个十进制数转换为1个加密字符,对应的“密码表”按数值由0到63依次为“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/”小周按照上述规则,设计了一个解密VB程序,功能如下:单击“解密”按钮Command1,程序依次将文本框Text1中每4个密文字符按加密规则转换为3个明文字符,连接这些明文字符,最后在文本框Text2中输出结果。程序运行效果如图所示。
    实现解密功能的VB程序如下,请回答下列问题:
    (1)若密文字符串的长度是120,则解密后明文字符串的长度是
     

    (2)请在横线处填入合适代码。
    Function Char2Int(c As String) As Integer
    If c>=“A“And c<=“Z“Then’字母“A”的 ASCII码是65
    Char2Int=Asc(c)-65
    Elself c>=“a“And c<=“z“Then’字母“a”的ASCII码是 97
    Char2Int=Asc(c)-71
    ElseIf c>=“0“And c<=“9“Then’数字“0”的ASCII码是48
     

    ElseIf c=“+“Then
    Char2Int=62
    Else
    Char2Int=63
    End If
    End Function
    Private Sub Command1_Click (  )’解密过程
    Dim n As Integer,s As String,i As Integer,ss As String
    Dim a(0 To 3)As Integer’依次存储一组四个密文按密码表换算出的数值
    Dim b(0 To 2)As Integer’依次存储一组三个明文字符的ASCII值
    s=Text1.Text
    n=Len(s)
    ss=““
    For i=1 To n Step 4
    For j=i To i+3
    a(
     
    )=Char2Int(Mid(s,j,1))
    Next j
    b(0)=a(0)*4+a(1)\16
     

    b(2)=(a(2)Mod 4)*64+a(3)
    For j=0 To 2
    ss=ss+Chr(b(j))
    Next j
    Next i
    Text2.Text=ss
    End Sub

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