初学者在问：可不可以把一个字符给删掉？

Question

Private Sub Form_Load()
    Dim lReturn As Long
    lReturn = InStr(1, "我是中国人", "是")
    Debug.Print Mid("我是中国人", lReturn, 1)
End Sub

Answer 1

以上只是查找，具体如下：Private Sub Form_Load()
    Dim lReturn As Long
    Dim sCutStr As String
    Dim sFindStr As String
    
    sCutStr = "我是中国人"
    sFindStr = "是"
    lReturn = InStr(1, sCutStr, sFindStr)
    Debug.Print Mid(sCutStr, 1, lReturn - 1) & Mid(sCutStr, lReturn + 1)
End Sub

Answer 2

debug.print replace("我是中国人","是","")

Answer 3

ttyp(懒鬼)说得对，我的方法不好！

Answer 4

上面的回答，谢谢您！可是我调不通啊，据我的理解，instr语句找到“是”在“我是中国人”中的位置，也就是2，然后用debug.print来删掉并显示出来。那么这个bebug.print的功能是什么？因为我没有MSDN，所以这些东西我自己找不到，麻烦您给讲一下，谢谢了！

Answer 5

InStr([start, ]string1, string2[, compare])
返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。
start: 开始的位置
string1: 一字符串
string2: 另一字符串

Answer 6

dim MyStr as string
MyStr=Replace("我是中国人","是")

Answer 7

对不起，打错了
dim MyStr as string
MyStr=Replace("我是中国人","是","")