Question

VB中，怎样在一个已知的字符串中插入一个字符？

比如说插在左数第4个位置

Answer 1

VB6.0可通过使用Mid函数、InStr 函数和&运算符等来实现一个已知的字符串中插入一个字符。

Mid 函数， 返回 Variant (String)，其中包含字符串中指定数量的字符。

InStr 函数，返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。

& 运算符，用来强制两个表达式作字符串连接。

以下代码在字符串“VB中怎样在一个已知的字符串中插入一个字符？"的第一个中字后插入一个逗号“，”。

Option Explicit
    Dim strSj As String
    Dim strSj1 As String
    Dim s As String
    Dim i As Long
    
Private Sub Command1_Click()
    i = InStr(Text1, "中")
    Text2 = Mid(Text1, 1, i) & s & Mid(Text1, 4)
End Sub

Private Sub Form_Load()
    Text1 = "VB中怎样在一个已知的字符串中插入一个字符？"
    s = "，"
End Sub

Answer 2

....很简单嘛，先将原字符串拆分成两半，加入后再合上即可。
Dim T As String
Dim K As String
T = "abcdfghijklmn"
K = Mid(T, 1, 4) & "e" & Mid(T, 5)

这个代码是将字母e插在从左向右第5个位置上。
原字符串是：
abcdfghijklmn
插入后的字符串是：
abcdefghijklmn