资源简介

登录二一教育在线组卷平台 助您教考全无忧
浙江省普通高校招生选考技术科目考试信息技术模拟试卷四
一、选择题(本大题共12小题，每小题2分，共24分。)
1．（2022·浙江模拟）下列有关信息及信息技术的说法，正确的是 (　　)
A．信息技术近代才发展起来，古代没有信息技术
B．现代信息技术包括摄影技术、广播电视和计算机技术
C．微电子技术是将信息由一点传送到另一点的技术
D．信息的传输与表示离不开载体
2．（2022·浙江模拟）关于Access数据库，下列说法正确的是(　　)
A．数据表中有记录时，该表的字段顺序不能任意调整
B．数据表中有记录时，该表的字段类型无法修改
C．数据表视图下，添加的新纪录必然产生在最后一条
D．数据表视图下，修改某个字段的值后，无法撤销
3．（2022·浙江模拟）下列应用中，没有使用人工智能技术的是(　　)
A．美军机器人大狗在战场环境运送辎重
B．百度的以图搜图技术
C．扫描二维码获取微信公众号的过程
D．某公司利用刷脸技术的门禁系统
4．（2022·浙江模拟）一段视频保存为未经压缩的视频(不含音频)，其参数如图所示。
文件存储容量为2.94GB，则该视频时间长约(　　)
A．8秒 B．20秒 C．40秒 D．80秒
5．（2022·浙江模拟）使用GoldWave软件编辑音频素材，部分操作界面如图所示。
下列说法正确的是（　　）
A．当前音频文件的左右声道均添加了淡入效果
B．当前音频文件每个采样点的量化位数为16个字节
C．将当前音频文件进行保存，总时长将变为10秒
D．1411kbps的含义是该音频的播放速率为每秒钟播放1411k位
6．（2022·浙江模拟）使用UltraEdit软件观察字符“Happy 2018！”的内码，部分界面如图所示。
下列说法正确的是（　　）
A．字符“Happy 2018！"共占用10个字节
B．字符“Happy 2018！”全部采用ASCII编码方式
C．小写英文字符“o”的十六进制码为“69”
D．字符“h”的内码用二进制表示为“1101000”
7．（2022·浙江模拟）某算法的部分流程图如图所示，执行这部分流程后，输出n的值是(　　)
A．0 B．4 C．16 D．36
8．（2022·浙江模拟）有如下程序段：
Dim i As Integer， sum As Integer
Dim a(1 To 10) As Integer
sum=0
For i=1 To 10
a(i) = i+5
If a(i) Mod 3=0 Then sum=sum+a(i)
Next i
Text1. Text = Str(sum)
该程序段运行后，文本框Text1中显示的内容是(　　)
A．24 B．42 C．105 D．205
9．（2022·浙江模拟）有如下VB程序段：
s="26170534" : n= Len(s) : y=" "
For i=1 to n
ch(i)= Mid(s, i, 1)
Next i
For i=1 to n
k=i
For j=i to n Step 2
if ch(j)Next j
If k<>i Then t =ch(k) : ch(k)=ch(i) : ch(i)=t
y=y & ch(i)
Next i
Label1. Caption= y
该程序段运行后，标签Label1中显示的内容是（　　）
A．0123 B．4567 C．01234567 D．04152637
10．（2022·浙江模拟）有如下VB程序段：
a(1)= 1： s=0
For i=2 To 6
s= 0
For j=1 To i-1
s=s+a(j)
Next j
a(i)=s+1
Next i
执行该程序段后，a(6)的值为(　　)
A．15 B．16 C．32 D．64
11．（2022·浙江模拟）有如下VB程序段：
Dim a(1 To 5) As Integer .
a(1)= 1
For i=2 To 5
a(i)= Int(Rnd * 9) +1
If a(i) Mod 2=1 Then
a(i)=a(i)+a(i - 1)
ElseIf i mod 2=0 then
a(i)=a(i) /2
End If
Next i
执行程序后，a数组各元素不可能是(　　)
A．1，8，11，20，2 B．1，4，2，11，4
C．1，1，8，17，6 D．1，4，7，6，8
12．（2022·浙江模拟）有如下VB程序段：
i=1 : j=10 : x= Int(Rnd * 50) * 2+ 1
Do While i<=j
m=(i+j)\ 2
If x=f(m) Then Exit Do
If xs=s+Str(m)
Loop
数组元素f(1)到f(10)的值依次为：3，6，9，11，18，20，25，39，76，98，该程序运行后，s的值不可能的是(　　)
A．52 B．5 8 C．5234 D．586
二、非选择题(本大题共4小题，其中第13小题4分，第14小题8分，第15小题6分，第16小题8分，共26分)
13．（2022·浙江模拟）小王收集了2016 年第三季度浙江省各地区工业增加值数据，并用Excel软件进行数据处理，如图a所示。请回答下列问题：
（1）区域B14：G14的数据是通过公式计算得到的，在B14单元格输入公式时应用了AVERAGE 函数，并用自动填充功能完成区域C14：G14的计算，则F14单元格中的公式为　 　。
（2）若要对各地区数据以“8月”为关键字按降序进行排序，则排序时选择的数据区域是　 　。
（3）根据图a中数据制作的图表如图b所示，创建该图表的数据区域是　 　。
（4）将区域A2： G13的数据复制到新工作表并进行筛选操作，设置“9月”和“9月同比士%”的筛选方式如图c和图d所示，则按此设置筛选出的地区有　 　个。
14．（2022·浙江模拟）小张创作“冬去春来”的多媒体作品。她首先用Photoshop软件制作一张封面图片，然后使用Flash软件制作动画。请回答下列问题：
（1）小张打算从“双燕”图层再复制一只燕子，执行了以下操作：
①菜单“编辑”/“拷贝”
②矩形框框选其中一只燕子
③菜单“编辑”“粘贴”，产生新图层
④选择“双燕”图层
⑤移动燕子到合适位置
正确的操作顺序是　 　→　 　→　 　→　 　→⑤
（2）如图b所示，该动画“库”里有　 　种元件。
（3）如图b所示，“文字”图层以4个关键帧依次显示“冬去春来”四个字的动画属于　 　(选填：逐帧/补间/引导线/遮罩)动画类型。
（4）单击“Link”按钮实现启动浏览器打开多媒体作品所在文件夹下的“spring. swf”文件。则“Link”按钮的动作脚本是　 　。
（5）测试当前场景，发现动画一开始播放就暂停了，原因可能是　 　
15．（2022·浙江模拟）现有n* n大小的网格(n≤10)，每个格子从左到右、从上到下编号依次编号为1、2、3……n*n，当n为3时，网格如图a所示。
网格中每个格子都有一面沿对角线方向放置的挡板，且朝向随机。现将一个小球从左上角1号格子自上而下射入网格，则小球将在网格中不断反弹(不考虑实际的能量损失与重力影响等因素)，最终从某个格子离开网格，根据挡板的朝向与小球的运动方向，将有几种不同的反弹情况。如图b所示，小球进入网格后，先后经过1、2、5、6、3号格子，之后离开网格。
编写VB程序，功能如下：在文本框Text1中输入n的值，单击“生成”按钮Command1，生成网格和随机的挡板，并输出。然后单击“开始”按钮Command2，在文本框Text2中显示小球进入网格后的运动路径。程序中利用数组a存储网格的状态，其中“/”与“\”两种字符表示两种朝向的挡板。程序运行界面如图c所示。
请回答下列问题：
（1）要使程序运行时，窗体标题显示“网格弹球”，可在Form_Load事件过程中添加语句　 　(单选，填字母： A .Form1="网格弹球" / B .Form1.，Text="网格弹球"/ C .Form1. Caption="网格弹球")。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Dim n As Integer
Dim a(0 To 100) As String
Private Sub Command1_Click(　　) '生成网格和挡板，
n= Val(Text1. Text)
'生成n* n的网格和随机的挡板，并通过图形控件输出，代码略
End Sub
Private Sub Command2_ Click(　　)
Dim ans As String, pre As
String
Dim cur As Integer
cur= 1 : 　 　 : ans =" "
Do While cur >= 1 And
cur<= n* n
ans=ans + Str(cur) +“→”
If pre="左" And a(cur)="\" Or pre= "右" And a(cur)="/" Then
cur=cur+n： pre="上“
ElseIf 　 　 Then
cur= cur n： pre="下"
ElselIf pre="上" And a(cur)="\" Or
pre=“下" And a(cur)="/" Then
If cur Mod n=0 Then
Exit Do
Else
cur=cur + 1： pre="左"
End If
ElseIf pre="上" And a(cur)="/" Or
pre=“下" And a(cur)="\" Then
If Then
Exit Do
Else
cur=cur-1： pre= "右"
End If
End If
Loop
Text2. Text=ans+"离开"
End Sub
（3）程序中加框处代码有错，请改正。
16．（2022·浙江模拟）小李编写VB程序，功能如下：单击“生成数组”按钮Command1，则随机生成13个取值范围是1~13的正整数，分别存储到数组a中，对数组的元素进行升序排列，并在标签label1中显示；再单击“连续数”按钮Command2，则在排序后的数组a中查找连续个数最多(忽略重复数值)的一组数值(即连续数)，若有两组连续数个数一样多，则取数值小的一组，将连续数显示在标签label2中。运行界面如图所示。
若实现上述功能的程序如下，请在划线处填写合适代码。
Dim a(1 To 13) As Integer
Dim n As Integer
Private Sub Command1_ Click(　　)
Dim i As Integer, s As String, j As String
Randomize
n=13
For i=1 To n
a(i) = Int(Rnd * 13)+1
Next i
For i=1 To n-1
For j=i+1 To n
If a(j) < a(i) Then
t=a(j)：　 　：a(i)=t
End If
Next j
Next i
s=“”
For i=1 To n
s = s+ Str(a(i))
If 　 　 Then s=s+“，”
Next i
Label1. Caption =s
End Sub
Private Sub Command2_ Click(　　)
Dim i As Integer, j As Integer
Dim t As Integer, k As Integer
Dim max As Integer '存储连续数个数最大值
Dim begin As Integer '存储连续数开始的数值
k= 1
max=1
For i=2 To 13
If a(i)=a(i-1)+1 Or a(i)=a(i-1) Then
If 　 　 Then k=k+1
If k > max Then
max= k
begin = 　 　
End If
Else
k=1
End If
Next i
s=" "
For j=begin To begin+max-1
s =s+ Str(j)
Next j
Label2. Caption = s
End Sub
答案解析部分
1．【答案】D
【知识点】信息及其特征；信息技术的概念与关键技术
2．【答案】C
【知识点】数据表、字段、记录的编辑
3．【答案】C
【知识点】人工智能的应用
4．【答案】D
【知识点】声音、图像、视频编码
5．【答案】D
【知识点】声音素材的基本处理
6．【答案】D
【知识点】进制及数制转换；字符编码
7．【答案】B
【知识点】流程图识读
8．【答案】B
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
9．【答案】D
【知识点】排序算法及程序实现
【解析】【解答】程序中将选择排序程序的内循环步长1改成2。数组ch元素的值依次为：ch(1)=“2”、ch(2)=“6”、ch(3)=“1”、ch(4)=“7”、ch(5)=“0”、ch(6)=“5”、ch(7)=“3”、ch(8)=“4”。i=1时，从ch(1)、ch(3)、ch(5)、ch(7)中找出最小元素和ch(1)交换；i=2时，从ch(2)、ch(4)、ch(6)中找出最小元素和ch(2)交换；i=3时，从ch(3)、ch(5)、ch(7)中找出最小元素和ch(3)交换……最终数组ch元素的值依次为0、4、1、5、2、6、3、7。故答案选D。
【分析】本题为选择排序的变形题，考查算法及其程序的实现。
10．【答案】C
【知识点】循环结构语句及程序实现
11．【答案】D
【知识点】分支结构语句及程序实现；循环结构语句及程序实现；常用标准函数
12．【答案】B
【知识点】查找算法及程序实现
13．【答案】（1）= AVERAGE(F3：F13)
（2）A2：G13
（3）A2：B13，D2：D13，F2：F13
（4）3
【知识点】表格数据的处理与计算
14．【答案】（1）④；②；①；③
（2）2
（3）逐帧
（4）on( press) {getur1(“spring. swf")；}或on(release){getur1(“spring. swf")；}
（5）背景层第1帧有stop(　　)命令
【知识点】图层及图层的基本操作；动画的类型；元件的类型与应用；常用影片控制函数的应用
15．【答案】（1）C
（2）pre="上"；pre="左" And a(cur)="/" Or pre="右" And a(cur)= "\"
（3）cur Mod n= 1
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；分支结构语句及程序实现；循环结构语句及程序实现
16．【答案】a(j)=a(i)；in或i<13或i<> 13；a(i)=a(i-1)+1；a(i)-k+1
【知识点】排序算法及程序实现；分支结构语句及程序实现；循环结构语句及程序实现
二一教育在线组卷平台（zujuan.21cnjy.com）自动生成 1 / 1登录二一教育在线组卷平台 助您教考全无忧
浙江省普通高校招生选考技术科目考试信息技术模拟试卷四
一、选择题(本大题共12小题，每小题2分，共24分。)
1．（2022·浙江模拟）下列有关信息及信息技术的说法，正确的是 (　　)
A．信息技术近代才发展起来，古代没有信息技术
B．现代信息技术包括摄影技术、广播电视和计算机技术
C．微电子技术是将信息由一点传送到另一点的技术
D．信息的传输与表示离不开载体
【答案】D
【知识点】信息及其特征；信息技术的概念与关键技术
2．（2022·浙江模拟）关于Access数据库，下列说法正确的是(　　)
A．数据表中有记录时，该表的字段顺序不能任意调整
B．数据表中有记录时，该表的字段类型无法修改
C．数据表视图下，添加的新纪录必然产生在最后一条
D．数据表视图下，修改某个字段的值后，无法撤销
【答案】C
【知识点】数据表、字段、记录的编辑
3．（2022·浙江模拟）下列应用中，没有使用人工智能技术的是(　　)
A．美军机器人大狗在战场环境运送辎重
B．百度的以图搜图技术
C．扫描二维码获取微信公众号的过程
D．某公司利用刷脸技术的门禁系统
【答案】C
【知识点】人工智能的应用
4．（2022·浙江模拟）一段视频保存为未经压缩的视频(不含音频)，其参数如图所示。
文件存储容量为2.94GB，则该视频时间长约(　　)
A．8秒 B．20秒 C．40秒 D．80秒
【答案】D
【知识点】声音、图像、视频编码
5．（2022·浙江模拟）使用GoldWave软件编辑音频素材，部分操作界面如图所示。
下列说法正确的是（　　）
A．当前音频文件的左右声道均添加了淡入效果
B．当前音频文件每个采样点的量化位数为16个字节
C．将当前音频文件进行保存，总时长将变为10秒
D．1411kbps的含义是该音频的播放速率为每秒钟播放1411k位
【答案】D
【知识点】声音素材的基本处理
6．（2022·浙江模拟）使用UltraEdit软件观察字符“Happy 2018！”的内码，部分界面如图所示。
下列说法正确的是（　　）
A．字符“Happy 2018！"共占用10个字节
B．字符“Happy 2018！”全部采用ASCII编码方式
C．小写英文字符“o”的十六进制码为“69”
D．字符“h”的内码用二进制表示为“1101000”
【答案】D
【知识点】进制及数制转换；字符编码
7．（2022·浙江模拟）某算法的部分流程图如图所示，执行这部分流程后，输出n的值是(　　)
A．0 B．4 C．16 D．36
【答案】B
【知识点】流程图识读
8．（2022·浙江模拟）有如下程序段：
Dim i As Integer， sum As Integer
Dim a(1 To 10) As Integer
sum=0
For i=1 To 10
a(i) = i+5
If a(i) Mod 3=0 Then sum=sum+a(i)
Next i
Text1. Text = Str(sum)
该程序段运行后，文本框Text1中显示的内容是(　　)
A．24 B．42 C．105 D．205
【答案】B
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
9．（2022·浙江模拟）有如下VB程序段：
s="26170534" : n= Len(s) : y=" "
For i=1 to n
ch(i)= Mid(s, i, 1)
Next i
For i=1 to n
k=i
For j=i to n Step 2
if ch(j)Next j
If k<>i Then t =ch(k) : ch(k)=ch(i) : ch(i)=t
y=y & ch(i)
Next i
Label1. Caption= y
该程序段运行后，标签Label1中显示的内容是（　　）
A．0123 B．4567 C．01234567 D．04152637
【答案】D
【知识点】排序算法及程序实现
【解析】【解答】程序中将选择排序程序的内循环步长1改成2。数组ch元素的值依次为：ch(1)=“2”、ch(2)=“6”、ch(3)=“1”、ch(4)=“7”、ch(5)=“0”、ch(6)=“5”、ch(7)=“3”、ch(8)=“4”。i=1时，从ch(1)、ch(3)、ch(5)、ch(7)中找出最小元素和ch(1)交换；i=2时，从ch(2)、ch(4)、ch(6)中找出最小元素和ch(2)交换；i=3时，从ch(3)、ch(5)、ch(7)中找出最小元素和ch(3)交换……最终数组ch元素的值依次为0、4、1、5、2、6、3、7。故答案选D。
【分析】本题为选择排序的变形题，考查算法及其程序的实现。
10．（2022·浙江模拟）有如下VB程序段：
a(1)= 1： s=0
For i=2 To 6
s= 0
For j=1 To i-1
s=s+a(j)
Next j
a(i)=s+1
Next i
执行该程序段后，a(6)的值为(　　)
A．15 B．16 C．32 D．64
【答案】C
【知识点】循环结构语句及程序实现
11．（2022·浙江模拟）有如下VB程序段：
Dim a(1 To 5) As Integer .
a(1)= 1
For i=2 To 5
a(i)= Int(Rnd * 9) +1
If a(i) Mod 2=1 Then
a(i)=a(i)+a(i - 1)
ElseIf i mod 2=0 then
a(i)=a(i) /2
End If
Next i
执行程序后，a数组各元素不可能是(　　)
A．1，8，11，20，2 B．1，4，2，11，4
C．1，1，8，17，6 D．1，4，7，6，8
【答案】D
【知识点】分支结构语句及程序实现；循环结构语句及程序实现；常用标准函数
12．（2022·浙江模拟）有如下VB程序段：
i=1 : j=10 : x= Int(Rnd * 50) * 2+ 1
Do While i<=j
m=(i+j)\ 2
If x=f(m) Then Exit Do
If xs=s+Str(m)
Loop
数组元素f(1)到f(10)的值依次为：3，6，9，11，18，20，25，39，76，98，该程序运行后，s的值不可能的是(　　)
A．52 B．5 8 C．5234 D．586
【答案】B
【知识点】查找算法及程序实现
二、非选择题(本大题共4小题，其中第13小题4分，第14小题8分，第15小题6分，第16小题8分，共26分)
13．（2022·浙江模拟）小王收集了2016 年第三季度浙江省各地区工业增加值数据，并用Excel软件进行数据处理，如图a所示。请回答下列问题：
（1）区域B14：G14的数据是通过公式计算得到的，在B14单元格输入公式时应用了AVERAGE 函数，并用自动填充功能完成区域C14：G14的计算，则F14单元格中的公式为　 　。
（2）若要对各地区数据以“8月”为关键字按降序进行排序，则排序时选择的数据区域是　 　。
（3）根据图a中数据制作的图表如图b所示，创建该图表的数据区域是　 　。
（4）将区域A2： G13的数据复制到新工作表并进行筛选操作，设置“9月”和“9月同比士%”的筛选方式如图c和图d所示，则按此设置筛选出的地区有　 　个。
【答案】（1）= AVERAGE(F3：F13)
（2）A2：G13
（3）A2：B13，D2：D13，F2：F13
（4）3
【知识点】表格数据的处理与计算
14．（2022·浙江模拟）小张创作“冬去春来”的多媒体作品。她首先用Photoshop软件制作一张封面图片，然后使用Flash软件制作动画。请回答下列问题：
（1）小张打算从“双燕”图层再复制一只燕子，执行了以下操作：
①菜单“编辑”/“拷贝”
②矩形框框选其中一只燕子
③菜单“编辑”“粘贴”，产生新图层
④选择“双燕”图层
⑤移动燕子到合适位置
正确的操作顺序是　 　→　 　→　 　→　 　→⑤
（2）如图b所示，该动画“库”里有　 　种元件。
（3）如图b所示，“文字”图层以4个关键帧依次显示“冬去春来”四个字的动画属于　 　(选填：逐帧/补间/引导线/遮罩)动画类型。
（4）单击“Link”按钮实现启动浏览器打开多媒体作品所在文件夹下的“spring. swf”文件。则“Link”按钮的动作脚本是　 　。
（5）测试当前场景，发现动画一开始播放就暂停了，原因可能是　 　
【答案】（1）④；②；①；③
（2）2
（3）逐帧
（4）on( press) {getur1(“spring. swf")；}或on(release){getur1(“spring. swf")；}
（5）背景层第1帧有stop(　　)命令
【知识点】图层及图层的基本操作；动画的类型；元件的类型与应用；常用影片控制函数的应用
15．（2022·浙江模拟）现有n* n大小的网格(n≤10)，每个格子从左到右、从上到下编号依次编号为1、2、3……n*n，当n为3时，网格如图a所示。
网格中每个格子都有一面沿对角线方向放置的挡板，且朝向随机。现将一个小球从左上角1号格子自上而下射入网格，则小球将在网格中不断反弹(不考虑实际的能量损失与重力影响等因素)，最终从某个格子离开网格，根据挡板的朝向与小球的运动方向，将有几种不同的反弹情况。如图b所示，小球进入网格后，先后经过1、2、5、6、3号格子，之后离开网格。
编写VB程序，功能如下：在文本框Text1中输入n的值，单击“生成”按钮Command1，生成网格和随机的挡板，并输出。然后单击“开始”按钮Command2，在文本框Text2中显示小球进入网格后的运动路径。程序中利用数组a存储网格的状态，其中“/”与“\”两种字符表示两种朝向的挡板。程序运行界面如图c所示。
请回答下列问题：
（1）要使程序运行时，窗体标题显示“网格弹球”，可在Form_Load事件过程中添加语句　 　(单选，填字母： A .Form1="网格弹球" / B .Form1.，Text="网格弹球"/ C .Form1. Caption="网格弹球")。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Dim n As Integer
Dim a(0 To 100) As String
Private Sub Command1_Click(　　) '生成网格和挡板，
n= Val(Text1. Text)
'生成n* n的网格和随机的挡板，并通过图形控件输出，代码略
End Sub
Private Sub Command2_ Click(　　)
Dim ans As String, pre As
String
Dim cur As Integer
cur= 1 : 　 　 : ans =" "
Do While cur >= 1 And
cur<= n* n
ans=ans + Str(cur) +“→”
If pre="左" And a(cur)="\" Or pre= "右" And a(cur)="/" Then
cur=cur+n： pre="上“
ElseIf 　 　 Then
cur= cur n： pre="下"
ElselIf pre="上" And a(cur)="\" Or
pre=“下" And a(cur)="/" Then
If cur Mod n=0 Then
Exit Do
Else
cur=cur + 1： pre="左"
End If
ElseIf pre="上" And a(cur)="/" Or
pre=“下" And a(cur)="\" Then
If Then
Exit Do
Else
cur=cur-1： pre= "右"
End If
End If
Loop
Text2. Text=ans+"离开"
End Sub
（3）程序中加框处代码有错，请改正。
【答案】（1）C
（2）pre="上"；pre="左" And a(cur)="/" Or pre="右" And a(cur)= "\"
（3）cur Mod n= 1
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；分支结构语句及程序实现；循环结构语句及程序实现
16．（2022·浙江模拟）小李编写VB程序，功能如下：单击“生成数组”按钮Command1，则随机生成13个取值范围是1~13的正整数，分别存储到数组a中，对数组的元素进行升序排列，并在标签label1中显示；再单击“连续数”按钮Command2，则在排序后的数组a中查找连续个数最多(忽略重复数值)的一组数值(即连续数)，若有两组连续数个数一样多，则取数值小的一组，将连续数显示在标签label2中。运行界面如图所示。
若实现上述功能的程序如下，请在划线处填写合适代码。
Dim a(1 To 13) As Integer
Dim n As Integer
Private Sub Command1_ Click(　　)
Dim i As Integer, s As String, j As String
Randomize
n=13
For i=1 To n
a(i) = Int(Rnd * 13)+1
Next i
For i=1 To n-1
For j=i+1 To n
If a(j) < a(i) Then
t=a(j)：　 　：a(i)=t
End If
Next j
Next i
s=“”
For i=1 To n
s = s+ Str(a(i))
If 　 　 Then s=s+“，”
Next i
Label1. Caption =s
End Sub
Private Sub Command2_ Click(　　)
Dim i As Integer, j As Integer
Dim t As Integer, k As Integer
Dim max As Integer '存储连续数个数最大值
Dim begin As Integer '存储连续数开始的数值
k= 1
max=1
For i=2 To 13
If a(i)=a(i-1)+1 Or a(i)=a(i-1) Then
If 　 　 Then k=k+1
If k > max Then
max= k
begin = 　 　
End If
Else
k=1
End If
Next i
s=" "
For j=begin To begin+max-1
s =s+ Str(j)
Next j
Label2. Caption = s
End Sub
【答案】a(j)=a(i)；in或i<13或i<> 13；a(i)=a(i-1)+1；a(i)-k+1
【知识点】排序算法及程序实现；分支结构语句及程序实现；循环结构语句及程序实现
二一教育在线组卷平台（zujuan.21cnjy.com）自动生成 1 / 1

展开更多......

收起↑