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

2019-2020学年浙江省嘉兴一中高三(上)期中信息技术试卷

发布:2024/12/1 17:30:2

一、选择题(共12小题,每小题2分,满分24分)

  • 1.下列有关信息的说法,不正确的是(  )

    组卷:8引用:1难度:0.6
  • 2.下列有关网络资源的说法,不正确的是(  )

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

    组卷:2引用:1难度:0.6
  • 4.关于Access数据库,下列说法正确的是(  )

    组卷:5引用:3难度:0.5
  • 5.用UltraEdit软件观察“Windows10中文版”这几个字符的内码如图所示:下列描述中正确的是(  )

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

二、解答题(共4小题,满分26分)

  • 15.数组a存储降序排列的m个数据,数组b中存储的是升序排列的n个数据,且两个数组中存储的数据为区间[1,20]范围内的不重复的随机整数。现将两个数组的数据合并到c数组中,使c数组的数据为左右交替上升,如表所示:

    当窗体 Form1加载时,自动产生a、b数组的数据,并分别显示在列表框List1与List2中,单击合并按钮Command1后,在c数组中保存按规则合并后的a、b数组的数据,并显示在列表框List3中。程序截图如下所示:
    实现该功能的 VB 程序如下:
    Const m=5
    Const n=6
    Dim a(1 To m) As Integer
    Dim b(1 To n) As Integer
    Dim c(1 To m+n) As Integer
    ‘窗体加载时,生成数组 a、b 中的数据,并按要求排序后显示在列表框中,代码略
    Private Sub Command1_Click (  )
    Dim pa As Integer,pb As Integer,pc As Integer,s As Integer,flag As Boolean
    pa=m:pb=1:pc=1
    flag=True
    Do While
     

    If a(pa)<b(pb) Then
    s=a(pa)
    pa=pa-1
    Else
    s=b(pb)
    pb=pb+1
    End If
    c(pc)=s
    If flag Then
    pc=m+n-pc+1
    Else
    pc=-pc
    End If
     

    Loop
    ‘处理 a、b 数组中剩余数据,并在列表框 List3 中输出数组 c,代码略
    End Sub
    (1)窗体加载的事件处理过程名为
     
    。(填字母:A.Form1_Click/B.Form_Click/C.Form1_Load/D.Form_load)
    (2)加框处代码有错,请改正。
    (3)在横线处填入合适的代码。

    组卷:0引用:1难度:0.5
  • 16.小蓝设计了一个数字字符串的简单加密解密小程序,该程序的加密规则是计算连续升序子串的长度,将该长度字符插入到相应子串后面。例如:
    输入2350123456783,先将字符串拆成三段,分别是235,012345678,3要求每一段必须严格有序,如果无法实现连续升序,则单独作为一个拆分。
    原字符串 235 012345678 3
    连续升序字符数     3 9 1
    密文 235 3 012345678 9 3 1
    在文本框Text1中输入原文,单击“加密”按钮,可在文本框Text2中输出密文。
    在文本框Text2中输入密文,单击“解密”按钮,可在文本框Text3中输出原文。
    (1)程序运行时,在文本框Text2中输入“1233012345678910”,则在Text3中显示的内容为
     

    (2)实现上述功能的VB代码段如下,请在横线处填上合适代码。

    Private Sub Command1_Click (  )'
    加密过程
    Dim a(1 To 100)As String
    Dim s1,s2 As String:Dim tmp As Integer
    tmp=1:s1=Text1.Text
    For i=1 To Len(s1)
    a(i)=Mid(s1,i,1)
    Next i
    s2=a(1)
    For i=2 To Len(s1)
    If
     
     Then
    s2=s2+a(i):tmp=tmp+1
    Else
    s2=s2+LTrim(Str(tmp))'LTrim
     
    函数用以移除左边的符号位空字符
    s2=s2+a(i)
     

    End If
    Next i
    s2=s2+LTrim(Str(tmp)):Text2.Text=s2
    End Sub
    Private Sub Command2_Click (  )'解密过程
    Dim b(0 To 100)As String
    Dim k As String,t As Integer,n As Integer
    Dim s As String,s3 As String,j As Integer
    s=Text2.Text:n=Len(s)
    For i=1 To n
    b(i)=Mid(s,i,1)
    Next i
    t=n-1:k=Val(b(n))
    Do While t>0
    If k<>0 Then
    For j=1 To k
     

    t=t-1
    Next j
    k=Val(b(t))
    t=t-1
    Else
    k=10
    t=t-1
    End If
    Loop
    Text3.Text=s3
    End Sub

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