高中信息技术：

高中信息技术

某同学在浏览器地址栏输入“www.sina.com.cn”并回车确定后，发现地址栏内容变成了“//www.sina.com.cn”，这是因为（）

A . //是必须有的,删去会报错 B . 输入法自动修订功能 C . http是当前浏览器与WEB服务器之间信息交互的默认协议 D . 因为新浪网址中有“//”

编写“素数查找”程序，实现如下功能：单击“生成”按钮，随机生成50个150至200（包括150和200）之间的正整数，显示在下方，每行显示10个，共5行。单击“筛选”按钮，从上面50个数中筛选出是素数的数，重复的只显示一次。程序运行界面如图所示。

请根据算法将下列程序补充完整。

Private Sub Command1_Click()

Label3.Caption = ""

For i = 1 To 50

a(i) =

If i Mod 10 = 0 Then

Label3.Caption = Label3.Caption + CStr(a(i)) + vbCrLf '换行

Else

Label3.Caption = Label3.Caption + CStr(a(i)) + " "

End If

Next i

End Sub

Private Sub Command2_Click()

Label4.Caption = ""

n = 0

For i = 1 To 50

For k = 2 To a(i) - 1

If Then Exit For

Next k

If k = a(i) Then

n = n + 1

If n = 1 Then b(n) = a(i)

For j = 1 To n - 1

If b(j) = a(i) Then: Exit For

If j = n - 1 Then b(n) = a(i)

Next j

End If

Next i

For j = 1 To n

Label4.Caption = Label4.Caption + + " "

Next j

下列网络中的位置，最适合用来建立防火墙的是（）

A . 内部网络与外部网络的连接点 B . 每个子网的内部 C . 每个子网之间的交叉点 D . 网络内部传送信息的中心

如图所示的网络拓扑图中，Internet上的域名为YourCompany3.com的服务器安装的系统软件是（）

A . Windows 2000 B . windows NT C . Unix D . Linux

小明搜集了2016年至2020年各省（市）生产总值数据，使用Excel软件进行记录与处理，具体数据如图a所示：

图a

请回答下列问题：

（1）小明对收集的数据先进行了整理，以下关于数据整理说法错误的是（单选，填字母）

A . 对于缺失的数据，最简单的处理方法是采用随机数来填充缺失值 B . 对于重复数据，可以在进一步审核的基础上进行合并或删除等处理 C . 逻辑错误的数据是指数据集中的属性值与实际值不符，或违背业务规则或逻辑
（2）为计算图a中的“相对2016年的增长率（%）”，小明已经正确计算了单元格G4中的数据。他希望将单元格G4中公式向下自动填充至单元格G34，再将区域G4:G34中的公式向右自动填充至J列，从而正确计算出区域G4:J34中的数据，则单元格G4中公式应修改为。
（3）利用图a数据制作的图表如图b所示，下列说法正确的是（多选，填字母，全部选对的得2分，选对但不全的得1分，不选或有选错的得0分）

图b

A . 制作该图表的数据区域为A2:A5,A12,F2:F5,F12 B . 图表创建后可以更改图表的类型 C . 图表的柱形上方显示的具体数值，是通过设置图例实现的 D . 若修改F4单元格的数据，则图表中北京市对应柱形高度不会发生变化

绘制表格时，应在“表格工具布局”选项卡下选择对应的“笔样式”、“笔画粗细”等按钮。

宋雨将创作图甲和图乙，图甲更注重表现图像的色彩和层次，图乙希望图像放大后仍然很清晰。图甲和图乙应该分别是（）

A . 位图、位图 B . 矢量图、位图 C . 矢量图、矢量图 D . 位图、矢量图

有如下 VB 程序段：

s = Text1.Text

If Mid(s, 1, 1) = "(" Then flag = True Else flag = False

cnt = 0: sum = 0

For i = 2 To Len(s)

c = Mid(s, i, 1)

If flag = True Then

If c >= "a" And c <= "z" Then

sum = sum + 1

Else

If sum <> 0 Then cnt = cnt + 1: sum = 0

End If

If c = "(" Then flag = True

If c = ")" Then flag = False

Next i

文本框Text1的内容为一串只包含小写字母、左右括号和空格的字符串“(we can) do (better) we (should (be )better)”，执行程序段后，变量cnt的值为（）

A . 3 B . 4 C . 5 D . 6

下列关于知识产权的描述，错误的是( )

A . 正版电子书籍软件光盘应付费购买 B . 如需要在自己的作品中引用他人的作品，应注明引用信息的来源作者 C . 可以任意复制他人信息作品的内窖 D . 在网络上，对于作者声明版权的作品，引用时必须加以说明

如图所示，如果将单元格D3中的公式复制到单元格D4~D7，则改变单元格C7的值，数据会产生相应变化的单元格是（）

A . D4 B . D5 C . D6 D . D7

下列不可以将变量x和y的值互换的语句（）

A . z=x;x=y;y=z B . x,y=y,x C . x=y;y=x D . A,B,C都可以互换

已知单调函数f（x）在[0，1]区间存在一个xo，使f（x₀）=0。现在用对分查找法搜索x₀的值，开始时搜索区间为[0，1]，若经过10次对分查找后还需要继续搜索，则第11次搜索区间的长度为（）

A . 1/2 B . 1/10 C . 1/10² D . 1/2¹⁰

使用 GoldWave 软件编辑某音频文件的操作界面如图所示。下列说法正确的是（）

A . 若执行“删除”命令，右声道的第20秒至30秒会产生10秒的静音 B . 若先执行“删除”命令，然后再插入10秒静音，音频文件的时长保持不变 C . 若执行“淡出”命令后直接保存，音频文件存储容量与原来一样 D . 若执行“更改音量”命令，将音量升高两倍后直接保存，音频文件存储容量是原来的两倍

在Excel中可以使用公式进行计算，若在F2单元格中输入下列哪个公式后，按Enter键，系统会给出错误信息？(注：被引用的单元格中均为数值型数据)（）

A . =B2+C2+D2+E2+22 B . =B2+C2+(D2+E2) C . =B2+C2+D2+E2+F2 D . =B2+(C2-D2)+E2

查找最大的ASCII码字符。随机生成n（n>=40）个可见ASCII码的字符串（可见字符ASCII码的范围是33~126），并显示在文本框Text1中。单击“查找”按钮运行程序，在标签Label1中输出该字符串中最大的ASCII码值及对应的字符。程序界面如图所示，VB代码如下。请回答下列问题：

（1）要使程序运行时，窗体Form1标题显示“查找ASCII最大的字符”，则需在Form_Load事件过程中添加语句（单选，填字母：A .Form1.Text="查找ASCII最大的字符" / B .Form1.Caption=
"查找ASCII最大的字符"/ C .Form1.AddItem "查找ASCII最大的字符"）
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Const n = 40

Private Sub Command1_Click()

Dim s As String, ch As String

Dim i As Integer, max As Integer

s = Text1.Text

max = 0

For i = 1 To Len(s)

      ch =

      If Asc(ch) > max Then max = Asc(ch)

Next i

Label1.Caption = "最大ASCII码:" + + " 该字符为:" + Chr(max)

End Sub

Private Sub Form_Load()   ’随机生成可见字符并显示在文本框Text1中

Randomize

For i = 1 To n

    Text1.Text = Text1.Text +

Next i

End Sub

一段时长为10秒、1024×800像素、24位真彩色、NTSC制式（30帧/秒）的未经压缩AVI格式无声视频，其文件存储容量约为（）

A . 23MB B . 70 MB C . 703 MB D . 5625 MB

下列各项属于网络操作系统的是（）

A . CuteFTP B . Linux C . Outlook Express D . DOS 6.0

一段时长为20秒、1024×800像素、PAL制式(25帧/秒)的未经压缩AVI格式无声视频，容量为1560MB，则该视频的颜色模式是（）

A . 16位色 B . 24位色 C . 32位色 D . 256级灰度

单词的删除与插入。给定一个长度不超过100位的字符串s，显示在Text1中，先对字符串进行删除单词操作，再对其进行插入单词操作，两种操作方式具体如下：

1）操作1（单词的删除）：在Text2中输入一个单词s1，在字符串s中找到左边第一个出现的相同单词（区分大小写），将其删除,并在Label1中显示删除单词的位置pos；若s中不存在单词s1，则字符串s不变。

例如：s=“Go with your your passion．”s1=“your” 点击“删除”按钮后，s=“Go with your passion．”pos=“9”若s1=“Your”,则s不变。

2）操作2（单词的插入）：在Text3中输入一个单词s2，并在Text4中输入插入位置w，将s2插入到经过删除操作的s中以w开始的位置。

例如：s=“Go with your passion．”s2=“absolutely” w=21

点击“插入”按钮后，s=“Go with your passion absolutely．”

程序运行界面如下图所示。

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

（1）观察程序运行界面和代码，该界面中共有类对象（填数字）。
（2）标题若要修改为“单词的先删除后插入操作”，需修改窗体的属性。
（3）请在划线处填入合适的代码。
Dim s As String

Private Sub Command1_Click( )     '实现删除单词命令

Dim s1 As String, t As String, i As Integer, pos As String, result As String Dim begin As Integer, word As String

s = Text1．Text s1 = Text2．Text begin = 1

For i = 1 To Len(s)

    t =

    If Not (t >= "a" And t <= "z" Or t >= "A" And t <= "Z") Then

        If i > begin Then

            word =

            If word = s1 Then    ‘找到与s1相等的单词，则将该单词删除

                s = Mid(s, 1, begin - 1) + Mid(s, i+1, Len(s) - i)

                pos =

                Exit For

            End If

        End If

        begin = i + 1

    End If

Next i

Text5|.Text = s

Label1.Caption = pos End Sub

Private Sub Command2_Click()      '实现插入单词命令

    Dim w As Integer, result As String, s2 As String s2 = Text3.Text



    result = + " " + s2 + " " + Mid(s, w, Len(s) - w + 1) Text5．Text = result

End Sub

查询人员信息时，若对所有记录按“年龄”列降序排列，对应的子句为（）

A . SORT'龄'DESC B . ORDER BY 年龄 DESC C . ORDER BY 年龄 D . SORT BY'年龄'DESC

高中信息技术：

高中 信息技术

高中信息技术