高中信息技术：

高中信息技术

下列VB程序运行时，在文本框Text1中输入"Basic"，单击命令按钮Command1后，文本框Text2中显示的是（）

Private Sub Command1_Click()

Dim i As Integer, n As Integer

Dim s1 As String, s2 As String, c As String

s1=Text1.Text

s2=” ”

n=Len(s1)

For i=1 To n

c=Mid(s1,i,1)

s2=c+s2

Next i

Text2.Text=s2

End Sub

A . cisaB B . csBai C . Basic D . aicsB

计算机能直接接收和执行的程序设计语言为（）

A . Visual Basic语言 B . Python语言 C . 机器语言 D . 自然语言

编“字符串缩写”程序，实现如下功能:在文本框Text1中输入Ascii字符串，字符串中如果有由Ascii表中相邻字符（升序）组成的子串，则把该子串缩写成由第一个字符、“-”和最后一个字符组成，比如“abcdfpxcba”则缩写成“a-dfpxcba”。程序运行界面如下图所示。

图片_x0020_19

（1）代码“Private Sub Command1_Click()”中的Command1是(单选，填字母：A 对象名 / B 事件 / C 事件处理过程)
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String, result As String， i As Integer, j As Integer, t As Integer
s = Text1．Text ：t = Len(s) ：result = ""
i=1
Do While i <= t
   j = i
   Do While i < t
       If Asc(Mid(s, i + 1, 1)) = Asc(Mid(s, i, 1)) + 1 Then
            i = i + 1
       Else
           Exit Do
       End If
   Loop
   If i > j Then
      result =
   Else
      result = result + Mid(s, i, 1)
   End If
   i = i + 1
Loop
Text2．Text =
End Sub
（3）如果输入的字符串是“aBcucwxyzdcb”,输出结果为

在Visual Basic中，若x是3的倍数，则下列表达式值一定为真的是（）

A . x/3=0 B . x*3=0 C . x Mod 3=0 D . 3-x=0

用流程图描述算法时，表示“处理”的图形是（）

A .

B .

C .

D .

简述多媒体技术的应用领域并举例说明（写出4个领域）

某网页的部分界面如下图所示。

关于该网页的描述，下列说法正确的是（）

A . 当前网页的文件名是“浙江省东阳中学.html” B . 当前网页的 URL 是//www.zjdyzx.com/ C . 将网页添加到收藏夹后，网页中的所有内容将被保存到本地计算机 D . 将网页以“网页，仅HTML （*.html;*.htm）”另存，可下载网页上的文字、超链接

王丽个人计算机上的照片非常多，查找起来很不方便，于是她对计算机中的照片进行了整理和归类。下列四种文件夹存放结构中，不合理的是( )

A . 华山、鼓浪屿、九寨沟、颐和园 B . 2011年10月、2012年2月、2012年10月、2013年8月 C . 幼儿园、小学、初中、高中、大学 D . 学习、生活、工作、旅游、海南

【加试题】有如下程序段：

Label1.Caption=" "

For i=0 To 5

For j=1 To a(i)

Label1．Caption=Label1．Caption+Str(i)

Next j

Next i

数组元素a(0)到a（5）的值依次为“0，1，2，0，2，0”。执行该程序段，标签Label1中显示的内容为（）

A . 0 1 2 3 4 5 B . 0 1 2 0 2 0 C . 0 1 2 2 0 4 4 0 D . 1 2 2 4 4

下列关于数据可视化的描述中不正确的是（）

A . 数据可视化增强了数据的解释力与吸引力 B . 据可视化是将数据以图形图像等形式表示 C . 数据可视化可以直观地呈现数据中蕴含的信息 D . 标签云是基于语句的文本内容可视化

联网计算机在相互通信时必须遵循统一的（）

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

对称字符串的特征是从左到右读和从右到左读是完全一样的,如“abba”是对称的,“abcba”也是对称的，判断字符串是否对称的VB程序段如下:

n=Len(s) ‘s是待判断的字符串

k=0:j=n

For i=1 To n/ 2

Next i

If k=0 Then Labell Caption=“对称”Else Labell.Caption=“不对称”

方框中的代码由以下三部分组成:

①j=j-1 ②If cl <> c2 Then k=k+1 ③cl=Mid(s,i,l):c2=mid(s,j,l)

代码顺序正确的选项是（）

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

采用选择排序算法对数据序列“12，23，24，15，11，10”完成升序排序，则需要交换的次数为（）

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

下列关于ASP特点的叙述，正确的是( )

A . HTML语言不能嵌入ASP动态网页中 B . ASP是一种在客户端运行的脚本语言 C . ASP不能使用ActiveX控件来扩充功能 D . ASP内置数据库访问组件，可以轻松存取数据库

决定显卡性能的三要素中不包括（）

A . 显示芯片 B . 显存频率 C . 显存带宽 D . 显存容量

编写VB程序实现以下功能:在文本框Text1中输入一个十进制正整数，单击“计算”按钮Command1后，将该正整数转换为二进制数，最后在文本框Text2中输出该二进制数中连续“0”或“1”的最长个数情况。

如:输入十进制数35,将其转换为二进制数为100011，其中最长连续数字是3个“0”。程序运行界面如图所示。

（1）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()

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

    Dim s As String, ch As String, ch1 As String, ch2 As String

n = Val (Text1. Text)

    Do While n<>0

        s=CStr(n Mod 2)+s    ‘CStr将数字转化为字符串，但不会有前导空格



    Loop

    ch1 = Mid(s, 1, 1)： ch = ch1

    i=2：j=1：m=0

    For i=2 To Len(s)

       ch2 = Mid(s, i, 1)

        If Then

          If i-j> m Then

            m=i-j

           ch = ch1

        End If

        ch1 = ch2



        End If

    Next i



    Text2. Text = Str(m) & “个”& ch

End Sub
（2）如果将程序中加提处的代码去掉，在文本框Text1中输入15，单击Command1后在标签Label2中显示的内容是。

为制作“预防新冠病毒感染”的电子海报，小明收集了相关的文字和图片。这个阶段属于信息集成一般过程中的（）

A . 选题立意 B . 设计规划 C . 开发制作 D . 评估测试

某超市举行VIP客户积分换购活动，VIP客户根据卡内积分多少可换取不同额度的代金券。假设VIP客户共有n名，VIP卡内积分存放在数据库“customer.accdb”的Integral表中，换购活动的VB程序代码如下，程序运行时界面如图所示。工作人员在文本框Text1中输入VIP卡号后，单击“换购”按钮Command1，在文本框Text2中输出VIP客户的积分数，在标签Label3中显示可以换购的代金券额度,积分清零。按此要求编写程序如下, 但加框处代码有错,请改正。

Dim ID（） As String '用于存放客户卡号

Dim total（） As Long '用于存放积分数

Dim sc As Long 'VIP客户人数

Dim jf As Long '积分数

Private Sub Command1Click（）

Dim k As String '客户卡号

Dim q As Long '代金券额度

Dim i As Long

k = Text1.Text

For i = 1 To sc ’顺序查找

If ID（i） = k Then

jf = total（i）

cash（jf） = q ’ ①

Exit For

End If

’ ②

Label3.Caption = “您可换购的代金券总额为：”+ Str（q） + “元”

Next i

End If

End Sub

' cash函数用于计算VIP客户可换购的代金券额度

Function cash（jf As Long） As Long

If jf >= 2000 And jf <= 20000 Then

Cash = jf\2000*10

ElseIf jf > 20000 And jf <= 50000 Then

Cash = jf\2000*11

ElseIf jf > 50000 And jf <= 100000 Then

Cash = jf\2000*12

ElseIf jf > 100000 And jf <= 150000 Then

Cash = jf\2000*13

ElseIf jf > 150000 Then

Cash = jf\2000*14

End If

End Function

Private Sub FormLoad（）

Dim conn As New ADODB.Connection, rs As New ADODB.Recordset

Dim intSQL As Long

conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\ customer.accdb"

conn.Open

intSQL = "SELECT score FROM Integral"

Set rs.ActiveConnection = conn

rs.CursorType = adOpenStatic

rs.Open intSQL

sc = 0

Do While Not rs.EOF

sc = sc + 1

total（sc） = rs.Fields（"score"）

rs.MoveNext

Loop

rs.Close

conn.Close

Set rs = Nothing

Set conn = Nothing

End Sub

（1）加框处①有错，应改为。
（2）横线处②，应填入的语句是。

信息可以被重复使用而不会像物质和能源那样产生损耗。

如图是小王经常访问的一个网站的截图，以下说法正确的是（）

A . 使用浏览器软件浏览万维网网页采用的是HTML协议 B . 网页都应该具备文字、图像、超链接三种基本元素 C . 该网页的文件名为“余姚中学.htm” D . 把该网页以“网页，仅HTML（*.htm；*.html）”的类型保存，可以保存网页中的超链接信息

高中信息技术：

高中 信息技术

高中信息技术