- 注册时间
- 2011-3-6
- 最后登录
- 1970-1-1
该用户从未签到
|
发表于 2014-7-8 09:13:51
|
显示全部楼层
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 |
|