玄菟郡VB6.0研究所
关注
分享
扫一扫
文章平均质量分 73
KiteGirl
这个作者很懒，什么都没留下…
展开
-
Base64编码/解码模块
Attribute VB_Name = "modBase64" 名称: Base64编码/解码模块 Name: Base64 Encode & Decode Module 作者: KiteGirl [中国] Coder: KiteGirl [China] 数据结构 Option原创 2006-06-26 03:43:00 · 3786 阅读 · 11 评论 -
ByteFile函数模块
Attribute VB_Name = "modByteFile" Public Function TextLineSplitByLength(ByVal pString As String, ByVal pLength As Long) As String Dim tOutStrings() As String Dim tStringSize As Long原创 2006-06-26 03:56:00 · 1532 阅读 · 4 评论 -
“跳蚤算法”函数模块（不重复随机数高效算法）
Attribute VB_Name = "modFleaRandom" FleaRandom Module KiteGirl 2005 Public Sub FleaRandom(ByRef pList() As Long, Optional ByVal pSet_Scan As Boolean = False, Optional ByVal pSet_Swap As Boo原创 2007-06-26 03:19:00 · 2228 阅读 · 0 评论 -
跳蚤算法：基本原理。
跳蚤算法：基本原理。一、算法的诞生及设计初衷。传统教材中取得x个0 to n之间不重复随机数的方法一般是这样： （x个不重复随机数输出到a()数组） For i=1 to x Do r=int(rnd*(n+1)) c= Loop Until c Next 由于r可能原创 2007-06-26 04:07:00 · 3613 阅读 · 0 评论 -
跳蚤算法：快速跳蚤算法
跳蚤算法：快速跳蚤算法在原理当中讲了跳蚤算法的原型，用来获得x个0 to n范围内的不重复随机数。 初始化 For i=0 to n a(i)=i Next 乱序 For i=0 to n r=int(rnd*(n+1)) Swap a(i),a(r) Next Sub Swap(V1,V2原创 2007-06-26 04:24:00 · 3330 阅读 · 0 评论 -
巨文本索引器——TID 1.0
Option ExplicitKiteGirl TID 1.00 - modIndexText.bas巨型文本文件索引器。（这是一个模块，需要把这些代码复制到模块里）TID使用示例：GIS2.txt文件，以&HA为分隔符，分隔符长度1。利用TID取它的任意行（这里从第3行开始，取2行）（这里举例为特殊文本，Windows下正常文本采用默认值分隔符就可以）Dim tStrings(原创 2008-12-19 02:19:00 · 2430 阅读 · 2 评论 -
取平面坐标相对角度（0-359度）及两角的相对角偏移量的函数
Public Function AngleOffsetValue(ByRef pAngleSur As Double, ByRef pAngleDes As Double) As Double AngleOffsetValue函数 格式: [tOutAngle] = AngleOffsetValue(pAngleSur, pAngleDes) 功能: 取得源点与原创 2009-09-27 04:33:00 · 1614 阅读 · 0 评论 -
代码返回自己
<br /><html><br /><head><br /><title>OutMe</title><br /></head><br /><body><br /></body><br /><script language="VBScript"><br />Dim priCodeMe<br />Dim priCode<br />priCodeMe = "3C68746D6C3E0D0A3C686561643E0D0A3C7469746C653E4F75744D653C2F7469746C653E0D0A3C2原创 2010-06-07 06:50:00 · 1706 阅读 · 1 评论 -
VBScript纯数学星期算法。
Function WeekGetByDate(pDate, pMode) 'WeekGetByDate函数 '格式:[tOutWeekName] = WeekGetByDate(pDate, pMode) '说明:获取日期对应的星期名称。 '格式:date原创 2011-09-08 02:26:55 · 970 阅读 · 0 评论