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

2017-2018学年江苏省无锡市暨阳地区高三(上)联考信息技术试卷(8月份)

发布:2024/12/31 22:0:2

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

  • 1.关于信息安全、网络道德和知识产权,下列做法正确的是(  )

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

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

    组卷:4引用:2难度:0.9
  • 4.使用UltraEdit软件观察字符“Good Luck!”的内码,部分界面如图所示.下列说法正确的是(  )

    组卷:12引用:5难度:0.7
  • 5.使用Access软件创建的“student”数据表,部分界面如图所示.下列说法正确的是(  )

    组卷:3引用:2难度:0.7

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

  • 16.【加试题】尼克斯彻定理:任何一个大于等于1的整数的立方等于一串连续奇数之和,如:13=1,23=3+5,33=7+9+11.编写一个VB程序验证尼克斯彻定理,程序运行时,在文本框Text1中输入
    一个大于等于1的整数,单击“验证”按钮Commandl,在文本框Text2中显示验证结果,运行界面如图所示。
    实现上述功能的VB代码如下,其中加框处代码有错,请改正。
    Dim n As Integer,i As Integer,t As Integer,sum As Long,s As string
    n=Val(Text1.Text)
    For i=1 Ton^3 Step 2'变量i表示连续奇数的首个整数 
        sum=0:t=i:flag=False
        Do While sum<=n^3 And flag=False
    sum=sum+t
                            (1)
      If sum=n^3 Then flag=True
       Loop
       If  flag=True Then Exit For
    Next i
    s=Str(n)+“^“+Str(3)+“=“
    Do While sum>0
                                                    (2)
        If sum=0 Then
           s=s+Str(i)
        Else
            s=s+Str(i)+''+“
        End If
            i=i+2
    Loop
    Text2.Text=s
    End Sub。

    组卷:6引用:3难度:0.3
  • 17.某校开展“七选三”选课调查,选课数据存数据库文件“student.jye.ai”中,如图a所示.“选课”字段存储7位“0”、“1”组成的数串,每位对应一个科目,从左往右依次为“物化生政史地技”,“1”表示选择,“0”表示未选择,如“1110000”表示选择科目“物化生”.小吴设计了一个VB程序统计全校选课情况,功能如下:程序启动时从数据库中读入全校学生的学籍辅号、姓名、班级、选课信息,处理后在列表框List1中显示,单击“选课统计”按钮Command1,在列表框List2中按选课人数从高到低输出各选课组合及人数,程序界面如图b所示(学籍辅号和姓名的部分内容不显示).

    实现上述功能的VB程序如下,请回答下列问题:
    (1)若某记录“选课”字段值为“1100001”,则该生的选课科目是
     

    (2)请在横线处填上合适的代码.
    Const max=1000
    Const s=“物化生政史地技“
    Dim n As Integer'存放学生人数
    Dim xjfh(1 To max)As String,xm(1 To max)As String
    '数组xjfh存放学生学籍辅号,数组xm存放学生姓名
    Dim bj(1 To max)As Integer,xk(1 To max)As String
    '数组bj存放学生班级,数组xk存储学生的选课标志
    Dim zh(1 To 35)As String,tj(1 To 35)As Integer
    '数组zh存储不同选课组合,数组tj存储某一组合选课的学生数
    Function adj(a As String,n As Integer)As String
    '函数功能:在被显示数据之后添加上合适的空格,代码略
    End Function
    Function convert(x As String)As String
    Dim i As Integer,st As String
    st=““
    For i=1 To Len(x)
        If Mid(x,i,1)=“1“Then st=st+Mid(s,i,1)
    Next i
    convert=st
    End Function
    Private Sub Form_Load(  )
        Dim i As Integer,km As String
        Dim conn As New ADODB,Connection
        Dim rs As New ADODB,Recordset
    conn.ConnectionString=“provider=microsoft.ace.jye.ai.12.0;data source=“+App.Path+“\student.jye.ai“
    conn.Open
    Set rs.ActiveConnection=conn
    rs.Open“select*from stu_info“
    n=0
    Do While Not rs.EOF
        n=n+1
        xjfh(n)=rs.Fields(0):xm(n)=rs.Fields(1)
        bj(n)=rs.Fields(2):xk(n)=rs.Fields(3)
     

        List1.AddItem xjfh(n)+adj(xm(n),4)+adj(Str(bj(n)),4)+adj(km,6)
        rs.MoveNext
    Loop
    '剩余部分代码略
    功能:产生35种选课组合的“0”、“1”数串,存数组zh;数组tj各元素初始化为0
    End Sub
    Private Sub Command1_Click(  )
       Dim i As Integer,j As Integer,temp2 As Integer,temp1 As Integer
       For i=1 To 35
           For j=1 To n
           If xk(j)=zh(i) Then
     

           Next j
       Next i
       For i=1 To 34
           For j=35 To i+1 Step-1
               If
     
     Then
                   temp1=zh(j):zh(j)=zh(j-1):zh(j-1)=temp1
                   temp2=tj(j):tj(j)=tj(j-1):tj(j-1)=temp2
               End If
              Next j
           Next i
       For i=1 To 35
            List2.Str(i)+adj(convert(zh(i)),6)+adj(Str(tj(1)),6)
       Next i
    End Sub.

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