vb 如何用MID函数处理如下问题

vb 如何用MID函数处理如下问题

Dim m As Integer, n As Integer
m = InStr(Text1.Text, "你")
n = InStr(Text1.Text, "吗")
If m > 0 And n > m Then
Text1.Text = Mid(Text1.Text, m, n - m + 1)
Else
MsgBox "错误"
End If追问如果我不要“吗”这个字呢追答那要如何提取呢？是提取“你”后面的全部吗？追问不是，提取的时候连“吗”也一起去掉追答Text1.Text = Mid(Text1.Text, m, n - m + 1)

改为
Text1.Text = Mid(Text1.Text, m, n - m)

dim a as string,b as integer
a=text1.text '把文本的数据赋值给a
b=len(a) '计算a=长度 赋给b
for i =1 to b '循环a的长度数 也就是b次
c=mid$(a,i,1)
If c = "你" Or c = "到" Or c = "吗" Then
d = d & c
End If
next i
text1.text = d

MID函数的格式：MId(S,n,k)
功能：返回字符串S中，从第n位字符开始的连续k个字符．
例如：
Dim s as string
s = "1234ABCD甲乙丙丁"
那么 MId(S,6,4)将返回字符串"BCD甲"
理解了它的格式与作用，你的问题应该自己可以回答了吧？
要注意，参数S,n,k都可以使用表达式。

补充说明一个定位函数：Instr()
格式：Instr(n,s1,s2)
功能：返回在字符串s1里，从它左起第n个字符开始寻找匹配字符串s2的位置。
例如：
Instr(1,"中国人民","人民")，返回3
Instr(3,"中国人民","人民")，返回3
Instr("中国人民","人民")，返回3，n = 1的时候，可以省略。
Instr(1,"中国人民","南京")，返回0
解决你的问题，要使用到这个函数！追问具体点，代码！

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息