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

2016-2017学年浙江省温州新力量联盟高二(下)期末信息技术试卷

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

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

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

    组卷:12引用:2难度:0.9
  • 2.下列关于网站和网页的说法,正确的是(  )

    组卷:8引用:2难度:0.9
  • 3.使用 OCR 软件进行字符识别,部分界面如图所示

    下列说法不正确的是(  )

    组卷:9引用:2难度:0.9
  • 4.使用 Access 软件创建的“无人机”数据表,其设计视图的部分界面如图所示.下列说法 正确的是(  )

    组卷:4引用:2难度:0.7
  • 5.某算法的部分流程图如图所示,输入a 的值 23,执行这部分流程后,变量 s 的值是(  )

    组卷:15引用:4难度:0.9

【加试题】

  • 16.素数是只能被 1 和它本身整除的数.小明编写了一个 VB 程序实现将某个偶数拆成两个素数之和.拆分方法如下:
    ①先将偶数拆分成两个数之和,例如将 50 拆分为:3+47,4+46、…47+3.
    ②再对每种组合中的两个数分别进行素数判断.
    在文本框 Text1 输入一个偶数,单击“拆分”
    按钮 Command1 后,在列表框 List1 中显示素数组合.
    程序运行界面如图所示.

    实现上述功能的 VB 程序如下,但加框处代码有错,请改正. Private Sub Command1_Click (  )
    Dim i As Integer,k As Integer i=Val(Text1.Text)
    For k=3To i\2
    If prime(k) And  Then List1.AddItem Str(k) &“+“& Str(i-k)
    End If
    Next k End Sub
    Function prime(x As Integer) As Boolean
    Dim j As Integer
    prime=True
    For j=2To Sqr(x)
    If =0Then
    prime=False
    Exit Function
    End If
    Next j
    End Function.

    组卷:6引用:1难度:0.1
  • 17.公民身份号码是特征组合码,由十七位数字本体码和一位校验码组成.排列 顺序从左至右依次为:六位数字地址码,八位数字出生日期码,三位数字顺序码和一位数字 校验码.数字校验码的计算过程如下三步所示:
    ①对身份证号码的前 17 位数字的权求和
    s=Sum(sfz(i)*jq(i)),i=1,…,17 其中,sfz(i):表示第 i 位置上的身份证号码数字值
    jq(i):表示第 i 位置上的加权因子
    jq(1)至 jq(17)依次为:7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2
    ②求模 y
    y=s Mod 11
    ③通过模得到对应的校验码
    模(y):0 1 2 3 4 5 6 7 8 9 10 校验码(jym):1 0X 9 8 7 6 5 4 3 2
    小明编写了一个验证 18 位身份证校验码的 VB 程序,实现功能如下:单击“校验”按钮 Command1,程序从数据库读取相关数据进行处理,在列表框 List1 中显示身份证号码及判断 检验码是否正确的结果.VB 程序运行界面如图所示.

    实现上述功能的 VB 程序如下,请回答下列问题:
    (1)解决此问题所用的算法是
     
    .(选填:解析算法或枚举算法)
    (2)请在横线处填入合适的代码.
    Dim sfz(1To 100)As String'存放身份证号码
    Dim jq(1To 100)As Integer'存放加权因子
    Dim jiegAs String'存放判断结果
    Private Sub Form_Load (  )
    '本过程从数据库中读取身份证号码、加权因子分别存储到数组 sfz、jq 中,存储在相应 的数组中
    '代码略
    End Sub
    Private Sub Command1_Click (  )
    For i=1To n'变量 n 指的是从数据库读取的身份证号码个数
    jieg=
     
     
    List1.AddItem sfz(i)+““+jieg
    Next i
    End Sub
    Function jy(sfz1As String) As String'对身份证的校验码进行校验
    Dim s As Integer,y As Integer,r As Integer
    Dim djym As String
    jym=“10X98765432“
    For i=1To 17
    r=Val(Mid(sfz1,i,1))*
     

    s=s+r
    Next i
    y=s Mod 11
    djym=
     

    If djym=Mid(sfz1,18,1)Then
    jy=“正确!“
    Else
    jy=“错误!“
    End If
    End Function.

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