高中信息技术：

高中信息技术

数码录音笔通常有SP、LP等录音模式，（）模式下，压缩率高，音质会有一定下降，但录音时间长。

A . SP B . LP C . HP D . CP

小明分别向4位同学发电子邮件操作时，分别填入了4位同学的不同的E-mail地址．最后能正确发出电子邮件的是（）

A . zhaoling#163.com B . wangling.21cn.Com C . lining$126.com D . liugang&163.com

的作用是柔化图像边缘使之融合到背景中。

（）是社会意识的总和，是在一定条件下调整人与人之间以及人与社会之间关系的行为规范的总和，它通过各种形式的教育及社会力量，使人们逐渐形成一个良好的信念和习惯。

A . 思想 B . 服务 C . 道德 D . 职业道德

2021年7月19-20日，河南郑州经历了百年罕见的特大暴雨，城市受灾严重，一段众人合力破窗救出一位外婆和外孙、外孙女的视频惊心动魄，原来60多岁外婆在开车接外孙和外孙女放学途中，遭遇车辆被大水围困。外婆立即给较远位置的女儿打电话求助，报出她附近店铺的名字：一家便利店、一家酒店和一家面馆。女儿第一反应是报警，但当时所有报警电话都占线，于是女儿通过外卖平台和点评软件搜索便利店、面馆、酒店的名字，确认外婆的位置，并查询到这些店铺的联系电话，三家店铺均打通电话，但便利店老板在较远位置求援，店内无人；面馆只有一人，立即赶去现场；酒店有数人也赶去救援。与此同时，无法赶赴现场的女儿在安全知识平台查询呛水、溺水抢救措施，以备急用。大家想尽办法，利用有限的工具，最终在大水即将漫过车顶时救出被困三人至安全处。众人喜极而泣，对女儿冷静、睿智地正确“远程求救”纷纷表示赞赏。

请阅读以上材料，分析女儿危急关头处理事件的方法和流程，完成下列各题。

（1）分析女儿求助流程图，①②③处的流程分别是。
A .平台查询店铺电话及救援位置

B .报警成功

C .联系到多人救援

D .拨打便利店电话
（2）整个救援过程是通过B方向实施的，其中只用到了分支结构。
（3）材料中外婆通过观察附近店铺名称并报给女儿，这属于信息的；女儿通过这些店铺名称迅速作出后续各种营救措施，这属于信息的；最后众人对“远程求救”的赞赏属于信息的。
A.存储 B.采集 C. 处理 D.输出 E.输入 F.评价
（4）女儿求救过程中用到的外卖平台和点评软件系统属于，查询呛水、溺水抢救措施的平台属于。
A.决策支持系统

B.专家系统

C.事务处理系统

D.随机系统
（5）经过对上述材料的“远程求助”事件的分析，你认为生活中利用信息系统解决问题的说法正确的是（）

A . 如今的网络社会，信息系统使用普遍，它需要有人、硬件、网络就够了。 B . 人们使用信息系统主要用来输入、处理、存储信息。 C . 信息系统是由人来控制，通过硬件、软件、网络形成的人机交互系统。 D . 信息系统已经是信息社会的重要元素，支持组织者灵活、合理使用并决策，从而解决问题。

对一台计算机来说，（）的档次就基本上决定了整个计算机的档次。

A . 内存 B . 主机 C . 硬盘 D . CPU

编写VB程序，实现如下功能:在文本框Textl和Text2中分别输入一个整数，单击命令按钮Command1,在列表框List1中显示结果，运行效果如图1所示。结果包含两列数据，第1列为两数之间的摄氏温度值（间隔1度、升序），第2列为对应的华氏温度值。

（1）要使命令按钮Command1上显示的文本改为“转换”，可在其属性窗口（图2）中将属性的属性值修改为“转换”。
（2）为实现上述功能，请在划线处填入合适代码或选项。
Private Sub Command1_Click()
Dim t1 As Integer, t2 As Integer
Dim i As Integer, t As Integer
Dim f As Single
List1.Clear
t1 = Val(Text1.Text)
t2 = Val(Text2.Text)
If ① Then '(选填字母,从下列A、B、C、D四个选项中选取一项）
t = t1: t1 = t2: t2 = t
End If
i = t1
Do While ②  '(选填字母,从下列A、B、C、D四个选项中选取一项）
f = i * 9 / 5 + 32    '摄氏温度转换为华氏温度
List1.AddItem Str(i) + "          " + Str(f)
③  '（填程序代码）
Loop
End Sub
划线①、②处的选项: A. i <= t2    B.f <= t2    C.t1 > t2    D. i < f

亲戚寻找。小李总是因为认不清亲戚而苦恼，于是他设计了如下程序来模拟亲戚寻找的过程。已知：如果1和2是亲戚，1和3是亲戚，则2和3也是亲戚。代码思维如下：

1)将每个人看成是一个钩码，能挂在另一个挂钩底下，自己底下也能挂其他挂钩。

2)如果两个钩码在同一条钩码串上，则为亲戚（如2、3都能找到1）。

3)如果两个是亲戚但不在一串钩码上，则可将其中一串的最上面的钩码挂在另一串的下方。

图片_x0020_100016 图片_x0020_100017

例如从图a加框处的前三行数据可得到图b所示的钩码串1和钩码串2，从第四行数据可知9、5也为亲戚，则可将两串钩码合并，合并后3为2的顶端，5为3的顶端，其余数据以此类推。

根据算法思想，编写VB程序功能如下：程序初始化时给出6条亲戚关系显示在List1中，单击“理关系”按钮，在List2中显示每个人所在钩码的顶端编号。在Text1和Text2中分别输入两人的编号，单击“询问”按钮，输出两个人是否为亲戚关系。程序运行界面如图a所示。

（1）根据图a数据，若输入两人的编号为4和5，则两人的关系是否为亲戚(填：是/否)。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Const n = 9     ‘总人数

Const m = 6     ‘已知的亲戚关系数

Dim a(1 To n) As String , b(1 To n) As String

Dim f(1 To n) As String    ‘记录不同的亲戚钩码串成员，每条亲戚钩码串内互为亲戚

Dim k As Integer           ‘亲戚钩码串的数目

Private Sub Form_Load()

‘初始化List1和List2，生成m条亲戚关系，每条亲戚关系的编号对应存储在数组a(i)和b(i) '中，在List1中输出a(i)和b(i)，代码略

End Sub

Private Sub Command1_Click()

    Dim i As Integer, x As Integer, y As Integer

    f(1) = a(1) + b(1)     ‘利用a(1)、b(1)生成第一条钩码串存储在f(1)中

    k = 1                  ‘k为钩码串编号

    For i = 2 To m

        x = root(a(i), 0): y = root(b(i), 0) ‘x为调用函数获取a(i)所在的钩码串编号

        If x = 0 And y = 0 Then k = k + 1:  ‘根据x与y分类讨论

        If x <> 0 And y = 0 Then f(x) = f(x) + b(i)

        If x = 0 And y <> 0 Then f(y) = f(y) + a(i)

        If x <> y And x <> 0 And y <> 0 Then   ‘x、y在不同钩码串则将两条钩码串合并

            f(x) = f(x) + f(y): f(y) = f(k): k = k - 1

        End If

    Next i

    For i = 1 To n         ‘输出每个人所在钩码的顶端编号

        x = root(CStr(i), 0): y = root(CStr(i), 1) ‘Cstr()函数用于去除字符前导空格

        If x <> 0 Then

            If y = Len(f(x)) Then List2.AddItem Str(i) + " " + CStr(i)

            If y <> Len(f(x)) Then List2.AddItem Str(i) + " " +

        End If

    Next i

End Sub

'按钮Command2的功能为判断输入的两个人是否为亲戚关系，代码略

Function root(a As String, b As Integer) As Integer ‘参数a表示待查找目标，参数b

‘表示返回值类型，0表示返回目标所在钩码串编号，1表示返回目标在该钩码串中的位置

Dim m As Integer, n As Integer, i As Integer, j As Integer

m = 0: n = 0: i = k: j = 0

    Do While i > 0

        If a = Mid(f(i), Len(f(i)) - j, 1) Then m = i: n = Len(f(i)) - j: Exit Do

        j = j + 1

        If j = Len(f(i)) Then i = i - 1: j = 0

    Loop

    If Then root = m Else root = n

End Function

某次成绩信息的统计如图a所示，请回答下列问题：

（1） “排名”列中的数据由H4单元格中的RAN函数自动填充得出，但是由图a可知结果是错误的，请写出改正后的公式：。
（2）若要对“数学”“英语”进行筛选，则正确的筛选区域有（①D3：E3②D3：E23③D4：E23）。
（3）由图b可知，生成该图表的数据区域是，该图表的系列产生在（行/列）。
（4）现对男女生分别根据数学成绩进行排序，则所选的主要关键字为，次要关键字为。

使用IE浏览网站时，网址应输入在（）

A . 状态栏 B . 工具栏 C . 地址栏 D . 标题栏

某市政府门户网站建立了民意征集栏目，通过市长信箱、投诉举报、在线访谈、草案意见征集、热点调查、政风行风热线等多个子栏目，针对政策、法规和活动等事宜开展民意征集，接收群众的咨询、意见建议和举报投诉，并及时对相关问题进行答复，此项功能主要体现电子政务服务的特性是（）。

A . 政府信息公开 B . 公益便民 C . 交流互动 D . 在线办事

下列（）键不属于双态键

A . Caps Lock B . Num Lock C . Del D . Ins

一个N进制数若能被N整除，那么这个N进制数右起：（）

A . 第一位必定是N B . 第一位必定是0 C . 第N位必定是1 D . 第N位必定是N

在VB应用程序设计中，如果想让Timer控件每秒钟响应一次，应该将其Interval属性设置为（）

A . 1 B . 60 C . 100 D . 1000

若用"附件"中的"记事本"应用程序编写一个简单的网页，在“记事本”中输入下列哪一段代码是正确的（）

A . <body>欢迎进入</body> B . html Head title 欢迎光临 title head body 欢迎进入 body Html C . <html> <head> <title>欢迎光临<title> <head> <table>欢迎进入<table> <html> D . <html> <head> <title>欢迎光临</title> </head> <body>欢迎进入</body> </html>

下列VB程序段的功能为：在字符串s中找出最长连续上升子串，显示在文本框Text2中，例如：s的值为“ACFBCCDEGKKMNPQ”时，运行程序段后，在Text2中显示子串“CDEGK”。

s = Text1. text

i=1: max1=1: maxi=i

j=2

Do While j <= Len(s)

If Then

If j-i> max1 Then max1 =j-i: maxi = i

End If

Loop

If j- i> max1 Then max1=j-i: maxi= i

If max1>1 Then Text2. Text = Mid(s, maxi, max1)

上述程序段中方框处可选语句为（）

①j=j+1

②i = j

③Mid(s, j, 1)>= Mid(s, j - 1, 1)

④Mid(s, j, 1) <= Mid(s, j - 1, 1)

则（1）、（2）、（3）处语句依次为

A . ④①② B . ④②① C . ③②① D . ③①②

在编制计算机程序过程中，设计算法的作用是（）

A . 提出问题 B . 分析问题 C . 提出解决问题的方法和步骤 D . 检查程序

汉字“练”的内码用二进制表示1100000110110111，若用十六进制表示，正确的是（）

A . C1B7 B . 131127 C . 121127 D . D1C7

十进制数45D对应的数全对的是（）

A . 101011B 2BH B . 101101B 2DH C . 101011B 2DH D . 101101B 2BH

【加试题】对于函数f(x)，若在某区间[a，b）内是单调函数，且其图像与x轴有交点，则存在一个x1使得f(x1)＝0，我们可以设法找到x1的值。满足上述条件的区间[a，b）和函数f(x)必定有f(a)·f(b)<＝0，我们设计如下算法：

第一步：区间中点m＝ $\text{[math]}$ 。

第二步：若f(a)·f(m)<0，则含零点的区间为[a，m]；否则，含零点的区间为[m，b），将新得到的含零点的区间仍记为[a，b]。

第三步：判断[a，b）的长度是否小于一个足够小的值d。若是，则m是方程的近似解；否则，返回第一步。

于是我们设计函数f(x)＝x²－c，用此算法求出任意非负常数c的非负平方根。程序运行效果如下图所示，程序中还输出了区间的左右端点和区间长度值。

实现上述功能的VB代码如下，但加框处代码有错，请改正。

Const min As Single = 0.00005

Dim c As Single

Function fn（x As Single）As single

fn = x*x - c

End Function

Private Sub Command1_Click() '按钮上的程序

Dim a , b , m As Single

c = Val(Text1.Text)

a = 0 : b = c

Do While b-a > min

‘(1)

List1.AddItem Str(a)&" "&Str(b)&" "&Str(b－a)

If Then ‘(2)

b = m

Else

a = m

End If

Loop

Label2.Caption = Str（m）

End Sub

以上程序段运行时，为了实现上述功能，加框处代码应改正为：

⑴；⑵。

高中信息技术：

高中 信息技术

高中信息技术