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

2019-2020学年浙江省丽水市普通高中高二(下)期末信息技术试卷

发布:2024/12/5 14:30:2

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

  • 1.下列关于信息获取的描述,正确的是(  )

    组卷:4引用:2难度:0.7
  • 2.下列应用中,体现了人工智能技术的是(  )

    组卷:1引用:2难度:0.7
  • 3.使用Access软件打开数据库,部分界面如图所示,下列说法正确的是(  )

    组卷:1引用:2难度:0.6
  • 4.网络中每台设备都有一个唯一的网络标识,叫MAC地址,用十六进制数表示。某设备的MAC地址为“74-27-EA-F0-A7-6F”。下列说法正确的是(  )

    组卷:3引用:2难度:0.6
  • 5.使用GoldWave软件编辑某音频文件,部分界面如图所示,下列说法正确的是(  )

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

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

  • 14.某加密算法对大写字母加密,其加密规则如下:密文的ASCII码值=明文的ASCII码值+密钥,加密后生成的密文仍为大写字母。其密钥是在3*3矩阵中获得,获得密钥的方式为:如字母“A”的ASCII码值为65,将65反复除3,其转换过程如图1所示,得到商为2,密钥在矩阵中所在行;得到余数2,密钥在矩阵中所在列;商或余数为0,密钥在矩阵中最后一行或最后一列。其程序运行界面如图2所示。
    (1)下列对象中没有Caption属性的是
     
    (单选,填字母:A.Command1/B.Forml/C.Textl
    和Text2)。
    (2)实现上述功能的VB程序如下,请在横线处填入合适的代码。
    (3)程序中加框处代码有错,请改正。
    (4)根据程序的功能并结合图2,字母C加密后的密文为
     

    Dim a(1 To 9)As Integer
    Private Sub Command1_Click (  )
    Dim column As Integer,row As Integer,t As Integer,tmp As Integer
    Dim s As String,ch As String,result As String
    s=Text1.Text:result=““
    For i=1 To Len(s)
    ch=Mid(s,i,1):t=①
     

    column=(t-1)Mod 3+1
    Do While t>=3
    t=t\3
    Loop
    row=
    tmp=(Asc(ch)+②
     
    -65)Mod 26+65
    result=result+Chr(tmp)
    Next i
    Text2.Text=result
    End Sub
    Private Sub Form_Load (  )'用来生成3*3矩阵
    For i=1 To 9
    a(i)=Int(Rnd*9)+1
    s=s+Str(a(i))
    If i Mod 3=0 Then
    List1.AddItem s
    s=““
    End If
    Next i
    End Sub

    组卷:0引用:1难度:0.3
  • 15.某校跳高比赛计分规则如下:每个高度每位选手最多试跳三次,成功记为1,失败或轮空记为0。如选手第一次试跳成功记为100,第二次试跳成功记为010,第三试跳成功记为001,三次失败则终止比赛。编写VB程序统计选手积分,在文本框Text1中输入姓名和成绩,在列表框List1中输出结果,其算法如下:1.将每个选手的跳高记录三位一组转换成十进制数存储到数组a (该数组元素的值都不相同)。2.先比较数组a中各数组元素的长度,长度长的排名在前;若长度相同的情况下从后往前依次比较字符大小,当前数值大的排名在前。程序运行界面如图所示:
    请在横线处填入合适的代码。
    Dim a(1 To 9)As String'存储跳高成绩
    Dim b(1 To 9)As String'存储学生姓名
    Dim c(1 To 9)As Integer
    Private Sub Command1_Click (  )
    Dim ch As String,tmp As Integer,t As Integer
    Dim p As Integer,k As Integer,i As Integer,j As Integer
    Dim s As String
    s=Text1.Text:t=0
    For i=1 To   ①
     

    If Mid(s,i,1)<>“/“Then
    ch=ch+Mid(s,i,1)
    Else
    t=t+1
    If t Mod 2=0 Then
    a(t\2)=zh(ch)
    Else
     

    End If
    ch=““
    End If
    Next i
    For i=1 To t\2
    c(i)=i
    Next i
    For i=1 To t\2-1
    p=i
    For j=i+1 To t\2
    If Len(a(c(p)))<Len(a(c(j)))Then
    p=j
    ElseIf Len(a(c(j)))=Len(a(c(p)))Then
    k=Len(a(j)):flag=True
    Do While k>=1 And flag
    If Val(Mid(a(c(j)),k,1))>Val(Mid(a(c(p)),k,1))Then
    p=j
    flag=false
    ElseIf val(Mid(a(c(j)),k,1))=val(Mid(a(c(p)),k,1))Then
    k=k-1
    Else
    flag=False
    End If
    Loop
    End If
    Next j
    If p<>i Then
    tmp=c(i):c(i)=c(p):c(p)=tmp
    End If
    Next i
    For i=1 To t\2
     

    Next i
    End Sub
    Function zh(cm As String)As String
    Dim temp As String
    Dim i As Integer,j As Integer
    For i=1 To④
     

    For j=1 To 3
    temp=temp*2+Val(Mid(cm,(i-1)*3+j,1))
    Next j
    zh=zh+CStr(temp)'CStr函数可把表达式转换为字符串类型
    temp=0
    Next i
    End Function

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