高中信息技术：

高中信息技术

用Word软件编辑某文档的部分界面如图所示。

对于图中所示部分的文档，下列说法正确的是（）

A . 修订标记处的原文是“计算机” B . 文档中有2处批注，1处修订 C . 接受所有修订后，文档修订处内容保留“计算机” D . 拒绝所有修订后，文档中修订处内容为“高中信息技术”

某同学设计了一个排序算法，先将数组a中奇数位置的元素、偶数位置的元素分别进行排序，然后再进行后续处理，直至所有元素按降序排列。算法的VB程序段如下：

′待排序数据已存储在数组a中（a(1)～a(n)）

For i = 1 To n - 2

k = i

For j = ′①

If a(j) > a(k) Then k = j

Next j

If k <> i Then t = a(i): a(i) = a(k): a(k) = t

Next i

For i = 1 To n \ 2

j = 2 * i - 1

If a(j) < a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t

Next i

For i = ′②

t = a(i): j = i - 1

Do While t > a(j)

a(j + 1) = a(j): j = j - 1

Loop

′③

Next i

上述程序段中 3 处方框处的代码分别为（）

A . ①i+1 To n Step 2 ②2 To n Step 2 ③a(j+1)=t B . ①i+2 To n Step 2 ②3 To n Step 2 ③a(j+1)=t C . ①i+2 To n Step 2 ②2 To n Step 2 ③a(j)=t D . ①i+1 To n Step 2 ②3 To n Step 2 ③a(j)=t

显示卡上的显示存储器是( )

A . 随机读写RAM且暂时存储要显示的内容 B . 只读ROM C . 将要显示的内容转换为显示器可以接受的信号 D . 字符发生器

互联网计算机在相互通信时必须遵循同一的规则称为( )

A . 安全规范 B . 路由算法 C . 网络协议 D . 软件规范

机器语言二进制的0、1代码指令构成，能被计算机直接识别。理解和记忆机器语言非常困难，并且容易出错，编程效率极低。

一张1600*1200像素16位色的bmp图像,把它另存为分辨率为800*600像素16色的bmp图像,其存储空间是原来的（）

A . 1/16倍 B . 1/8倍 C . 1/4倍 D . 4倍

信息必须利用文字、符号、声音、图像等作为载体传播。

酒店房间管理问题：某酒店房间（房间数小于1000）编号按1、2、3……连续编号，客房经理对没有入住的房间使用如下方法来登记管理。连续的空房间，登记第一个房间的编号和连续的空房间数，比如空房间1，2，6，7，8，10，则登记3条记录，分别为1_2，6_3，10_1。某旅客如果退房，需要把这个房间号也登记进去，共有4中情况需要处理：

⑴上靠：若退的房间号为3，则原来登记的记录变为1_3，6_3，10_1；

⑵下靠：若退的房间号为5，则原来登记的记录变为1_2，5_4，10_1；

⑶上下靠：若退的房间号为9，则原来登记的记录变为1_2，6_5；

⑷上下都不靠：若退的房间号为4，则原来登记的记录变为1_2，4_1，6_3，10_1

根据上述规则，小明编写了相应的VB程序，程序启动时读入空房间数据，并在列表框List1中显示，在文本框Text1中输入退房号，单击“退房”按钮后更新列表框List1中的数据。

程序界面如下图所示，请回答下列问题：

（1）当前登记的记录有3条，分别为2_3，6_2，9_4。某旅客退掉8号房间，则登记的记录将变为。
（2）实现上述功能的VB程序如下，请将划线处的代码补充完整。
Const n=1000

Dim a（0 To n）As Integer     ‘a(i)保存第i条记录的开始房间号

Dim b（0 To n）As Integer     ‘b(i)保存第i条记录的房间数

Dim c As Integer, k As Integer, sp As Integer      ‘k为原始记录数

Private Sub Form_Load()

‘程序启动时从数据库中读取原始k条记录，依次存入a（1），b（1），a（2），b（2），…，a（k），b（k），代码略

‘为了程序处理方便，虚设下面两条记录

A(0)=0: b(0)=0: sp=k+1: a(sp )=1000: b(sp)=0

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer

c=Val(Text1.Text)

i=1

Do While a(i)<c

i=i+1

Loop

i=i-1

‘以下处理退房登记问题

If a(i)+b(i)=c Then

If a(i+1)=c+1Then    ‘处理第3种情况

    ①

For j=i+1 To sp-1

a(j)=a(j+1):b(j)=b(j+1)

Next j

sp = sp-1

Else     ‘处理第1种情况

b(i)=b(i)+1

End If

ElseIf c+1=a(i+1)Then      ‘处理第2种情况

a(i+1)=c: b(i+1)=b(i+1)+1

Else     ‘处理第4种情况

For j=    ②

a(j)=a(j-1): b(j)=b(j-1)

Next j

a(i+1)=c: b(i+1)=1:    ③

End If

List1.Clear

For i=1 To sp-1

List1.Addltem"第" & CStr(i) & "条记录" & CStr(a(i)) & "_" & CStr(b(i))

‘CStr函数的作用是将数字转成字符串

Next i

End Sub

① ② ③

某购物平台推出了“amazon go”免排队超市，在超市中顾客拿了商品就可以走，无需排队，付钱系统会自动结算，下列操作没有涉及到人工智能技术的是（）

A . 利用摄像头识别了顾客拿了哪种商品，并添加到顾客的订单中 B . 利用“amazon go”应用程序产生二维码 C . 收集拍摄商品包装后在其它零售平台搜索同款商品并比对价格 D . 用语音的方式将商品需求交给“amazon go”，系统自动为你补货

使用Flash制作某多媒体作品，新建按钮元件时的部分编辑界面如图所示，其中“按下”帧与“弹起”帧相同。将此按钮应用到舞台上，测试该按钮，下列说法正确的是（）

图片_x0020_24

A . 在“点击”帧加上空白关键帧，按钮能正常响应 B . 当按钮“按下”时，按钮将消失 C . 此按钮无法响应鼠标的任何操作 D . “点击”帧中的内容是不显示的

已知 s='abcdefgh'，则 s[1:5:2]+s[-1:-7:-2]的值是（）

A . 'bdhfd' B . 'bdfhfdb' C . 'achfd' D . 'acehfdb'

在Internet中，搜索引擎其实也是一个（）。

A . 网站 B . 操作系统 C . 域名服务器 D . 硬件设备

小红收集了12个月水、电、燃气和电话费的数据，并使用Excel软件进行数据处理，如图a所示。请回答下列问题：

图a

（1）表格第1行中的标题“水、电、燃气和电话费的统计”可以在Al单元格中输入标题，合并区域后居中得到。
（2）表格中的费用（水费、电费、燃气费）是通过公式计算得到的（如：电费=用电量×电费单价）。这些费用的计算结果在用水量、用电量、用气量或单价更改时仍正确，则E3单元格中的公式是。
（3）根据图a所示的数据制作的图表如图b所示，下列描述正确的是_______（单选，填字母）。

图b

A . 该图表的数据区域为C15，E15，G15：I15 B . 若清除I15单元格中的内容，则该图表会发生变化 C . 将A2：I14区域的数据以“小计（元）”为关键字进行排序，该图表不发生变化
（4）将图a中A2：L14区域的数据复制到新工作表对应区域并进行筛选，设置筛选条件如图c所示，则按此设置筛选出的月份共有个。

图c

下列关于超文本传输协议描述正确的是（）

①描述网页中的文本、图像、超级链接等元素及构件网页

②将浏览器发出的请求发送到Web服务器

③将服务器回应的网页传回到发出请求的浏览器

④将不同地点的WWW网站链接起来

⑤超文本传输协议即HTTP(Hyper Text Transfer Protocol)

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

采集到的音频信号是无法直接存放在计算机中进行处理的，我们必须先将声音的数据转换为数据，这一过程我们往往称为声音的数字化。（）

A . 数字模拟 B . 音频数字 C . 模拟数字 D . 模拟音频

某字符（限ASCII字符）加密算法，对明文中的每个字符进行下列加密处理：

⑴将该字符的ASCII码转换成对应的2位十六进制数；

⑵将产生的十六进制数互换位置；

⑶步骤⑵产生的二位十六进制数即为该明文字符加密后的密文字符。

小明按照上述方法，设计了一个字符串加密的VB程序，功能如下：单击“生成密文”按钮 Command1，程序依次将文本框Text1中每个字符按上述规则进行加密处理，连接这些加密字符，最后在文本框Text2中输出加密结果。程序运行界面如图所示。

实现上述功能的VB程序如下：

（1）按照上述加密算法，明文“B”生成的密文是。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private sub Command2_Click()

Dim s As String, a As String, ans As String

Dim c As Integer, i As Integer

Dim s1 As String

s= Text1. Text

ans=" "

For i=1 To Len(s)

a=Mid(s, i, 1)

s1=

ans=

Next i

Text2. Text=ans

End Sub

Function DToh(x As Integer)As String

Dim str As string

str="0123456789ABCDEF"

Do While x < > 0

t=x Mod 16

x=x\16

Loop

End Function

用VB编写“检查句子格式”的程序，实现如下功能：在文本框Text1中输入要检查的英文句子，单击“检查”按钮Command1. 判断句子“. ”和“？”后的字母是否是大写，如果是小写字母，那么将其转换为大写字母，并在文本框Text2中输出。程序运行界面如图所示。

（1）要使程序运行时，文本框Text1的Height属性值为900，可在Form_Load事件处理过程中添加语句（单选，填字母：A . Height=900/B . Text1. Height=900/C . Height. Text1=900）。
（2）实现上述功能的VB程序如下，请在画线处填入合适的代码。
Private Sub Command1_Click ()

Dim s As String, ch As String, flag As Boolean

Dim ch2 As String, res As String, i As Integer

s=Text.Text：res=“”

   ①

Do While＜= Len (s)

    flag= False

    ch= Mid (s, i, 1)

    If i= 1 And ch＞=“a”And ch2＜=“z”Then

      ch= Chr (Asc(ch)-32)′小写字母转换为大写字母

    End If

    If ch=“.” Or ch=“？” Then flag=True

      ch2= Mid（s，i+1. 1）

    If flag And ch2＞=“a”And ch2＜=“Z”Then

      ch2= Chr (Asc(ch2)-32)′小写字母转换为大写字母

      res=   ②

      i=i+2

    Else

      i=i+1

      res=res+ch

    End If

Loop

Text2. Text=res

End Sub

① ②
（3）若在文本框Text1中输入句子：“you are best.”，第1个单词前有空格，则经过上述程序处理后，输出结果首字母“y”是否会变为大写“Y”？（选填：是/否）。

现在喜欢网上购物的人越来越多，随之涌现出了越来越多的电子商务网站，下列选项中不属于电子商务网站的是( )

A . 腾讯网www.qq.com B . 当当网www.dangdang.com C . 京东商城www.360buy.com D . 苏宁易购www.suning.com

【加试题】小李编写一个统计学生选考科目的VB程序，算法的基本思想是：检查每位学生选课组合的编码是否有效，对有效选择结果进行科目统计，根据各科次占有效人数的百分率求出各科排名。程序运行时，单击“显示”按钮Commmad1，学生选课数据显示在列表框list1中，各科编号及对应科目名称显示列表框list2中，单击“统计”按钮Commmad2，选课结果按各科百分率由高到低显示在列表框list3中，程序运行结果如图所示。

_x0000_i1043

实现上述功能的VB程序如下,请回答下列问题:

（1）学生选课的编码数据存储在数据表中，其字段名为。
（2）请在划线处填入合适的代码。
Dim ach(1 To 500) As String     '存储各学生选课编码
Dim bno(1 To 10) As Integer     '存储各科目编号
Dim bname(1 To 10) As String    '存储各科目名称
Dim bnum(1 To 10) As Integer    '存储各科目被选次数
Dim bmc(1 To 10) As Integer     '存储各科目被选的名次
Dim n As Integer, num As Integer
Private Sub Command1_Click()
Dim i As Integer, km As String
km = "物理化学生物政治历史地理技术"
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset, sql As String
cn.Open "provider=Microsoft.Jet.oledb.4.0;Data Source=" + App.Path + "\students.mdb"
rs.Open "select * from choose", cn
Do While Not rs.EOF
n = n + 1 : ach(n) = rs.Fields("subject") : rs.MoveNext
Loop
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
For i = 1 To 7
bno(i) = i
bname(i) = Mid(km, (i - 1) * 2 + 1, 2)
   List2.AddItem Str(bno(i)) + "---" + bname(i)
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, k As Integer
Dim c As String, per As Integer
For i = 1 To n
If check(ach(i)) = True Then
For j = 1 To 3
c = Mid(ach(i), j, 1)
bnum(Val(c)) =
Next j
num = num + 1
End If
Next i
i = 1
Do While i <= 7'该循环得到各学科被选人数的名次
bmc(i) = 1
For j = 1 To 7
If bnum(j) >bnum(i) Then
Next j
i = i + 1
Loop
For i = 1 To 7
For j = 1 To 7
If        Then
per = Int(bnum(j) * 100 / num * 100) / 100
List3.AddItem Str(bno(j)) + "---" + bname(j) + "---" + Str(per) + "%"
End If
Next j
Next i
End Sub
Function check(s As String) As Boolean
   '代码略! 若学生选科代码有效,函数返回True,否则返回False
End Function

万维网之父是（）。

A . 彼得·德鲁克 B . 舍恩伯格 C . 蒂姆·伯纳斯－李 D . 斯科特·布朗

高中信息技术：

高中 信息技术

高中信息技术