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

2017-2018学年浙江省嘉兴市高二(下)期末信息技术试卷

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

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

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

    组卷:2引用:1难度:0.5
  • 2.下列说法中,不正确的是(  )

    组卷:1引用:1难度:0.5
  • 3.使用UltraEdit软件观察字符串“2018我来啦!”的内码,部分界面如图所示。下列说法正确的是(  )

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

    组卷:0引用:1难度:0.5
  • 5.某算法流程图如图所示。执行该流程图后,s和i的值分别为(  )

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

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

  • 16.若一个数(首位不为零)从左向右读与从右向左读都是一样,我们就将其称之为回文数。给定一个十进制数n,构建一个回文数的过程如下:求n与n的逆序数(从右向左重新排列)之和,如果和为回文数则停止,否则将和视为n,继续按前面过程求和,直到找到回文数。例如,对于十进制数78:
    STEP1:78+87=165
    STEP2:165+561=726
    STEP3:726+627=1353
    STEP4:1353+3531=4884
    实现上述功能的VB程序如下,但加框处代码有错,请改正。
    Private Function fanxu(a As String)As String
    Dim i As Integer
    For i=Len(a)To 1 Step-1
    fanxu=fanxu&Mid(a,i,1)
    Nexti
    End Function
    Private Function huiwen(b As String)As Boolean
    Dim i As Integer,xAs String,y As String
    huiwen=False
    For i=1 To Len(b)
    x=Mid(b,i,1)
    y='①
    If x<>y Then Exit For
    Next i
    If i>Len(b)Then huiwen=True
    End Function
    Private Sub Command1_Click (  )
    Dims As Long,t As Long,i As Integer
    List1.Clears=Val(Text1.Text)
    Fori=1To 10
    '②
    List1.AddTtem Str(s)+″+″+fanxu(Str(s))+″=″+Str(t)
    s=t
    If huiwen(Trim(t))Then
    Label1.Caption=″经过″&Str(i)&″步得到回文数!″
    Exit For
    End If
    Next i
    Ifi>10Then Label1.Caption=″经过10步运算不能得到回文数。″
    End Sub

    组卷:1引用:1难度:0.6
  • 17.在一次晚会上,一位魔术师掏出一叠扑克牌,取出其中13张黑桃,预先洗好后,把牌面朝下,对观众说:“我不看牌,只数一数就能知道每张牌是什么?”魔术师口中念1,将第一张牌翻过来看正好是A;魔术师将黑桃A放在桌上,继续数手里的余牌,第二次数1,2,将第一张牌放到这叠牌的下面,将第二张牌翻开,正好是黑桃2.也将它放在桌子上。第三次数1,2,3,前面两张牌放在这叠牌的下面,取出第三张牌,正好是黑桃3,这样依次将13张牌翻出,准确无误。
    小明依据上述描述设计了如下VB程序,计算出魔术师手中牌的原始顺序,运行结果如图所示。请回答下列问题:

    (1)完善程序。请在以下程序代码段中的3处划线位置填入合适的代码。
    Private Sub Form_Load (  )
    Dim i As Integer,j As Integer,n As Integer
    Dim a(1 To 13)As Integer
    Dim flag As Boolean
    For j=1To 13
    a(j)=0
    Nextj
    i=1:j=0:n=0
    flag=True
    DoWhilei<=13
    DoWhile flag
    j=j+1
    If j>13 Then j=1
    If a(j)=0 Then ①
     

    If n=i Then
     

    n=0
    flag=False
    End If
    Loop
     

    i=i+1
    Loop
    Label1.Caption=″原始牌序是:″
    For i=1 To 13
    Text1.Text=Text1.Text+Str(a(i))'输出扑克牌原有顺序
    Next i
    End Sub
    (2)如果这13张黑桃扑克牌原来是有序的(即最上面为黑桃A,依次为黑桃2、黑桃3…),那么按照上述魔术师的取牌方法,取到的第5张牌是
     

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