高中信息技术:

高中 信息技术

某仓库货物查询系统,数组id保存货物编号(货物编号已经按照从小到大的顺序保存),数组n保存货物名称,数组c保存货物数量。数组中的数据信息一一对应。该系统提供3种查询方式,查询优先级最高的是按编号查询,其次是按名称查询,最低的是按数量查询(在输入多个查询条件的情况下,只按照优先级高的条件进行查询,其中按数量查询可以查询到所有货物数量小于输入值的结果)并将查询结果在list1中显示。程序界面如图2-1所示。

部分程序代码如下:

Public number As String  '货物编号

Public na As String  '货物名称

Public co As String  '货物数量

Private Sub Command1Click()

Dim flag As Integer  '查询结果标志

number = Text1.Text

na = Text2.Text

co = Text3.Text

If (number = "" And na = "" And co = "") Then MsgBox ("你还没有输入查询条件") ’第一种情况

If number <> ""Then ’第二种情况

flag = searchnum(1, n)  'n 表示总的货物种类数量

List1.AddItem id(flag) + n(flag) + c(flag)

  If flag = -1 Then MsgBox ("查询无结果,检查是否输入有误")

End If

If na <> "" Then  ‘第三种情况

flag = searchna(1, n)  'n 表示总的货物种类数量

List1.AddItem id(flag) + n(flag) + c(flag)

  If flag = -1 Then MsgBox ("查询无结果,检查是否输入有误")

End If

If co <> "" Then ‘第四种情况

flag = searchco(1, n)

If flag = 0 Then MsgBox ("查询无结果,检查是否输入有误")

End If

End Sub

Function searchnum(i, j) As Integer  '按编号查询函数

Dim m As Integer

Do While i <= j

m = Fix((i + j) / 2)

If id(m) = number Then

searchnum = m: Exit Function  '查询到结果返回值并结束该函数

End If

If id(m) > number Then         Else i = m + 1

Loop

searchnum = -1

End Function

Function searchna(i, j) As Integer  '按名称查询函数

For i = 1 To j Step 1

If n(i) = na Then searchna = i: Exit Function

Next i

searchna = -1

End Function

Function searchco(i, j) As Integer  '按货物数量函数

Dim f As Integer

f = 0

For i = 1 To j Step 1

If        Then

List1.AddItem id(i) + n(i) + c(i)

f = 1

End If

Next i

searchco (f)

End Function

回答下列问题:

  1. (1) 程序中划线处应填入的代码是:①
  2. (2) Sub Command1 Click()事件处理过程中,使用了4个IF语句区分四种情况分别进行查询。按照题目所给的程序代码能否实现只按照优先级高的条件进行查询?(填是/否)
下面程序的运行结果为:

s=0

for i in range(1,101):

    s+=i

    if i == 50:

        print(s)

        Break

下列关于ASP的叙述中,正确的是(   )
A . ASP程序不可以用任何文本编辑器打开 B . ASP是一种跨平台的服务器的嵌入式脚本语言 C . ASP程序中不可以包含纯文本、HTML标记以及脚本语言 D . ASP是动态服务器页面的英文缩写
想通过分析某同学语文历次考试成绩的分数情况,预测他的语文下一次考试成绩,其基本步骤是(   )。

①数据预处理    ②数据采集    ③分析报告   ④数据分析   ⑤可视化表达

A . ②④①⑤③ B . ②①⑤③④ C . ②①④⑤③ D . ②③①⑤④
如图所示,该文稿采用了表格排版,表格由 (    )

A . 二行三列组成 B . 三行三列组成 C . 三行二列组成 D . 二行二列组成
下列表达式的值与其它三个选项不同的是(    )
A . Len("浙C-202OV") B . Sqr(4)^3 C . 5678 mod 1000\100 D . mid("2020/8/8",6,1)
要直观地展示某同学高二学年连续几次考试成绩的变化的情况,最合适的图表类型是(     )。
A . 条形 B . 柱状图 C . 饼图 D . 折线图
用OCR软件进行文字识别时,部分界面如下图所示,则下列说法正确的是(  )

A . 图中区域①显示的是待识别的对象 B . 单击相似字中的“木”,②中的“术”会变成“木” C . 识别结果保存在“大数据.jpg”中 D . 识别对象为“大数据.TXT”
选购内置DVD刻录机时,不需要考虑(    )
A . 光驱的品牌 B . 光驱的写入速度 C . 光驱的读取速度 D . 光驱的形状
2015年3月,李克强总理在政府工作报告中首次提出“互联网+”行动计划,随后多地政府携手知名互联网公司,打造最美智慧城市新形象。而“互联网+”也将给老百姓的生活带来更多的便利。以下对于“互联网+”描述不正确的是(   )
A . 在“互联网+”的背景下,将会产生新的消费模式 B . “互联网+”就是利用信息通信技术及互联网平台,让互联网与传统行业进行简单融合,创造新的发展生态 C . 传统百货专卖+互联网有了网上商城,传统+互联网有了电子支付,传统交通+互联网有了线上打车 D . “互联网+”能够促进传统行业的升级换代。比如通信行业,来自数据流量业务的收入已经大大超过语音短信的收入,促进了运营商进行相关业务的变革升级
算盘作为一种简便的计算工具,曾经在日常生活中深受人们的喜爱。然而,随着数字化浪潮的掀起,电子计算器的普及使算盘逐渐淡出公众生活。
  1. (1) 下列哪个设备(或事物)也正在逐步淡出公众生活           
    A . 电视机 B . 纸质信件 C . 手机 D . 数码相机
  2. (2) 对上题选择的设备(或事物)造成的冲击是           
    A . 寻呼机 B . E-mail C . 磁带录音机 D . 胶卷
  3. (3) 请分析算盘逐渐淡出公众生活的主要原因:

    (要求:从算盘的劣势进行分析,列出三个你认为最重要的原因)

在多媒体作品创作过程中,对主交互界面下的各模块进行设计,以下要求属于该过程的是(  )
A . 模块内容划分 B . 模块的交互设计 C . 模块的颜色搭配 D . 作品的经济效益
下列选项中,可以作为Python程序变量名的是(   )。
A . a/b B . ab C . 2c D . if
下列有关网页与浏览器说法,正确的是(    )
A . 浏览器与网站服务器之间通过HTML协议传输数据 B . 邮件服务器之间传输邮件使用的是SMTP协议 C . 浏览器中以“网页,全部(*.Html)”类型保存网页,可保存网页中全部信息 D . 用“百度”搜索到的有关新型冠状病毒的信息都是可信的
以下有关网页的说法中,正确的是(  )
A . 网页的三要素是指文字、图像和URL B . 常用的网页制作软件有IE、记事本、Dreamweaver等 C . 网页文件是用HTTP语言编写的文本文件,常见的扩展名有.html或.htm D . 浏览网页时,若选择保存类型为文本文件,可保存网页中的文字信息
某算法的部分流程图如图所示,执行这部分流程后,变量x和Flag的值分别是(  )

A . 2,True B . 3,True C . 2,False D . 3,False
下列关于网络拓扑结构的说法中,正确的是(   )
A . 环型拓扑结构比其他拓扑结构更便于集中控制管理 B . 每个网络只能包含一种网络拓扑结构 C . 局域网的基本拓扑结构一般有星型、总线型和环型三种 D . 只要有一个结点发生故障就可能使整个网络瘫痪的网络拓扑结构是星型
以下关于无线通信的描述错误的是(    )
A . NFC是一个新兴的远距离无线通信技术,可用于不停车收费系统(ETC)等 B . 红外数据传输是一种点对点的无线传输技术,中间障碍物会影响通信效果 C . 蓝牙技术是一种短距离的无线接入技术,常用于个人设备的连接 D . 无线投屏可以将手机、平板画面投射到电视,但要求两个设备使用同一种投屏协议
如图是一张火车票,上面有时间、目的地、身份证号码等数据,则下列说法错误的是 

(  )

A . 数据采集技术的迅速发展,数据的表现形式也越来越多样化,给人们的生活带来了巨大的改变 B . 只有云计算、物联网、大数据等技术才能体现数据与生活 C . 在人们的日常生活中数据无处不在 D . 对于身份证号码等涉及个人隐私的数据要注意保护
有如下VB程序段:

s=0:t=0

For i=1 To 5

    If a(i)-a(i+1)<t Then

        t=a(i)-a(i+l)

        s=s+1

    End If

Next i

数组元素a(1)到a(6)的值依次为“4,5,3,2,7,5”,执行该程序段后,变量s的值为(    )

A . 1 B . 2 C . 3 D . 4
最近更新