我如何在一个字符串中插入另外一个字符? for i=1 to len(str)if mid(str,i,1)="H" thenstr=left(str,i)+"a"+right(str,len(str)-i)end ifnext iVB中没有提供直接插入的函数,还是自己写一个函数吧! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 a$="fdsa"a$=mid$(a$,1,2) & "asdf" & mid$(a$,3) Function InsertString(ASource as string, APos as integer, AStr as string) as stringInsertString = Left(ASource, APos) & AStr & Mid(ASource, APos + 1)end function 图象24位下显示异常请高手帮我看下 VB问题 winsock做为后台,用C/S结构和B/S结构都能和他通讯的问题? 自己有成熟的软件产品的找我,我有渠道负责销售 求助!急!!! 不好意思写错地方了。好书推荐:《Visual Basic + SQL Server数据库应用系统开发与实例》 DataGrid的焦点问题(急!!周末加班,真不爽!) 如何得到一个第三方程序上面的文字或者图像. 用VB+access开发的软件,改写成VB+serverSQL,改动量大不大? 弹出菜单的问题 动态链接库问题,看来只有高手才知道了。 在VB中如何取得当前系统日期?
a$=mid$(a$,1,2) & "asdf" & mid$(a$,3)
InsertString = Left(ASource, APos) & AStr & Mid(ASource, APos + 1)
end function