7,762
社区成员
发帖
与我相关
我的任务
分享
sa = "11111311111131111"
For i = 8 To 12
Mid(sa, i, 1) = "0"
Next
Dim sa, sb, sc, sd, i, k
sa = "11111311111131111"
k = InStr(sa, "3")
i = InStr(k + 1, sa, "3")
sb = Left(sa, k)
sc = Mid(sa, k + 1, i - k - 1)
sd = Mid(sa, i)
sa = sb & Replace$(sc, "1", "0") & sd
Call MsgBox(sa, 64)