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

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

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

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

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

    组卷:19引用:1难度:0.6
  • 2.下列有关浏览器的应用,说法正确的是(  )

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

    组卷:7引用:1难度:0.5
  • 4.使用 UltraEdit软件观察字符“Plus版红绿灯!”的内码,部分界面如图所示,以下说法正确的是(  )

    组卷:16引用:1难度:0.5
  • 5.下列关于多媒体技术说法正确的是(  )

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

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

  • 15.查找并删除重复数据的算法是依次以数组a中每个元素作为关键字进行从前往后查找,如果有重复,删除该数据后继续查找。例如,第一次将a(1)作为关键字,从a(2)到a(10)进行逐个查找,如果和a(1)相同,则删除该数据,然后继续查找。编写VB程序,程序运行时,在列表List1中显示数组a,单击“去除重复”按钮 Command1实现如下功能,在列表框Lst2中输出数组a去重后的数据,同时在标签 Label1中显示删除的数据的总
    个数,运行效果如图所示:

    (1)要使程序运行时,窗体显示“删除重复数据”,则应该修改窗体的
     
    属性。
    (2)程序代码中加框处有错,请更正。
    (3)请将划线部分补充完整:
    Const maxn=10
    Dim a(1 To maxn) As Integer
    Private Sub Form_Load(  )
    '生成数组a显示在List1中'
    End Sub
    Private Sub Command1_Click(  )
    Dim i As Integer,j As Integer,n As Integer,key As Integer
    key=1:n=maxn
    Do While key<=n
    i key+1
    Do While i<=n
    If a(i)<>a(key)Then
    i=i+1
    Else
    For j=i To n-1
    a(j-1)=a(j)
    Next j
    n=n-1
    End If
    Loop
    key=key+1
    Loop
    For i=1 To n
    List2.AddItem Str(a( i))
    Next i
    Label1.Caption=″共删除数据″++″个″
    End Sub
    (4)当数组a中的值依次为“1237816687”,单击按钮 command1后,标签Labe1上显示的内容是
     

    组卷:0引用:1难度:0.3
  • 16.RGB颜色模式下的每个像素用24位二进制来表示,其中R、G、B三个分量分别用8位二进制来表示,每个分量值的取值范围均为[0,255],若转换为十六进制则每个分量值的取值范围为[00,FF].RGB颜色反相指的是将每个RGB颜色值转换为二进制后再取反(0取反后为1,1取反后为0)。例如RGB(50,150,250)转换过程如下:
    R G B
    十进制值
    十六进制值 FA
    二进制值 0011  0010 1001  0110 1111  1010
    反相值 1100  1101 0110  1001 0000  0101
    根据上述描述编写ⅤB程序,其功能如下:运行程序时,在文本框τext1中输入以“#”开头的十六进制RGB值,单击“计算”按钮后,在文本框Text2中输出与该颜色值对应的反相颜色的十进制RGB值。程序的运行界面如图所示:
    实现上述功能的VB代码如下:
    (1)当在文本框Text1中输入“#FF00CC”,在文本框Text2中输出的结果为
     

    (2)请在横线处填入合适的代码:
    Private Sub Command1_Click(  )
    Dim i As Integer,j As Integer,
    Dim x As Integer,s As String,ch As String
    Dim a(1 To 24)as Integer
    For i=1 To 24
    a(i)=0
    Next i

    For i=1 To6
    ch=Mid(s,i,1)
    If ch>=“0”And ch<=“9”Then
    x=Val(ch)
    Else

    End If
    j=4*i
    Do While x>0
    a(j)=x mod 2
    x=x\2
    j=j-1
    Loop
    Next i
    s=““:x=0
    For j=1 To 24

    If j Mod 8=0 Then
    If j<24 Then
    s=s+Str(x)+″,″
    Else
    s=s+Str(x)
    End If
    x=0
    End If
    Next j
    Text2.Text=″RGB″(″+S+″)″
    End sub

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