第3节 字符串问题
模拟演练
1.编写VB程序代码,实现如下功能:在文本框Text1中输入金额(整数)后,点击“转换”按钮Command1,则在文本框Text2中显示该金额的大写,程序运行界面如下图所示:
/
(1)要使窗体标题上显示的文本改为“人民币大小写”,可在其属性窗口中将 属性的属性值改为“人民币大小写”。?
(2)为了实现以上程序功能,使程序正常运行,请完善以下两处代码。
Private Sub Command1_Click()
Dim dx As String, dw As String
Dim s As String, c As String
Dim ch As String,i As Integer
dx=“零壹贰叁肆伍陆柒捌玖拾”
dw =“亿仟佰拾萬仟佰拾元”
① ?
If Len(s) > 9 Then
Label2.Caption=“输入的数据超出所能转换的范围”
Else
For i = 1 To Len(s)
ch = Mid(s, i, 1)
c = c + Mid(dx, Val(ch)+1,1)+ ② ?
Next i
Label2.Caption = c +“整”
End If
End Sub
(3)由上述算法可知,若在文本框Text 1中输入“20”,则文本框Text3显示的结果为 。?
答案 (1)Caption (2)①s=Text1.Text ②Mid(dw, 9 - Len(s) + i, 1) (3)贰拾零元整
解析 本题考查字符串拼接。For 语句遍历数字字符串,字符变量c存放拼接字符。(1)略。(2)①输入字符串,存放到s中。②该累加部分由原值c+大写+单位构成,单位应该由金额位数映射到字符串dw,通过Mid获取。(3)略。
2.实现如下程序:输入一个非负数,将该数各位上的数字反转得到一个新数。得到的新数,除了原数为0外,反转得到的新数最高位不应为0。程序运行时,在文本框Text1输入数字,单击按钮Command1后在文本框Text2上输出结果。程序界面如图所示。实现上述功能的VB程序如下,在划线处填入合适的代码。
/
Private Sub Command1_Click()
Dim a As String, n As Integer
a = Text1.Text
① ?
Do While n > 1 And Mid (a, n, 1) = “0”
② ?
Loop
For i = n To 1 Step -1
Text2.Text = ③ ?
Next i
End Sub
答案 ①n = Len(a) ②n=n-1 ③Text2.Text + Mid(a, i, 1)
解析 本题考查数字反转,第一个Do While语句是尾部除零,接下来For语句是倒取数值。①分析Mid(a,n,1)=“0”得出n应为最后一个字符位置,也就是字符串长度。②Do While尾部除零,满足循环条件时,n左移1位。③现在n值表示为字符串最后非零位。因此只要把其从大到小遍历取出,新取的值位于原值右侧。
3.趣味填空题:给出用等号连接的两个整数,如“222 = 24”,让你在左边的整数中间某个位置插入一个加号,看有没有可能让等式成立。以上面的式子为例,可以写成2+22=24和22+2=24两种答案。现设计一个程序,实现该算法,程序运行界面如图所示。
/
(1)标题要显示“趣味数学”,需修改窗体的 (选填:Caption、Name、Text)属性。?
(2)实现上述功能的VB程序如下,请在程序划线处填入合适代码。
Private Sub Command1_Click()
Dim s As String, s1 As String, s2 As String
Dim c As Integer, k As Integer, i As Integer, flag As Boolean
flag = False: c = 0
s = Text1.Text
For i = 1 To Len(s)
If Mid(s, i, 1) = “=”Then Exit For
Next i
① ?
s2 = Mid(s,i+1,Len(s)- i)
k = Len(s1)
For i = 1 To k-1
If Val(Mid(s1, 1, i))+Val(Mid(s1, i + 1, k-i))=Val(s2) Then
② ?
List1.AddItem “第”+Str (c)+“种答案:”+Mid(s, 1, i)+“+”+Mid(s, i + 1, Len (s)-i)
flag = True
End If
Next i
If ③ Then List1.AddItem “没有答案!”?
End Sub
答案 (1)Caption (2)①s1 = Mid(s, 1, i - 1) ②c=c+1③Not flag 或 flag=False
解析 本题考查字符遍历截取。第一个For语句获取“=”位置,第二个For语句枚举遍历所有加法。(1)略。(2)①获取第一个数值,由变量i定位,通过Mid函数获得,存放到s1中。(2)②分析下方“第”+Str(c)+“种答案”可知,变量c作用是统计答案数。③由后面“没有答案”推导出,条件应为不满足,故flag=false。
4.用VB编写一个“加减法运算”程序,实现如下功能:在文本框Text1中输入多个正整数加减算式(只包含数字和“+ ”“-”字符,以“=”为结束符),单击“计算”按钮Command1,计算结果在标签Label1上显示。程序运行界面如图所示。
/
(1)程序运行时清空Label1上的内容,则可在Form_Load事件过程中添加语句 (单选,填字母:A.Forml.Caption= “”/ B.Forml.Text=“”/C.Label1.Caption=“”/D.Label1.Text=“”)。?
(2)实现上述功能的VB程序如下,请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String, t As Integer
s = Text1.Text
t = 0: p = 0: flag = 1
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >=“0” And ch <= “9” Then
p = ① ?
Else
t= ② ?
p = 0
If ch = “-” Then
flag = -1
Else If ch = “+” Then
flag = 1
End If
End If
Next i
Label1.Caption = Str(t)
End Sub
(3)若文本框Text1中输入内容的结束符“=”缺失(即输入内容为12+28-15+50),单击“计算”按钮后, 标签Label1上显示的内容是 。?
答案 (1)C (2)①p*10 + Val(ch) ②t + flag*p (3)25
解析 本题的解题关键在于理解非数字字符的操作。For语句遍历字符串值,If语句判断字符类型,对应操作。(1)略。(2)①分析判断条件可知,要执行数字相连。原值p乘10加新出现的值val(ch)组成新值。②随着非数字符号出现,要把前值放入累加器t中,flag存放前值符号,因此要累加flag*p。(3)略。
5.情报员小王在工作时发现R国会用一些对称字符(如ABBA、ABA、123321)进行通信。R国为防止通信内容被破解,会在对称字符的头、尾加一些无关字符,如:12ABBA、ABAKK、5123432198。因此小王编写了一个VB程序,用于读取通信字符串中最长的对称字符。在文本框Text1中输入通信字符,单击“读取”按钮 Command1,在标签Label2中显示最长的对称字符,程序运行界面如图所示。请完善代码。
/
Private Sub Command1_Click()
Dim x As String, n As Integer, i As Integer
Dim k As Integer, start As Integer
Dim max As Integer
x = Text1.Text: n = Len(x)
max = 0: start = 1
For i = 1 To n
k = n
Do While k > i
If ① And k - i + 1 > max Then?
max = k - i + 1
start=i
End If
② ?
Loop
Next i
Label2.Caption =“最长回文字符串为” + Mid(x, start, max)
End Sub
Function isPa(t As String) As Boolean ’判断是不是回文数
Dim i As Integer
③ ?
For i = 1 To Len(t) 2
If Mid(t, i, 1) <> Mid(t, Len(t) - i + 1, 1) Then isPa = False
Next i
End Function
答案 ①isPa(Mid(x,i,k-i+1)) ②k=k-1 ③isPa = True
解析 函数isPa(t)的功能是判断t是不是回文,根据函数返回值,很容易得出答案isPa=True。寻找最长回文字符的方法是这样的:先确定i=1,k=n,依次减小k的值来确定[1,k]之间的回文字符串;然后i=2,k=n,依次减小k的值来确定[2,k]之间的回文字符串……即在[i,k]之间依次寻找回文字符串,所以①的答案是isPa(Mid(x,i,k-i+1)),②的答案是k=k-1。可以从语句Label2.Caption=“最长回文字符串为”+Mid(x,star,max)中了解star、max变量的用途。
6.输入一个表达式(运算符号只有加、减、乘、除和小括号,表达式是正确的,不需要检查),求表达式中最后一次计算的运算符号位置。比如表达式a*(b+c)-4+d最后一次运算的运算符号是在第10个位置的“+”,输出10。算法的思想是从表达式右边开始往左边查找,对碰到的字符分四种情况考虑:
1)若是运算符“+”,保存该位置并结束查找。
2)若是第一次碰到或“/”,保存该位置,若不是第一次碰到或“/”,继续往左边查找。
3)若是“)”,调用函数找到和它对应的位置,跳过该括号内容,继续往左查找。
4)若是非运算符,继续往左查找。
运行界面如下图:
/
(1)表达式c*a+(a+b),最后一次计算的运算符号位置是 。?
(2)实现上述功能的VB程序如下,根据算法将下列程序补充完整。
Function find(y As String, x As Integer) As Integer
’该函数的功能是返回表达式y中和位于第x位置的“)”配对的位置,代码略
Do While Mid(y, x, 1) <> “(”
① ?
Loop
find = x
End Function
Private Sub Command1_Click()
Dim s As String, t As Integer, ans As Integer, p As Integer
s = Text1.Text ’输入表达式
t = Len (s): p = 0
Do While t > 0
If Mid(s, t, 1) = “+” Or Mid(s,t, 1) = “-” Then ’处理+、-
ans = t
Exit Do
End If
If ② Then ’处理*、/?
ans=t
p=1 ’用来标记乘号或除号已经出现了
End If
If Mid(s, t, 1) =“)”Then ’处理括号
t = find(s, t)
End If
③ ?
Loop
Label2.Caption=“最后计算的运算符号位置为”+Str(ans)
End Sub
答案 (1) 4 (2)①x=x-1 ②(p=0) And (Mid(s, t, 1) = “*” Or Mid(s, t, 1) = “/”) ③t = t-1
解析 本题的算法按照题目描述的四种情况考虑即可。(1)表达式 c*a+(a+b),按照从右往左查找,先找到的是“)”,继续往左查找,找到配对的“(”,继续往左查找,找到“+”,结束查找,对应位置为 4,所以答案为 4。(2)函数 find(y, x)的功能已在题中有详细描述,就是要查找配对的括号,对应题目描述中的第 3 种情况,所以答案为①x=x-1。第②空对应的题目描述中的第 2 种情况,但要考虑首次碰到的情况,所以答案为②(p=0) And (Mid(s, t, 1) = “*” Or Mid(s, t, 1) = “/”)。整个查找过程是从右往左查找,所以③空的答案为 t = t-1。
7.写一个字符串压缩程序:对于2~9个相同字符组成字符串,用两个字符来编码:第一个字符表示这个字符串的长度值(即2~9);第二个字符表示相同字符的值。如字符串“AAAAA”可以压缩成“5A”,“AA”可以压缩成“2A”。如果存在某个字符串,其中没有一个字符连续重复出现,就表示成:以数字1开始,后面跟着这一字符串,再以数字1结尾。如字符串“BCE”可以表示成“1BCE1”,“A”可以表示成“1A1”。又如:“XXXXXXXXABCYYYZ”的压缩结果是“8X1ABC13Y1Z1”。
假设被压缩字符串中只会出现字母,连续相同字母不会超过 9个。以下程序在Text1中输入被压缩的字符串,在Text2中输出了压缩的结果。请回答以下问题。
(1)若Text1中输入的字符串为“XXXXXAXAAA”,那么压缩的结果是 。?
(2)实现上述功能的VB程序如下,请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String
Dim n As Integer,i As Integer
s =Text1.Text
n = Len(s):i=1:result =“”
Do While i< = n
s1 = Mid(s,i,1)
numbers = 0
’扫描到的字符都和s1相同
Do While ① ?
i = i+1
numbers = numbers +1
Loop
If numbers>0 Then
result = result & ② & s1?
i = i+1
End If
start = i
s1 =Mid(s,i, 1)
numbers = 0
’扫描到的字符都和s1不同
Do While ③ ?
i = i+1
numbers = numbers +1
s1 = Mid(s,i,1)
Loop
If Mid(s,i+1,1)= s1 Then numbers = numbers -1
If numbers>= 0 Then result = result &“ 1” & ④ &“1”?
Loop
Text2.Text = result
End Sub
答案 (1)5X1AX13A (2)① Mid(s,i+1,1) = s1 ② numbers+1 ③ s1 <>Mid(s,i+1,1) ④ Mid(s,start,numbers+1)
解析 由题意知,程序的压缩规则有两条:第一,对相邻连续相同字符的压缩,第二,不同字符的压缩。注意到内层循环有两个并列的Do While循环,每个循环的末尾都是对输出结果变量result的构造,而由构造方式也可推测,第一个循环是解决连续相同字符的压缩过程,第二个循环是解决不同字符的压缩过程。于是,不难看出第①空应该是判断和前面字符是否相等,而第③空是判断是否不相等。第②空需要模拟程序的执行,这里变量numbers用于统计相同字符的个数,而初始值是0,因此统计完之后,相同字符个数应该是numbers+1。同样,第④空是需要截取从start开始,共numbers+1个不相同的字符。
课件9张PPT。
第3节 字符串问题 字符(包括字符串)在计算机中存储是每个字符的内码值。字符可 以直接比较大小,实际上是比较内码的大小。如“a”<“b”,“ab”< “abc”,“abc”<“abd”,“acde”<“ad”,比较方法是先比较第一个 字符,如果相同,则比较第二个字符,依次类推。
1.几个常用字符的内码值:教材研读 2.字符串处理相关函数: 3.字符相加:
(1)用“+”号:运算符两边必须都是字符串型,如“1”+“2”=“12”, 而1+“2”则出错。
(2)用“&”号:会自动将两边的数据转成字符串型再拼接。如“1”& “2”=“12”,1&“2”=“12”。
注意:字符相加前后位置对调,结果不一样,“1”+“2” =“12”,而 “2”+“1” =“21”。4.不同类型字符的判断:5.字符转换:6.字符串操作:
