vb中字符串替换问题

Question

如题所述

Answer 1

题目本身就有问题
如果是字母一一映射的话,那空格就不能转换成cac(具体说,是不能用字母来替换),一旦这样操作,在还原的时候,就可能会出现错误

Answer 2

Private
Sub
Command1_Click()
'第一步:
首先查找指定位子的字符是什么:
Dim
A
As
Integer,
B
As
String,
C
As
String,
D
As
String,
X
As
String,
M
As
String
X
=
"P"
'这个替换字符也可以用文本框输入X
=
Text3.Text
B
=
Text1.Text
M
=
Text2.Text
A
=
Int(Val(M))
C
=
Len(B)
D
=
Right(B,
C
-
A
+
1)
D
=
Left(D,
1)
'第二步:
替换字符:
B
=
Replace(B,
D,
X)
Label1.Caption
=
B
'注意：可以替换查询到的所有字符
End
Sub