concily 2004年12月27日
字符串函数问题~~~~~~~~~~~~
在下的就就问题如下:

Private Sub Command1_click()
Dim s As String, c As String, n As Integer, m As Integer
s = Text1.Text
c = Text2.Text
n = InStr(s, c)
'如果n=0,待查找的子字符串不存在,因而下一语句出现运行错误
Text1.Text = Mid(s, 1, n - 1) + Text3.Text + Mid(s, n + Len(c))
'mid(s,1,n-1)为原文本第1~n-1个字符组成的串
'原文本第n~n+len(c)-1个字符组成的串,由text3.text替换
'mid(s,n+len(c))为原文本第n+len(c)~最后的字符组成的串

End Sub
问题是出现在: Text1.Text = Mid(s, 1, n - 1) + Text3.Text + Mid(s, n + Len(c))
但是我不知道是怎么错啦?请大家帮帮忙.谢谢!!!
...全文
169 点赞 收藏 14
写回复
14 条回复

还没有回复,快来抢沙发~

发动态
发帖子
VB基础类
创建于2007-09-28

2738

社区成员

19.7w+

社区内容

VB 基础类
社区公告
暂无公告