【access小品】中心开花--自定义函数编制讲座二
时 间:2011-04-28 06:37:41
作 者:煮江品茶 ID:10802 城市:武汉
摘 要:自定义函数编制讲座
正 文:
编写自定义函数时,一般需要找到所需功能的核心算法,这个算法可先从一个特例开始进行编写。中心开花,逐步抽象,递次外延,直到获得满足功能需求的完整代码。下面以版友123xiaoniu同志昨日所问字符串排序问题为例,说明函数编写的过程。
第一步 先做字符串第一位的排序,基本思路为:将第一位的字符顺序向后逐个比较,取得最小值的字符,并将其排列到第一位。那么函数可写为:
Function orderStr(str As String) As String
Dim s As String
Dim j As Long
Dim n As Long
s = Mid(str, 1, 1)
For j = 1 To Len(str)
If Mid(str, j, 1) < s Then s = Mid(str, j, 1): n = j '计算最小值及其位置。
Next
str = s & Replace(str, s, "", 1, 1) '排序
orderStr = str
End Function
第二步 做第一位到倒数第二位的循环比较排序。函数可写为:
Function orderStr(str As String) As String
Dim s As String
Dim i As Long, j As Long
Dim n As Long
For i = 1 To Len(str) - 1
s = Mid(str, i, 1)
For j = i + 1 To Len(str)
If Mid(str, j, 1) < s Then s = Mid(str, j, 1): n = j
Next
str = Mid(str, 1, i - 1) & s & Replace(str, s, "", i, 1)
Next
orderStr = str
End Function
第三步 做可选择顺序和逆序的排序函数
Function orderStr(str As String, B As Long) As String
'功能:字符串排序
'参数:str--源字符串,B=1 降序 B=2 升序
Dim s As String
Dim i As Long, j As Long
Dim n As Long
For i = 1 To Len(str) - 1
s = Mid(str, i, 1)
For j = i + 1 To Len(str)
Select Case B
Case 1
If Mid(str, j, 1) < s Then s = Mid(str, j, 1): n = j
Case 2
If Mid(str, j, 1) > s Then s = Mid(str, j, 1): n = j
End Select
Next
str = Mid(str, 1, i - 1) & s & Replace(str, s, "", i, 1)
Next
orderStr = str
End Function
Access软件网官方交流QQ群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access小作品】简单的待...(04.30)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
学习心得
最新文章
- 新版铁路工程管理系统V2.0(05.08)
- Access快速开发平台企业版--...(05.07)
- 【Access Call用法学习】...(05.06)
- access软件网站长张志简介 (05.05)
- 精美简单实用的系统面板(05.03)
- 【Access小作品】简单的待办任...(04.30)
- 从另一个ACCESS数据库批量导入...(04.29)
- Access日期格式的数据导出Ex...(04.28)
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)