相关试卷

  • 1、下列关于信息系统的说法正确的是(    )
    A、简单系统一定是复杂系统的子系统 B、决策信息系统是信息系统技术发展的最终阶段 C、只有政府、企事业单位才有信息系统 D、技术的发展促进了信息系统从简单数据处理发展到可以支持决策
  • 2、信息系统应用广泛且类型繁多,下列关于信息系统的说法不正确的是(    )
    A、单位或部门使用信息系统的目的一般是为了提高工作效率 B、传统的信息系统主要分为管理信息系统决策支持系统智能系统、数据挖掘系统等 C、信息系统按照技术发展的阶段可分为数据处理系统、管理信息系统决策信息系统等 D、信息系统的局限性可以通过不断地更新维护来消除
  • 3、手推车是在超市购物时经常被使用的工具,为了让手推车除了装载物品外,还能实现货物导航、优惠提示、自助结算等功能,试设计“智能手推车”信息系统,请回答下列问题:
    (1)、该“智能手推车”信息系统的用户有等。
    (2)、你希望该“智能手推车”信息系统还能实现什么功能?请填写下表,描述其具体功能。

    功能类别

    功能举例

    数据收集和收入

    ①管理员输人所有货物信息,包括价格、重量、所处货架号等

    数据存储

    ①数据库存储所有货物信息,以及超市货品优惠信息

    数据传输

    将收集到的所有货物和用户信息传输到相关的各个部门或者子系统

    数据加工处理

    ①对用户购买的物品进行计算,并显示优惠信息

    数据输出

    数据查询

    根据输人的物品,查询该物品的位置与价格等详细信息

  • 4、下列选项中属于图书馆借阅管理系统中的硬件要素的是(   )

    ①借阅人②图书馆阅览室③图书管理软件 ④计算机⑤馆内提供的无线 Wi-Fi信号⑥条形码扫描器

    A、②④ B、④⑤ C、②⑥ D、④⑥
  • 5、下列不属于“校园一卡通”信息系统关键要素的是(    )
    A、学生注册数据信息 B、机房管理条例 C、刷卡器 D、系统管理员
  • 6、某医院在线挂号系统,需要提供社保卡号或身份证号才能进行预约。社保卡号或身份证号属于该信息系统中的(    )
    A、用户 B、软件 C、数据 D、硬件
  • 7、某学校使用了一款办公系统,通过该系统可以实现在线发布通知、在线办理请假手续、设备报修、资料文档打印等功能。但有部分老师反映在使用时程序占据内存太大,导致系统时常卡顿、崩溃。下列关于该信息系统功能的描述,正确的是(    )
    A、信息系统一旦建立,功能无法更改 B、不同的信息系统的功能都是一样的 C、信息系统具有数据共享功能,但不具有硬件共享功能 D、信息系统的运行速度与该系统的软硬件及网络环境相关
  • 8、下列关于信息系统中数据的说法,正确的是(    )
    A、数据就是信息 B、数据的价值体现在其数量上,数量越多,价值就一定越大 C、一个系统输出的信息可以作为另一个系统处理的原始数据 D、信息系统只负责读取数据、处理数据和显示数据
  • 9、浙江省高校招生志愿填报系统的登录界面如图1-2所示,下列关于该信息系统的说法,正确的是(    )

    A、该信息系统中的硬件是指学生登录填报系统用的计算机 B、该信息系统中的软件是指为了实现高校招生管理而开发的应用软件 C、该信息系统中的用户是指填报志愿的考生 D、注册成功后,考生的相关数据存储在系统的数据库中
  • 10、列举使用过的在线学习信息系统,并与学校教学相比较,分析在线学习的优势与局限性。
  • 11、某智慧教室讲台上的中央控制面板如图1-1所示。

    (1)、通过观看图片、信息检索等方式,试写出该信息系统可以实现哪些功能,可通过哪些技术来实现。
    (2)、联系平时上课情景,试写出该信息系统还可以增加哪些功能?
  • 12、某校“校园一卡通”信息系统的发展经历了以下三个阶段:第一阶段,以接触式的ID卡为载体,学校中各系统应用单一,相互独立;第二阶段,以非接触式的IC卡为载体,能对学生进行统一的身份认证,实现一卡通功能;第三阶段,实现IC卡及手机等多种载体选择,校园卡应用扩展到学校教学科研、管理的各个领域。下列关于“校园一卡通”信息系统的说法,不正确的是(    )
    A、信息技术是信息系统的前提和基础 B、信息系统是信息技术的应用和体现 C、信息系统是以信息技术为人们提供问题解决方案的系统 D、信息系统的不断更新是由于硬件升级引起的
  • 13、为提高学生就餐效率,学校食堂在每个餐厅门口都安装了自助点餐机,通过刷校园卡,学生可以在任意一台点餐机上进行预约订餐、查询订餐记录等操作,这体现了信息系统是为用户提供服务的(    )
    A、网络系统 B、计算机系统 C、信息传输系统 D、人机交互系统
  • 14、下列不涉及信息系统使用的是(    )
    A、登录高考报名系统进行高考报名 B、用“记事本”程序编写文档 C、乘地铁时,刷二维码支付乘车费直接乘车 D、通过微信相互交流
  • 15、关于“校园一卡通”信息系统,下列说法正确的是(    )
    A、涉及的信息技术是指刷卡机、互联网络等硬件设施 B、涉及的信息系统是指一卡通这款应用软件 C、对高一新生进行数据录人,主要是对信息进行查询 D、将卡放在刷卡机上能显示余额,是信息系统进行检索的结果
  • 16、20世纪80年代后人们将计算机作为财务管理的新工具,21世纪初人们将电子邮件作为重要的信息交流工具,如今人们的日常出行越来越离不开导航系统。这些技术变化说明了信息技术的发展脉络为(   )
    A、计算机→数据→互联网 B、计算机→数据→人工智能 C、计算机→互联网→数据 D、计算机→人工智能→互联网
  • 17、下列有关信息技术的说法,不正确的是(    )
    A、信息技术是指获取传输、存储、加工和表达信息的各种技术总和 B、信息技术包含计算机技术、计算机网络技术、通信技术等 C、信息技术是伴随着计算机和互联网技术的发展而诞生的 D、信息技术将沿着数字化、网络化、智能化的方向发展
  • 18、12306网站于2010年1月30日(2010年春运首日)上线运行,用户在该网站可查询列车发车时间、票价、余票等信息。该系统每日定期维护,自运行以来,根据技术的发展和用户的反馈,开通了在线支付、启用图片验证码推出候补购票等功能。下列有关该信息系统的说法,不正确的是(    )
    A、 信息系统的重要资源是有组织的数据 B、信息系统运行期间需维护与升级 C、信息系统是自动化系统,运行过程不需要人的参与 D、信息系统是对信息资源开发、利用和管理的一种必不可少的工具
  • 19、某手机APP为电影观众选座提供了程序推荐和自主选位功能。当观众购票选择程序推荐时,程序根据电影放映厅内每个座位的优先等级(用一个正整数表示其等级值,如图a所示),自第1排1号座开始,按自左向右逐排的顺序查找满足本次购票人数r的最优空位区(最优空位区是指从某个座位开始的同排连续的r个空位,且其等级值之和最高,若有多个最优空位区,则推荐最先找到的)。若找到,则显示出推荐的座位编号;若找不到,则提示自主选位。

    例如:图a中放映厅内座位有9排10列,第5排10个座位的等级值依次为:1,2,3,4,5,5,4,3,2,1。全部座位为空时,当前购票人数为5,推荐座位编号为5排3-7号;如图b所示已经部分选座状态下,当前购票人数为2,推荐座位编号为6排3-4号。

    编写VB程序,模拟上述功能。运行程序,在列表List1中显示目前选座状态,黑点表示已选座,白点表示空位,在文本框Text1中输入购票人数后,单击“推荐”按钮Command1,在标签Label3显示当前购票人座位的推荐结果。程序运行界面如图c所示。

    (1)、如图a所示,全部座位为空时,第1次购票人数为4人,按程序推荐座位选座,座位等级值之和为 。
    (2)、实现上述功能的VB程序如下,请在划线处填入合适的代码。

    Const m = 9         'm 表示座位有9排

    Const n = 10        'n 表示每排的座位数为10

    Dim r As Integer         'r 表示当次输入的购票人数

    Dim a(1 to m * n) As Integer   'a 数组存放每个座位的等级值

    Dim b(1 to m * n + 1) As Integer      'b 数组保存当前各座位选座情况,选中为1,未选为 0

    Private Sub Form_Load()

    '从第1排开始,按座位编号从小到大顺序逐排读取座位等级值并依次存入数组a

    '同上述顺序,读取选座状态存入数组元素b(1)至b(m*n)中,输出当前选座状态。代码略

    End Sub

    Function getsum(i As Integer, j As Integer) As Integer

        '从第i排第j列开始,计算第i排中满足r个观众就座的连续空位等级值之和。

        '若无法找到足够的连续空位时,则返回-1

        Dim p As Integer, sum As Integer, k As Integer

        sum = 0

        p = j: k = (i - 1) * n + p

        Do While p <= j + r - 1 And b(k) = 0

            sum =

            p = p + 1: k = k + 1

        Loop

        If p = j + r Then getsum = sum Else getsum = -1

    End Function

    Private Sub Command1_Click()

        Dim i As Integer, j As Integer, s As String, max As Integer

        Dim t As Integer, newi As Integer, newj As Integer, pos As Integer

        r = Val(Text1.Text)

        max = 0

        For i = 1 To m

            For j = 1 To n - r + 1

                

                If max < t Then max = t: newi = i: newj = j

            Next j

        Next i

        If max = 0 Then

            Label3.Caption = "请自主选位" Else

            pos = (newi - 1) * n + newj

            For i =

                b(i) = 1

            Next i

            Label3.Caption = "推荐座位编号:" & newi & "排" & newj & "-" & newj + r - 1 & "座"

        End If

    End Sub

  • 20、给定n个学生成绩,筛选男生或女生中成绩居前百分之k的学生。筛选规则如下:m=男生或女生记录数×k%,若m<1,则m取1;否则m向下取整,如m=3.1,则筛选最大的3项。若有数据和第m项的值相同,则一起筛选出。如有男生成绩分别是“78,99,98,99,90”,以“最大10百分比”筛选,则5×10%=0.5,筛选最大的1项,筛选出“99,99”。

    编写一个VB程序,实现上述功能。程序运行时,在列表框List1中显示n名学生的姓名、性别和成绩,在文本框Text1中输入性别,Text2中输入k,单击“筛选”按钮Command1,在列表框List2中显示筛选出的学生姓名、性别和成绩。程序运行界面如图所示。

    (1)、下列VB语句可以实现清空文本框Text1内容的是(单选,填字母:A .Text1.Clear / B .Text1.Caption = "" / C .Text1.Text = "")
    (2)、实现上述功能的VB程序如下,请在划线处填入合适代码。

    Dim n As Integer

    Dim xm(1 To n) As String

    Dim xb(0 To n) As String

    Dim cj(0 To n) As Integer

    Private Sub Form_Load()

    '读取学生姓名、性别和成绩分别存 xm、xb 和 cj 数组,并在列表框 List1 中显示。

    '学生人数存变量 n,代码略。

    End Sub

    Private Sub Command1_Click()

        Dim s As String, k As Single, m As Single, mm As Integer

        Dim c As Integer, p As Integer, i As Integer, j As Integer

        Dim t1 As String, t2 As Integer

        s = Text1.Text

        k = Val(Text2.Text)

        c = 0

        For i = 1 To n

            If xb(i) = s Then

        Next i

        m = c * k / 100

        If m < 1 Then

            mm = 1

        Else

            mm =

        End If

        i = 1

        Do While i <= n

            p = i

            For j = i + 1 To n

                If xb(j) = s Then

                    If  Then p = j

                End If

            Next j

            If i <> p Then

                t1 = xb(i): xb(i) = xb(p): xb(p) = t1

                t2 = cj(i): cj(i) = cj(p): cj(p) = t2

            End If

            If i > mm And (xb(i) <> xb(i - 1) Or cj(i) <> cj(i - 1)) Then Exit Do

            i = i + 1

        Loop

       

        For i = 1 To mm

            List2.AddItem xm(i) + " " + xb(i) + " " + Str(cj(i))

        Next i

    End Sub

    (3)、程序加框处的代码有误,请改正。
上一页 897 898 899 900 901 下一页 跳转