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

2017年浙江省信息技术考前押宝试卷(1)

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

一、选择题(共12小题,每小题2分,满分24分)

  • 1.关于信息安全与网络道德,下列地正确的是(  )

    组卷:9引用:1难度:0.9
  • 2.下列有关浏览器与网页的说法,不正确的是(  )

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

    组卷:5引用:1难度:0.9
  • 4.使用UItraEdit 软件观察字符内码,部分界面如图所示,下列说法正确的是(  )

    组卷:9引用:1难度:0.5
  • 5.使用Access 软件创建的数据表,其数据表视图和设计视图的部分界面如图所示,下列说法正确的是(  )

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

二、解答题(共5小题,满分26分)

  • 16.[加试题]如果数据a的任意一个元素都是数组b的元素,那么数组a称为数组b的子集.例如数组a的元素依次为[1,3,5],数组b的元素依次为[1,2,3,4,5],数组a的任意一个元素都是数组b的元素.所以数组a称为数组b的字集.小杜编写了一个VB程序,用于判断数组a是否是数组b的子集,功能如下:程序运行时随机产生na个不重复的随机数存储在数组a中,随机产生vb个不重复的随机数存储在数组b中.单击按钮Command1,在标签Labell上显示判断的结果,程序运行界面如图所示.
    实现上述功能的VB程序如下,但加框处代码有错,请改正.
    Const na=5
    Const nb=10
    Dim a(1 To na) As Integer
    Dim b(1 To nb) As Integer
    Privae Sub Form-Load(  )
    ’产生随机依次存储在数组a和数组b中,并在列表框输出,代码略
    End Sub
    Private Sub Command1-Click(  )
    Dim i As Integer,j As Integer
    Dim flag As Boolean
    flag=True

    Do While i<=na And flag
        For j=1 To nb
            If a (i)=b(j) Then
                Exit For
            End If
        Next j     
        IfThen flag=False
        i=i+1
    Loop
    If flag Then
        Labell.Caption=“数组a是数组b的子集“
    Elase
        Labell.Caption=“数组a不是数组b的子集“
    End If
    End Sub.

    组卷:5引用:1难度:0.3
  • 17.[加试题]RGB色彩模式是工业界的一种颜色标准,是通过对红(R)、绿(G)、蓝(B)三个颜色通道的变化以及它们相互之间的叠加来得到各式各样的颜色.RGB颜色分量的值通常采用十进制数表示,而Flash软件中颜色值采用十六进制数表示.比如RGB(100,255,10)等价于十六进制颜色码#64FFOA,每个RGB颜色分量对应两位十六进制数.
    颜色RGB
    十进制10025510
    十六进制64FFOA
    小杜编写一个RGB颜色值转十六进制颜色码的转换程序,程序功能如下:程序运行时在文本框Text1输入RGB颜色值,输入格式为“RGB(x,y,z)”,x,y,z的范围都是[0,255].单击“转换”按钮Command1,在标签Labell上输入对应的十六进制颜色码.程序运行界面如图所示,实现上述功能的VB程序如下,请回答下列问题:
    (1)程序运行时,在文本框Text1输入RGB(25,0,101),则标签Labell上显示的内容是
     

    (2)请在横线处填入合适的代码.
    Private Sub Command1-Click(  )
    Dim s As String,ch As Integer
    Dim ans As String
    Dim a(1 To 3)As Integer’用于存储RGB对应的3个分量
    Dim i As Integer,j As Integer
    s=Mid (s,5,Len(s)-5)’取出括号内的字符串
    i=1:j=1
    Do While i<=Len(s)
        ch=Mid (s,i,1)
        If ch>=“0“And ch<=“9“Then
            a(j)=
     

        Else
            j=j+1
            End If
            Loop
            For i=1 To 3
     

            Next i
            Labell.Caption=“#“+ans
    End Sub
    Function btoh(x As Integer) As String’将十进制数转换成两位十六进制数
        Const zf=“0123456789ABCDEF“
        Dim r As Integer,h As String
        h=““
        Do While x>0
            r=x Mod 16
            h=Mid (zf,r+1,1)+h
            x=x\16
        Loop
        If Len (h)=1 Then h=“0“+h
        If Len(h)=0 Then h=“00“
     

    End Function.

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