高中信息技术：

高中信息技术

某地为各个村之间建立灌溉管道，现需实现用最短的管道距离使得所有村庄可以连通。如图a 所示，[V1,V2,V3,V4,V5]每个节点表示村庄，两个节点之间的数值表示两个村庄之间的边距离。

算法思路如下：

①首先按边距离升序排序；

②找到边距离最小值1，以及相应的两个节点V1 和V3；

③以V1或V3作为起点，搜寻连接新节点且距离最小的边，发现(V1, V4)边最小为4；

④以V1、V3、V4作为起点，搜寻连接新节点且距离最小的边，发现(V4, V5)边最小为2；

⑤以V1、V3、V4、V5作为起点，搜寻连接新节点且距离最小的边，发现(V2, V5)边最小为3；因此可知，连通5个村庄的最短管道距离是1+4+2+3=10，效果如图b所示。

现设计了如下VB程序，界面如图c所示，请回答下列问题：

（1） V2到V5的边距离若为6，则连通5个村庄的最短管道距离是。
（2）请在划线处填入合适的代码。
Const n = 5      '村庄数

Const m = 8      '管道线路数

Dim pointAB(1 To 2 * m) As Integer     '存储连接的两个村庄节点

Dim length(1 To m) As Integer     '存储两个村庄之间的距离

Dim res(1 To 100) As Integer      '存储管道规划结果

Private Sub Form_Load()

'村庄节点数据存储在pointAB数组，两个村庄的距离数据存储在length数组。

'如图c所示，(V1,V3)边距离为1，则pointAB(1)=1，pointAB(2)=3，length(1)=1；

(V1,V2)边距离为6，则pointAB(3)=1，pointAB(4)=2，length(2)=6；其他依次类推，代码略。

End Sub

Function check(x As Integer) As Integer      '判断x节点是否已在规划中

check = 0

For i = 1 To 100

If x = res(i) Then check = 1: Exit Function

Next i

End Function

Private Sub Command1_Click()

Dim i As Integer, j As Integer, tmp As Integer

Dim total As Integer, sum As Integer

For i = 1 To m - 1

For j = m To i + 1 Step -1

If Then

tmp= pointAB(2 * j - 1) :pointAB(2 * j - 1) = pointAB(2 * j - 3) :pointAB(2 * j - 3) = tmp

tmp = pointAB(2 * j) : pointAB(2 * j) = pointAB(2 * j - 2) :pointAB(2 * j - 2) = tmp

tmp = length(j): length(j) = length(j - 1): length(j - 1) = tmp

End If

Next j

Next i

'开始规划管道

total = 1

res(1) = pointAB(1): res(2) = pointAB(2)

sum = length(1)

Do While total <

For i = 2 To m

If Then

total = total + 1

res(2 * total - 1) = pointAB(2 * i - 1)

res(2 * total) = pointAB(2 * i)

sum = sum + length(i)

Exit For

End If

Next i

Loop

'输出连通结果res 以及管道总长度sum，代码略。

End Sub

张同学利用Excel软件统计历届奥运会中国获得奖牌数，如图所示，要计算2016年里约奥运会中国奖牌总数，在E3单元格应输入的是（）

A . SUM(B3 : D3) B . = SUM(B3: D3) C . SUM(B3， D3) D . = SUM(B3，D3)

程序段如下：

c=“1234”

For i=1 To 4

Print_________

如果要让程序运行后得到如下结果：

1 12 123 1234

则在下划线处应填入的内容为（）。

A . Right（c， i） B . Left（c， i） C . Mid（c， i， 1） D . Mid（c， i， i）

有如下VB程序段：

n = Val(Text1.Text)

For i = 1 To n

a(i) = i

Next i

For i = 1 To n / 2 - 1

For j = n To 2 * (i + 1) Step -2

If Then t = a(j): a(j) = a(j - 2): a(j - 2) = t

Next j

For j = 1 To n - i * 2 - 1 Step 2

If Then t = a(j): a(j) = a(j + 2): a(j + 2) = t

Next j Next i

当n为8时，上述程序段的运行结果a(1)至a(8)的值分别为 1，8，3，6，5，4，7，2，则划线处应填入的代码分别为（）

A . a(j )<a(j-2) a(j)<a(j+2) B . a(j )>a(j-2) a(j)>a(j+2) C . a(j )>a(j-2) a(j)<a(j+2) D . a(j )<a(j-2) a(j)>a(j+2)

将学生成绩表存放到数据库中时，某位同学各门课的成绩构成一条（）。

A . 信息 B . 记录 C . 数据 D . 行

有如下VB程序段：

n=11：s=“”

key=Val(Text 1.Text)

i=1：j=n

Do While i<j

m=(i+j)＼2

If key<a(m) Then

j=m-1

Else

i=m

End If

Loop

Fork=jT on-1

s=s+Str(a(k) )

Next k

Label1.Caption=s

已知数组a(1)到a(10)的原始数据为20，21，28，37，41，51，51，51，66，69，程序运行时，在文本框Text1中输入51，标签Label1中显示的内容是（）

A . 51，51，51，66 B . 51，51，66，69 C . 66，69 D . 51，66，69

假设某用户上网时输入//www.sina.com.cn，其中http指的是（）

A . 文件传输协议 B . 超文本传输协议 C . TCP/IP协议 D . 计算机主机域名

编写“八进制转换器”的VB程序，程序原理是：除八取余法。运行程序，在文本框Text1中输入整数n，单击“转换”按钮Command1，在标签Label1中显示将n转换为八进制的数值，程序代码如下。

Private Sub Command1Click()

Dim y As Integer '用于存储输入的十进制自然数

Dim s As String '用于存储转换后的结果

Dim r As Integer

n = Val(Text1.Text)

s = ""

Do While n <> 0

r = ① '采用除八取余法

s = Str(r) + s '将余数添加到结果s中

n = n \ 8

Loop

Label1.caption=s

End Sub

请根据题意将程序补充完整。

（1）程序完整后，文本框Text1输入“12”，则Label1中输出的数值是。
（2） ①处应填入的代码为。

飞行员在实际驾驶之前，都要经过一个模拟训练，利用计算机设计一个与实际操作非常相似的环境，这体现了信息技术的（　）发展趋势。

A . 多元化 B . 智能化 C . 网络化 D . 虚拟化

在微机中,与运算器做在同一芯片中的是（）

A . 主板 B . 控制器 C . 内存储器 D . 外存储器

使用UltraEdit软件查看字符内码，部分界面如图所示。

下列说法正确的是（）

A . 图中共有10个ASCII字符 B . 图中内码所对应字符串可能是“2020加油！” C . 若图中“30”是字符“0”的内码，则“-1”的内码为2FH D . 若图中“30”是字符“0”的内码，则“9”的内码的二进制形式为111001B

以下关于数据的说法正确的是（）

A . 数据就是信息，信息就是数据。 B . 数据的记录过程一定需要人的参与。 C . 数据是计算机被发明之后产生的，所以在古代没有数据。 D . 数据是对客观事物的符号表示，如图形符号、数字、字母等。

关于位图和矢量图的说法，下列正确的是（）

A . 矢量图无法产生色彩艳丽、复杂多变的图像，所以一般都不使用 B . 图形和图像都是位图，是模型化、抽象化和线化的表现方式 C . 位图文件中记录了生成图像的算法指令和图像上的某些特征点，包含数据量小 D . 分辨率越高，色彩越丰富，占用的存储空间就越大

编写VB程序，实现把数据key插入到升序序列中，得到一个新的升序序列，原升序序列各元素已依次存放在数组元素a(1)、a(2)、a(3)、……、a(10)中，VB程序段如下：

i = 1: j = 10

Do While i <= j

m = (i + j) \ 2

If key <= a(m) Then

‘①

Else

‘②

End If

Loop

For k = 10 To i Step -1

‘③

Next k

a(i) = key

要使程序实现上述功能，则方框①②③中的语句分别是（）

A . j = m - 1 i = m + 1 a(k + 1) = a(k) B . j = m - 1 i = m + 1 a(k) = a(k - 1) C . i = m + 1 j = m - 1 a(k + 1) = a(k) D . i = m + 1 j = m - 1 a(k) = a(k - 1)

超文本标记语言用于描述网页的内容，该语言的简称为（）

A . POP3 B . HTTP C . SMTP D . HTML

小张整理了部分办公用品的采购清单，并用Excel软件进行数据处理，如下图表格所示。请回答下列问题。

（1）要计算各商品“总价（元）”，在F3中输人公式“=D3*E3”，并自动填充到F4:F18单元格，此时F8单元格中显示的公式是。
（2）要使表格标题文字“文一办公用品清单及价格”在表格第一行的正中间位置显示，可以采用的方法是。
（3）按价格对上图表格的信息进行排序，则应该选择的区域是。
（4）为了更直观地显示部分办公用品的价格，利用上图表格所示数据制作了如下图所示的图表，该图表的数据区域为A2，A5:A10，。

以下操作中没有用到OCR技术的是( )

A . 通用手机摄像头拍摄题目并上传后自动给出试题的解题过程 B . 某停车管理系统在车辆进入时自动识别并记录车牌号 C . 用手机讯飞语音输入法录入短信 D . 将报纸上的文章扫描后再使用方正OCR识别为文本文件保存起来

下列关于access数据表中数据操作的做法，错误的是（）。

A . 可以从外部数据源导入 B . 不可以部分导出到外部文件中 C . 可以直接从Excel复制 D . 可以直接输入

发报代码由长音和短音组成，分别用表示，有一8位电码“••-•---• ”,若用二进制表示，可以写成10101110。

下列有关信息和信息技术的说法，错误的是（）

A . 信息在传递和共享的过程中不会产生损耗 B . 信息经过加工、处理后，往往具有更高的价值 C . 常用的信息表达方式有语言、文字、图像、书籍、报纸、网络等 D . 现代信息技术包括微电子技术、光电子技术、现代通信技术、计算机网络等

高中信息技术：

高中 信息技术

高中信息技术