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

2018-2019学年浙江省名校新高考研究联盟高三(上)第一次联考信息技术试卷

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

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

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

    组卷:2引用:1难度:0.5
  • 2.浏览某网页的部分界面如图所示,下列说法正确的是(  )

    组卷:2引用:1难度:0.5
  • 3.下列关于字处理的说法,错误的是(  )

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

    组卷:4引用:1难度:0.3
  • 5.用 UltraEdit软件查看字符的内码,界面如图所示,下列分析正确的是(  )

    组卷:0引用:2难度:0.5

【加试题】

  • 16.某种纸牌游戏,三人一起玩一幅牌,每人17张,5张及以上的连续单牌(不分花色)称为顺子,顺子最大到K,如“A,2.3,4,5,6”是长度为6的顺子。编写程序,判断游戏刚开始时某玩家有没有顺子,最长的顺子是几张实现上述功能的B程序代码如下,但加框处代码有错,请改正
    Const n=17
    Dim a(n) As Integer
    Private Sub Command1_ Click(  )
    Dim max As Integer,count As Integer
    Dim i As Integer,Ag Integer
    count=0:max=0
    i=1
    Do While i<=n-1
    ′①
         j=i+1
    Do While j<=n
        IfThen′②
             j=j+1
            count=count+I

        Elself a(j)=a(j-1)Then
            j=j+1
        Else
            Exit Do
         End If
      Loop
        i=j
         If count>max Then max“count
    Loop
        If mxa<5 Then
           Label2.Caption=“无顺子“
      Else
           Label2.Caption=“最长顺子长度:“+Str(max)
         End If
      End Sub
    Private Sub Fora Load (  )
    '获取17张牌的牌面数值(J、Q、K,A分别对应11、12、13,1),升序存储在数组a中
    ‘代码略
    End Sub

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

【加试题】

  • 17.回文数是从左向右读和从右向左读结果一样的数字串,例如:1和363都是回文数编写VB程序,构造一个大于给定正整数n的最小回文数p,构造方法如下
    (1)根据数字串n的左半部分子串st,构造对称的右半部分,生成回文数p
    (2)若p>n,则p即为最小回文数,如:98712→98789
    (3)若p<=n则需重新构造p,方法是:从右向左查找字符串st中第一个“9”的字符;若不存在,则生成形如“10…01”的回文数p,p的长度比n的长度多1位,如:9999→10001若存在,则将第一个非“9”字符加1,并将该字符后面部分用字符“0“填充,最后构造对称的右半部分,生成回文数p。如:98992→99099,
    实现上述功能的VB程序如下,请回答下列问题:
    (1)如果n为69999,则p为
     

    (2)请在横线处填入合适的代码
    Private Sub Command1_Click(  )
    Dim n As String,st As String.p As String
    Dim In As Integer.i As Integer.j As Integer
    n=Text1.text
    ln=Len(n)
    st=Mid(n,1,<ln+1>\2)
    p=st
    For i=ln\2To1 Stop-1
      p=p+Mid(n,i,1)
    Next i
    If
     
    Then
       i=(ln+1)\2
    Do While i>0
    If Mid(st,i,1)=“9“Then
     
    EIse Exit Do
    Loop
    If i<1 THen
        p=“1“
        For i=2 To In
           p=p+“0“
        Next i
       p=p+“1“
    Else
       p=Mid(st,1,i-1)
       p=p+Chr(Asc(Mid(st,i,1))+1)
       For j=i+1 To ln-i
         p=p+“0“
       Next j
          If
     
    Then p=p+Mid(p,i,1)
          For j=i-1 To Step-1
          p=p+Mid(p,j,1)
          Next j
         End If
      End If
    End If
    Text2.Text=p
    End Sub

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