VB专题：字符处理之字符替换

1. 字符串函数的使用
（1）Len(s):
应用：s= 求字符串s长度的表达式：①。

②。

（2）Mid(s,i,n) 或 Mid(s,i):
应用：s=“I very like the story book.”
2. 字符串连接：
应用：
（1）顺序连接（表达式或赋值语句）：。

（2）倒序连接（表达式或赋值语句）：。

3.大小写转换
小写转大写C=Mid(s,i,1)=“b”Chr(Asc(C)-32)
二、字符替换
1.单个字符替换
任务描述：将字符串中的特定单个字符替换成另一个特定字符，如图所示：将text1中的”偶”（由Text2输入）替换成”我”（由Text3输入），将替换后的字符串由Text4输出。

Text1
Text2Text3
Private Sub Command1_Click()
Dim s As String, ss As String，c1 As String, c2 As String
s = : c1 = : c2 = : ss = ""
For i = 1 To Len(s)
If ① Then ‘取子串，判断是否需要替换
ss = ss + ②‘有替换的连接
Else
ss = ss + ③‘无替换的连接
End If
Next i
= ss
End Sub
思考并写出相应语句，然后完成上面的填空：
（1）如何取子串
（2）如何判断（是否需要替换）
（3）如何连接字符串替换
未替换
小结：字符替换三步走：取子串----->判断------>重新连接
2.任意长度字符串替换
（１）（方法一）任务描述：将字符串中的特定字符串替换成另一个任意长度特定字符串，如图所示：将Text1中的”中学”（由Text2输入）替换成” middle school”（由Text3输入），将替换后的字符串由Text4输出。

Private Sub Command1_Click()
Dim s As String, c1 As String, c2 As String s = : c1 = : c2 = : ss = ""
i = 1
Do While i <= Len(s)
If ① Then
ss = ss + c2Text1
Text2Text3
i = i + ②
Else
ss = ss + ③
i = i + 1
End If
Loop
= ss
End Sub
思考并写出相应语句，然后完成上面的填空：
（1）如何取子串
（2）如何判断（是否需要替换）
（3）如何连接字符串替换
未替换
Text1
Text2Text3
（２）（方法二）任务描述：将字符串中的特定字符串替换成另一个任意长度特定字符串，如图所示：将Text1中的”中学”（由Text2输入）替换成” middle school”（由Text3输入），将替换后的字符串由Text4输出。

Private Sub Command1_Click()
Dim s As String, c1 As String, c2 As String
s = : c1 = : c2 =
i = 1
Do While i <= Len(s)
If ① Then
s = ②
i = i + ③
Else
i = i + 1
End If
Loop
= s
End Sub
思考并写出相应语句，然后完成上面的填空：
（1）如何取子串
（2）如何判断（是否需要替换）
（3）如何连接字符串程序中被赋值的变量是什么和方法一比较有什么变化
课后思考：（1）循环条件i <= Len(s) 能不能优化（让循环次数减少）（2）如果变成字符的删除、插入，程序将要怎样修改。