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

2017年浙江省杭州市萧山区高考信息技术模拟试卷(21)

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

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

  • 1.现在过年过节大家都会热衷发送微信红包、抢红包,小明看到同学群里的微信红包,很高兴地去点开,却发现已经过期,这主要体现了信息的(  )

    组卷:15引用:2难度:0.9
  • 2.小芳QQ邮箱的部分界面如图所示,根据图中信息,下列说法不正确的是(  )

    组卷:10引用:2难度:0.9
  • 3.某用户使用Word软件编辑文档,部分界面如图所示:下列说法正确的是(  )

    组卷:11引用:2难度:0.9
  • 4.某算法的流程图如图,以下说法不正确的是(  )

    组卷:3引用:2难度:0.7
  • 5.在Word中,想把字体设置成深红色,除了直接选用标准色,也可以在调色板中用RGB(192,0,0)表示,其中“192”和“0”都是十进制数,若改用十六进制数表示深红色,则正确的是(  )

    组卷:11引用:2难度:0.7

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

  • 16.六一儿童节时,幼儿园组织小朋友们进行“寻宝”活动:老师找来10个盒子分别编号1-10号,把礼物装入其中的4个盒子中,并把这10个礼品盒摆成一个圈供小朋友们“寻宝”.小朋友们都很兴奋,觉得自己都能找到,但是老师对每个小朋友的寻宝路线是有规定的:从10号盒子出发(10号盒不装礼物),第一个小朋友到1号盒子找,第二个小朋友隔1个盒子找(即3号盒子),第三个小朋友隔2个盒子找(即6号盒子),依此类推,次数不限.小朋友们几乎找了一上午,都没有人找到礼物.问礼物到底藏在哪4个盒子中?模拟上述过程的程序如下,程序运行结果如图,但加框处代码有误,请改正,加线处请补充完整.

    Const n=10
    Dim h(10)As Integer'h数组模拟10个盒子
    Dim I As Integer
    Private Sub Form_Load (  )
    For i=1To 10
    h(i)=0'h数组元素值为0,表示没有被访问到
    Next i
    End Sub
    Private Sub Command1_Click (  )
    Dim j As Integer,number As Long
    number=0
    For j=1To 1000'假设小朋友们轮流总共找了1000次
    number=number+1'①
    i=number Mod n
    If h(i)=0Then②'h数组元素值为1,表示被访问到
    Next j
    For i=1To n-1'显示装有礼物的盒子
    If h(i)=0Then
    List1.AddItem Str(i)+“号盒子“
    End If
    Next i
    End Sub
    加框处①有错,应改为
     

    横线处②应填的语句为
     

    组卷:8引用:2难度:0.1
  • 17.【加试题】我省高中学生参加高考时,对于考生信息的核查已开始逐步推行验证身份证号是否正确的和考生信息是否在考生库。对于身份证号的验证方法如下:我国的18位身份证号是由17位数字和1位校验码组成的,排列顺序从左至右依次为:6位数字地址码,8位数字出生日期码,3位数字顺序码(同一地区同年、同月、同日出生人的编号,奇数是男生,偶数是女性)和1位校验码(0到10,10用X表示)。身份证号校验码可以检验身份证号是否有误,身份证号的检验码计算方法如下表:
    123456789101112131415161718
    身份证号332522619990101001
    加权因子7910584216379105842
    2127202516242954270905002
    241
    整除11取余10
    先将身份证号1到17位分别乘以它对应的加权因了,然后再将17个积相加,再次得到的和整除11取余数,最后通过下表用余数得出对应的校验码。
    余数012345678910
    校验码10X98765432
    验证考生信息是否在考生库的方法如下:核查验证通过的身份证号,是否在参加本次考试的考生库examinee。accdb的ksxx表中存在。
    程序运行时,在Txt_1中输入待检验的身份证号,在Lab_1中显示验证的身份证号是否正确,
    在Lab_2中显示验证正确的身份证号是否在考生库中。程序运行界面如图:


    Dim w(1to 17)As Integer'存放加权因子
    Dim y(1to 10)As String'存放验证码
    Dim sf As String'存放身份证号
    Dim ks As Boolean'考生信息是否在考生库

    Private Sub Command1_Click(  )
    sf=Tex_1.Text
    If  Then'①
    Lab_1.Caption=“验证结果:正确的身份证号”
    If ks=True Then
    Lab_2.Caption=“正确的考生信息”
    Else
    Lab_2.Caption=“错误的考生信息”
    End If
    Else
    Lab_1.Caption=“验证结果:错误的身份证号”
    End If
    End Sub

    'yzsf函数用于验证身份证号是否正确
    Function yzsf(sfzh  As String ) As Boolean
    Dim i As Integer,n As Integer
    w(1)=7:w(2)=9:w(3)=10:w(4)=5:w(5)=8
    w(6)=4:w(7)=2:w(8)=1:w(9)=6:w(10)=3
    w(11)=7:w(12)=9:w(13)=10:w(14)=5:w(15)=8
    w(16)=4:w(17)=2
    y(0)=”1”:y(1)=”0”:y(2)=”X”:y(3)=”9”:y(4)=”8”
    y(5)=”7”:y(6)=”6”:y(7)=”5”:y(8)=”4”:y(9)=”3”
    y(10)=”2”
    If Len(sfzh)=18Then
    n=0
    For i=1to 17
    n=n+
    Next i
    n=n mod 11
    If Mid(sfzh,n,1)=y(n) Then
    yzsf=True
    Else
    yzsf=Flase
    End IF
    Else
    MsgBox(“请输入18位身份证号”)
    End IF
    End Function

    Private Sub Form_Load(  )'本过程用于验证考生是否在考生库中
    Dim conn As New ADODB.Connection,rs As New ADODB.Recordset
    Dim intSQL As Long
    conn.ConnectionString=“Provider=Microsoft.ACE.OLEDB.12.0;Data Source=“+App.Path+“\
    conn.Open
    intSQL=“SELECT score  FROM Integral“
    Set rs.ActiveConnection=conn
    rs.CursorType=adOpenStatic
    rs.Open intSQL
    '本过程其他语句略
    End Sub
    (1)加框处①有错,应改为
     

    (2)②处应填入的语句为
     

    (3)③处应填入的语句为
     

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