-2022届高三信息技术选考总复习 专题15 字符串处理 课件（51张PPT）
文档属性
| 名称 | -2022届高三信息技术选考总复习 专题15 字符串处理 课件（51张PPT） |  | |
| 格式 | pptx | ||
| 文件大小 | 707.4KB | ||
| 资源类型 | 教案 | ||
| 版本资源 | 浙教版（2019） | ||
| 科目 | 信息技术（信息科技） | ||
| 更新时间 | 2021-11-01 09:50:11 | ||
图片预览
文档简介
(共51张PPT)
专题15 字符串处理
1.判断字符ch是大写字母的条件表达式是________________________。
2.判断一个字符ch是小写字母的表达式是________________________。
3.判7断一个字符ch是数字的表达式是___________________________。
4.判断一个字符ch是字母的表达式是__________________________________
___________________。
ch>＝”A” And ch <＝”Z”
ch>＝”a” And ch <＝”z”
ch>＝”0” And ch <＝”9”
ch>＝”A” And ch <＝”Z” Or ch>＝
”a” And ch <＝”z”
5.取出字符串中的字符并依次放在新字符串的后面，称为字符串的正向连接；取出字符串中的字符并依次放在新字符串的前面，称为字符串的反向连接；下列程序段功能：字符串s1的值为”ABCD”，分别取出s1中字符，连接到新字符串s中，结果为”ABCD”和”DCBA”。
For i＝1 To Len(s1) ch＝Mid(s1，i，1) s＝__________ Next i For i＝1 To Len(s1)
ch＝Mid(s1，i，1)
s＝__________
Next i
s＋ch
ch＋s
6.已知某电子邮箱地址(存储在字符串变量s中，格式为用户名@服务器名)的“@”符号的位置t，用VB表达式分别表示用户名的名称_______________，服务器地址的名称是_______________________。
7.一段英语短文(存储在字符串变量s中)，已知某单词的结束位置t和单词的长度n，用VB表达式___________________表示该单词。
8.在字符串s中，删除第t个位置的字母(如在”ABCD”中删除第2个字符”B”)表达式______________________________________。
9.在字符串s中第t个位置加入字符ch(如在”God”中第2个位置加入”o”)的表达式_____________________________________________。
10.在字符串s中，把首尾对应位置的称为对称位置(如第1和第Len(s))，则第i个位置的对称位置VB表达式为____________。
Mid(s，1，t－1)
Mid(s，t＋1，Len(s)－t)
Mid(s，t－n＋1，n)
Mid(s，1，t－1)＋Mid(s，t＋1，Len(s)－t)
Mid(s，1，t－1)＋ch＋Mid(s，t，Len(s)－t＋1)
Len(s)－i＋1
11.大写字母ch，转换为小写字母语句________________。
12.小写字母ch，转换为大写字母语句________________。
13.生成一个随机大写字母ch的语句__________________________。
14.生成一个随机小写字母ch的语句_____________________________。
15.大写字母ch在字母表中位置_____________________。
16.小写字母ch在字母表中位置_____________________。
Chr(Asc(ch)＋32)
Chr(Asc(ch)－32)
Chr(Asc(”A”)＋Int(Rnd*26))
Chr(Asc(”a”)＋Int(Rnd*26))
Asc(ch)－Asc(”A”)＋1
Asc(ch)－Asc(”a”)＋1
考点一 字符串的正向连接和反向连接，及字符串遍历的方向
在程序阅读过程中，要关注遍历字符串的方向，是从前往后遍历，还是从后往前遍历。还要注意字符串连接方式，是正向连接，还是反向连接。
【例1】 (2020·9月七彩阳光)某VB程序实现如下功能：在文本框Text1中输入字符串，在文本框Text2中产生对称字符串，如输入“abc”，产生“abccba”。程序段如下：
s＝Text1.Text
n＝Len(s)
s1＝s: i＝1
Do While i <＝Len(s)
i＝i＋1
Loop
Text2.Text＝s1
C
上述程序中方框(1)处的可选语句有：
①ch＝Mid(s，i，1) ②ch＝Mid(s，n－i＋1，1)
③s1＝s1＋ch ④s1＝ch＋s1 则正确的语句为( )
A.①③ B.①④ C.②③ D.②④
解析 根据循环变量i的取值，①③组合得到的字符串为abcabc；①④组合得到的字符串为cbaabc；②③组合得到的字符串为abccba；②④组合得到的字符串为abcabc。
【变式1】 (2020·9月山水联盟)有如下VB程序段：
flag＝False: s＝”ShanShui2020！”
For i＝1 To Len(s)
ch＝Mid(s，i，1)
If Not (ch>＝”0” And ch <＝”9”) And Not flag Then
t＝ch＋t
End If
flag＝Not flag
Next i
Text1.Text＝t
A
执行完以上程序段后，文本框Text1中的内容为( )
A.！uSaS B.SaSu!
C.！22uSaS D.ShanShui!
解析 当取出的字符不是数字并且flag等于False时，把取出的字符反向连接起来，因此把奇数位的非数字反向连接起来。
【例2】 回文数指正读反读都相同的字符。编写VB程序，实现如下功能：在文本框Text1中输入一个字符串，在文本框Text2中输出是否是回文。程序代码如下，把划线部分填充完整。
Private Sub Command1_Click()
Dim i As Integer，n As Integer
Dim s As String
s＝Text1.Text
i＝1: n＝Len(s)
Do While i <＝n\2 And ____①____
i＝i＋1
Loop
If ____②____ Then
Text2.Text＝”是回文数”
Else
Text2.Text＝”不是回文数”
End If
End Sub
答案 ①Mid(s，i，1)＝Mid(s，n－i＋1，1) ②i>n\2
解析 本题要求学生掌握两个知识点，一是如何不断地查找符合条件的字符，二是退出循环后，根据循环变量值判断完成了循环，还是中途退出循环。
考点二 字符串取值到数组常见方法
将字符串s中的数字保存到数组a中，如字符串“12，524，63，”，分别把12、524和63保存到a(1)、a(2)、a(3)中，有下列4种方法。
For i＝1 To Len(s) c＝Mid(s，i，1) If c <>”，” Then d＝d＋c Else k＝k＋1 a(k)＝Val(d) d＝”” End If Next i For i＝1 To Len(s)
c＝Mid(s，i，1)
If c <>”，” Then
d＝d*10＋Val(c)
Else
k＝k＋1
a(k)＝d
d＝0
End If
Next i
除了右上角的方法外，其他三种方法均能在字符串中取出单词。右上角的方法取出数字时要注意遍历的方向，从前往后遍历和从后往前遍历的结果是不一样的。同时注意最后一个字符。
For i＝1 To Len(s) c＝Mid(s，i，1) If c <>”，” Then d＝d＋1 Else k＝k＋1 a(k)＝Val(Mid(s，i－d，d)) d＝0 End If Next i d＝1
For i＝1 To Len(s)
c＝Mid(s，i，1)
If c＝”，” Then
k＝k＋1
a(k)＝Val(Mid(s，d，i－d))
d＝i＋1
End If
Next i
【例3】 有如下VB程序段：
s＝Text1.Text
flag＝True
For i＝1 To Len(s)
c＝Mid(s，i，1)
If c>＝”0” And c <＝”9” Then
t＝t*10＋Val(c)
Else
If flag Then sum＝sum＋t
t＝0
flag＝Not flag
End If
Next i
A
在文本框Text1中输入“12d6a3c4f20”，程序运行后sum值是( )
A.15 B.21 C.35 D.45
解析 主线索是从前往后取出每个字符，第2线索是查找数字，如果不是数字，当flag为True时进行累加，flag实现True和False的交替变换。当i＝Len(s)时，执行的是t＝t*10＋Val(c)，并未累加。
【变式2】 有如下VB程序段：
s＝Text1.Text
k＝1
For i＝Len(s) To 1 Step －1
c＝Mid(s，i，1)
If c>＝”0” And c <＝”9” Then
t＝t*10＋Val(c)
Else
sum＝sum＋k*t
t＝0
k＝－k
End If
Next i
B
在文本框Text1中输入“3A2BC10”，程序运行后sum值是( )
A.－1 B.3 C.8 D.11
解析 主线索是从后往前遍历字符，取出的数字依次是1，2，3，当取不是数字时，k发生1和－1的变化，遍历到C和B时，k分别为－1和1，遍历到A时，k为－1，遍历到3时，符合条件，取出t，但没有进行sum的累加，因此最终的结果是1＋2＝3。
1.字符串遍历的方向可能是从前往后，也可能从后往前。从后往前遍历时，取出的数字是逆向的。
2.当最后一个取出的是数字时，只是进行了联接，但没有进行计算，如上题中，满足了IF条件，但没有在Else分支中进行运算。
【例4】 有如下VB程序段：
s＝”Goodluck2020”： i＝1: k＝0: flag＝True
Randomize
Do While flag＝True And i <＝Len(s)
x＝Int(Rnd*Len(s))＋1
c＝Mid(s，x，1)
If c>＝”0” And c <＝”9” Then
k＝k＋1
ElseIf c>＝”a” And c <＝”z” Then
k＝k＋2
f1ag＝False
End If
i＝i＋1
Loop
D
执行程序后变量k的值不可能为( )
A.0 B.1 C.4 D.14
解析 本题考核的知识点是循环控制结构。退出循环的条件是f1ag＝False或超出字符串长度，当产生的x一直是1时，即产生一个大写字母时，当i超出字符串长度，此时k＝0。当产生11个大写字母和1个数字时，k＝1。当产生8个大写字母和4个数字，或2个数字和1个小写字母时，条件f1ag＝False成立时，k＝4。当k＝14时，必然需要产生2个或2个以上小写字母，但只要产生一个小写字母，f1ag＝False因此D选项不可能。
【变式3】 有如下VB程序段：
Dim s As String，a As String，t As String
s＝”101＋16＝117#789aLl@”： t＝””
For i＝1 To Len(s)
a＝Mid(s，i，1)
If a>＝”0” And a <＝”9” Then
t＝t＋a
ElseIf a＝”#” Or a>＝”A” And a <＝”Z” Then
t＝””
ElseIf t <>”” Then
List1.AddItem t
End If
Next i
A
运行程序，在列表框List1中显示的结果是( )
A. 101 10116 789 1 B. 101 16 789 1 C. 101 10116 101789 D.
101
10116
789
7891
解析 本题考查了阅读程序的能力。提取字符串进行判断，如果是数字则放入t中，如果是“#”或大写字符则t置为空，如果是其他字母则输出。
考点三 字符内码
Asc和Chr是计算机中常用的两个函数，在字符加密和字符移动中经过要应用到，但要注意Asc的计算结果是十进制数值。
【例5】 随机生成一个6位密码字符串s，其包含大写字母或小写字母，大写字母“A”的ASCII值为65，小写“a”为97，
s＝””
For i＝1 To 6
s＝s＋Chr(________)
Next i
D
空白处的表达式为( )
A.Int(Rnd*26)＋65 Or Int(Rnd*26)＋97
B.Int(Rnd*26)＋65 And Int(Rnd*26)＋97
C.Int(Rnd*26)＋97＋(－1) ^ Int(Rnd*2)*32
D.Int(Rnd*26)＋81＋(－1) ^ Int(Rnd*2)*16
解析 为产生大小写字母，必须产生65～90和97～122之间的随机整数，A、B选项结果是逻辑值，C项产生的数据范围是65～90和129～154，不符合要求。
【变式4】 输入一个字母，生产一个回文字符串，如输入大写字母“E”，则产生从“A”开始的回文字母“ABCDEDCBA”； 如输入“e”，则产生“abcdedcba”； 实现该功能的VB程序段如下：
m＝Text1.Text: s＝””
If m>＝”a” And m <＝”z” Then init＝Asc(”a”)
If m>＝”A” And m <＝”Z” Then init＝Asc(”A”)
n＝Asc(m)－init＋1
End If
Next i
Label2.Caption＝s
上述程序中方框处可选语句为：
①2*n－1 ②2*n ③Chr(Asc(m)＋i－n) ④Chr(init＋2*n－i－1)
则(1)(2)(3)处语句依次是( )
A.①③④ B.①④③ C.②③④ D.②③④
A
解析 本题考核的知识点是字符及字符串的处理。变量n表示输入字母m在字母表中位置，回文字母最中间的字母只有1个，包含的字母个数为2*n－1个，排除选项C和D。条件i <＝n成立时，表示左面的升序部分的n个字母，分别要输出字母表前n个位置中的字母。Asc(m)－n 的值为Asc(”a”)－1或Asc(”A”)－1，因此Asc(m)－n＋i表示字母表前n个位置中的字母的Asc值。当i从n＋1到2*n－1时，可以观察到该字母在字母表中位置t与i的和是一个定值2*n，因此t＝2*n－i，输出该字母的表达式为Chr(init＋t－1)，即Chr(init＋2*n－i－1)。
考点四 字符串的综合应用
简单遍历算法也称为顺序查找，指的是在一个系列(字符串或数组)中，从前往后或从后往前依次遍历比较查询的查找算法。在查找过程中，往往有一条主线索和多条副线索，主线索的功能往往是找出开始位置到结束位置的各个元素(循环结构)，第2线索往往是第i个元素是否符合条件(判断结构)，第3线索往往是对符合条件的元素进行处理(计数或累加)。各种加密、压缩解压缩算法、遍历搜索、数制转换等等几乎都是这种简单遍历查找算法。
(一)理清线索
如统计一段英文字符串s中单词的个数：单词与单词之间用“空格”、“逗号，”、“句号.”分隔。遍历的主线索是找出每个字符，第2线索是单词处理、第3条线索是单词个数统计。
如将一个十六进制数转换成十进制数，主线索是找出每个0－9或A－E的数字，第2线索是单个数字处理、第3条线索是如何计算数字的和。
如统计一组数据中连续增长的数字串，并找出最长数字串。主线索是遍历找出每个数字，第2、3线索是与前一数字或后一数字进行比较，如果满足条件，将如何记录数字串的开始和结束位置及长度。
如有n个区间(已按起始端升序排列)，若连续两个区间有重叠，可以将其进行合并。主线索是遍历每个区间，第2、3线索是区间若有重叠的条件和处理。
(二)建立模块化程序结构
顶层结构是循环遍历主线索，第二层次是判断第2线索，第3线索往往是在第2线索条件成立或不成立时进行处理。因此总结为以下常见的结构。
For i＝1 To n k＝a(i) ′主线线索 If 条件 Then ′第2线索 ′第3线索 Else End If Next i For i＝1 To n
k＝a(i) ′主线线索
If 条件 Then ′第2线索
Else
′第3线索
End If
Next i
【例6】 (2019·4月浙江选考)小王设计
“模拟撤销”程序，需要用一个“历
史记录”， “历史记录”是在对字
符串s进行插入或删除时，将每步操
作信息依次存储得到的，操作信息
由操作符(“＋”表示插入，“－”
表示删除)、操作位置和操作字符串(只包含英文字母)构成，例如，“＋23abc”表示在字符串s第23个位插入了“abc”， “模拟撤销”过程按照“历史记录”的逆序进行，将字符串s的内容恢复到初始状态。对字符串“Book”的操作与撤销过程，如图a所示。
图a
小王编写的“模拟撤销”VB程序如下，文本框 Text1中的内容是撤销前字符串，文本框Text2中的内容是历史记录，单击“撤销”按钮Command1后，在标签Label1中显示撤销过程，程序运行界面如图b所示。
图b
(1)实现上述功能的VB程序如下，在程序中出现的对象没有Caption属性的是________。(选填，填字码：A.Label1/B.Command1/C.Text1和Text2)
(2)请在划线处填入合适代码。
Private Sub Command1_Click()
Dim s As String，t As String，ch As String
Dim c As String，num As String，ss As String
Dim n As Integer，i As Integer
s＝Text1.Text: t＝Text2.Text
c＝””： num＝””： ss＝s
For i＝Len(t) To 1 Step －1
____①____
If ch>＝”a” And ch <＝”z” Or ch>＝”A” And ch＝”Z” Then
c＝ch＋c
ElseIf ch>＝”0” And ch <＝”9” Then
num＝ch＋num
Else
n＝Val(num)
If ch＝”－” Then
s＝Mid(s，1，n－1)＋____②____
Else
s＝Mid(s，1，n－1)＋Mid(s，n＋Len(c)，Len(s)－n－Len(c)＋1)
End If
ss＝ss＋”→”＋s
c＝””： num＝””
End If
Next i
Label1.Caption＝ss
End Sub
(3)运行该程序，若文本框Text1中的内容是”April”，文本框Text2中的内容是”－3p＋3ri－6e”，单击撤销按钮，For循环语句执行完成后，字符串s的值是”________”。
答案 (1)C (2)①ch＝Mid(t，i，1) ②c＋Mid(s，n，Len(s)－n＋1) (3)Apple
解析 当前字符为字母，则将字母拼接到变量 c 中，If ch>＝”a” And ch <＝”z” Or ch>＝”A” And ch＝”Z” Then(变量c存储将要删除或插入的字符串)，当前字符为数字，拼接到num。由于是撤销操作，因此当前字符为“＋”时，应删除该位置上的字符c，否则应拼接上字符c。若文本框Text1中的内容是”April”，文本框Text2中的内容是”－3p＋3ri－6e”，单击撤销按钮，先在第6个位置连接e，再在第3个位置删除ri，最后在新的字符的第3个位置加p。”Aprile” → ”Aple” →”Apple”。
【变式5】 (2018·11月浙江选考)在平面坐标系中，给定一组有序的点。从原点出发，依次用线段连接这些点，构成一条折线。要求编写一个“计算折线长度”的程序，功能如下：在文本框Text1中依次输入这些点的坐标值(数据都用逗号分隔并以逗号结尾)，单击“计算”按钮Cmd后，程序计算这条折线的长度，结果显示在Label1中。例如，三个点的坐标为(5，10)，(8，12)，(6，17)输入格式如图所示。
(1)Cmd对象属于________类(单选，填字母：A.Form/B.Label/C.TextBox/
D.CommandButton)。
(2)实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Cmd_Click()
Dim i As Integer，j As Integer，k As Integer
Dim x1 As Single，y1 As Single，x2 As Single，y2 As Single
Dim d As Single，Totald As Single，v As Single，s As String
s＝____①____
x1＝0: y1＝0 ′出发点为坐标原点
k＝1: j＝1: Totald＝0
For i＝1 To Len(s)
If Mid(s，i，1)＝”，” Then
v＝Val(Mid(s，j，i－j)) ′提取坐标值，保存在变量v中
j＝i＋1
If____②____ Then
x2＝v
Else
y2＝v
d＝Sqr((x2－x1) ^ 2＋(y2－y1) ^ 2)
Totald＝Totald＋d
x1＝x2: y1＝y2
End If
k＝k＋1
End If
Next i
Label1.Caption＝Str(Totald)
End Sub
(3)运行该程序，输入数据如上图所示，程序执行到循环结束时，变量k为__________。
答案 (1)D (2)①Text1.Text ②k Mod 2＝1 (3)7
解析 根据程序易知变量 s 存储文本框输入的数据，遇到逗号，代表一个数字的结束。变量 j 用于存储每个数字的起始位置，下一个数字起始位置为 i＋1。坐标(x，y)两个数字交替出现，奇数个是 x，偶数个是 y。变量 k 记录第几个数字，k Mod 2＝0表示第偶数个数字，则代表坐标(x，y)两个数字均提取完成，计算距离，并累加距离。遇到逗号，就会执行 k＝k＋1，总共 6 个逗号，k 的初值为 1，最终变为 7。
1.有下列程序段，s的值为”ABCDE”在表格中分别写出运算的结果。
For i＝1 To Len(s) ch＝Mid(s，i，1) n1＝n1＋ch Next i n1＝”____________” For i＝1 To Len(s)
ch＝Mid(s，i，1)
n2＝ch＋n2
Next i
n2＝”______________ ”
For i＝1 To Len(s) j＝Len(s)－ i＋1 n3＝n3＋Mid(s，j，1) Next i n3＝” ______________ ” For i＝Len(s) To 1 Step －1
j＝Len(s)－ i＋1
n4＝Mid(s，j，1)＋n4
Next i
n4＝” ____________”
答案 n1＝”ABCDE” n2＝”EDCBA” n3＝”EDCBA” n4＝”ABCDE”
解析 注意正向连接还是反向连接，Len(s)－ i＋1表示i的对称位置。
2.有如下VB程序：
s1＝Text1.Text: s2＝Text2.Text
m＝Len(s1): n＝Len(s2) : ans＝””
If Len(s1)>Len(s2) Then
For i＝1 To n
ans＝ans＋Mid(s1，i，1)＋Mid(s2，i，1)
Next i
ans＝ans＋Mid(s1，i，m－n)
Else
For i＝m To 1 Step －1
ans＝Mid(s2，i，1)＋ Mid(s1，i，1)＋ans
Next i
ans＝Mid(s2，m＋1，n－m)＋ans
End If
(1)运行程序，在文本框Text1和Text2中分别输入1234567和abcd，变量ans的值为________。
(2)在文本框Text1和Text2中分别输入abcd和1234567，变量ans的值为________。
答案 (1)”1a2b3c4d567” (2)”5671a2b3c4d”
解析 首先要划分程序结构，再去列出表格，找出运算结果。注意字符遍历和连接方向以及退出循环时，循环变量的值。
3.有如下VB程序段：
Dim flag As Boolean
s＝Text1.Text: j＝0: cnt＝1
For i＝1 To Len(s)
c＝Mid(s，i，l)
If c>＝”0” And c <＝”9” Then
j＝j＋1
flag＝True
Else
If j>lenmax And cnt Mod 2＝1 Then lenmax＝j
j＝0
If flag Then cnt＝cnt＋1: flag＝False
End If
Next i
Text2.Text＝Str(lenmax)
在文本框Text1输入“one302type27645time9986”，程序运行后文本框Text2中显示为( )
A.12 B.5 C.3 D.4
解析 当找到一个数字时，flag的值为True，同时统计数字串中数字个数，当出现奇数个数字串时，找其中的最长数字串。3个数字串分别为302、27645和9986，当i等于Len(s)时，读出数字6，只是进行计数，没有对cnt进行统计，因此cnt等于1时，lenmax的值为3。
C
4.有如下VB程序段：
s＝Text1.Text
For i＝2 To Len(s)－1
c＝Mid(s，i，1)
If Asc(c)>＝Asc(”A”) And Asc(c) <＝Asc(”Z”) Then
s＝Mid(s，1，i－1)＋Chr(Asc(c)＋1)＋Mid(s，i＋1)
End If
Next i
Text2.Text＝s
程序运行后，在文本框Text1中输入”ILikeQzez！”，点击按钮，则文本框Text2中输出为( )
A.JMikeRzez! B.LikeQzez！I
C.IMikeRzez! D.！ILikeQzez
解析 本题考查VB字符串的处理。从第2个字符开始从左往右枚举，若发现大写字母，就将大写字母按字母表的顺序向后变化一位(由asc(c)＋1可得出这一结论)，从而得到答案。
C
5.有如下VB程序段：
n＝Len(Text1.Text): c＝0
Do While n>1
s1＝Mid(Text1.Text，n，1): s2＝Mid(Text1.Text，n－1，1)
If Abs(Asc(s1)－Asc(s2)) Mod 2＝1 Then c＝c＋1
n＝n－1
Loop
Text2.Text＝Str(c)
若在文本框Text1中输入“20191001”，程序段运行后，文本框Text2显示的内容是( )
A.0 B.1 C.2 D.3
解析 循环开始前，变量n的值为8，每循环一次n＝n－1，循环的终止条件是n>1，即n＝2时终止循环。发生在ASCII码值相差是奇数分别是第8，7位，第6，5位，第3，2位。
D
6.(2020·4月嘉兴)有如下VB程序段，在文本框Text1中输入一个仅包含字符“0”与“1”的字符串(字符串中没有连续的“1”)，将其中任意位置的“0”翻转为“1”，但要确保翻转之后的字符串中仍然没有连续的“1”，求最多可翻转的“0”的个数，并在标签Label1中输出。如：字符串“100101000100”中最多可将2个“0”翻转为“1”， 变为“100101010101”
s＝”0” & Text1.Text & ”0”
c＝0: i＝2
Do While iIf__①____ Then
i＝i＋2
ElseIf______②____ Then
i＝i＋1
ElseIf______③____ Then
i＝i＋3
Else
i＝i＋2: c＝c＋1
End If
Loop
Label1.Caption＝”最多可翻转” & Str(c) & ”个0”
上述程序中横线处可选语句为：
①Mid(s，i－1，1)＝”1” ②Mid(s，i，1)＝”1” ③Mid(s，i＋1，1)＝”1”
则①、②、③处语句依次是( )
A.①②③ B.③②① C.②①③ D.②③①
解析 字符串s是在原来Text1前后各加1个0，可以取到原Text1前面一个位置的字符，当i＝Len(s)－1时，可以取到最后一个0。不能翻转的有三种情况，当前位置i前面是1，当前位置是1，当前位置后面是1，下次可能翻转的位置在i＋1、i＋2和i＋3。
C
7.以下VB程序段的功能：单击一次按钮Command1，在列表List1中随机输出一行10个任意大小写字母，已知大写字母ASCII值范围[65，90]，小写字母ASCII值范围[97，122]。
s＝””
For i＝1 To 10
____①____
If a <＝26 Then t＝a＋64 Else ____②____
s＝s＋Chr(t)
Next i
List1.AddItem s
以上横线处的正确语句是( )
A.①a＝Int(Rnd*52＋1) ②t＝a＋70
B.①a＝Int(Rnd*52) ②t＝a＋71
C.①a＝Int(Rnd*52＋1) ②t＝a＋72
D.①a＝Int(Rnd*52) ②t＝a＋73
解析 根据语句a<＝26，可知①处需要给变量a赋值，取值范围在[1，52]，其中[1，26]表示大写字母，[27，52]表示小写字母。因此选择A。
A
专题15 字符串处理
1.判断字符ch是大写字母的条件表达式是________________________。
2.判断一个字符ch是小写字母的表达式是________________________。
3.判7断一个字符ch是数字的表达式是___________________________。
4.判断一个字符ch是字母的表达式是__________________________________
___________________。
ch>＝”A” And ch <＝”Z”
ch>＝”a” And ch <＝”z”
ch>＝”0” And ch <＝”9”
ch>＝”A” And ch <＝”Z” Or ch>＝
”a” And ch <＝”z”
5.取出字符串中的字符并依次放在新字符串的后面，称为字符串的正向连接；取出字符串中的字符并依次放在新字符串的前面，称为字符串的反向连接；下列程序段功能：字符串s1的值为”ABCD”，分别取出s1中字符，连接到新字符串s中，结果为”ABCD”和”DCBA”。
For i＝1 To Len(s1) ch＝Mid(s1，i，1) s＝__________ Next i For i＝1 To Len(s1)
ch＝Mid(s1，i，1)
s＝__________
Next i
s＋ch
ch＋s
6.已知某电子邮箱地址(存储在字符串变量s中，格式为用户名@服务器名)的“@”符号的位置t，用VB表达式分别表示用户名的名称_______________，服务器地址的名称是_______________________。
7.一段英语短文(存储在字符串变量s中)，已知某单词的结束位置t和单词的长度n，用VB表达式___________________表示该单词。
8.在字符串s中，删除第t个位置的字母(如在”ABCD”中删除第2个字符”B”)表达式______________________________________。
9.在字符串s中第t个位置加入字符ch(如在”God”中第2个位置加入”o”)的表达式_____________________________________________。
10.在字符串s中，把首尾对应位置的称为对称位置(如第1和第Len(s))，则第i个位置的对称位置VB表达式为____________。
Mid(s，1，t－1)
Mid(s，t＋1，Len(s)－t)
Mid(s，t－n＋1，n)
Mid(s，1，t－1)＋Mid(s，t＋1，Len(s)－t)
Mid(s，1，t－1)＋ch＋Mid(s，t，Len(s)－t＋1)
Len(s)－i＋1
11.大写字母ch，转换为小写字母语句________________。
12.小写字母ch，转换为大写字母语句________________。
13.生成一个随机大写字母ch的语句__________________________。
14.生成一个随机小写字母ch的语句_____________________________。
15.大写字母ch在字母表中位置_____________________。
16.小写字母ch在字母表中位置_____________________。
Chr(Asc(ch)＋32)
Chr(Asc(ch)－32)
Chr(Asc(”A”)＋Int(Rnd*26))
Chr(Asc(”a”)＋Int(Rnd*26))
Asc(ch)－Asc(”A”)＋1
Asc(ch)－Asc(”a”)＋1
考点一 字符串的正向连接和反向连接，及字符串遍历的方向
在程序阅读过程中，要关注遍历字符串的方向，是从前往后遍历，还是从后往前遍历。还要注意字符串连接方式，是正向连接，还是反向连接。
【例1】 (2020·9月七彩阳光)某VB程序实现如下功能：在文本框Text1中输入字符串，在文本框Text2中产生对称字符串，如输入“abc”，产生“abccba”。程序段如下：
s＝Text1.Text
n＝Len(s)
s1＝s: i＝1
Do While i <＝Len(s)
i＝i＋1
Loop
Text2.Text＝s1
C
上述程序中方框(1)处的可选语句有：
①ch＝Mid(s，i，1) ②ch＝Mid(s，n－i＋1，1)
③s1＝s1＋ch ④s1＝ch＋s1 则正确的语句为( )
A.①③ B.①④ C.②③ D.②④
解析 根据循环变量i的取值，①③组合得到的字符串为abcabc；①④组合得到的字符串为cbaabc；②③组合得到的字符串为abccba；②④组合得到的字符串为abcabc。
【变式1】 (2020·9月山水联盟)有如下VB程序段：
flag＝False: s＝”ShanShui2020！”
For i＝1 To Len(s)
ch＝Mid(s，i，1)
If Not (ch>＝”0” And ch <＝”9”) And Not flag Then
t＝ch＋t
End If
flag＝Not flag
Next i
Text1.Text＝t
A
执行完以上程序段后，文本框Text1中的内容为( )
A.！uSaS B.SaSu!
C.！22uSaS D.ShanShui!
解析 当取出的字符不是数字并且flag等于False时，把取出的字符反向连接起来，因此把奇数位的非数字反向连接起来。
【例2】 回文数指正读反读都相同的字符。编写VB程序，实现如下功能：在文本框Text1中输入一个字符串，在文本框Text2中输出是否是回文。程序代码如下，把划线部分填充完整。
Private Sub Command1_Click()
Dim i As Integer，n As Integer
Dim s As String
s＝Text1.Text
i＝1: n＝Len(s)
Do While i <＝n\2 And ____①____
i＝i＋1
Loop
If ____②____ Then
Text2.Text＝”是回文数”
Else
Text2.Text＝”不是回文数”
End If
End Sub
答案 ①Mid(s，i，1)＝Mid(s，n－i＋1，1) ②i>n\2
解析 本题要求学生掌握两个知识点，一是如何不断地查找符合条件的字符，二是退出循环后，根据循环变量值判断完成了循环，还是中途退出循环。
考点二 字符串取值到数组常见方法
将字符串s中的数字保存到数组a中，如字符串“12，524，63，”，分别把12、524和63保存到a(1)、a(2)、a(3)中，有下列4种方法。
For i＝1 To Len(s) c＝Mid(s，i，1) If c <>”，” Then d＝d＋c Else k＝k＋1 a(k)＝Val(d) d＝”” End If Next i For i＝1 To Len(s)
c＝Mid(s，i，1)
If c <>”，” Then
d＝d*10＋Val(c)
Else
k＝k＋1
a(k)＝d
d＝0
End If
Next i
除了右上角的方法外，其他三种方法均能在字符串中取出单词。右上角的方法取出数字时要注意遍历的方向，从前往后遍历和从后往前遍历的结果是不一样的。同时注意最后一个字符。
For i＝1 To Len(s) c＝Mid(s，i，1) If c <>”，” Then d＝d＋1 Else k＝k＋1 a(k)＝Val(Mid(s，i－d，d)) d＝0 End If Next i d＝1
For i＝1 To Len(s)
c＝Mid(s，i，1)
If c＝”，” Then
k＝k＋1
a(k)＝Val(Mid(s，d，i－d))
d＝i＋1
End If
Next i
【例3】 有如下VB程序段：
s＝Text1.Text
flag＝True
For i＝1 To Len(s)
c＝Mid(s，i，1)
If c>＝”0” And c <＝”9” Then
t＝t*10＋Val(c)
Else
If flag Then sum＝sum＋t
t＝0
flag＝Not flag
End If
Next i
A
在文本框Text1中输入“12d6a3c4f20”，程序运行后sum值是( )
A.15 B.21 C.35 D.45
解析 主线索是从前往后取出每个字符，第2线索是查找数字，如果不是数字，当flag为True时进行累加，flag实现True和False的交替变换。当i＝Len(s)时，执行的是t＝t*10＋Val(c)，并未累加。
【变式2】 有如下VB程序段：
s＝Text1.Text
k＝1
For i＝Len(s) To 1 Step －1
c＝Mid(s，i，1)
If c>＝”0” And c <＝”9” Then
t＝t*10＋Val(c)
Else
sum＝sum＋k*t
t＝0
k＝－k
End If
Next i
B
在文本框Text1中输入“3A2BC10”，程序运行后sum值是( )
A.－1 B.3 C.8 D.11
解析 主线索是从后往前遍历字符，取出的数字依次是1，2，3，当取不是数字时，k发生1和－1的变化，遍历到C和B时，k分别为－1和1，遍历到A时，k为－1，遍历到3时，符合条件，取出t，但没有进行sum的累加，因此最终的结果是1＋2＝3。
1.字符串遍历的方向可能是从前往后，也可能从后往前。从后往前遍历时，取出的数字是逆向的。
2.当最后一个取出的是数字时，只是进行了联接，但没有进行计算，如上题中，满足了IF条件，但没有在Else分支中进行运算。
【例4】 有如下VB程序段：
s＝”Goodluck2020”： i＝1: k＝0: flag＝True
Randomize
Do While flag＝True And i <＝Len(s)
x＝Int(Rnd*Len(s))＋1
c＝Mid(s，x，1)
If c>＝”0” And c <＝”9” Then
k＝k＋1
ElseIf c>＝”a” And c <＝”z” Then
k＝k＋2
f1ag＝False
End If
i＝i＋1
Loop
D
执行程序后变量k的值不可能为( )
A.0 B.1 C.4 D.14
解析 本题考核的知识点是循环控制结构。退出循环的条件是f1ag＝False或超出字符串长度，当产生的x一直是1时，即产生一个大写字母时，当i超出字符串长度，此时k＝0。当产生11个大写字母和1个数字时，k＝1。当产生8个大写字母和4个数字，或2个数字和1个小写字母时，条件f1ag＝False成立时，k＝4。当k＝14时，必然需要产生2个或2个以上小写字母，但只要产生一个小写字母，f1ag＝False因此D选项不可能。
【变式3】 有如下VB程序段：
Dim s As String，a As String，t As String
s＝”101＋16＝117#789aLl@”： t＝””
For i＝1 To Len(s)
a＝Mid(s，i，1)
If a>＝”0” And a <＝”9” Then
t＝t＋a
ElseIf a＝”#” Or a>＝”A” And a <＝”Z” Then
t＝””
ElseIf t <>”” Then
List1.AddItem t
End If
Next i
A
运行程序，在列表框List1中显示的结果是( )
A. 101 10116 789 1 B. 101 16 789 1 C. 101 10116 101789 D.
101
10116
789
7891
解析 本题考查了阅读程序的能力。提取字符串进行判断，如果是数字则放入t中，如果是“#”或大写字符则t置为空，如果是其他字母则输出。
考点三 字符内码
Asc和Chr是计算机中常用的两个函数，在字符加密和字符移动中经过要应用到，但要注意Asc的计算结果是十进制数值。
【例5】 随机生成一个6位密码字符串s，其包含大写字母或小写字母，大写字母“A”的ASCII值为65，小写“a”为97，
s＝””
For i＝1 To 6
s＝s＋Chr(________)
Next i
D
空白处的表达式为( )
A.Int(Rnd*26)＋65 Or Int(Rnd*26)＋97
B.Int(Rnd*26)＋65 And Int(Rnd*26)＋97
C.Int(Rnd*26)＋97＋(－1) ^ Int(Rnd*2)*32
D.Int(Rnd*26)＋81＋(－1) ^ Int(Rnd*2)*16
解析 为产生大小写字母，必须产生65～90和97～122之间的随机整数，A、B选项结果是逻辑值，C项产生的数据范围是65～90和129～154，不符合要求。
【变式4】 输入一个字母，生产一个回文字符串，如输入大写字母“E”，则产生从“A”开始的回文字母“ABCDEDCBA”； 如输入“e”，则产生“abcdedcba”； 实现该功能的VB程序段如下：
m＝Text1.Text: s＝””
If m>＝”a” And m <＝”z” Then init＝Asc(”a”)
If m>＝”A” And m <＝”Z” Then init＝Asc(”A”)
n＝Asc(m)－init＋1
End If
Next i
Label2.Caption＝s
上述程序中方框处可选语句为：
①2*n－1 ②2*n ③Chr(Asc(m)＋i－n) ④Chr(init＋2*n－i－1)
则(1)(2)(3)处语句依次是( )
A.①③④ B.①④③ C.②③④ D.②③④
A
解析 本题考核的知识点是字符及字符串的处理。变量n表示输入字母m在字母表中位置，回文字母最中间的字母只有1个，包含的字母个数为2*n－1个，排除选项C和D。条件i <＝n成立时，表示左面的升序部分的n个字母，分别要输出字母表前n个位置中的字母。Asc(m)－n 的值为Asc(”a”)－1或Asc(”A”)－1，因此Asc(m)－n＋i表示字母表前n个位置中的字母的Asc值。当i从n＋1到2*n－1时，可以观察到该字母在字母表中位置t与i的和是一个定值2*n，因此t＝2*n－i，输出该字母的表达式为Chr(init＋t－1)，即Chr(init＋2*n－i－1)。
考点四 字符串的综合应用
简单遍历算法也称为顺序查找，指的是在一个系列(字符串或数组)中，从前往后或从后往前依次遍历比较查询的查找算法。在查找过程中，往往有一条主线索和多条副线索，主线索的功能往往是找出开始位置到结束位置的各个元素(循环结构)，第2线索往往是第i个元素是否符合条件(判断结构)，第3线索往往是对符合条件的元素进行处理(计数或累加)。各种加密、压缩解压缩算法、遍历搜索、数制转换等等几乎都是这种简单遍历查找算法。
(一)理清线索
如统计一段英文字符串s中单词的个数：单词与单词之间用“空格”、“逗号，”、“句号.”分隔。遍历的主线索是找出每个字符，第2线索是单词处理、第3条线索是单词个数统计。
如将一个十六进制数转换成十进制数，主线索是找出每个0－9或A－E的数字，第2线索是单个数字处理、第3条线索是如何计算数字的和。
如统计一组数据中连续增长的数字串，并找出最长数字串。主线索是遍历找出每个数字，第2、3线索是与前一数字或后一数字进行比较，如果满足条件，将如何记录数字串的开始和结束位置及长度。
如有n个区间(已按起始端升序排列)，若连续两个区间有重叠，可以将其进行合并。主线索是遍历每个区间，第2、3线索是区间若有重叠的条件和处理。
(二)建立模块化程序结构
顶层结构是循环遍历主线索，第二层次是判断第2线索，第3线索往往是在第2线索条件成立或不成立时进行处理。因此总结为以下常见的结构。
For i＝1 To n k＝a(i) ′主线线索 If 条件 Then ′第2线索 ′第3线索 Else End If Next i For i＝1 To n
k＝a(i) ′主线线索
If 条件 Then ′第2线索
Else
′第3线索
End If
Next i
【例6】 (2019·4月浙江选考)小王设计
“模拟撤销”程序，需要用一个“历
史记录”， “历史记录”是在对字
符串s进行插入或删除时，将每步操
作信息依次存储得到的，操作信息
由操作符(“＋”表示插入，“－”
表示删除)、操作位置和操作字符串(只包含英文字母)构成，例如，“＋23abc”表示在字符串s第23个位插入了“abc”， “模拟撤销”过程按照“历史记录”的逆序进行，将字符串s的内容恢复到初始状态。对字符串“Book”的操作与撤销过程，如图a所示。
图a
小王编写的“模拟撤销”VB程序如下，文本框 Text1中的内容是撤销前字符串，文本框Text2中的内容是历史记录，单击“撤销”按钮Command1后，在标签Label1中显示撤销过程，程序运行界面如图b所示。
图b
(1)实现上述功能的VB程序如下，在程序中出现的对象没有Caption属性的是________。(选填，填字码：A.Label1/B.Command1/C.Text1和Text2)
(2)请在划线处填入合适代码。
Private Sub Command1_Click()
Dim s As String，t As String，ch As String
Dim c As String，num As String，ss As String
Dim n As Integer，i As Integer
s＝Text1.Text: t＝Text2.Text
c＝””： num＝””： ss＝s
For i＝Len(t) To 1 Step －1
____①____
If ch>＝”a” And ch <＝”z” Or ch>＝”A” And ch＝”Z” Then
c＝ch＋c
ElseIf ch>＝”0” And ch <＝”9” Then
num＝ch＋num
Else
n＝Val(num)
If ch＝”－” Then
s＝Mid(s，1，n－1)＋____②____
Else
s＝Mid(s，1，n－1)＋Mid(s，n＋Len(c)，Len(s)－n－Len(c)＋1)
End If
ss＝ss＋”→”＋s
c＝””： num＝””
End If
Next i
Label1.Caption＝ss
End Sub
(3)运行该程序，若文本框Text1中的内容是”April”，文本框Text2中的内容是”－3p＋3ri－6e”，单击撤销按钮，For循环语句执行完成后，字符串s的值是”________”。
答案 (1)C (2)①ch＝Mid(t，i，1) ②c＋Mid(s，n，Len(s)－n＋1) (3)Apple
解析 当前字符为字母，则将字母拼接到变量 c 中，If ch>＝”a” And ch <＝”z” Or ch>＝”A” And ch＝”Z” Then(变量c存储将要删除或插入的字符串)，当前字符为数字，拼接到num。由于是撤销操作，因此当前字符为“＋”时，应删除该位置上的字符c，否则应拼接上字符c。若文本框Text1中的内容是”April”，文本框Text2中的内容是”－3p＋3ri－6e”，单击撤销按钮，先在第6个位置连接e，再在第3个位置删除ri，最后在新的字符的第3个位置加p。”Aprile” → ”Aple” →”Apple”。
【变式5】 (2018·11月浙江选考)在平面坐标系中，给定一组有序的点。从原点出发，依次用线段连接这些点，构成一条折线。要求编写一个“计算折线长度”的程序，功能如下：在文本框Text1中依次输入这些点的坐标值(数据都用逗号分隔并以逗号结尾)，单击“计算”按钮Cmd后，程序计算这条折线的长度，结果显示在Label1中。例如，三个点的坐标为(5，10)，(8，12)，(6，17)输入格式如图所示。
(1)Cmd对象属于________类(单选，填字母：A.Form/B.Label/C.TextBox/
D.CommandButton)。
(2)实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Cmd_Click()
Dim i As Integer，j As Integer，k As Integer
Dim x1 As Single，y1 As Single，x2 As Single，y2 As Single
Dim d As Single，Totald As Single，v As Single，s As String
s＝____①____
x1＝0: y1＝0 ′出发点为坐标原点
k＝1: j＝1: Totald＝0
For i＝1 To Len(s)
If Mid(s，i，1)＝”，” Then
v＝Val(Mid(s，j，i－j)) ′提取坐标值，保存在变量v中
j＝i＋1
If____②____ Then
x2＝v
Else
y2＝v
d＝Sqr((x2－x1) ^ 2＋(y2－y1) ^ 2)
Totald＝Totald＋d
x1＝x2: y1＝y2
End If
k＝k＋1
End If
Next i
Label1.Caption＝Str(Totald)
End Sub
(3)运行该程序，输入数据如上图所示，程序执行到循环结束时，变量k为__________。
答案 (1)D (2)①Text1.Text ②k Mod 2＝1 (3)7
解析 根据程序易知变量 s 存储文本框输入的数据，遇到逗号，代表一个数字的结束。变量 j 用于存储每个数字的起始位置，下一个数字起始位置为 i＋1。坐标(x，y)两个数字交替出现，奇数个是 x，偶数个是 y。变量 k 记录第几个数字，k Mod 2＝0表示第偶数个数字，则代表坐标(x，y)两个数字均提取完成，计算距离，并累加距离。遇到逗号，就会执行 k＝k＋1，总共 6 个逗号，k 的初值为 1，最终变为 7。
1.有下列程序段，s的值为”ABCDE”在表格中分别写出运算的结果。
For i＝1 To Len(s) ch＝Mid(s，i，1) n1＝n1＋ch Next i n1＝”____________” For i＝1 To Len(s)
ch＝Mid(s，i，1)
n2＝ch＋n2
Next i
n2＝”______________ ”
For i＝1 To Len(s) j＝Len(s)－ i＋1 n3＝n3＋Mid(s，j，1) Next i n3＝” ______________ ” For i＝Len(s) To 1 Step －1
j＝Len(s)－ i＋1
n4＝Mid(s，j，1)＋n4
Next i
n4＝” ____________”
答案 n1＝”ABCDE” n2＝”EDCBA” n3＝”EDCBA” n4＝”ABCDE”
解析 注意正向连接还是反向连接，Len(s)－ i＋1表示i的对称位置。
2.有如下VB程序：
s1＝Text1.Text: s2＝Text2.Text
m＝Len(s1): n＝Len(s2) : ans＝””
If Len(s1)>Len(s2) Then
For i＝1 To n
ans＝ans＋Mid(s1，i，1)＋Mid(s2，i，1)
Next i
ans＝ans＋Mid(s1，i，m－n)
Else
For i＝m To 1 Step －1
ans＝Mid(s2，i，1)＋ Mid(s1，i，1)＋ans
Next i
ans＝Mid(s2，m＋1，n－m)＋ans
End If
(1)运行程序，在文本框Text1和Text2中分别输入1234567和abcd，变量ans的值为________。
(2)在文本框Text1和Text2中分别输入abcd和1234567，变量ans的值为________。
答案 (1)”1a2b3c4d567” (2)”5671a2b3c4d”
解析 首先要划分程序结构，再去列出表格，找出运算结果。注意字符遍历和连接方向以及退出循环时，循环变量的值。
3.有如下VB程序段：
Dim flag As Boolean
s＝Text1.Text: j＝0: cnt＝1
For i＝1 To Len(s)
c＝Mid(s，i，l)
If c>＝”0” And c <＝”9” Then
j＝j＋1
flag＝True
Else
If j>lenmax And cnt Mod 2＝1 Then lenmax＝j
j＝0
If flag Then cnt＝cnt＋1: flag＝False
End If
Next i
Text2.Text＝Str(lenmax)
在文本框Text1输入“one302type27645time9986”，程序运行后文本框Text2中显示为( )
A.12 B.5 C.3 D.4
解析 当找到一个数字时，flag的值为True，同时统计数字串中数字个数，当出现奇数个数字串时，找其中的最长数字串。3个数字串分别为302、27645和9986，当i等于Len(s)时，读出数字6，只是进行计数，没有对cnt进行统计，因此cnt等于1时，lenmax的值为3。
C
4.有如下VB程序段：
s＝Text1.Text
For i＝2 To Len(s)－1
c＝Mid(s，i，1)
If Asc(c)>＝Asc(”A”) And Asc(c) <＝Asc(”Z”) Then
s＝Mid(s，1，i－1)＋Chr(Asc(c)＋1)＋Mid(s，i＋1)
End If
Next i
Text2.Text＝s
程序运行后，在文本框Text1中输入”ILikeQzez！”，点击按钮，则文本框Text2中输出为( )
A.JMikeRzez! B.LikeQzez！I
C.IMikeRzez! D.！ILikeQzez
解析 本题考查VB字符串的处理。从第2个字符开始从左往右枚举，若发现大写字母，就将大写字母按字母表的顺序向后变化一位(由asc(c)＋1可得出这一结论)，从而得到答案。
C
5.有如下VB程序段：
n＝Len(Text1.Text): c＝0
Do While n>1
s1＝Mid(Text1.Text，n，1): s2＝Mid(Text1.Text，n－1，1)
If Abs(Asc(s1)－Asc(s2)) Mod 2＝1 Then c＝c＋1
n＝n－1
Loop
Text2.Text＝Str(c)
若在文本框Text1中输入“20191001”，程序段运行后，文本框Text2显示的内容是( )
A.0 B.1 C.2 D.3
解析 循环开始前，变量n的值为8，每循环一次n＝n－1，循环的终止条件是n>1，即n＝2时终止循环。发生在ASCII码值相差是奇数分别是第8，7位，第6，5位，第3，2位。
D
6.(2020·4月嘉兴)有如下VB程序段，在文本框Text1中输入一个仅包含字符“0”与“1”的字符串(字符串中没有连续的“1”)，将其中任意位置的“0”翻转为“1”，但要确保翻转之后的字符串中仍然没有连续的“1”，求最多可翻转的“0”的个数，并在标签Label1中输出。如：字符串“100101000100”中最多可将2个“0”翻转为“1”， 变为“100101010101”
s＝”0” & Text1.Text & ”0”
c＝0: i＝2
Do While i
i＝i＋2
ElseIf______②____ Then
i＝i＋1
ElseIf______③____ Then
i＝i＋3
Else
i＝i＋2: c＝c＋1
End If
Loop
Label1.Caption＝”最多可翻转” & Str(c) & ”个0”
上述程序中横线处可选语句为：
①Mid(s，i－1，1)＝”1” ②Mid(s，i，1)＝”1” ③Mid(s，i＋1，1)＝”1”
则①、②、③处语句依次是( )
A.①②③ B.③②① C.②①③ D.②③①
解析 字符串s是在原来Text1前后各加1个0，可以取到原Text1前面一个位置的字符，当i＝Len(s)－1时，可以取到最后一个0。不能翻转的有三种情况，当前位置i前面是1，当前位置是1，当前位置后面是1，下次可能翻转的位置在i＋1、i＋2和i＋3。
C
7.以下VB程序段的功能：单击一次按钮Command1，在列表List1中随机输出一行10个任意大小写字母，已知大写字母ASCII值范围[65，90]，小写字母ASCII值范围[97，122]。
s＝””
For i＝1 To 10
____①____
If a <＝26 Then t＝a＋64 Else ____②____
s＝s＋Chr(t)
Next i
List1.AddItem s
以上横线处的正确语句是( )
A.①a＝Int(Rnd*52＋1) ②t＝a＋70
B.①a＝Int(Rnd*52) ②t＝a＋71
C.①a＝Int(Rnd*52＋1) ②t＝a＋72
D.①a＝Int(Rnd*52) ②t＝a＋73
解析 根据语句a<＝26，可知①处需要给变量a赋值，取值范围在[1，52]，其中[1，26]表示大写字母，[27，52]表示小写字母。因此选择A。
A
同课章节目录