原作者:www.upwinder.com 添加时间:2007-09-01 原文发表:2007-08-31 人气:97 来源：未知

---

该函数在字符串 s 中清除 Search（注意：如果 s 为 AAABBB，Search 为 AB。如何？） ： Function StringCleaner(s As String, Search As String) As String 逆@风@者 Dim i As Integer, res As String res = s Do While InStr(res, Search) i = InStr(res, Search) res = Left(res, i - 1) & Mid(res, i 1) Loop StringCleaner = res End Function 007 快速交换整数 可用以下的代码快速交换两个整数（Interger）： a = a xor b b = a xor b a = a xor b

---

• 在Word中嵌入应用程序 • VB COM基础讲座之ActiveX EXEs • 创建一个简单的OLE DB提供者 • VB COM基础讲座之类的测试 • 如何VB转换C代码中的高字和低字 • 在vb中删除带子文件夹的文件夹 • VB 神童教程第四章第四节——基本的窗体操作 • VB中对字符串的处理及其扩展 • Hierarchical FlexGrid 控件的使用 • 用VB实现类电子表格的数据录入

• 如何取得计算机的所有字型 • VB COM基础讲座之可重用性 • 使用ADD-IN 技术加强Visual Basic 开发环境 • VB COM基础讲座之建立测试程序 • 用VB5开发商品软件的经验谈 • 简单计算函数的编写过程 • VB 神童教程第二章第十三节——Timer 控件 • VB中远程数据库的访问（1）－数据连接 • 文档数据库与关系数据库的比较 • VB6.0中的几个新增数据库工具

---

本文章所属分类：首页 → VB