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

2018-2019学年浙江省杭州二中高三(上)第一次月考信息技术试卷

发布:2024/11/21 1:30:2

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

  • 1.下列关于信息及信息编码的说法中,不正确的是(  )

    组卷:2引用:1难度:0.6
  • 2.用 IE 浏览器访问浙江省杭州二中教育集团的网站首页,界面如图所示:下列说法中不正确的是(  )

    组卷:5引用:1难度:0.6
  • 3.使用 UltraEdit 软件观察字符内码,结果如图所示:下列说法中正确的是(  )

    组卷:2引用:1难度:0.5
  • 4.某算法的流程图如图所示:当输入n的值为10时,输出结果为(  )

    组卷:0引用:1难度:0.4
  • 5.某校使用Access软件帮助老师进行学生寝室的安排,界面如图所示:下列说法中,不正确的是(  )

    组卷:0引用:1难度:0.6

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

  • 16.编写 VB 程序,在文本框 Text1 中输入需要产生的密码个数 n,单击“确定”按钮 confirm,生成n个长度为6的由大小写字母和数字0~9组成的密码,并在列表框中显示。程序运行时界面如图所示。
    为实现上述功能请在横线处填上合适代码
    Private Sub confirm_Click (  ) Dim i As Integer,j As Integer Dim n As Integer,m As Integer Dim k As Integer,s As String Const length=6
    n=Val(Text1.Text) i=1
    List1.Clear
    Do While i<=n
    s=““
    For j=1To length
    k=Int(Rnd (  )*3)+1
    If k=1 Then
    m=Int(Rnd (  )*26)+1
    s=s+Chr(Asc(“a“)+m-1)
    ElseIf k=2 Then
    m=Int(Rnd (  )*26)+1
    s=s+Chr(Asc(“A“)+m-1)
    Else
    m=(1)
     

    s=s+Chr(Asc(“0“)+m-1)
    End If
    Next j
    List1.AddItem Str(i)+““+s
    (2)
     

    Loop
    End Sub

    组卷:0引用:1难度:0.5
  • 17.运动会的跳高项目有来自 total(1≤total≤50)个不同班级同学参加,随机抽取一段参赛信息,要求所有参赛班级的参赛人数至少1个,求满足要求的最小区间长度。
    参赛班级用数字1,2,3,4……number表示,依次存入数组a(1)~a(number),若1号班级的编号为5,则a(1)=5。
    (1)若有15个参赛学生,分别来自于6个不同的班级,从左到右排列,班级编号依次为2,3,6,3,5,5,3,1,4,2,3,2,5,1,6则最小的区间长度为
     

    (2)请在横线处填入合适的代码。
    Dim a(1 To 50)As Integer,T As Integer,Number As Integer,Total As Integer Private Sub Form_Load (  )’产生 Number 的值,表示参赛人数,产生 Total 的值,表示包含的班级数’产生 Number 个编号为 1-Total 的班级编号,并存储在数组 a 中’代码略
    End Sub
    Private Sub Command1_Click (  )
    End If
    Loop
    Text1.Text=Str(ans)
    End Sub
    Function pd(M As Integer) As Boolean
    Dim mid As Integer
    i=Total:j=Number
    Do While i<=j
    mid=(i+j)\2
    If pd(mid)=①
     
    Then
    j=mid-1
    ans=mid
    Else
    i=mid+1
    Dim b(1To 100)As Integer
    Dim T As Integer
    pd=False
    For i=1 To Number-M+1
    For j=i To i+M-1
     

    Next j
    T=0
    For j=1 To Total
    T=T+b(j)
    End If
    Loop
    Text1.Text=Str(ans)
    End Sub
    Function pd(M As Integer) As Boolean
    Next j
    If T=③
     
    Then pd=True:Exit Function
    Next i
    End Function

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