资源简介

浙江省绍兴市柯桥区2020-2021学年高二上学期信息技术期末教学质量调测试卷
一、选择题（本大题共12小题，每小题2分，共24分。）
1．（2020高二上·柯桥期末）下列关于信息与信息安全的说法，不正确的是（　　）
A．信息具有时效性，但是过期的信息也可能有一定的价值
B．搜索引擎检索信息时，排名靠前的信息真实性更高
C．手机支付时需要密码和验证码双重验证，可以提高安全性
D．智能手机随意连接公共场所的WIFI，存在感染病毒的风险
2．（2020高二上·柯桥期末）下列应用，没有体现人工智能技术的是（　　）
A．停车收费系统扫描识别车牌 B．通过指纹识别打开智能门锁
C．无人驾驶汽车实现自动驾驶 D．使用Word“自动更正”功能
3．（2020高二上·柯桥期末）下列有关网页与浏览器的说法，正确的是（　　）
A．万维网采用WWW协议将浏览器的请求发送到Web服务器
B．可以通过浏览器“收藏夹”永久保存网页内容
C．可以用超链接连接同一个网站的网页，也可以从一个网页链接其他网站
D．以“网页，全部”格式保存网页，网页所有元素都能被保存
4．（2020高二上·柯桥期末）使用Access数据库记录疫情期间来访人员信息，登记数据如下表所示。
序号 姓名 身份证号 进校时间 体温 是否来自高风险地区
1 张三 330621198806544412 2020-12-19 8:23:18 36.8 否
2 李四 330891200202243965 2020-12-25 15:25:55 36.9 否
… … … … … …
对应的表结构设计最合理的是（　　）
A． B．
C． D．
5．（2020高二上·柯桥期末）a是一个两位十进制正整数，b是a对应的二进制数，以下说法错误是（　　）
A．如果b加1后，其数字位数增加，则a可能是63
B．在a后面加1个0的值与在b的后面加1010的值是相同的
C．b最多是7位数
D．b的位数至少比a的位数多2位
6．（2020高二上·柯桥期末）某算法的部分流程图如图所示，以下说法正确的是（　　）
A．该流程执行后，变量t的值为0
B．该流程执行后，变量i的值为64
C．该流程执行后，变量s的值为20
D．若语句“t=1-t”改为“t=t-1”，结果不变
7．（2020高二上·柯桥期末）产生一个0到100之间的随机偶数，偶数含“0”和“100”，下列VB表达式能实现的是（　　）
A．2*int（rnd*50） B．2*int（rnd*51）
C．2*int（rnd*50+1） D．2*int（rnd*51-1）
8．（2020高二上·柯桥期末）使用GoldWave软件编辑某音频文件，部分界面如图所示。
以下说法正确的是（　　）
A．这是一个WAV格式的音频
B．执行“删除”命令后，音频时长不变
C．执行“静音”命令后，在音频第10秒后插入20秒静音
D．执行“剪裁”命令后按原文件格式保存，音频文件容量约为原来的1/2
9．（2020高二上·柯桥期末）使用Photoshop软件处理图像，编辑界面如下图所示。
下列说法不正确的是（　　）
A．画布中没有显示“月亮”图像，其原因是“月亮”图层的不透明度为0%
B．可以删除“云”图层
C．不能给“背景”图层添加图层样式
D．可以通过“自由变换”命令调整男孩的大小
10．（2020高二上·柯桥期末）一张1024*768像素的BMP图像，存储为JPG格式后的文件大小是48KB，压缩比为16:1，该图像的颜色种数最多是（　　）
A．16 B．256 C．64 D．8
11．（2020高二上·柯桥期末）字符串，由数字、字母和“-”组成，现以“-”为分组标记，作如下处理：数字往后移5个，如0→5，3→8，6→1；各组字母倒序放在本组前面；“-”不作处理。如字符串“t37-9Yg-52r-”，经过处理后变为“t82-gY4- r07-”。下列VB程序段实现该算法：
Const mw = "0123456789"
S = Text1．Text: s1 = ""：s2 = ""
For i=1 To Len（s）
C = Mid（s，i，1）
If c >= "0" And c <= "9" Then
s1 = s1 + c
ElseIf c = "-" Then
s2 = s2 + s1 + c
s1 = ""
Else
End If
Next i
① t =（Val（c）+5） Mod 10
② c = Mid（mw，t，1）
③ s1 = c + s1
④ t=（Val（c）+4） Mod 10+1
⑤ c= Mid（mw，t+1，1）
⑥ s1 = s1 + c
则填空处的代码应该是（　　）
A．①②③ B．④⑤⑥ C．①⑤③ D．④②⑥
12．（2020高二上·柯桥期末）有如下VB程序段：
For i = 1 To 6
a（i）= Int（Rnd*6）+ 1
Next i
For i = 1 To 6
b（a（i））= b（a（i））+ 1
Next i
c（1）= 1
For i = 2 To 6
c（i）= c（i - 1）+ b（i - 1）
Next i
数组b各元素的初值均为0，执行该程序后，则数组c各元素的值不可能是（　　）
A．1 2 5 5 6 7 B．1 1 3 5 6 7 C．1 3 4 4 7 8 D．1 2 4 5 5 6
二、非选择题（本大题共4小题，4+8+7+7，共26分。）
13．（2020高二上·柯桥期末）小林收集了某市场1月份的订单明细数据，并用Excel软件进行处理，如图a所示。
（1）当前工作表中K3：K10用SUMIF函数正确计算了各个产品类别数量总和。小林通过K3单元格中的公式对J3:J10进行自动填充，则J3单元格的显示内容是　 　。
（单选，填字母：A
. 0．00 / B . #VALUE! / C . #DIV/0!）
（2）上述操作后，小林发现区域J3:J10计算结果不符合要求。若要正确计算J列的数据，可先把K3单元格中的公式修改为　 　（写公式），再进行自动填充。
（3）根据图a数据制作的图表如图b所示。
下列说法正确的是_______________（多选，填字母）。
A．该图表的数据区域是I3:I10，K2:K10
B．以“销售总额”为关键字对I2:K10区域升序排序后，“日用品”将出现图b的最右边
C．将K3:K10区域数值小数位数设置为1，对图表无影响
D．清除G3单元格的内容，对图b无影响
E．对“销售总额”列设置筛选“最大1项”，对图b无影响
14．（2020高二上·柯桥期末）使用Flash软件创作“我的眼睛我做主”多媒体作品。请回答下列问题：
（1）该作品的场景面板如图a所示，各功能模块播放完后自动停止，单击各功能模块最后1帧的“返回”按钮，返回“main”场景，下列说法不正确的是_______________（单选，填字母）。
A．制作该多媒体作品前对小学生的近视情况进行调查，属于需求分析
B．规划合理的制作脚本，是多媒体制作的直接依据
C．测试影片时，首先播放的是“保护我们的眼睛”场景
D．单击“返回”按钮，返回“main”场景，体现该作品具有交互性
（2）如图b所示，“文字1”图层的动画实现文字由5倒计时到1的效果，则“文字1”图层的动画类型是　 　（选填：逐帧动画/形状补间动画/动画补间动画）。
（3）测试当前场景，将自动产生一个文件。该文件的后缀是　 　，单击“play”按钮　 　（填：会/不会）跳转到“main”场景。
（4）“按钮”图层的按钮到最后1帧才出现，要使“按钮”图层的按钮一开始就出现，以下操作可行的_______________（多选，填字母）。
A．选中“按钮”图层第1帧，执行“清除关键帧”操作
B．选中“按钮”图层第1帧，执行“清除帧”操作
C．选中“按钮”图层第1帧，执行“转换为关键帧”操作
D．复制“按钮”图层第50帧，粘贴到第1帧
E．将“按钮”图层第50帧移动到第1帧
（5）如图b所示，动画播放到第50帧停止播放，单击“play”按钮，动画跳转到“main”场景第1帧并继续播放，则“play”按钮上添加的动作命令是　 　。
15．（2020高二上·柯桥期末）下列程序用来判断一个单词是否是素单词：设定小写字母a-z对应的数字为1-26，大写字母A-Z对应的数字为27-52，将某个单词的所有字母按照其对应的数字求和，判断其和是否是素数，如果是输出“It
is a prime word．”，反之则输出“It is not a prime word．”。如单词“Hello”，字母分别对应的数字为：34、5、12、12、15，其和为34+5+12+12+15=78，不是素数，因此单词“Hello”并不是素单词，在Label1中输出“It is not a prime word．”。（已知字母A的ASCII码值为65，a的ASCII码值为97）。程序运行界面如下图所示：
Private Sub Command1_Click(　　)
Dim s As String, t As String, n As Integer
Dim i As Integer, m As Integer
s = Text1.Text
n = Len（s）
For i = 1 To n
t = Mid（s，i，1）
If t >= "A" And t <= "Z" Then
m = ①
ElseIf t >= "a" And t <= "z" Then
m= m + Asc（t）- 96 ‘Asc（t）用于返回字符t的ASCII 码值
End If
Next i
For i = 2 To m - 1
If Then Exit For
Next i
If ② Then
Label1.Caption = "It is a prime word."
Else
Label1.Caption = "It is not a prime word."
End If
End Sub
（1）请在划线处补充合适的代码。
①　 　②　 　
（2）加框处代码有误，请改正。
（3）若在Text1中输入单词Make，在label1中输出的结果是　 　。
16．（2020高二上·柯桥期末）现需要对字符串中的字符进行重排顺序，具体方法如下：
原字符串8个字符为一段，分成若干段进行重排处理，尾段剩余字符（个数小于8）为独立段不做处理。
重排规则：从起始段第1个字符开始，从1开始数数，数到m时取出该位置上的字符，拼接到新字符串。然后，从下一个位置继续从1开始数数，数到m时再次取出相应位置上的字符，拼接到新字符串。当数到每段的最后一个字符时，重新从该段首第一个没有取掉的字符继续数数。重复上述操作，直至段内8个字符被取完。注：当某段中的7个字符被取出后，该段最后一个字符不需要数数，直接取出拼接到新字符串即可。
用以上方法逐段取字符，直至除独立段之外的其他字符取完。
独立段字符个数小于8，不需要重排，直接拼接到新字符串的尾部即可。
实现该功能的VB程序功能如下：程序运行时从文本框Text1中输入一段字符串，在文本框Text2输入正整数m，单击“确定”按钮Command1，对字符串按上述方法重排后在文本框Text3中显示（每段以逗号分隔）。程序运行界面如下：
（1）运行上述程序，若在文本框中输入“1010110010”，在Text2中输入5，单击“确定”按钮，则文本框Text3中显示的内容是　 　。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_lick(　　)
Dim s1 As String, s2 As String
Dim i As Integer, sum As Integer, ed As Integer, n As Integer
Dim m As Integer
　 　
s1 = Mid（Text1. Text, 1, Len（Text1. Text）- n）
m = Val（Text2. Text）
s2 = " "
' 字符重排顺序
sum = 0 : i = 1 : ed = 8
Do While Len（s1）< > 0
sum = sum + 1
If sum = m Then
s2 = s2 + Mid（s1, i, 1）
s1 = Mid（s1, 1, i-1）+ Mid（s1, i+1, Len（s1）-i）
ed = ed – 1
sum = 0
Else
i = i + 1
End If
If ed = 1 Then
s2 = s2 + Mid（s1, 1, 1）+ ", "
　 　
ed = 8
i = 1
ElseIf 　 　 Then
i = 1
End If
Loop
' 处理独立段
If n < > 0 Then s2 = s2 + Mid（Text1. Text, Len（Text1. Text）- n + 1, n）+ ", "
Text3. Text = s2
End Sub
答案解析部分
1．【答案】B
【知识点】信息及其特征；信息系统安全防护
2．【答案】D
【知识点】人工智能的应用
3．【答案】C
【知识点】网络协议；网络资源的类型、下载与保存
4．【答案】C
【知识点】数据表的创建
5．【答案】B
【知识点】进制及数制转换
6．【答案】A
【知识点】流程图识读
7．【答案】B
【知识点】运算符、基本运算与表达式
8．【答案】D
【知识点】声音素材的基本处理
9．【答案】C
【知识点】图层及图层的基本操作
10．【答案】B
【知识点】声音、图像、视频编码
11．【答案】C
【知识点】运算符、基本运算与表达式；分支结构语句及程序实现；循环结构语句及程序实现
12．【答案】C
【知识点】常见数据类型、数组；循环结构语句及程序实现
13．【答案】（1）A （提示：SUMIF函数可以对某个区域中符合指定条件的单元格求和。如=SUMIF（C3:C101，“海鲜”，G3：G101）表示计算产品类别是“海鲜”的金额总和）。
（2）=SUMIF（$C$3:$C$101，$I3，G$3:G$101）
（3）B；C
【知识点】表格数据的处理与计算
14．【答案】（1）C
（2）逐帧动画
（3）swf；不会
（4）A；D；E
（5）on（Press）{Play(　　)；}或者on（Press）{gotoAndPlay（"main"，1）；}
【知识点】多媒体作品的规划和设计；动画的类型；元件的类型与应用；动画文件的导出；常用影片控制函数的应用
15．【答案】（1）m+ Asc（t）-38；i=m或者i>m-1或i>=m
（2）m mod i=0
（3）It is not a prime word．
【知识点】分支结构语句及程序实现；循环结构语句及程序实现；常用标准函数
16．【答案】（1）10001011，10，
（2）n = Len（Text1．Text）Mod 8；s1 = Mid（s1，2，Len（s1）-1）；i > ed
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
1 / 1浙江省绍兴市柯桥区2020-2021学年高二上学期信息技术期末教学质量调测试卷
一、选择题（本大题共12小题，每小题2分，共24分。）
1．（2020高二上·柯桥期末）下列关于信息与信息安全的说法，不正确的是（　　）
A．信息具有时效性，但是过期的信息也可能有一定的价值
B．搜索引擎检索信息时，排名靠前的信息真实性更高
C．手机支付时需要密码和验证码双重验证，可以提高安全性
D．智能手机随意连接公共场所的WIFI，存在感染病毒的风险
【答案】B
【知识点】信息及其特征；信息系统安全防护
2．（2020高二上·柯桥期末）下列应用，没有体现人工智能技术的是（　　）
A．停车收费系统扫描识别车牌 B．通过指纹识别打开智能门锁
C．无人驾驶汽车实现自动驾驶 D．使用Word“自动更正”功能
【答案】D
【知识点】人工智能的应用
3．（2020高二上·柯桥期末）下列有关网页与浏览器的说法，正确的是（　　）
A．万维网采用WWW协议将浏览器的请求发送到Web服务器
B．可以通过浏览器“收藏夹”永久保存网页内容
C．可以用超链接连接同一个网站的网页，也可以从一个网页链接其他网站
D．以“网页，全部”格式保存网页，网页所有元素都能被保存
【答案】C
【知识点】网络协议；网络资源的类型、下载与保存
4．（2020高二上·柯桥期末）使用Access数据库记录疫情期间来访人员信息，登记数据如下表所示。
序号 姓名 身份证号 进校时间 体温 是否来自高风险地区
1 张三 330621198806544412 2020-12-19 8:23:18 36.8 否
2 李四 330891200202243965 2020-12-25 15:25:55 36.9 否
… … … … … …
对应的表结构设计最合理的是（　　）
A． B．
C． D．
【答案】C
【知识点】数据表的创建
5．（2020高二上·柯桥期末）a是一个两位十进制正整数，b是a对应的二进制数，以下说法错误是（　　）
A．如果b加1后，其数字位数增加，则a可能是63
B．在a后面加1个0的值与在b的后面加1010的值是相同的
C．b最多是7位数
D．b的位数至少比a的位数多2位
【答案】B
【知识点】进制及数制转换
6．（2020高二上·柯桥期末）某算法的部分流程图如图所示，以下说法正确的是（　　）
A．该流程执行后，变量t的值为0
B．该流程执行后，变量i的值为64
C．该流程执行后，变量s的值为20
D．若语句“t=1-t”改为“t=t-1”，结果不变
【答案】A
【知识点】流程图识读
7．（2020高二上·柯桥期末）产生一个0到100之间的随机偶数，偶数含“0”和“100”，下列VB表达式能实现的是（　　）
A．2*int（rnd*50） B．2*int（rnd*51）
C．2*int（rnd*50+1） D．2*int（rnd*51-1）
【答案】B
【知识点】运算符、基本运算与表达式
8．（2020高二上·柯桥期末）使用GoldWave软件编辑某音频文件，部分界面如图所示。
以下说法正确的是（　　）
A．这是一个WAV格式的音频
B．执行“删除”命令后，音频时长不变
C．执行“静音”命令后，在音频第10秒后插入20秒静音
D．执行“剪裁”命令后按原文件格式保存，音频文件容量约为原来的1/2
【答案】D
【知识点】声音素材的基本处理
9．（2020高二上·柯桥期末）使用Photoshop软件处理图像，编辑界面如下图所示。
下列说法不正确的是（　　）
A．画布中没有显示“月亮”图像，其原因是“月亮”图层的不透明度为0%
B．可以删除“云”图层
C．不能给“背景”图层添加图层样式
D．可以通过“自由变换”命令调整男孩的大小
【答案】C
【知识点】图层及图层的基本操作
10．（2020高二上·柯桥期末）一张1024*768像素的BMP图像，存储为JPG格式后的文件大小是48KB，压缩比为16:1，该图像的颜色种数最多是（　　）
A．16 B．256 C．64 D．8
【答案】B
【知识点】声音、图像、视频编码
11．（2020高二上·柯桥期末）字符串，由数字、字母和“-”组成，现以“-”为分组标记，作如下处理：数字往后移5个，如0→5，3→8，6→1；各组字母倒序放在本组前面；“-”不作处理。如字符串“t37-9Yg-52r-”，经过处理后变为“t82-gY4- r07-”。下列VB程序段实现该算法：
Const mw = "0123456789"
S = Text1．Text: s1 = ""：s2 = ""
For i=1 To Len（s）
C = Mid（s，i，1）
If c >= "0" And c <= "9" Then
s1 = s1 + c
ElseIf c = "-" Then
s2 = s2 + s1 + c
s1 = ""
Else
End If
Next i
① t =（Val（c）+5） Mod 10
② c = Mid（mw，t，1）
③ s1 = c + s1
④ t=（Val（c）+4） Mod 10+1
⑤ c= Mid（mw，t+1，1）
⑥ s1 = s1 + c
则填空处的代码应该是（　　）
A．①②③ B．④⑤⑥ C．①⑤③ D．④②⑥
【答案】C
【知识点】运算符、基本运算与表达式；分支结构语句及程序实现；循环结构语句及程序实现
12．（2020高二上·柯桥期末）有如下VB程序段：
For i = 1 To 6
a（i）= Int（Rnd*6）+ 1
Next i
For i = 1 To 6
b（a（i））= b（a（i））+ 1
Next i
c（1）= 1
For i = 2 To 6
c（i）= c（i - 1）+ b（i - 1）
Next i
数组b各元素的初值均为0，执行该程序后，则数组c各元素的值不可能是（　　）
A．1 2 5 5 6 7 B．1 1 3 5 6 7 C．1 3 4 4 7 8 D．1 2 4 5 5 6
【答案】C
【知识点】常见数据类型、数组；循环结构语句及程序实现
二、非选择题（本大题共4小题，4+8+7+7，共26分。）
13．（2020高二上·柯桥期末）小林收集了某市场1月份的订单明细数据，并用Excel软件进行处理，如图a所示。
（1）当前工作表中K3：K10用SUMIF函数正确计算了各个产品类别数量总和。小林通过K3单元格中的公式对J3:J10进行自动填充，则J3单元格的显示内容是　 　。
（单选，填字母：A
. 0．00 / B . #VALUE! / C . #DIV/0!）
（2）上述操作后，小林发现区域J3:J10计算结果不符合要求。若要正确计算J列的数据，可先把K3单元格中的公式修改为　 　（写公式），再进行自动填充。
（3）根据图a数据制作的图表如图b所示。
下列说法正确的是_______________（多选，填字母）。
A．该图表的数据区域是I3:I10，K2:K10
B．以“销售总额”为关键字对I2:K10区域升序排序后，“日用品”将出现图b的最右边
C．将K3:K10区域数值小数位数设置为1，对图表无影响
D．清除G3单元格的内容，对图b无影响
E．对“销售总额”列设置筛选“最大1项”，对图b无影响
【答案】（1）A （提示：SUMIF函数可以对某个区域中符合指定条件的单元格求和。如=SUMIF（C3:C101，“海鲜”，G3：G101）表示计算产品类别是“海鲜”的金额总和）。
（2）=SUMIF（$C$3:$C$101，$I3，G$3:G$101）
（3）B；C
【知识点】表格数据的处理与计算
14．（2020高二上·柯桥期末）使用Flash软件创作“我的眼睛我做主”多媒体作品。请回答下列问题：
（1）该作品的场景面板如图a所示，各功能模块播放完后自动停止，单击各功能模块最后1帧的“返回”按钮，返回“main”场景，下列说法不正确的是_______________（单选，填字母）。
A．制作该多媒体作品前对小学生的近视情况进行调查，属于需求分析
B．规划合理的制作脚本，是多媒体制作的直接依据
C．测试影片时，首先播放的是“保护我们的眼睛”场景
D．单击“返回”按钮，返回“main”场景，体现该作品具有交互性
（2）如图b所示，“文字1”图层的动画实现文字由5倒计时到1的效果，则“文字1”图层的动画类型是　 　（选填：逐帧动画/形状补间动画/动画补间动画）。
（3）测试当前场景，将自动产生一个文件。该文件的后缀是　 　，单击“play”按钮　 　（填：会/不会）跳转到“main”场景。
（4）“按钮”图层的按钮到最后1帧才出现，要使“按钮”图层的按钮一开始就出现，以下操作可行的_______________（多选，填字母）。
A．选中“按钮”图层第1帧，执行“清除关键帧”操作
B．选中“按钮”图层第1帧，执行“清除帧”操作
C．选中“按钮”图层第1帧，执行“转换为关键帧”操作
D．复制“按钮”图层第50帧，粘贴到第1帧
E．将“按钮”图层第50帧移动到第1帧
（5）如图b所示，动画播放到第50帧停止播放，单击“play”按钮，动画跳转到“main”场景第1帧并继续播放，则“play”按钮上添加的动作命令是　 　。
【答案】（1）C
（2）逐帧动画
（3）swf；不会
（4）A；D；E
（5）on（Press）{Play(　　)；}或者on（Press）{gotoAndPlay（"main"，1）；}
【知识点】多媒体作品的规划和设计；动画的类型；元件的类型与应用；动画文件的导出；常用影片控制函数的应用
15．（2020高二上·柯桥期末）下列程序用来判断一个单词是否是素单词：设定小写字母a-z对应的数字为1-26，大写字母A-Z对应的数字为27-52，将某个单词的所有字母按照其对应的数字求和，判断其和是否是素数，如果是输出“It
is a prime word．”，反之则输出“It is not a prime word．”。如单词“Hello”，字母分别对应的数字为：34、5、12、12、15，其和为34+5+12+12+15=78，不是素数，因此单词“Hello”并不是素单词，在Label1中输出“It is not a prime word．”。（已知字母A的ASCII码值为65，a的ASCII码值为97）。程序运行界面如下图所示：
Private Sub Command1_Click(　　)
Dim s As String, t As String, n As Integer
Dim i As Integer, m As Integer
s = Text1.Text
n = Len（s）
For i = 1 To n
t = Mid（s，i，1）
If t >= "A" And t <= "Z" Then
m = ①
ElseIf t >= "a" And t <= "z" Then
m= m + Asc（t）- 96 ‘Asc（t）用于返回字符t的ASCII 码值
End If
Next i
For i = 2 To m - 1
If Then Exit For
Next i
If ② Then
Label1.Caption = "It is a prime word."
Else
Label1.Caption = "It is not a prime word."
End If
End Sub
（1）请在划线处补充合适的代码。
①　 　②　 　
（2）加框处代码有误，请改正。
（3）若在Text1中输入单词Make，在label1中输出的结果是　 　。
【答案】（1）m+ Asc（t）-38；i=m或者i>m-1或i>=m
（2）m mod i=0
（3）It is not a prime word．
【知识点】分支结构语句及程序实现；循环结构语句及程序实现；常用标准函数
16．（2020高二上·柯桥期末）现需要对字符串中的字符进行重排顺序，具体方法如下：
原字符串8个字符为一段，分成若干段进行重排处理，尾段剩余字符（个数小于8）为独立段不做处理。
重排规则：从起始段第1个字符开始，从1开始数数，数到m时取出该位置上的字符，拼接到新字符串。然后，从下一个位置继续从1开始数数，数到m时再次取出相应位置上的字符，拼接到新字符串。当数到每段的最后一个字符时，重新从该段首第一个没有取掉的字符继续数数。重复上述操作，直至段内8个字符被取完。注：当某段中的7个字符被取出后，该段最后一个字符不需要数数，直接取出拼接到新字符串即可。
用以上方法逐段取字符，直至除独立段之外的其他字符取完。
独立段字符个数小于8，不需要重排，直接拼接到新字符串的尾部即可。
实现该功能的VB程序功能如下：程序运行时从文本框Text1中输入一段字符串，在文本框Text2输入正整数m，单击“确定”按钮Command1，对字符串按上述方法重排后在文本框Text3中显示（每段以逗号分隔）。程序运行界面如下：
（1）运行上述程序，若在文本框中输入“1010110010”，在Text2中输入5，单击“确定”按钮，则文本框Text3中显示的内容是　 　。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_lick(　　)
Dim s1 As String, s2 As String
Dim i As Integer, sum As Integer, ed As Integer, n As Integer
Dim m As Integer
　 　
s1 = Mid（Text1. Text, 1, Len（Text1. Text）- n）
m = Val（Text2. Text）
s2 = " "
' 字符重排顺序
sum = 0 : i = 1 : ed = 8
Do While Len（s1）< > 0
sum = sum + 1
If sum = m Then
s2 = s2 + Mid（s1, i, 1）
s1 = Mid（s1, 1, i-1）+ Mid（s1, i+1, Len（s1）-i）
ed = ed – 1
sum = 0
Else
i = i + 1
End If
If ed = 1 Then
s2 = s2 + Mid（s1, 1, 1）+ ", "
　 　
ed = 8
i = 1
ElseIf 　 　 Then
i = 1
End If
Loop
' 处理独立段
If n < > 0 Then s2 = s2 + Mid（Text1. Text, Len（Text1. Text）- n + 1, n）+ ", "
Text3. Text = s2
End Sub
【答案】（1）10001011，10，
（2）n = Len（Text1．Text）Mod 8；s1 = Mid（s1，2，Len（s1）-1）；i > ed
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
1 / 1

展开更多......

收起↑