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

2018-2019学年浙江省名校协作体高三(上)月考信息技术试卷(9月份)

发布:2024/11/14 10:30:2

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

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

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

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

    组卷:7引用:1难度:0.6
  • 4.使用Access软件创建一张数据表,其设计视图界面如图所示,下列说法正确的是(  )

    组卷:5引用:1难度:0.4
  • 5.使用UltraEdit软件观察字符内码,结果如图所示。

    以下说法正确的是(  )

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

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

  • 16.小王设计了一个算法试图求出平面坐标系中最左点出发,从左往右途经所有点到达最右点的路径值和,编写了一个VB程序功能如下:在文本框Text1中输入需随机生成的坐标点数量,单击“生成”按钮Command1后,在列表框List1中生成相应数量的坐标点(坐标值为大于等于1小于10的实数,保留一位小数),在文本框Text2中输出路径值。程序界面如图所示。
    实现上述功能的VB程序如下,但加框处代码有错,请改正。
    Private Sub Command1_Click (  )
         Dim x(1To 100)As Single,y(1To 100)As Single
         Dim tmp As Single,length As Single,sum As Single,x1As Single,y1As Single
        Dim i As Integer,j As Integer,k As Integer
    Randomize
    List1.Clear
         k=Val(Text1.Text)
         For i=1To k
        x(i)=Int(Rnd*90)/10+1
          y(i)=Int(Rnd*90)/10+1
           List1.AddItem“X:“+Str(x(i))+““+“Y:“+Str(y(i))
    Next i
    For i=1To k-1
          For j=1To k-i
               If x(j)>x(j+1)Then
                  x(i)=x(i)+x(j)
                  x(j)=x(i)-x(j)
              
                tmp=y(j)
                y(j)=y(j+1)
               y(j+1)=tmp
             End If
          Next j
    Next i
    sum=0:length=0
    For i=1To k-1
             x1=
    '变量y1计算方法同x1,代码略


            length=Sqr(x1+y1)
            sum=sum+length
        Next i
    Text2.Text=Str(Int(sum*10)/10)
    End Sub

    组卷:0引用:1难度:0.9
  • 17.某密码的破译步骤如下:
    (1)找出文章(以“。”结束)中所有用英文表示的数字(均为小写,数字范围1≤n≤20),单词与数字对应如下:
    单词 one two three four five six seven eight nine ten …… twenty
    数字 1 2 3 4 5 6 7 8 9 10 …… 20
    (2)将这些数字平方后除以100取余,得到两位数如00,04,21,96。
    (3)把这些两位数按升序排成一行,组成一个最小的新数,如果新数开头为0,就去除。
    (4)步骤(3)找出的最小数即为密码。
    小明按照上述方法,设计了一个解密的VB程序,功能如下:单击“解密”按钮Commandl,程序依次将文本框Textl中以空格分隔的每个英文单词取出,若单词属于数字单词,则按解密步骤进行处理,最后在文本框Text2中输出解密结果。程序运行效果如图所示,请回答下列问题:

    (1)若文章内容为“tom bought two apples and five oranges,which cost ten dollars altogether。”,则破译后的密码应为
     

    (2)请在横线处填入合适的代码。
    Dim a(1To 20)As String
    Private Sub Form_Load (  )
    a(1)=“one“:a(2)=“two“
    '……将所有数字单词按顺序存入数组a中,代码略
    End Sub
    Private Sub Command1_Click (  )
    Dim s As String,tmp As String
    Dim c as Integer,i As Integer,j As Integer,k As Integer,t As String,ch As As String,code As Long
    Dim b(1To 100)As String'b数组存放数字单词处理后得到的两位数
    s=Text1.Text
    c=0:i=1:flag=True:t=““
    Do While i<=Len(s)
    ch=Mid(s,i,1)
    If ch>=“a“And ch<=“z“Then
       t=t+ch
    flag=False
    ElseIf flag=False Then
    For j=1To 20
    If t=a(j) Then
    c=c+1
    b(c)=
     

    End If
    Next j
    t=““
    flag=True
    End If
    i=i+1
    Loop
    ’将b数组中的两位数按数值大小进行升序排序,代码略
    For i=1To c
    t=Val(b(i))
     

    Next i
    Text2.Text=Str(code)
    End Sub
    Function decode(num As Integer) As String
    Dim mo As Integer
    mo=num*num Mod 100
    If mo=0Then
    decode=“00“
    ElseIf
     
    Then
    decode=“0“+Trim(Str(mo))
    Else
    decode=Trim(Str(mo))'Trim为去除字符串两端空格的函数
    End If
    End Function

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