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

2016-2017学年浙江省“七彩阳光”新高考研究联盟高三(下)期初信息技术试卷

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

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

  • 1.2015年12月,铁道部在12306网站发布了一则“公告”,如图所示.

    下列说法不正确的是(  )

    组卷:8引用:2难度:0.9
  • 2.小刚想假期和同学一起去上海迪士尼乐园游玩,他用浏览器访问了上海迪士尼乐园网站https://www.shanghaidisneyresort.jye.ai/,该网站所采用的协议是(  )

    组卷:3引用:4难度:0.9
  • 3.Word字处理软件编辑某文档后,部分界面如图所:

    对于图中所示部分的文档,下列说法不正确的是(  )

    组卷:12引用:2难度:0.9
  • 4.《周易》八卦中隐藏着二进制的计数原理,其中包含两个基本元素“-”和“--”.如图所示,可将八卦中的两个符号与二进制的“0”和“1”相互对应,如果“巽”对应的二进制数是“011”,则“震”对应的二进制数是(  )

    组卷:24引用:2难度:0.9
  • 5.某 Access 数据表如图所示,下列描述中不正确的是(  )

    组卷:8引用:1难度:0.9

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

  • 16.小明设计了一个VB程序(界面如图所示),随机产生n(n<=100)个大于等于a(a<=100)且小于等于b(b<=100)的整数,并在列表框List1中降序显示.
    实现上述功能的VB代码如下:
    请在横线处填入合适代码.
    Private Sub Command1_Click(  )Dim a As Integer,b As Integer
    Dim n As Integer,t As Integer
    Dim m(1To 100)As Integer
      a=Val(Text1.Text)
    b=Val(Text2.Text)
    n=Val(Text3.Text)
    If  a>b Then t=a:a=b:b=t
    Randomize
     

    For i=2To n
    m(i)=Int(Rnd*(b-a+1))+a
    If m(i)>m(i-1)Then
     

    For j=i-1To 1Step-1
    If temp<m(j) Then Exit For
    m(j+1)=m(j)
    Next j
     

    End If
    Next i
    For i=1To n
    List1.AddItem Str(m(i))
    Next i
    End Sub
    程序①处的代码是
     

    程序②处的代码是
     

    程序③处的代码是
     

    组卷:11引用:1难度:0.1
  • 17.编写VB程序,实现如下功能:单击“生成密文”按钮Command2,在文本框Text3中产生与每个小写字母对应的密文(每个明文字母对应1个不重复的密文字母).在文本框Text1中输入单词字符串,单击“加密”按钮Command1后,进行逐个字符加密,加密方法:在“明文”中找到相应字符,再得到明文对应位置的密文,并在文本框Text2中显示对应密文(运行效果如图所示).实现上述功能的VB代码如下:
    Dim m2As String
    Private Sub Command1_Click
     

    Dim flag(1To 26)As Boolean
    Dim num As Integer,t As Integer
    Randomize
    num=1
    Text3.Text=““
    For i=1To 26
    flag(i)=False
    Next i
    Do While num<=26
    x=Int(Rnd*26)+97
     

    If  flag(t)=False Then
    m2=m2+Chr(x)
    num=num+1

    End If
    Loop
    Text3.Text=m2
    End Sub
    Private Sub Command2_Click
     

    Dim s As String,m As String,result As String
    Dim k As String,c As Integer
    s=Text1.Text
    m=“abcdefghijklmnopqrstuvwxyz“
    For i=1To Len(s)
    k=Mid(s,i,1)
    If  k>=“A“And k<=“Z“Then
    k=Chr(Asc(k)+32)
    End If
    c=1:continue=True
    Do While③  
    If k=Mid(m,c,1)Then
    continue=False
    End If
    c=c+1
    Loop

    Next i
    Text2.Text=result
    End Sub
    程序①处的代码是
     

    程序②处的代码是
     

    程序③处的代码是
     

    程序④处的代码是
     

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