高中信息技术：

高中信息技术

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

对于图中的批注，下列说法正确的是( )

A . 共有3处批注 B . 有2个用户添加了批注 C . 用户cm添加批注的内容为“雨巷” D . 用户wq添加批注的对象是“用得好”

某同学使用GoldWave软件编辑音频文件，其操作界面如图所示:

下列说法不正确的是（）

A . 若保留选中部分的音频数据，可以使用“删除”按钮 B . 当前选中音频第30秒到第50秒共20秒音频数据 C . 这是一个立体声、采用MPEG Layer-3压缩的音频文件 D . 若要选中前30秒的音频可以使用“设标”工具

购买的品牌计算机，预装的操作系统肯定是正版的。

在下列选项中，最符合HTTP代表的含义的是（）

A . 超文本传输协议 B . 域名 C . 高级程序设计语言 D . 网址

在Excel中，如图所示，要在A3单元格中显示“武汉加油”，在A3单元格中进行下列输入，能实现的是（）

图片_x0020_100001

A . =“A1”&“A2” B . =武汉&加油 C . A1&A2 D . =“武汉”&“加油”

使用Format命令将C盘格式化成系统盘时，要加上下列那个参数（）。

A . /S B . /Q C . /U D . /F

有如下程序：

a = input（'输入小写字母组成的字符：'）

for i in a：

n = ord（i）+1 #（字符a的ASCII码为97）

h = ''

for j in range（8）:

h = str（abs（n%2- 1））+h

n = n//2

print（h, end=' '）

若输入小写字母“ab ”得到的结果是（）

A . 0011101 0011100 B . 1100010 0011100 C . 10011101 10011100 D . 00011101 00011100

一名商人在A地采购了n吨大米（n<=150），需要船只运送到B地。现在码头上停靠着10艘船，载重量在15到30吨之间且均不相同，同时运费单价（单位：元/吨）也存在差异。为了找出运费总数最少的方案，该商人先将10艘船的运费单价从小到大排序，若船只运费单价相同，则按船只载重量大到小排序。上述步骤完成后，将n吨大米依次装入排好序的船只中，若最后一只船装不满，则按实际装运大米的重量付运费。程序运行界面如16题图所示：单击“排序”按钮后，船只信息按照要求排序并在列表框List1中输出；在文本框Text1中输入大米总数n吨，单击“计算”按钮，将在列表框List2中列出所选船只编号，并在文本框Text2中显示运费总数。

（1）若图中7号船的载重量由“28”改为“22”，现有60吨大米需要运送，则该商人应选择的船只编号为（若有多个编号，用“，”隔开）
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Dim yf(1 To 10) As Integer, v(1 To 10) As Integer, b(1 To 10) As Integer

Private Sub Command1_Click()

    Dim n As Integer, i As Integer, j As Integer, t As Integer

    List1.AddItem "船只编号" + " " + "载重量" + " " + "运费单价" List2.AddItem "船只编号"

    For i = 1 To 10     '对船只进行编号

        b(i) = i

    Next i

    '随机生成10艘船的运费单价，数值在100到200之间，代码略

    For i = 1 To 10    '随机生成10艘船载重量，载重量均不相同

        v(i) = 15 + Int(Rnd() * 16)

        For j = 1 To i - 1

            If v(i) = v(j) Then : Exit For

        Next j

    Next i

    For i = 1 To 9

        For j = 10 To i + 1 Step -1

            If Then

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

            End If

        Next j

    Next i

    '在list1中输出10艘船的编号、载重量、运费单价，代码略

End Sub

Private Sub Command2_Click()

    Dim n As Integer, k As Integer

    Dim sum As Long

    n = Val(Text1.Text): sum = 0 k = 1

    Do While n > 0

        If n >= v(b(k)) Then



        Else

            sum = sum + n * yf(b(k))

        End If

        List2.AddItem Str(b(k)) n = n - v(b(k))

        k = k + 1

    Loop

    Text2.Text = Str(sum)

End Sub

已知三角形的三边长，求三角形的面积。解决此问题的算法的步骤如下所示：

①确定面积的计算公式并用数学符号描述；

②设计算法，并通过编写计算机程序描述实现；

③提炼核心要素并加以假设（假设三角形的三条边长度分别为a、b、c）；

上述步骤的正确顺序是（）

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

计算机的基本功能是（）

A . 编程 B . 存储 C . 计算 D . 多媒体

用一排6盏灯的亮与不亮来表示数字，如图分别表示了数1、2、3、4、5，则表示的数是（）

A . 23 B . 24 C . 25 D . 26

某对分查找算法的VB程序段如下：

k=Val(Text1.Text)

i=1: j=6: Label1.Caption="": f=False

Do While i <=j And Not f

m=(i+j) \ 2

If a(m)=k Then f=True

If a(m) > a(i) Then

If a(i) <=k And k < a(m) Then j=m-1 Else i=i+1

Else

If a(m) < k And k <=a(j) Then i=i+1 Else j=j-1

End If

Label1.Caption=Label1.Caption+Str(a(m))

Loop

数组元素a(1)到a(6)的值依次为“58，66，72，24，35，40”，在文本框Text1中输入的值为35，执行该程序段，标签Label1中显示的值是（）

A . 72 35 B . 24 35 C . 72 24 35 D . 72 24 24 35

小杜编写了一个会议签到统计的VB程序。假设人员名单中没有重名，运行界面如图所示，列表框1显示会议应到人员名单，列表框2显示会议实际出席人员名单，单击“统计”按钮Command1，列表框3示缺席人员名单。实现上述功能的VB程序如下：

请将划线处的代码补充完整。

Dim b (1 To n) As String '存储会议实际到的人员名单

Dim flag (1 To n) As Boolean, m As Integer

Private Sub Form_Load()

'将n个应到人员姓名依次存储在数组a中，将m个实际参加会议人员姓名依次存储在数组b中

'在列表柱1显示应到人员姓名，在列表框2显示实到人员姓名，该过程代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer

For i=1 To n

flag(i)=False

Next i

i=1

Do While i<=m

For j=1 To n

If ① Then

flag(j)=True

Exit For '退出for循环

End If

Next j

i=i+1

Loop

For i=1 To n

If ② Then List3. AddItem a(i)

Next i

End Sub

① ②

浏览网页使用的软件叫做（）。

A . 浏览器 B . 网站 C . 电子邮箱 D . WinZip

如果电子邮件到达时,你的电脑没有开机,那么电子邮件将会( )

A . 退回给发信人 B . 保存在服务器商的邮件服务器上 C . 过一会对方重新发送 D . 永远不再发送

小明想在网上购买一件昂贵的数码相机，不恰当的做法有（）

A . 先让对方寄货，收到货后不再汇款 B . 独自一人带现金到对方指定地点取货 C . 先将部分款汇到对方指定的帐户上，收到货后再汇去余下的款 D . 先将款汇到经国家有关部门认证的、信誉良好的中介机构，收到货后再通知中介机构把款汇给对方

小王基于选择排序算法编写了一个VB程序，功能如下：在文本框Text1中显示排序前的数据，单击“排序”按钮，在文本框Text2中显示剔除重复数据后的升序排序结果。程序运行界面如图所示。

实现上述功能的VB代码如下，请回答下列问题：

Const n= 10

Dim a(1 To n) As Integer

Private Sub Form_ load( )

'数组初始化，生成1~20之间的随机整数并赋值给数组a，代码略

End Sub

Private Sub Cmd1_Click()

Dim i As Integer, j As Integer, t As Integer

Dim bottom As Integer

bottom= n

For i=1 To bottom-1

For j= bottom To i+1 Step -1

If Then '①改错

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

ElselIf a(j)=a(i) Then

'②填空

bottom= bottom- 1

End If

Next j

Next i

Text2. Text=" "

For i=1 To bottom

Text2. Text= Text2. Text+Str(a(i))

Next i

End Sub

（1）程序窗体中“排序”按钮的对象名是。
（2）程序代码中，加框处①有错，请改正；
（3）为实现上述功能，请在加框处②填入合适的代码：
（4）要想生成范围是1~20的随机整数，VB表达式是。

下列措施不能提高手机安全的是（）

A . 设置开机密码 B . 短信的链接不要点 C . 不随意安装软件 D . 经常恢复出厂设置

使用 Word 软件编辑某文档，部分界面如图所示。下列说法正确的是（）

图片_x0020_100001

A . 文档中图片的环绕方式是“嵌入型” B . 全文共有3处修订 C . 若给文中第一行“新冠肺炎”添加批注，则“批注[j1]：沙特国王萨勒曼主持”变为“批注[j2]：沙特国王萨勒曼主持” D . 输入“肺炎”时自动更正为“新冠肺炎”，这体现了人工智能技术的应用

下面图中的设备属于输入设备的是（）

A . ①⑥⑦ B . ②③④⑤⑧ C . ①③⑦⑧ D . ①②③④⑦

高中信息技术：

高中 信息技术

高中信息技术